mirror of
https://github.com/openwrt/luci
synced 2025-01-09 04:28:37 +08:00
69 lines
1.2 KiB
Perl
69 lines
1.2 KiB
Perl
|
#!/usr/bin/perl
|
||
|
|
# zoneinfo2lua.pl - Make Lua module from /usr/share/zoneinfo
|
||
|
|
# Execute from within /usr/share/zoneinfo
|
||
|
|
# $Id$
|
||
|
|
|
||
|
|
use strict;
|
||
|
|
|
||
|
|
my %TZ;
|
||
|
|
|
||
|
|
local $/ = "\012";
|
||
|
|
open( ZTAB, "< ./zone.tab" ) || die "Unable to open zone.tab: $!";
|
||
|
|
|
||
|
|
while( ! eof ZTAB ) {
|
||
|
|
chomp( my $line = readline ZTAB );
|
||
|
|
next if $line =~ /^#/ || $line =~ /^\s+$/;
|
||
|
|
|
||
|
|
my ( undef, undef, $zone, @comment ) = split /\s+/, $line;
|
||
|
|
|
||
|
|
printf STDERR "%-40s", $zone;
|
||
|
|
|
||
|
|
if( open ZONE, "< ./$zone" ) {
|
||
|
|
seek ZONE, -2, 2;
|
||
|
|
|
||
|
|
while( tell(ZONE) > 0 ) {
|
||
|
|
read ZONE, my $char, 1;
|
||
|
|
( $char eq "\012" ) ? last : seek ZONE, -2, 1;
|
||
|
|
}
|
||
|
|
|
||
|
|
chomp( my $tz = readline ZONE );
|
||
|
|
print STDERR ( $tz || "(no tzinfo found)" ), "\n";
|
||
|
|
close ZONE;
|
||
|
|
|
||
|
|
if( $tz ) {
|
||
|
|
$zone =~ s/_/ /g;
|
||
|
|
$TZ{$zone} = $tz;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
print STDERR "Unable to open $zone: $!\n";
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
close ZTAB;
|
||
|
|
|
||
|
|
|
||
|
|
print <<HEAD;
|
||
|
|
--[[
|
||
|
|
LuCI - Autogenerated Zoneinfo Module
|
||
|
|
|
||
|
|
Licensed under the Apache License, Version 2.0 (the "License");
|
||
|
|
you may not use this file except in compliance with the License.
|
||
|
|
You may obtain a copy of the License at
|
||
|
|
|
||
|
|
http://www.apache.org/licenses/LICENSE-2.0
|
||
|
|
|
||
|
|
]]--
|
||
|
|
|
||
|
|
module "luci.sys.zoneinfo"
|
||
|
|
|
||
|
|
TZ = {
|
||
|
|
HEAD
|
||
|
|
|
||
|
|
foreach my $zone ( sort keys %TZ ) {
|
||
|
|
printf "\t{ '%s', '%s' },\n", $zone, $TZ{$zone}
|
||
|
|
}
|
||
|
|
|
||
|
|
print "}\n";
|