I am trying to run an email script that funtions on a Solaris TeamSite server, on a windows TeamSite server and I am getting the following error:
Bad file descriptor at e:\teamsite\iw-home\iw-perl\site\lib/Mail/Mailer.pm line 267.
Here is my script code:
use Mail::Mailer;
my $iwhome = "e:\\teamsite\\iw-home";
chomp(my $mailserver = `$iwhome\\bin\\iwconfig iwsend_mail mailserver`);
my $recipient_email = "nageljasona\
@johndeere.com";
my $sender_email= "nageljasona\
@johndeere.com";
my $message = "My Message";
print "[$mailserver]\n";
print "[$recipient_email]\n";
print "[$sender_email]\n";
print "[$message]\n";
my($mailer) = new Mail::Mailer('smtp',Server => $mailserver) ;
my(%headers) = ('To' => "$recipient_email",
'Cc' => "$recipient_email",
'From' => "$sender_email",
'Subject' => "Test Email",
'Content-Type' => 'text/plain; charset=UTF-8',
);
eval
{ $mailer->open(\%headers);
# print $mailer $message;
$mailer->close;
};
