Permalink
Cannot retrieve contributors at this time
Name already in use
A tag already exists with the provided branch name. Many Git commands accept both tag and branch names, so creating this branch may cause unexpected behavior. Are you sure you want to create this branch?
drunken-octo-hipster/build/zoneinfo2lua.pl
Go to fileThis commit does not belong to any branch on this repository, and may belong to a fork outside of the repository.
executable file
149 lines (107 sloc)
2.75 KB
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/usr/bin/perl | |
# zoneinfo2lua.pl - Make Lua module from /usr/share/zoneinfo | |
# Execute from within root of Luci feed, usually feeds/luci | |
# $Id$ | |
use strict; | |
my %TZ; | |
my $tzdin = $ARGV[0] || "/usr/share/zoneinfo"; | |
my $tzdout = $ARGV[1] || "./modules/luci-base/luasrc/sys/zoneinfo"; | |
local $/ = "\012"; | |
open( ZTAB, "< $tzdin/zone.tab" ) || die "open($tzdin/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, "< $tzdin/$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 "open($tzdin/$zone): $!\n"; | |
} | |
} | |
close ZTAB; | |
open(O, "> $tzdout/tzdata.lua") || die "open($tzdout/tzdata.lua): $!\n"; | |
print STDERR "Writing time zones to $tzdout/tzdata.lua ... "; | |
print O <<HEAD; | |
-- Licensed to the public under the Apache License 2.0. | |
module "luci.sys.zoneinfo.tzdata" | |
TZ = { | |
HEAD | |
foreach my $zone ( sort keys %TZ ) { | |
printf O "\t{ '%s', '%s' },\n", $zone, $TZ{$zone} | |
} | |
print O "}\n"; | |
close O; | |
print STDERR "done\n"; | |
open (O, "> $tzdout/tzoffset.lua") || die "open($tzdout/tzoffset.lua): $!\n"; | |
print STDERR "Writing time offsets to $tzdout/tzoffset.lua ... "; | |
print O <<HEAD; | |
-- Licensed to the public under the Apache License 2.0. | |
module "luci.sys.zoneinfo.tzoffset" | |
OFFSET = { | |
HEAD | |
my %seen; | |
foreach my $tz ( sort keys %TZ ) { | |
my $zone = $TZ{$tz}; | |
if( $zone =~ /^ | |
([A-Z]+) | |
(?: | |
( -? \d+ (?: : \d+ )? ) | |
(?: | |
([A-Z]+) | |
( -? \d+ (?: : \d+ )? )? | |
)? | |
)? | |
\b /xo ) { | |
my ( $offset, $s, $h, $m ) = ( 0, 1, 0, 0 ); | |
my ( $std, $soffset, $dst, $doffset ) = ( $1, $2, $3, $4 ); | |
next if $seen{$std}; # and ( !$dst or $seen{$dst} ); | |
if ( $soffset ) { | |
( $s, $h, $m ) = $soffset =~ /^(-)?(\d+)(?::(\d+))?$/; | |
$s = $s ? 1 : -1; | |
$h ||= 0; | |
$m ||= 0; | |
$offset = $s * $h * 60 * 60; | |
$offset += $s * $m * 60; | |
printf O "\t%-5s = %6d,\t-- %s\n", | |
lc($std), $offset, $std; | |
$seen{$std} = 1; | |
if( $dst ) { | |
if( $doffset ) { | |
( $s, $h, $m ) = $doffset =~ /^(-)?(\d+)(?::(\d+))?$/; | |
$s = $s ? 1 : -1; | |
$h ||= 0; | |
$m ||= 0; | |
$offset = $s * $h * 60 * 60; | |
$offset += $s * $m * 60; | |
} else { | |
$offset += 60 * 60; | |
} | |
printf O "\t%-5s = %6d,\t-- %s\n", | |
lc($dst), $offset, $dst; | |
$seen{$dst} = 1; | |
} | |
} | |
else { | |
printf O "\t%-5s = %6d,\t-- %s\n", | |
lc($std), $offset, $std; | |
$seen{$std} = 1; | |
} | |
} | |
} | |
print O "}\n"; | |
close O; | |
print STDERR "done\n"; |