version 1.36, 2003/07/30 16:49:27
|
version 1.37, 2003/08/08 12:38:00
|
Line 316 foreach my $user (@homeusers) {
|
Line 316 foreach my $user (@homeusers) {
|
# ... not yet implemented |
# ... not yet implemented |
|
|
# ------------------------------------------- Copy over the new db-files |
# ------------------------------------------- Copy over the new db-files |
system('mv '.$prodir.'/nohist_new_resevaldata.db '. |
# |
$prodir.'/nohist_resevaldata.db'); |
# Check the size of nohist_new_resevaldata.db compared to |
|
# nohist_resevaldata.db |
|
my @stat_result = stat($prodir.'/nohist_new_resevaldata.db'); |
|
my $new_size = $stat_result[7]; |
|
@stat_result = stat($prodir.'/nohist_resevaldata.db'); |
|
my $old_size = $stat_result[7]; |
|
if ($new_size/$old_size > 0.15 ) { |
|
system('mv '.$prodir.'/nohist_new_resevaldata.db '. |
|
$prodir.'/nohist_resevaldata.db'); |
|
} else { |
|
print LOG "Size of '$user' old nohist_reseval: $old_size ". |
|
"Size of new: $new_size. Not overwriting.\n"; |
|
my $emailto="$perlvar{'lonAdmEMail'},$perlvar{'lonSysEMail'}"; |
|
my $subj="LON: $perlvar{'lonHostID'} searchcat.pl $user reseval ". |
|
"modification error."; |
|
system("echo ". |
|
"'See /home/httpd/perl/logs/searchcat.txt for information.' ". |
|
"| mailto $emailto -s '$subj' > /dev/null"); |
|
} |
|
|
} |
} |
# --------------------------------------------------- Close database connection |
# --------------------------------------------------- Close database connection |
$dbh->disconnect; |
$dbh->disconnect; |