--- loncom/lond 2001/02/12 18:21:47 1.36 +++ loncom/lond 2001/03/15 13:50:16 1.37 @@ -12,6 +12,7 @@ # 12/05,12/13,12/29 Gerd Kortemeyer # Jan 01 Scott Harrison # 02/12 Gerd Kortemeyer +# 03/15 Scott Harrison # # based on "Perl Cookbook" ISBN 1-56592-243-3 # preforker - server who forks first @@ -64,7 +65,7 @@ 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.' |\ + system("echo 'User ID mismatch. lond must be run as user www.' |\ mailto $emailto -s '$subj' > /dev/null"); exit 1; }