Diff for /doc/loncapafiles/clean_file_permissions.piml between versions 1.3 and 1.4

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>

Removed from v.1.3  
changed lines
  Added in v.1.4


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>