version 1.57, 2005/02/14 00:29:48
|
version 1.58, 2005/04/13 18:56:07
|
Line 561 sub send_mail {
|
Line 561 sub send_mail {
|
} |
} |
my $subj="LON: $perlvar{'lonHostID'} E:$errors W:$warnings N:$notices"; |
my $subj="LON: $perlvar{'lonHostID'} E:$errors W:$warnings N:$notices"; |
|
|
my $result=system("metasend -b -t $emailto -s '$subj' -f $statusdir/index.html -m text/html >& /dev/null"); |
my $result=system("metasend -b -S 4000000 -t $emailto -s '$subj' -f $statusdir/index.html -m text/html >& /dev/null"); |
if ($result != 0) { |
if ($result != 0) { |
$result=system("mail -s '$subj' $emailto < $statusdir/index.html"); |
$result=system("mail -s '$subj' $emailto < $statusdir/index.html"); |
} |
} |