Return to lonmsg.pm CVS log | Up to [LON-CAPA] / loncom / interface |
version 1.96, 2004/03/31 05:24:00 | version 1.97, 2004/04/06 15:56:37 |
---|---|
Line 205 sub sendemail { | Line 205 sub sendemail { |
my $msg = new Mail::Send; | my $msg = new Mail::Send; |
$msg->to($to); | $msg->to($to); |
$msg->subject('[LON-CAPA] '.$subject); | $msg->subject('[LON-CAPA] '.$subject); |
if (my $fh = $msg->open('smtp',Server => 'localhost')) { | if (my $fh = $msg->open()) { |
print $fh $body; | print $fh $body; |
$fh->close; | $fh->close; |
} | } |