--- loncom/loncron 2004/05/25 15:20:31 1.51 +++ loncom/loncron 2004/06/04 19:29:31 1.52 @@ -2,7 +2,7 @@ # Housekeeping program, started by cron, loncontrol and loncron.pl # -# $Id: loncron,v 1.51 2004/05/25 15:20:31 albertel Exp $ +# $Id: loncron,v 1.52 2004/06/04 19:29:31 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -558,7 +558,11 @@ sub send_mail { $emailto.=",$perlvar{'lonSysEMail'}"; } 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 {