Using the following code:
$sender->MailFile(
{to => $addr,
subject => 'HP Notify Attachment',
msg => "The attachment sent courtesy of $sname.",
file => $fname
});
warn "Unexpected addr: '$addr'"
unless ($addr eq 'tompkic1@universalleaf.com');
print "Addr is $addr\n";
warn Dumper($sender);
exit;
I got the following output:
Addr is tompkic1@universalleaf.com
$VAR1 = bless( {
'sin' => 'ÇV',
'client' => 'localhost',
'from' => '@universalleaf.com',
'replyaddr' => undef,
'boundary' => 'Message-Boundary-19990614',
'fromaddr' => '@universalleaf.com',
'proto' => 6,
'debug' => 0,
'multipart' => 'Mixed',
'port' => 25,
'subject' => 'HP Notify Attachment',
'replyto' => '@universalleaf.com',
'idcounter' => 0,
'error' => -5,
'smtp' => '150.150.199.86',
'socket' => bless( \*Symbol::GEN0, 'FileHandle' ),
'to' => 'tompkic1@universalleaf.com',
'smtpaddr' => 'ÇV'
}, 'Mail::Sender' );
Thanks, killraven |