[LON-CAPA-cvs] cvs: doc /loncapafiles accesscount_seed.piml

matthew lon-capa-cvs@mail.lon-capa.org
Thu, 22 Jul 2004 20:27:46 -0000


matthew		Thu Jul 22 16:27:46 2004 EDT

  Modified files:              
    /doc/loncapafiles	accesscount_seed.piml 
  Log:
  Skip directories that have been processed before.
  
  
Index: doc/loncapafiles/accesscount_seed.piml
diff -u doc/loncapafiles/accesscount_seed.piml:1.1 doc/loncapafiles/accesscount_seed.piml:1.2
--- doc/loncapafiles/accesscount_seed.piml:1.1	Tue Dec  9 15:17:48 2003
+++ doc/loncapafiles/accesscount_seed.piml	Thu Jul 22 16:27:45 2004
@@ -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.2 2004/07/22 20:27:45 matthew Exp $ -->
 
 <!--
 
@@ -41,6 +41,7 @@
 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);
 
@@ -55,6 +56,7 @@
     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);
 }