Hello all,
I have a perl (Ver. 5.10.0) program running over an old machine which send
messages with this code:
my $smtp = Net::SMTP->new($dstMailServer, Timeout=>10, Debug=>0,);
unless(defined($smtp)){
syslog LOG_INFO, "id:%s error: unable to connect with %s", $myid,
$dstMailServer;
exit $EX_TEMPFAIL;
}
$smtp->mail($sender);
$smtp->to($recipient);
$smtp->data();
my $line;
open INPUTFILE, "<", $outfile or die "couldn't open $outfile";
while(defined($line=<INPUTFILE>)){
$smtp->datasend($line);
}
close INPUTFILE;
$smtp->dataend();
$smtp->quit;
since the machine belongs to a third party I have no possibility to install
perl modules (no internet connection, compilers, etc) like Slurp. So sending
files in the MB range is very slow. Anyone know how to optimize (if possible)
this code?
--
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
http://learn.perl.org/
