1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
|
#!/usr/bin/perl
# Given a partial templates file on stdin which can contain some
# existing templates for countries, generates a complete templates file on
# stdout for all countries listed in the zone.tab. Also writes out the
# tzmap file, and uses tzmap.override to force countries that have only one
# zone. See README for details.
use warnings;
use strict;
my $iso3166tab = 'debian/iso_3166.tab';
my %country;
open (ISO, $iso3166tab) || die "$iso3166tab: $!";
while (<ISO>) {
chomp;
next unless length;
my ($cc, $country)=split(/\t/, $_, 2);
$country{$cc}=$country;
}
print ("#\n" x 10);
print "# This file was generated automatically, edit its source file instead\n";
print ("#\n" x 10);
sub honking_big_comment {
my ($cc)=@_;
my $country=exists($country{$cc}) ? $country{$cc} : $cc;
return <<"EOF"
# Time zone for $country
EOF
}
my %seencc;
{
local $/="\n\n";
while (<>) {
if (m!Template: tzsetup/country/([A-Z]+)!) {
my $cc=$1;
$seencc{$cc}=1;
s/(__Choices:)/honking_big_comment($cc).$1/me;
}
print;
}
}
my $zonetab="/usr/share/zoneinfo/zone.tab";
my %cc2zone;
my %zonedesc;
open (IN, $zonetab) || die "$zonetab: $!";
while (<IN>) {
chomp;
next if /^#/;
next unless length;
my ($cc, $coord, $zone, $comments)=split(' ', $_, 4);
push @{$cc2zone{$cc}}, $zone unless $seencc{$cc};
if (defined $comments) {
$comments=~s/,/\\,/g; # escape for choices list
$zonedesc{$zone}="$zone ($comments)";
}
else {
$zonedesc{$zone}=$zone;
}
}
close IN;
my %override;
open (OVERRIDE, "tzmap.override") || die "tzmap.override: $!";
while (<OVERRIDE>) {
chomp;
next if /^#/;
my ($cc, $zone)=split(' ', $_, 2);
$override{$cc}=1;
$cc2zone{$cc}=[$zone];
}
close OVERRIDE;
open (TZMAP, ">debian/tzmap") || die "tzmap: $!";
foreach my $cc (sort keys %cc2zone) {
my $list=join(", ", @{$cc2zone{$cc}});
if (@{$cc2zone{$cc}} > 1 && ! $override{$cc}) {
my $englist=join(", ", map { $zonedesc{$_} } @{$cc2zone{$cc}});
print STDERR "warning: autogenerated template for $cc should be manually reviewed\n";
print "\nTemplate: tzsetup/country/$cc\n";
print "Type: select\n";
print "Choices-C: $list\n";
print honking_big_comment($cc);
print "__Choices: $englist\n";
print "Description: zone\n";
}
else {
print TZMAP "$cc $list\n";
}
}
close TZMAP;
|
