+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";