version 1.51, 2004/05/25 15:20:31
|
version 1.52, 2004/06/04 19:29:31
|
Line 558 sub send_mail {
|
Line 558 sub send_mail {
|
$emailto.=",$perlvar{'lonSysEMail'}"; |
$emailto.=",$perlvar{'lonSysEMail'}"; |
} |
} |
my $subj="LON: $perlvar{'lonHostID'} E:$errors W:$warnings N:$notices"; |
my $subj="LON: $perlvar{'lonHostID'} E:$errors W:$warnings N:$notices"; |
system("metasend -b -t $emailto -s '$subj' -f $statusdir/index.html -m text/html"); |
|
|
my $result=system("metasend -b -t $emailto -s '$subj' -f $statusdir/index.html -m text/html >& /dev/null"); |
|
if ($result != 0) { |
|
$result=system("mail -s '$subj' $emailto < $statusdir/index.html"); |
|
} |
} |
} |
|
|
sub usage { |
sub usage { |