--- loncom/loncron 2021/02/02 21:17:47 1.103.2.11 +++ loncom/loncron 2024/07/01 12:02:42 1.103.2.13 @@ -2,7 +2,7 @@ # Housekeeping program, started by cron, loncontrol and loncron.pl # -# $Id: loncron,v 1.103.2.11 2021/02/02 21:17:47 raeburn Exp $ +# $Id: loncron,v 1.103.2.13 2024/07/01 12:02:42 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -44,7 +44,7 @@ use IO::Socket; use HTML::Entities; use Getopt::Long; use GDBM_File qw(GDBM_READER); -use Storable qw(thaw nfreeze); +use Storable qw(thaw); use File::ReadBackwards; use File::Copy; use Sys::Hostname::FQDN(); @@ -1367,7 +1367,7 @@ sub main () { my $wwwid=getpwnam('www'); if ($wwwid!=$<) { 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"; system("echo 'User ID mismatch. loncron must be run as user www.' |". " mail -s '$subj' $emailto > /dev/null");