--- doc/loncapafiles/accesscount_seed.piml	2003/12/09 20:17:48	1.1
+++ doc/loncapafiles/accesscount_seed.piml	2006/01/31 10:33:51	1.7
@@ -3,7 +3,7 @@
 <!-- accesscount_seed.piml -->
 <!-- Matthew Hall -->
 
-<!-- $Id: accesscount_seed.piml,v 1.1 2003/12/09 20:17:48 matthew Exp $ -->
+<!-- $Id: accesscount_seed.piml,v 1.7 2006/01/31 10:33:51 albertel Exp $ -->
 
 <!--
 
@@ -41,23 +41,29 @@ print "\nUpdating access count storage.
 my $logfile = '/tmp/accesscount_update_log.txt';
 
 # get a list of all user directories
+print "Getting directory listing.\n";
 my @dirs=`find <TARGET /> -type d `;
 my @userdirs=grep(m|/[^/]*/[^/]*/[^/]*/[^/]*/[^/]*/[^/]*/[^/]*/[^/]*|, @dirs);
 
 my $count = 0;
-my $countby = 20;
-print "Updating ".scalar(@userdirs)." files.  Each '.' represents ".$countby.
-      " files processed.\n";
+my $countby = 100;
+print "Updating ".scalar(@userdirs)." files.\n";
+my $char_count = 0;
 foreach my $udir (@userdirs) {
     if (++$count % $countby == 0) {
-        print ".";
+	print("\b" x $char_count);
+        print($count."/".scalar(@userdirs));
+        $char_count = length($count."/".scalar(@userdirs));
     }
     chomp($udir);
     my $file = $udir.'/nohist_resevaldata.db';
     next if (! -e $file);
+    next if (-e $udir.'/nohist_accesscount.db');
     system('/home/httpd/perl/seed_accesscount.pl '.$file.
                 ' 2>>'.$logfile);
 }
+print("\b" x $char_count);
+print($count."/".scalar(@userdirs));
 print "\nCompleted!\n";
 </perlscript>
 </file>