2 # zoneinfo2ucode.pl - Make ucode module from /usr/share/zoneinfo
3 # Execute from within root of Luci feed, usually feeds/luci
9 my $tzdin = $ARGV[0] || "/usr/share/zoneinfo";
10 my $tzdout = $ARGV[1] || "./modules/luci-base/ucode/zoneinfo.uc";
13 open( ZTAB
, "< $tzdin/zone.tab" ) || die "open($tzdin/zone.tab): $!";
16 chomp( my $line = readline ZTAB
);
17 next if $line =~ /^#/ || $line =~ /^\s+$/;
19 my ( undef, undef, $zone, @comment ) = split /\s+/, $line;
21 printf STDERR
"%-40s", $zone;
23 if( open ZONE
, "< $tzdin/$zone" ) {
26 while( tell(ZONE
) > 0 ) {
27 read ZONE
, my $char, 1;
28 ( $char eq "\012" ) ?
last : seek ZONE
, -2, 1;
31 chomp( my $tz = readline ZONE
);
32 print STDERR
( $tz || "(no tzinfo found)" ), "\n";
42 print STDERR
"open($tzdin/$zone): $!\n";
48 # Add Etc/GMT zones from manually as they are not in zone.tab
49 $TZ{"Etc/GMT"} = "GMT0";
50 $TZ{"Etc/GMT-1"} = "<+01>-1";
51 $TZ{"Etc/GMT-2"} = "<+02>-2";
52 $TZ{"Etc/GMT-3"} = "<+03>-3";
53 $TZ{"Etc/GMT-4"} = "<+04>-4";
54 $TZ{"Etc/GMT-5"} = "<+05>-5";
55 $TZ{"Etc/GMT-6"} = "<+06>-6";
56 $TZ{"Etc/GMT-7"} = "<+07>-7";
57 $TZ{"Etc/GMT-8"} = "<+08>-8";
58 $TZ{"Etc/GMT-9"} = "<+09>-9";
59 $TZ{"Etc/GMT-10"} = "<+10>-10";
60 $TZ{"Etc/GMT-11"} = "<+11>-11";
61 $TZ{"Etc/GMT-12"} = "<+12>-12";
62 $TZ{"Etc/GMT-13"} = "<+13>-13";
63 $TZ{"Etc/GMT-14"} = "<+14>-14";
64 $TZ{"Etc/GMT+1"} = "<-01>1";
65 $TZ{"Etc/GMT+2"} = "<-02>2";
66 $TZ{"Etc/GMT+3"} = "<-03>3";
67 $TZ{"Etc/GMT+4"} = "<-04>4";
68 $TZ{"Etc/GMT+5"} = "<-05>5";
69 $TZ{"Etc/GMT+6"} = "<-06>6";
70 $TZ{"Etc/GMT+7"} = "<-07>7";
71 $TZ{"Etc/GMT+8"} = "<-08>8";
72 $TZ{"Etc/GMT+9"} = "<-09>9";
73 $TZ{"Etc/GMT+10"} = "<-10>10";
74 $TZ{"Etc/GMT+11"} = "<-11>11";
75 $TZ{"Etc/GMT+12"} = "<-12>12";
77 open(O
, "> $tzdout") || die "open($tzdout): $!\n";
79 print STDERR
"Writing time zones to $tzdout ... ";
81 // Autogenerated by zoneinfo2ucode.pl
86 foreach my $zone ( sort keys %TZ ) {
87 printf O
"\t'%s': '%s',\n", $zone, $TZ{$zone}
93 print STDERR
"done\n";