mirror of
https://github.com/openwrt/luci
synced 2025-01-07 03:27:12 +08:00
673f38246a
Move classes required for Lua runtime support into a new `luci-lua-runtime` package. Also replace the `luci.http` and `luci.util` classes in `luci-lib-base` with stubbed versions interacting with the ucode based runtime environment. Finally merge `luci-base-ucode` into the remainders of `luci-base`. Signed-off-by: Jo-Philipp Wich <jo@mein.io>
94 lines
2.1 KiB
Perl
Executable File
94 lines
2.1 KiB
Perl
Executable File
#!/usr/bin/perl
|
|
# zoneinfo2ucode.pl - Make ucode module from /usr/share/zoneinfo
|
|
# Execute from within root of Luci feed, usually feeds/luci
|
|
|
|
use strict;
|
|
|
|
my %TZ;
|
|
|
|
my $tzdin = $ARGV[0] || "/usr/share/zoneinfo";
|
|
my $tzdout = $ARGV[1] || "./modules/luci-base/ucode/zoneinfo.uc";
|
|
|
|
local $/ = "\012";
|
|
open( ZTAB, "< $tzdin/zone.tab" ) || die "open($tzdin/zone.tab): $!";
|
|
|
|
while( ! eof ZTAB ) {
|
|
chomp( my $line = readline ZTAB );
|
|
next if $line =~ /^#/ || $line =~ /^\s+$/;
|
|
|
|
my ( undef, undef, $zone, @comment ) = split /\s+/, $line;
|
|
|
|
printf STDERR "%-40s", $zone;
|
|
|
|
if( open ZONE, "< $tzdin/$zone" ) {
|
|
seek ZONE, -2, 2;
|
|
|
|
while( tell(ZONE) > 0 ) {
|
|
read ZONE, my $char, 1;
|
|
( $char eq "\012" ) ? last : seek ZONE, -2, 1;
|
|
}
|
|
|
|
chomp( my $tz = readline ZONE );
|
|
print STDERR ( $tz || "(no tzinfo found)" ), "\n";
|
|
close ZONE;
|
|
|
|
if( $tz ) {
|
|
$zone =~ s/_/ /g;
|
|
$TZ{$zone} = $tz;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
print STDERR "open($tzdin/$zone): $!\n";
|
|
}
|
|
}
|
|
|
|
close ZTAB;
|
|
|
|
# Add Etc/GMT zones from manually as they are not in zone.tab
|
|
$TZ{"Etc/GMT"} = "GMT0";
|
|
$TZ{"Etc/GMT-1"} = "<+01>-1";
|
|
$TZ{"Etc/GMT-2"} = "<+02>-2";
|
|
$TZ{"Etc/GMT-3"} = "<+03>-3";
|
|
$TZ{"Etc/GMT-4"} = "<+04>-4";
|
|
$TZ{"Etc/GMT-5"} = "<+05>-5";
|
|
$TZ{"Etc/GMT-6"} = "<+06>-6";
|
|
$TZ{"Etc/GMT-7"} = "<+07>-7";
|
|
$TZ{"Etc/GMT-8"} = "<+08>-8";
|
|
$TZ{"Etc/GMT-9"} = "<+09>-9";
|
|
$TZ{"Etc/GMT-10"} = "<+10>-10";
|
|
$TZ{"Etc/GMT-11"} = "<+11>-11";
|
|
$TZ{"Etc/GMT-12"} = "<+12>-12";
|
|
$TZ{"Etc/GMT-13"} = "<+13>-13";
|
|
$TZ{"Etc/GMT-14"} = "<+14>-14";
|
|
$TZ{"Etc/GMT+1"} = "<-01>1";
|
|
$TZ{"Etc/GMT+2"} = "<-02>2";
|
|
$TZ{"Etc/GMT+3"} = "<-03>3";
|
|
$TZ{"Etc/GMT+4"} = "<-04>4";
|
|
$TZ{"Etc/GMT+5"} = "<-05>5";
|
|
$TZ{"Etc/GMT+6"} = "<-06>6";
|
|
$TZ{"Etc/GMT+7"} = "<-07>7";
|
|
$TZ{"Etc/GMT+8"} = "<-08>8";
|
|
$TZ{"Etc/GMT+9"} = "<-09>9";
|
|
$TZ{"Etc/GMT+10"} = "<-10>10";
|
|
$TZ{"Etc/GMT+11"} = "<-11>11";
|
|
$TZ{"Etc/GMT+12"} = "<-12>12";
|
|
|
|
open(O, "> $tzdout") || die "open($tzdout): $!\n";
|
|
|
|
print STDERR "Writing time zones to $tzdout ... ";
|
|
print O <<HEAD;
|
|
// Autogenerated by zoneinfo2ucode.pl
|
|
|
|
export default {
|
|
HEAD
|
|
|
|
foreach my $zone ( sort keys %TZ ) {
|
|
printf O "\t'%s': '%s',\n", $zone, $TZ{$zone}
|
|
}
|
|
|
|
print O "};\n";
|
|
close O;
|
|
|
|
print STDERR "done\n";
|