retronetworking
/
freeswitch
13
0
Fork 0
Code Pull Requests Releases Activity

update to get all subdirs

This commit is contained in:
Nathan Neulinger 2014-02-14 15:26:31 -06:00
parent d56a0fb198
commit 6073d3b139
1 changed files with 22 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

40
scripts/perl/timezone-gen.pl Normal file → Executable file
View File

@ -18,31 +18,35 @@ my $res = GetOptions(
"output" => \$output
);
if ( !$res || $help ) {
print "$0 [--base=/usr/share/zoneinfo] [--output=timezones.conf] [--debug] [--help]\n";
print "$0 [--base=/usr/share/zoneinfo] [--output=timezones.conf.xml] [--debug] [--help]\n";
exit;
}
opendir( my $top, $base );
while ( my $file = readdir($top) ) {
next if ( $file eq "." || $file eq "." );
my @dirs = ($base);
if ( -f "$base/$file" ) {
$debug && print "Found $base/$file\n";
$name_to_file{$file} = "$base/$file";
while ( @dirs )
{
my $dir = shift @dirs;
opendir( my $top, $dir );
while ( my $file = readdir($top) ) {
next if ( $file eq "." || $file eq ".." );
if ( -f "$dir/$file" ) {
$debug && print "Found $dir/$file\n";
my $name = "$dir/$file";
$name =~ s|^${base}/||o;
$name_to_file{$name} = "$dir/$file";
}
elsif ( -d "$base/$file" ) {
opendir( my $sdir, "$base/$file" );
while ( my $subfile = readdir($sdir) ) {
next if ( $subfile eq "." || $subfile eq "." );
if ( -f "$base/$file/$subfile" ) {
$debug && print "Found $base/$file/$subfile...\n";
$name_to_file{"$file/$subfile"} = "$base/$file/$subfile";
}
elsif ( -d "$dir/$file" ) {
$debug && print "Found subdir $dir/$file\n";
push(@dirs, "$dir/$file");
}
closedir($sdir);
}
}
closedir($top);
closedir($top);
}
foreach my $name ( sort( keys(%name_to_file) ) ) {
my $file = $name_to_file{$name};