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

version 1.7, 2006/01/31 10:33:51 version 1.8, 2015/03/16 05:25:47
Line 36  http://www.lon-capa.org/ Line 36  http://www.lon-capa.org/
 <target dist="default">/home/httpd/lonUsers</target>  <target dist="default">/home/httpd/lonUsers</target>
 <perlscript mode="fg">  <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      # get a list of all user directories
 print "Getting directory listing.\n";      print "Getting directory listing.\n";
 my @dirs=`find <TARGET /> -type d `;      my @dirs=`find <TARGET /> -type d `;
 my @userdirs=grep(m|/[^/]*/[^/]*/[^/]*/[^/]*/[^/]*/[^/]*/[^/]*/[^/]*|, @dirs);      my @userdirs=grep(m|/[^/]*/[^/]*/[^/]*/[^/]*/[^/]*/[^/]*/[^/]*/[^/]*|, @dirs);
   
 my $count = 0;      my $count = 0;
 my $countby = 100;      my $countby = 100;
 print "Updating ".scalar(@userdirs)." files.\n";      print "Updating ".scalar(@userdirs)." files.\n";
 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);
           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);      print("\b" x $char_count);
     my $file = $udir.'/nohist_resevaldata.db';      print($count."/".scalar(@userdirs));
     next if (! -e $file);      print "\nCompleted!\n";
     next if (-e $udir.'/nohist_accesscount.db');  } else {
     system('/home/httpd/perl/seed_accesscount.pl '.$file.      print("No update of nohist_accesscount.db files needed.\n");
                 ' 2>>'.$logfile);  
 }  }
 print("\b" x $char_count);  
 print($count."/".scalar(@userdirs));  
 print "\nCompleted!\n";  
 </perlscript>  </perlscript>
 </file>  </file>
 </files>  </files>

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


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