Diff for /doc/loncapafiles/clean_file_permissions.piml between versions 1.1 and 1.2

version 1.1, 2005/03/18 20:07:21 version 1.2, 2005/05/14 19:37:47
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 = 20;  my $countby = 1;
 print "Updating ".scalar(@userdirs)." files.  Each '.' represents ".$countby.  print "Updating ".scalar(@userdirs)." files.\n";
       " files processed.\n";  
 foreach my $udir (@userdirs) {  foreach my $udir (@userdirs) {
     if (++$count % $countby == 0) {      if (++$count % $countby == 0) {
         print ".";          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);      chomp($udir);
     my $file = $udir.'/file_permissions.db';      my $file = $udir.'/file_permissions.db';

Removed from v.1.1  
changed lines
  Added in v.1.2


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