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

version 1.3, 2005/05/14 19:37:47 version 1.4, 2005/06/02 23:22:03
Line 47  my @userdirs=grep(m|/[^/]*/[^/]*/[^/]*/[ Line 47  my @userdirs=grep(m|/[^/]*/[^/]*/[^/]*/[
   
 my $count = 0;  my $count = 0;
 my $countby = 1;  my $countby = 1;
 print "Updating ".scalar(@userdirs)." files.\n";  my $char_count = length(scalar(@userdirs)." files.");
   # print "Updating ".scalar(@userdirs)." files.\n";
   print "Updating ".scalar(@userdirs)." files.";
   my $char_count = 0;
 foreach my $udir (@userdirs) {  foreach my $udir (@userdirs) {
     if (++$count % $countby == 0) {      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 ("\b" x $char_count);
         print $count."/".scalar(@userdirs);          print $count."/".scalar(@userdirs);
           $char_count = length($count."/".scalar(@userdirs));
     }      }
     chomp($udir);      chomp($udir);
     my $file = $udir.'/nohist_resevaldata.db';      my $file = $udir.'/nohist_resevaldata.db';

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


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