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

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

@ -18,14 +18,14 @@ my $res = GetOptions(
"output" => \$output
);
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;
}
my @dirs = ($base);
while ( @dirs )
{
while (@dirs) {
my $dir = shift @dirs;
opendir( my $top, $dir );
@ -69,7 +69,8 @@ foreach my $name ( sort( keys(%name_to_file) ) ) {
}
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";
my $lastprefix = "";