version 1.67, 2003/10/15 18:01:10
|
version 1.68, 2003/10/15 20:34:37
|
Line 218 sub sendemail {
|
Line 218 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 $fh = $msg->open('smtp',Server => 'localhost'); |
if (my $fh = $msg->open('smtp',Server => 'localhost')) { |
print $fh $body; |
print $fh $body; |
$fh->close; |
$fh->close; |
|
} |
} |
} |
|
|
# ==================================================== Send notification emails |
# ==================================================== Send notification emails |