version 1.3, 2005/06/02 23:20:50
|
version 1.4, 2005/12/09 16:26:48
|
Line 46 my @dirs=`find <TARGET /> -type d `;
|
Line 46 my @dirs=`find <TARGET /> -type d `;
|
my @userdirs=grep(m|/[^/]*/[^/]*/[^/]*/[^/]*/[^/]*/[^/]*/[^/]*/[^/]*|, @dirs); |
my @userdirs=grep(m|/[^/]*/[^/]*/[^/]*/[^/]*/[^/]*/[^/]*/[^/]*/[^/]*|, @dirs); |
|
|
my $count = 0; |
my $count = 0; |
my $countby = 1; |
my $countby = 100; |
print "Updating ".scalar(@userdirs)." files.\n"; |
print "Updating ".scalar(@userdirs)." files.\n"; |
my $char_count=0; |
my $char_count=0; |
foreach my $udir (@userdirs) { |
foreach my $udir (@userdirs) { |
if (++$count % $countby == 0) { |
if (++$count % $countby == 0) { |
print ("\b" x $char_count); |
print("\b" x $char_count); |
print $count."/".scalar(@userdirs); |
print($count."/".scalar(@userdirs)); |
$char_count = length($count."/".scalar(@userdirs)); |
$char_count = length($count."/".scalar(@userdirs)); |
} |
} |
chomp($udir); |
chomp($udir); |
Line 61 foreach my $udir (@userdirs) {
|
Line 61 foreach my $udir (@userdirs) {
|
system('/home/httpd/perl/debug/clean_db.pl '.$file. |
system('/home/httpd/perl/debug/clean_db.pl '.$file. |
' "error%3a%202%20tie%28GDBM%29%20Failed%20while%20attempting%20dump" 2>>'.$logfile); |
' "error%3a%202%20tie%28GDBM%29%20Failed%20while%20attempting%20dump" 2>>'.$logfile); |
} |
} |
|
print("\b" x $char_count); |
|
print($count."/".scalar(@userdirs)); |
print "\nCompleted!\n"; |
print "\nCompleted!\n"; |
</perlscript> |
</perlscript> |
</file> |
</file> |