version 1.36, 2003/02/03 18:03:52
|
version 1.37, 2003/03/10 17:39:21
|
Line 805 rename ("$statusdir/newstatus.html","$st
|
Line 805 rename ("$statusdir/newstatus.html","$st
|
|
|
if ($totalcount>200) { |
if ($totalcount>200) { |
print "mailing\n"; |
print "mailing\n"; |
$emailto="$perlvar{'lonAdmEMail'},$perlvar{'lonSysEMail'}"; |
$emailto="$perlvar{'lonAdmEMail'}"; |
|
if ($totalcount>600) { |
|
$emailto.=",$perlvar{'lonSysEMail'}"; |
|
} |
$subj="LON: $perlvar{'lonHostID'} E:$errors W:$warnings N:$notices"; |
$subj="LON: $perlvar{'lonHostID'} E:$errors W:$warnings N:$notices"; |
system( |
system( |
"metasend -b -t $emailto -s '$subj' -f $statusdir/index.html -m text/html"); |
"metasend -b -t $emailto -s '$subj' -f $statusdir/index.html -m text/html"); |