X-Git-Url: https://git.archive.openwrt.org/?p=project%2Fluci.git;a=blobdiff_plain;f=build%2Fzoneinfo2lua.pl;h=722711a97c8356cf0fd9305c36151f8a15074dbf;hp=fdcc3d60ec7c0a4dfa2feec32a1a28d1724b6258;hb=f77b1111e4e413b383295dc2c4afd95ae4b0b9a5;hpb=0d00e3b691146fbd0f51b0782988a62621a72b88

diff --git a/build/zoneinfo2lua.pl b/build/zoneinfo2lua.pl
old mode 100644
new mode 100755
index fdcc3d60e..722711a97
--- a/build/zoneinfo2lua.pl
+++ b/build/zoneinfo2lua.pl
@@ -7,8 +7,11 @@ use strict;
 
 my %TZ;
 
+my $tzdin  = $ARGV[0] || "/usr/share/zoneinfo";
+my $tzdout = $ARGV[1] || "./libs/sys/luasrc/sys/zoneinfo";
+
 local $/ = "\012";
-open( ZTAB, "< ./zone.tab" ) || die "Unable to open zone.tab: $!";
+open( ZTAB, "< $tzdin/zone.tab" ) || die "open($tzdin/zone.tab): $!";
 
 while( ! eof ZTAB ) {
 	chomp( my $line = readline ZTAB );
@@ -18,7 +21,7 @@ while( ! eof ZTAB ) {
 
 	printf STDERR "%-40s", $zone;
 
-	if( open ZONE, "< ./$zone" ) {
+	if( open ZONE, "< $tzdin/$zone" ) {
 		seek ZONE, -2, 2;
 
 		while( tell(ZONE) > 0 ) {
@@ -37,14 +40,17 @@ while( ! eof ZTAB ) {
 	}
 	else
 	{
-		print STDERR "Unable to open $zone: $!\n";
+		print STDERR "open($tzdin/$zone): $!\n";
 	}
 }
 
 close ZTAB;
 
 
-print <<HEAD;
+open(O, "> $tzdout/tzdata.lua") || die "open($tzdout/tzdata.lua): $!\n";
+
+print STDERR "Writing time zones to $tzdout/tzdata.lua ... ";
+print O <<HEAD;
 --[[
 LuCI - Autogenerated Zoneinfo Module
 
@@ -56,13 +62,106 @@ You may obtain a copy of the License at
 
 ]]--
 
-module "luci.sys.zoneinfo"
+module "luci.sys.zoneinfo.tzdata"
 
 TZ = {
 HEAD
 
 foreach my $zone ( sort keys %TZ ) {
-	printf "\t{ '%s', '%s' },\n", $zone, $TZ{$zone}
+	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;
+--[[
+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.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 "}\n";
+print O "}\n";
+close O;
+
+print STDERR "done\n";