build/zoneinfo2ucode.pl

   1 #!/usr/bin/perl
   2 # zoneinfo2ucode.pl - Make ucode module from /usr/share/zoneinfo
   3 # Execute from within root of Luci feed, usually feeds/luci
   4
   5 use strict;
   6
   7 my %TZ;
   8
   9 my $tzdin  = $ARGV[0] || "/usr/share/zoneinfo";
  10 my $tzdout = $ARGV[1] || "./modules/luci-base/ucode/zoneinfo.uc";
  11
  12 local $/ = "\012";
  13 open( ZTAB, "< $tzdin/zone.tab" ) || die "open($tzdin/zone.tab): $!";
  14
  15 while( ! eof ZTAB ) {
  16         chomp( my $line = readline ZTAB );
  17         next if $line =~ /^#/ || $line =~ /^\s+$/;
  18
  19         my ( undef, undef, $zone, @comment ) = split /\s+/, $line;
  20
  21         printf STDERR "%-40s", $zone;
  22
  23         if( open ZONE, "< $tzdin/$zone" ) {
  24                 seek ZONE, -2, 2;
  25
  26                 while( tell(ZONE) > 0 ) {
  27                         read ZONE, my $char, 1;
  28                         ( $char eq "\012" ) ? last : seek ZONE, -2, 1;
  29                 }
  30
  31                 chomp( my $tz = readline ZONE );
  32                 print STDERR ( $tz || "(no tzinfo found)" ), "\n";
  33                 close ZONE;
  34
  35                 if( $tz ) {
  36                         $zone =~ s/_/ /g;
  37                         $TZ{$zone} = $tz;
  38                 }
  39         }
  40         else
  41         {
  42                 print STDERR "open($tzdin/$zone): $!\n";
  43         }
  44 }
  45
  46 close ZTAB;
  47
  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";
  76
  77 open(O, "> $tzdout") || die "open($tzdout): $!\n";
  78
  79 print STDERR "Writing time zones to $tzdout ... ";
  80 print O <<HEAD;
  81 // Autogenerated by zoneinfo2ucode.pl
  82
  83 export default {
  84 HEAD
  85
  86 foreach my $zone ( sort keys %TZ ) {
  87         printf O "\t'%s': '%s',\n", $zone, $TZ{$zone}
  88 }
  89
  90 print O "};\n";
  91 close O;
  92
  93 print STDERR "done\n";