loncom/interface/lonmsg.pm - diff

Return to lonmsg.pm CVS log

Up to [LON-CAPA] / loncom / interface

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