Diff for /doc/loncapafiles/accesscount_seed.piml between versions 1.6 and 1.7

version 1.6, 2005/12/09 16:26:48 version 1.7, 2006/01/31 10:33:51
Line 47  my @userdirs=grep(m|/[^/]*/[^/]*/[^/]*/[ Line 47  my @userdirs=grep(m|/[^/]*/[^/]*/[^/]*/[
   
 my $count = 0;  my $count = 0;
 my $countby = 100;  my $countby = 100;
 # print "Updating ".scalar(@userdirs)." files.\n";  print "Updating ".scalar(@userdirs)." files.\n";
 print "Updating ".scalar(@userdirs)." files.";  
 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);

Removed from v.1.6  
changed lines
  Added in v.1.7


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