loncom/metadata_database/searchcat.pl - diff

Return to searchcat.pl CVS log

Up to [LON-CAPA] / loncom / metadata_database

version 1.25, 2002/11/18 20:44:15	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');