/ /home/httpd/lonUsers print "\nCleaning up file_permissions.db\n"; my $logfile = '/tmp/clean_file_permissions_log.txt'; # get a list of all user directories print "Getting directory listing.\n"; my @dirs=`find -type d `; my @userdirs=grep(m|/[^/]*/[^/]*/[^/]*/[^/]*/[^/]*/[^/]*/[^/]*/[^/]*|, @dirs); my $count = 0; my $countby = 1; print "Updating ".scalar(@userdirs)." files.\n"; foreach my $udir (@userdirs) { if (++$count % $countby == 0) { print "\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b"; print $count."/".scalar(@userdirs); } chomp($udir); my $file = $udir.'/file_permissions.db'; next if (! -e $file); system('/home/httpd/perl/debug/clean_db.pl '.$file. ' "error%3a%202%20tie%28GDBM%29%20Failed%20while%20attempting%20dump" 2>>'.$logfile); } print "\nCompleted!\n";