loncom/loncron - diff

Return to loncron CVS log

Up to [LON-CAPA] / loncom

version 1.111, 2018/10/29 02:46:41	version 1.112, 2018/10/29 02:57:30
Line 1176 sub main () {	Line 1176 sub main () {
chop $hostname;	chop $hostname;
$hostname=~s/[^\w\.]//g; # make sure is safe to pass through shell	$hostname=~s/[^\w\.]//g; # make sure is safe to pass through shell
my $subj="LON: Unconfigured machine $hostname";	my $subj="LON: Unconfigured machine $hostname";
system("echo 'Unconfigured machine $hostname.' \|\	system("echo 'Unconfigured machine $hostname.' \|".
mail -s '$subj' $emailto > /dev/null");	" mail -s '$subj' $emailto > /dev/null");
exit 1;	exit 1;
}	}

Line 1187 sub main () {	Line 1187 sub main () {
print("User ID mismatch. This program must be run as user 'www'.\n");	print("User ID mismatch. This program must be run as user 'www'.\n");
my $emailto="$perlvar{'lonAdmEMail'},$perlvar{'lonSysEMail'}";	my $emailto="$perlvar{'lonAdmEMail'},$perlvar{'lonSysEMail'}";
my $subj="LON: $perlvar{'lonHostID'} User ID mismatch";	my $subj="LON: $perlvar{'lonHostID'} User ID mismatch";
system("echo 'User ID mismatch. loncron must be run as user www.' \|\	system("echo 'User ID mismatch. loncron must be run as user www.' \|".
mail -s '$subj' $emailto > /dev/null");	" mail -s '$subj' $emailto > /dev/null");
exit 1;	exit 1;
}	}