loncom/loncron - diff

Return to loncron CVS log

Up to [LON-CAPA] / loncom

version 1.127, 2021/02/02 20:53:05	version 1.129, 2024/06/22 14:29:36
Line 42 use IO::File;	Line 42 use IO::File;
use IO::Socket;	use IO::Socket;
use HTML::Entities;	use HTML::Entities;
use Getopt::Long;	use Getopt::Long;
use GDBM_File;	use GDBM_File qw(GDBM_READER);
use Storable qw(thaw);	use Storable qw(thaw);
use File::ReadBackwards;	use File::ReadBackwards;
use File::Copy;	use File::Copy;
use GDBM_File qw(GDBM_READER);
use Storable qw(thaw nfreeze);
use Sys::Hostname::FQDN();	use Sys::Hostname::FQDN();

#globals	#globals
Line 1597 sub main () {	Line 1595 sub main () {
my $wwwid=getpwnam('www');	my $wwwid=getpwnam('www');
if ($wwwid!=$<) {	if ($wwwid!=$<) {
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");