X-Git-Url: http://git.archive.openwrt.org/?p=project%2Fluci.git;a=blobdiff_plain;f=build%2Fzoneinfo2lua.pl;h=4a90dae355f469aed54ebdab5766fa11ffd3e294;hp=7e772c0aff39c1d52dfd536e8d00a699b31ae8b2;hb=61a9a58efcb27e2860cef804f04c9c4ba4ceb168;hpb=cbdc5af52ef0eeae955753ab0a8a0df650027b55

diff --git a/build/zoneinfo2lua.pl b/build/zoneinfo2lua.pl
old mode 100644
new mode 100755
index 7e772c0af..4a90dae35
--- 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] || "./modules/luci-base/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,17 +62,37 @@ 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 <<HEAD;
-}
+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
@@ -100,8 +126,8 @@ foreach my $tz ( sort keys %TZ ) {
 			$offset  = $s * $h * 60 * 60;
 			$offset += $s * $m * 60;
 
-			printf("\t%-5s = %6d,\t-- %s\n",
-				lc($std), $offset, $std);
+			printf O "\t%-5s = %6d,\t-- %s\n",
+				lc($std), $offset, $std;
 
 			$seen{$std} = 1;
 
@@ -119,15 +145,15 @@ foreach my $tz ( sort keys %TZ ) {
 					$offset += 60 * 60;
 				}
 
-				printf("\t%-5s = %6d,\t-- %s\n",
-					lc($dst), $offset, $dst);
+				printf O "\t%-5s = %6d,\t-- %s\n",
+					lc($dst), $offset, $dst;
 	
 				$seen{$dst} = 1;
 			}
 		}
 		else {
-			printf("\t%-5s = %6d,\t-- %s\n",
-				lc($std), $offset, $std);
+			printf O "\t%-5s = %6d,\t-- %s\n",
+				lc($std), $offset, $std;
 
 			$seen{$std} = 1;
 		}
@@ -135,4 +161,7 @@ foreach my $tz ( sort keys %TZ ) {
 	}
 }
 
-print "}\n";
+print O "}\n";
+close O;
+
+print STDERR "done\n";