On 02/02/2007 02:25 PM, Romeo Theriault wrote:
[...]
my $smtp = Net::SMTP_auth->new('miranda.umfk.maine.edu');
$smtp->auth('LOGIN', 'user', 'password');
$smtp->mail($from);
$smtp->to($to);
$smtp->data();
$smtp->datasend("To: $to\n");
$smtp->datasend("Subject: $subject\n");
Try sending a blank line here:
$smpt->datasend("\n");
A blank line typically separates the headers from the beginning of
message data. Look at the example at the top of the POD for Net::SMTP again.
$smtp->datasend($file);
$smtp->dataend();
$smtp->quit;
}
#print $file; # this actually prints the file
close(IN);
HTH
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/