[webcal.git] / install / tz.pl

#!/usr/bin/env perl
use strict;
use warnings;
my ($tz, @zones);

open FILE, "timezone.txt" or die $!;
while (<FILE>) {
    if ($_ =~ /"(\w*\/?\w*)"/) {
        push @zones, $1;
    }
}
close FILE;

my $size = scalar @zones;
$tz = "<?php\n\$timezone = array(\n";
foreach (@zones) {
    $size--;
    $tz .= "\t\"$_\"";
    $tz .= ($size) ? ",\n" : "\n";
}
$tz .= ");\n?>\n";

open FILE, ">timezone.php" or die $!;
print FILE $tz;

exit 0;
Commit	Line	Data
a5eae6b7 MR	1	#!/usr/bin/env perl
	2	use strict;
	3	use warnings;
	4	my ($tz, @zones);
	5
	6	open FILE, "timezone.txt" or die $!;
	7	while (<FILE>) {
	8	if ($_ =~ /"(\w\/?\w)"/) {
	9	push @zones, $1;
	10	}
	11	}
	12	close FILE;
	13
	14	my $size = scalar @zones;
	15	$tz = "<?php\n\$timezone = array(\n";
	16	foreach (@zones) {
	17	$size--;
	18	$tz .= "\t\"$_\"";
	19	$tz .= ($size) ? ",\n" : "\n";
	20	}
	21	$tz .= ");\n?>\n";
	22
	23	open FILE, ">timezone.php" or die $!;
	24	print FILE $tz;
	25
	26	exit 0;