Diff for /doc/loncapafiles/reseval_fixup.piml between versions 1.5 and 1.6

version 1.5, 2004/02/10 20:54:14 version 1.6, 2015/03/16 05:25:47
Line 35  http://www.lon-capa.org/ Line 35  http://www.lon-capa.org/
 <file>  <file>
 <target dist="default">/home/httpd/lonUsers</target>  <target dist="default">/home/httpd/lonUsers</target>
 <perlscript mode="fg">  <perlscript mode="fg">
 # get a list of all user directories  
 my @dirs=`find <TARGET /> -type d `;  my $doupdate;
 my @userdirs=grep(m|/[^/]*/[^/]*/[^/]*/[^/]*/[^/]*/[^/]*/[^/]*/[^/]*|, @dirs);  if (-e '/etc/loncapa-release') {
 foreach my $udir (@userdirs) {      if (open(PIPE,"cat /etc/loncapa-release.prev |grep '^LON-CAPA release' |")) {
   chomp($udir);          if (&lt;PIPE&gt; =~ /^\QLON-CAPA release \E(CVS_HEAD|\d+\.\d+\.\d+\.?\w*)\-\d+$/) {
   unless (-e "$udir/nohist_resevaldata.db") {              my $previous = $1;
      if (-e "$udir/resevaldata.db") {              unless ($previous eq 'CVS_HEAD') {
         `mv $udir/resevaldata.db $udir/nohist_resevaldata.db`;                  my ($major,$minor) = ($previous =~ /^(\d+)\.(\d+)\./);
      }                  if (($major ne '') && ($minor ne '')) {
      if (-e "$udir/resevaldata.hist") {                      if ((($major == 2) && ($minor &lt; 10)) || ($major &lt; 2)) {
         unlink("$udir/resevaldata.hist");                          $doupdate = 1;
      }                      }
   }                  }
               }
           }
           close(PIPE);
       }
   }
   
   if ($doupdate) {
       print("Searching user directories for resevaldata.db files to update.\n");
       # get a list of all user directories
       my @dirs=`find <TARGET /> -type d `;
       my @userdirs=grep(m|/[^/]*/[^/]*/[^/]*/[^/]*/[^/]*/[^/]*/[^/]*/[^/]*|, @dirs);
       foreach my $udir (@userdirs) {
           chomp($udir);
           unless (-e "$udir/nohist_resevaldata.db") {
               if (-e "$udir/resevaldata.db") {
           `       mv $udir/resevaldata.db $udir/nohist_resevaldata.db`;
               }
               if (-e "$udir/resevaldata.hist") {
                   unlink("$udir/resevaldata.hist");
               }
           }
       }
   } else {
       print("Conversion of resevaldata.db (pre 2.0) to nohist_resevaldata.db (2.0 and later) files not required.\n");
 }  }
 </perlscript>  </perlscript>
 </file>  </file>

Removed from v.1.5  
changed lines
  Added in v.1.6


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