version 1.26, 2003/01/04 15:04:12
|
version 1.31, 2003/02/03 18:03:53
|
Line 26
|
Line 26
|
# |
# |
# http://www.lon-capa.org/ |
# http://www.lon-capa.org/ |
# |
# |
# YEAR=2001 |
|
# 04/14/2001, 04/16/2001 Scott Harrison |
|
# |
|
# YEAR=2002 |
|
# 05/11/2002 Scott Harrison |
|
# |
|
### |
### |
|
|
# This script goes through a LON-CAPA resource |
# This script goes through a LON-CAPA resource |
Line 164 delete $perlvar{'lonReceipt'}; # remove
|
Line 158 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 257 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; |