git-svn-id: https://svn.code.sf.net/p/squirrelmail/code/trunk/squirrelmail@1856
7612ce4b-ef26-0410-bec9-
ea0150e637f0
# process a directory recursively
sub dodir {
# process a directory recursively
sub dodir {
+ my $dirname;
+ my $file;
+ my $full;
+ my @files;
+ my $i;
$dirname = $_[0];
$dirname =~ s/\/$//;
opendir(DIR, $dirname) or die "can't opendir $dirname: $!";
$dirname = $_[0];
$dirname =~ s/\/$//;
opendir(DIR, $dirname) or die "can't opendir $dirname: $!";
while (defined($file = readdir(DIR))) {
while (defined($file = readdir(DIR))) {
+ @files[$i++] = $file;
+ }
+ $i = 0;
+ while (defined($file = @files[$i++])) {
next if $file =~ /^\.\.?$/;
$full = $dirname.'/'.$file;
next if $file =~ /^\.\.?$/;
$full = $dirname.'/'.$file;
+# print "found: $full\n";
+# print "doing dir: $full\n";
&dodir($full);
} else { if ($file =~ /.*\.php$/) {
&dodir($full);
} else { if ($file =~ /.*\.php$/) {
+# print "doing file: $full\n";