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> |