![[BACK]](/icons/back.gif){kind=icon}
Return to lonmsg.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface|
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; |
| } | } |