/
/home/httpd/lonUsers
# get a list of all user directories
my @dirs=`find -type d `;
my @userdirs=grep(m|/[^/]*/[^/]*/[^/]*/[^/]*/[^/]*/[^/]*/[^/]*/[^/]*|, @dirs);
foreach my $udir (@userdirs) {
chomp($udir);
print("$udir \n");
if (-e "$udir/resevaldata.hist") {
unlink("$udir/resevaldata.hist");
}
if (-e "$udir/resevaldata.db") {
`mv $udir/resevaldata.db $udir/nohist_resevaldata.db`;
}
}