version 1.26, 2003/01/04 15:04:12
|
version 1.27, 2003/01/04 19:23:31
|
Line 164 delete $perlvar{'lonReceipt'}; # remove
|
Line 164 delete $perlvar{'lonReceipt'}; # remove
|
# ------------------------------------- Only run if machine is a library server |
# ------------------------------------- Only run if machine is a library server |
exit unless $perlvar{'lonRole'} eq 'library'; |
exit unless $perlvar{'lonRole'} eq 'library'; |
|
|
|
# ----------------------------- Make sure this process is running from user=www |
|
|
|
my $wwwid=getpwnam('www'); |
|
if ($wwwid!=$<) { |
|
$emailto="$perlvar{'lonAdmEMail'},$perlvar{'lonSysEMail'}"; |
|
$subj="LON: $perlvar{'lonHostID'} User ID mismatch"; |
|
system("echo 'User ID mismatch. searchcat.pl must be run as user www.' |\ |
|
mailto $emailto -s '$subj' > /dev/null"); |
|
exit 1; |
|
} |
|
|
|
|
# ---------------------------------------------------------- We are in business |
# ---------------------------------------------------------- We are in business |
|
|
open(LOG,'>'.$perlvar{'lonDaemons'}.'/logs/searchcat.log'); |
open(LOG,'>'.$perlvar{'lonDaemons'}.'/logs/searchcat.log'); |
Line 251 foreach my $m (@metalist) {
|
Line 263 foreach my $m (@metalist) {
|
# -------------------------------------------------- Copy over the new db-files |
# -------------------------------------------------- Copy over the new db-files |
system('mv '.$prodir.'/nohist_new_resevaldata.db '. |
system('mv '.$prodir.'/nohist_new_resevaldata.db '. |
$prodir.'/nohist_resevaldata.db'); |
$prodir.'/nohist_resevaldata.db'); |
system('chown www:www '.$prodir.'/nohist_resevaldata.db'); |
|
} |
} |
# --------------------------------------------------- Close database connection |
# --------------------------------------------------- Close database connection |
$dbh->disconnect; |
$dbh->disconnect; |