|
version 1.102, 2004/06/02 20:40:07
|
version 1.103, 2004/07/09 21:08:24
|
|
Line 219 sub sendemail {
|
Line 219 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); |
| |
my %oldENV=%ENV; |
| |
undef(%ENV); |
| if (my $fh = $msg->open()) { |
if (my $fh = $msg->open()) { |
| print $fh $body; |
print $fh $body; |
| $fh->close; |
$fh->close; |
| } |
} |
| |
%ENV=%oldENV; |
| |
undef(%oldENV); |
| } |
} |
| |
|
| # ==================================================== Send notification emails |
# ==================================================== Send notification emails |
![[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