build: generate timezone offsets too in zoneinfo2lua.pl

libs/http:	drop zoneinfo information in luci.http.protocol.data, use luci.sys.zoneinfo instead
libs/sys:	refresh zoneinfo information

1 files changed, 70 insertions, 0 deletions

diff --git a/build/zoneinfo2lua.pl b/build/zoneinfo2lua.pl
index fdcc3d60e..7e772c0af 100644
--- a/build/zoneinfo2lua.pl
+++ b/build/zoneinfo2lua.pl
@@ -65,4 +65,74 @@ foreach my $zone ( sort keys %TZ ) {
 	printf "\t{ '%s', '%s' },\n", $zone, $TZ{$zone}
 }
 
+print <<HEAD;
+}
+
+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("\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("\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);
+
+			$seen{$std} = 1;
+		}
+
+	}
+}
+
 print "}\n";