The following code is perfect for linux o.s.
When try it on a win2000 platform (IIS/PerlIS.dll) it simply does not send anything.
I have Net::SMTP installed on both servers.
Ideas?? Can you try it on windows?
sub mailsend {
my($mailto,$mailfrom,$subject,$mailbody)=@_;
require Net::SMTP";
$smtp = Net::SMTP->new($myconf{EmailServer}, Hello => $myconf{EmailServer}, Debug => 0);
$smtp->mail( $mailfrom ); $smtp->to( $mailto );
$smtp->data(); $smtp->datasend("To: $mailto\n"); $smtp->datasend("From: $mailfrom\n");
$smtp->datasend("Subject: $subject\n"); $smtp->datasend("\n");
$smtp->datasend($mailbody."\n\n"); $smtp->dataend(); $smtp->quit();
return(1);
}
When try it on a win2000 platform (IIS/PerlIS.dll) it simply does not send anything.
I have Net::SMTP installed on both servers.
Ideas?? Can you try it on windows?
Code:
sub mailsend {
my($mailto,$mailfrom,$subject,$mailbody)=@_;
require Net::SMTP";
$smtp = Net::SMTP->new($myconf{EmailServer}, Hello => $myconf{EmailServer}, Debug => 0);
$smtp->mail( $mailfrom ); $smtp->to( $mailto );
$smtp->data(); $smtp->datasend("To: $mailto\n"); $smtp->datasend("From: $mailfrom\n");
$smtp->datasend("Subject: $subject\n"); $smtp->datasend("\n");
$smtp->datasend($mailbody."\n\n"); $smtp->dataend(); $smtp->quit();
return(1);
}