|
version 1.1, 2002/08/09 19:49:30
|
version 1.5, 2004/02/10 20:54:14
|
|
Line 1
|
Line 1
|
| <!-- sanitycheck.piml --> |
<!DOCTYPE piml PUBLIC "-//TUX/DTD piml 1.0 Final//EN" |
| <!-- Scott Harrison --> |
"http://lpml.sourceforge.net/DTD/piml.dtd"> |
| |
<!-- reseval_fixup.piml --> |
| |
<!-- Guy Albertelli --> |
| |
|
| <!-- $Id$ --> |
<!-- $Id$ --> |
| |
|
|
Line 38 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); |
| print("$udir \n"); |
unless (-e "$udir/nohist_resevaldata.db") { |
| if (-e "$udir/resevaldata.hist") { |
if (-e "$udir/resevaldata.db") { |
| unlink("$udir/resevaldata.hist"); |
`mv $udir/resevaldata.db $udir/nohist_resevaldata.db`; |
| } |
} |
| if (-e "$udir/resevaldata.db") { |
if (-e "$udir/resevaldata.hist") { |
| `mv $udir/resevaldata.db $udir/nohist_resevaldata.db`; |
unlink("$udir/resevaldata.hist"); |
| |
} |
| } |
} |
| } |
} |
| </perlscript> |
</perlscript> |
![[BACK]](/icons/back.gif){kind=icon}
Return to reseval_fixup.piml CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / doc / loncapafiles