loncom/lonc - diff

Return to lonc CVS log

Up to [LON-CAPA] / loncom

version 1.12, 2000/12/06 20:38:21	version 1.13, 2001/01/10 17:53:51
Line 59 while ($configline=<CONFIG>) {	Line 59 while ($configline=<CONFIG>) {
}	}
close(CONFIG);	close(CONFIG);

	# ----------------------------- 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. loncron must be run as user www.' \|\
	mailto $emailto -s '$subj' > /dev/null");
	exit 1;
	}

# --------------------------------------------- Check if other instance running	# --------------------------------------------- Check if other instance running

my $pidfile="$perlvar{'lonDaemons'}/logs/lonc.pid";	my $pidfile="$perlvar{'lonDaemons'}/logs/lonc.pid";