R
RandRace
I'm having some problems with a little script i wrote using net::smtp.
I originally wrote it in linux where it works perfectly. I tried to
use it from windows the other day and it doesn't work. It connects to
the server and prints the banner but will not send mail.
Here is my script:
use Net::SMTP;
my $smtp = Net::SMTP->new('smtp.comcast.net') or die "Can't Open
server"!";
print $smtp->banner, "\n";
$smtp->mail('(e-mail address removed)');
$smtp->to('(e-mail address removed)');
$smtp->data();
$smtp->datasend("To: (e-mail address removed)\n");
$smtp->datasend("From: somedude\n");
$smtp->datasend("Subject: dude\n");
$smtp->datasend("Reply-To: (e-mail address removed)\n");
$smtp->datasend("\n");
$smtp->datasend("test test");
$smtp->dataend();
$smtp->quit;
thanks
I originally wrote it in linux where it works perfectly. I tried to
use it from windows the other day and it doesn't work. It connects to
the server and prints the banner but will not send mail.
Here is my script:
use Net::SMTP;
my $smtp = Net::SMTP->new('smtp.comcast.net') or die "Can't Open
server"!";
print $smtp->banner, "\n";
$smtp->mail('(e-mail address removed)');
$smtp->to('(e-mail address removed)');
$smtp->data();
$smtp->datasend("To: (e-mail address removed)\n");
$smtp->datasend("From: somedude\n");
$smtp->datasend("Subject: dude\n");
$smtp->datasend("Reply-To: (e-mail address removed)\n");
$smtp->datasend("\n");
$smtp->datasend("test test");
$smtp->dataend();
$smtp->quit;
thanks