--- doc/loncapafiles/accesscount_seed.piml	2004/07/22 20:27:45	1.2
+++ doc/loncapafiles/accesscount_seed.piml	2015/03/16 05:25:47	1.8
@@ -3,7 +3,7 @@
 <!-- accesscount_seed.piml -->
 <!-- Matthew Hall -->
 
-<!-- $Id: accesscount_seed.piml,v 1.2 2004/07/22 20:27:45 matthew Exp $ -->
+<!-- $Id: accesscount_seed.piml,v 1.8 2015/03/16 05:25:47 raeburn Exp $ -->
 
 <!--
 
@@ -36,31 +36,57 @@ http://www.lon-capa.org/
 <target dist="default">/home/httpd/lonUsers</target>
 <perlscript mode="fg">
 
-print "\nUpdating access count storage.  This can take quite a while.\n";
+my $dotransfer;
+if (-e '/etc/loncapa-release') {
+    if (open(PIPE,"cat /etc/loncapa-release.prev |grep '^LON-CAPA release' |")) {
+        if (&lt;PIPE&gt; =~ /^\QLON-CAPA release \E(CVS_HEAD|\d+\.\d+\.\d+\.?\w*)\-\d+$/) {
+            my $previous = $1;
+            unless ($previous eq 'CVS_HEAD') {
+                my ($major,$minor) = ($previous =~ /^(\d+)\.(\d+)\./);
+                if (($major ne '') && ($minor ne '')) {
+                    if ((($major == 2) && ($minor &lt; 10)) | ($major &lt; 2)) {
+                        $dotransfer = 1;
+                    }
+                }
+            }
+        }
+        close(PIPE);
+    }
+}
+
+if ($dotransfer) {
+    print "\nUpdating access count storage.  This can take quite a while.\n";
 
-my $logfile = '/tmp/accesscount_update_log.txt';
+    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";
-foreach my $udir (@userdirs) {
-    if (++$count % $countby == 0) {
-        print ".";
+    # 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 = 100;
+    print "Updating ".scalar(@userdirs)." files.\n";
+    my $char_count = 0;
+    foreach my $udir (@userdirs) {
+        if (++$count % $countby == 0) {
+	    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);
     }
-    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";
+} else {
+    print("No update of nohist_accesscount.db files needed.\n");
 }
-print "\nCompleted!\n";
 </perlscript>
 </file>
 </files>