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

version 1.4, 2002/08/15 15:41:57 version 1.5, 2004/02/10 20:54:14
Line 40  my @dirs=`find <TARGET /> -type d `; Line 40  my @dirs=`find <TARGET /> -type d `;
 my @userdirs=grep(m|/[^/]*/[^/]*/[^/]*/[^/]*/[^/]*/[^/]*/[^/]*/[^/]*|, @dirs);  my @userdirs=grep(m|/[^/]*/[^/]*/[^/]*/[^/]*/[^/]*/[^/]*/[^/]*/[^/]*|, @dirs);
 foreach my $udir (@userdirs) {  foreach my $udir (@userdirs) {
   chomp($udir);    chomp($udir);
   if (-e "$udir/resevaldata.hist") {    unless (-e "$udir/nohist_resevaldata.db") {
     unlink("$udir/resevaldata.hist");       if (-e "$udir/resevaldata.db") {
   }          `mv $udir/resevaldata.db $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");
        }
   }    }
 }  }
 </perlscript>  </perlscript>

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


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