kenmirrors
/
freeswitch
mirror of https://github.com/signalwire/freeswitch.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

reformat with perltidy standard

This commit is contained in:
Nathan Neulinger 2014-02-14 15:27:17 -06:00
parent 6073d3b139
commit d20eb25772
1 changed files with 24 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

47
scripts/perl/timezone-gen.pl
View File

@ -18,34 +18,34 @@ my $res = GetOptions(
"output" => \$output "output" => \$output
); );
if ( !$res || $help ) { if ( !$res || $help ) {
print "$0 [--base=/usr/share/zoneinfo] [--output=timezones.conf.xml] [--debug] [--help]\n"; print
"$0 [--base=/usr/share/zoneinfo] [--output=timezones.conf.xml] [--debug] [--help]\n";
exit; exit;
} }
my @dirs = ($base); my @dirs = ($base);
while ( @dirs ) while (@dirs) {
{
my $dir = shift @dirs; my $dir = shift @dirs;
opendir( my $top, $dir ); opendir( my $top, $dir );
while ( my $file = readdir($top) ) { while ( my $file = readdir($top) ) {
next if ( $file eq "." || $file eq ".." ); next if ( $file eq "." || $file eq ".." );
if ( -f "$dir/$file" ) { if ( -f "$dir/$file" ) {
$debug && print "Found $dir/$file\n"; $debug && print "Found $dir/$file\n";
my $name = "$dir/$file"; my $name = "$dir/$file";
$name =~ s|^${base}/||o; $name =~ s|^${base}/||o;
$name_to_file{$name} = "$dir/$file"; $name_to_file{$name} = "$dir/$file";
} }
elsif ( -d "$dir/$file" ) { elsif ( -d "$dir/$file" ) {
$debug && print "Found subdir $dir/$file\n"; $debug && print "Found subdir $dir/$file\n";
push(@dirs, "$dir/$file"); push( @dirs, "$dir/$file" );
} }
} }
closedir($top); closedir($top);
} }
foreach my $name ( sort( keys(%name_to_file) ) ) { foreach my $name ( sort( keys(%name_to_file) ) ) {
@ -59,17 +59,18 @@ foreach my $name ( sort( keys(%name_to_file) ) ) {
if ( $data !~ /^TZif2/o ) { if ( $data !~ /^TZif2/o ) {
$debug && print "Skipped $file\n"; $debug && print "Skipped $file\n";
next; next;
} }
my $tmp = $data; my $tmp = $data;
$tmp =~ s/\n$//s; $tmp =~ s/\n$//s;
$tmp =~ s/.*\n//sgmo; $tmp =~ s/.*\n//sgmo;
$zones{$name} = $tmp; $zones{$name} = $tmp;
} }
open( my $out, ">$output" ); open( my $out, ">$output" );
print $out "<configuration name=\"timezones.conf\" description=\"Timezones\">\n"; print $out
"<configuration name=\"timezones.conf\" description=\"Timezones\">\n";
print $out " " x 4, "<timezones>\n"; print $out " " x 4, "<timezones>\n";
my $lastprefix = ""; my $lastprefix = "";
@ -81,11 +82,11 @@ foreach my $zone ( sort( keys(%zones) ) ) {
$newprefix =~ s|/.*||go; $newprefix =~ s|/.*||go;
if ( $newprefix ne $lastprefix && $lastprefix ne "" ) { if ( $newprefix ne $lastprefix && $lastprefix ne "" ) {
print $out "\n"; print $out "\n";
} }
$lastprefix = $newprefix; $lastprefix = $newprefix;
print $out "\t<zone name=\"$zone\" value=\"$str\" />\n"; print $out "\t<zone name=\"$zone\" value=\"$str\" />\n";
} }
print $out " " x 4, "</timezones>\n"; print $out " " x 4, "</timezones>\n";
print $out "</configuration>\n"; print $out "</configuration>\n";
close($out); close($out);