projects
/
squirrelmail.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
SM_PATH fix
[squirrelmail.git]
/
config
/
ri_once.pl
diff --git
a/config/ri_once.pl
b/config/ri_once.pl
index 3c77f2ae89cb4241fef705a039fc9e20d78d2acb..9593a156f8a6f85624e5e0319f4528277a867ead 100755
(executable)
--- a/
config/ri_once.pl
+++ b/
config/ri_once.pl
@@
-1,4
+1,4
@@
-#!/usr/bin/perl
+#!/usr/bin/
env
perl
# ri_once.pl
# Wouter Teepe (wouter@teepe.com)
#
# ri_once.pl
# Wouter Teepe (wouter@teepe.com)
#
@@
-215,15
+215,28
@@
sub dofile {
# 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: $!";
+ $i = 0;
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";
if (-d $full) {
if (-d $full) {
+# print "doing dir: $full\n";
&dodir($full);
} else { if ($file =~ /.*\.php$/) {
&dodir($full);
} else { if ($file =~ /.*\.php$/) {
+# print "doing file: $full\n";
&dofile($full);
}}
}
&dofile($full);
}}
}