Re: Contribution- persistent connection code for Mail::Transport::SMTP
Eugene L Schulman <[email protected]> Fri, 3 Jun 2005 19:22:09 -0400
| Newsgroups | gmane.comp.lang.perl.modules.mail-box |
|---|---|
| Message-ID | <OF3449C303.D6AC0768-ON85257015.007FD86A-85257015.00805F84@us.ibm.com> |
This is a multipart message in MIME format.
--=_alternative 0080587585257015_=
Content-Type: text/plain; charset="US-ASCII"
Repost of the attachment in the previous message as text for the benefit
of the MARC mailing list.
Respectfully Yours,
Gene Schulman
---
Eugene L. Schulman
Senior Consultant and Technical Architect
IBM Global Services
Variant of Mail::Transport::SMTP with connection persistence:
use strict;
use warnings;
package Mail::Transport::SMTP;
use vars '$VERSION';
$VERSION = '2.060';
use base 'Mail::Transport::Send';
use Net::SMTP;
# ELS 2005-Jun-02
# Hash for persistent SMTP connections
# In this implementation, the hash will consist of pairs of hostname and
Net::SMTP reference.
# The consumers of this variable are trySend_persist() and
contactAnyServer_persist()
sub init($)
{ my ($self, $args) = @_;
$self->{'connx_persist'}={} #ELS
unless (exists($self->{'connx_persist'}));
my $hosts = $args->{hostname};
unless($hosts)
{ require Net::Config;
$hosts = $Net::Config::NetConfig{smtp_hosts};
undef $hosts unless @$hosts;
$args->{hostname} = $hosts;
}
$args->{via} ||= 'smtp';
$args->{port} ||= '25';
$self->SUPER::init($args) or return;
my $helo = $args->{helo}
|| eval { require Net::Config; $Net::Config::inet_domain }
|| eval { require Net::Domain; Net::Domain::hostfqdn() };
$self->{MTS_net_smtp_opts}
= { Hello => $helo
, Debug => ($args->{smtp_debug} || 0)
};
warn "ELS: Using doctored Mail::Transport::SMTP";
$self;
}
#------------------------------------------
sub trySend($@)
{ my ($self, $message, %args) = @_;
# From whom is this message.
my $from = $args{from} || $message->sender || '<>';
$from = $from->address if ref $from && $from->isa('Mail::Address');
# Who are the destinations.
if(defined $args{To})
{ $self->log(WARNING =>
"Use option `to' to overrule the destination: `To' would refer to a
field");
}
my @to = map {$_->address} $self->destinations($message, $args{to});
unless(@to)
{ $self->log(NOTICE =>
'No addresses found to send the message to, no connection
made');
return 1;
}
# Prepare the header
my @header;
require IO::Lines;
my $lines = IO::Lines->new(\@header);
$message->head->printUndisclosed($lines);
#
# Send
#
if(wantarray)
{ # In LIST context
my $server;
return (0, 500, "Connection Failed", "CONNECT", 0)
unless $server = $self->contactAnyServer;
return (0, $server->code, $server->message, 'FROM', $server->quit)
unless $server->mail($from);
foreach (@to)
{ next if $server->to($_);
# must we be able to disable this?
# next if $args{ignore_erroneous_destinations}
return (0, $server->code, $server->message,"To
$_",$server->quit);
}
$server->data;
$server->datasend($_) foreach @header;
my $bodydata = $message->body->file;
if(ref $bodydata eq 'GLOB') { $server->datasend($_) while
<$bodydata> }
else { while(my $l = $bodydata->getline) {
$server->datasend($l) } }
return (0, $server->code, $server->message, 'DATA', $server->quit)
unless $server->dataend;
return ($server->quit, $server->code, $server->message, 'QUIT',
$server->code);
}
# in SCALAR context
my $server;
return 0 unless $server = $self->contactAnyServer;
$server->quit, return 0
unless $server->mail($from);
foreach (@to)
{
next if $server->to($_);
# must we be able to disable this?
# next if $args{ignore_erroneous_destinations}
$server->quit;
return 0;
}
$server->data;
$server->datasend($_) foreach @header;
my $bodydata = $message->body->file;
if(ref $bodydata eq 'GLOB') { $server->datasend($_) while <$bodydata>
}
else { while(my $l = $bodydata->getline) { $server->datasend($l) }
}
$server->quit, return 0
unless $server->dataend;
$server->quit;
}
#------------------------------------------
sub trySend_persist($@)
{ my ($self, $message, %args) = @_;
# From whom is this message.
my $from = $args{from} || $message->sender || '<>';
$from = $from->address if ref $from && $from->isa('Mail::Address');
# Who are the destinations.
if(defined $args{To})
{ $self->log(WARNING =>
"Use option `to' to overrule the destination: `To' would refer to a
field");
}
my @to = map {$_->address} $self->destinations($message, $args{to});
unless(@to)
{ $self->log(NOTICE =>
'No addresses found to send the message to, no connection
made');
return 1;
}
# Prepare the header
my @header;
require IO::Lines;
my $lines = IO::Lines->new(\@header);
$message->head->printUndisclosed($lines);
#
# Send
#
my ($server,$chosenhost)=$self->contactAnyServer_persist;
# ELS: If the process using the library is threaded, make sure
that there
# is an advisory lock on the reference to the Net::SMTP
connection object.
# That way, only one thread writes a transaction to this
particular connection
# at one time. This does not preclude the use of other
connections.
lock $self->{'connx_persist'}->{$chosenhost} if $server;
if(wantarray)
{ # In LIST context
unless($server)
{
return (0, 500, "Connection Failed", "CONNECT", 0)
}
unless($server->mail($from))
{
my @retval=(0, $server->code, $server->message, 'FROM',
$server->quit);
delete $self->{'connx_persist'}->{$chosenhost};
return @retval;
}
foreach (@to)
{ next if $server->to($_);
# must we be able to disable this?
# next if $args{ignore_erroneous_destinations}
my @retval=(0, $server->code, $server->message,"To
$_",$server->quit);
delete $self->{'connx_persist'}->{$chosenhost};
return @retval;
}
$server->data;
$server->datasend($_) foreach @header;
my $bodydata = $message->body->file;
if(ref $bodydata eq 'GLOB') { $server->datasend($_) while
<$bodydata> }
else { while(my $l = $bodydata->getline) {
$server->datasend($l) } }
unless($server->dataend)
{
my @retval=(0, $server->code, $server->message, 'DATA',
$server->quit);
delete $self->{'connx_persist'}->{$chosenhost};
return @retval;
}
return (1, $server->code, $server->message, 'NOOP',
$server->code);
}
# in SCALAR context
return 0 unless $server;
unless($server->mail($from))
{
$server->quit;
delete $self->{'connx_persist'}->{$chosenhost};
return 0;
}
foreach (@to)
{
next if $server->to($_);
# must we be able to disable this?
# next if $args{ignore_erroneous_destinations}
$server->quit;
delete $self->{'connx_persist'}->{$chosenhost};
return 0;
}
$server->data;
$server->datasend($_) foreach @header;
my $bodydata = $message->body->file;
if(ref $bodydata eq 'GLOB') { $server->datasend($_) while
<$bodydata> }
else { while(my $l = $bodydata->getline) {
$server->datasend($l) } }
unless($server->dataend)
{
$server->quit;
delete $self->{'connx_persist'}->{$chosenhost};
return 0;
}
1;
# ELS Implicit unlock $self->{'connx_persist'}->{$chosenhost} as
exit scope;
}
#------------------------------------------
sub contactAnyServer()
{ my $self = shift;
my ($enterval, $count, $timeout) = $self->retry;
my ($host, $port, $username, $password) = $self->remoteHost;
my @hosts = ref $host ? @$host : $host;
foreach my $host (@hosts)
{ my $server = $self->tryConnectTo
( $host, Port => $port,
, %{$self->{MTS_net_smtp_opts}}, Timeout => $timeout
);
defined $server or next;
$self->log(PROGRESS => "Opened SMTP connection to $host.");
if(defined $username)
{ if($server->auth($username, $password))
{ $self->log(PROGRESS => "$host: Authentication
succeeded.");
}
else
{ $self->log(ERROR => "Authentication failed.");
return undef;
}
}
return $server;
}
undef;
}
#------------------------------------------
sub contactAnyServer_persist()
{ my $self = shift;
my ($enterval, $count, $timeout) = $self->retry;
my ($host, $port, $username, $password) = $self->remoteHost;
my @hosts = ref $host ? @$host : $host;
foreach my $host (@hosts)
{ my ($server);
if(exists($self->{'connx_persist'}->{$host})) #ELS
{
$server=$self->{'connx_persist'}->{$host};
lock $self->{'connx_persist'}->{$host} if $server;
unless ($server->reset)
{
delete($self->{'connx_persist'}->{$host});
next;
}
# Implicit unlock $self->{'connx_persist'}->{$host}
}
else
{
$server = $self->tryConnectTo
( $host, Port => $port,
, %{$self->{MTS_net_smtp_opts}}, Timeout => $timeout
);
defined $server or next;
$self->log(PROGRESS => "Opened SMTP connection to
$host.");
if(defined $username)
{ if($server->auth($username, $password))
{ $self->log(PROGRESS => "$host: Authentication
succeeded.");
}
else
{ $self->log(ERROR => "Authentication failed.");
return undef;
}
}
$self->{'connx_persist'}->{$host}=$server;
}
return ($server,$host);
}
undef;
}
#------------------------------------------
sub tryConnectTo($@)
{ my ($self, $host) = (shift, shift);
Net::SMTP->new($host, @_);
}
#------------------------------------------
sub DESTROY($) #ELS
{
my $self=shift;
foreach my $connx (values %{$self->{'connx_persist'}})
{
$connx->quit;
}
}
1;
Eugene L Schulman/Edison/IBM
06/03/2005 06:50 PM
To
[email protected]
cc
Subject
Contribution- persistent connection code for Mail::Transport::SMTP
--=_alternative 0080587585257015_=
Content-Type: text/html; charset="US-ASCII"
<br><font size=2 face="sans-serif">Repost of the attachment in the previous
message as text for the benefit of the MARC mailing list.</font>
<br>
<br><font size=2 face="sans-serif">
Respectfully Yours,</font>
<br><font size=2 face="sans-serif">
Gene Schulman</font>
<br>
<br><font size=2 face="sans-serif">---</font>
<br><font size=2 face="sans-serif"><br>
</font><font size=2 color=blue face="Arial">Eugene L. Schulman</font>
<br><font size=1 color=blue>Senior Consultant and Technical Architect</font>
<br><font size=1 color=blue>IBM Global Services</font>
<br>
<br>
<br>
<br><font size=2 face="sans-serif">Variant of Mail::Transport::SMTP with
connection persistence:</font>
<br>
<div>
<br><font size=1 face="Courier New">use strict;<br>
use warnings;</font>
<br>
<br><font size=1 face="Courier New">package Mail::Transport::SMTP;<br>
use vars '$VERSION';<br>
$VERSION = '2.060';<br>
use base 'Mail::Transport::Send';</font>
<br>
<br><font size=1 face="Courier New">use Net::SMTP;</font>
<br>
<br><font size=1 face="Courier New"># ELS 2005-Jun-02<br>
# Hash for persistent SMTP connections<br>
# In this implementation, the hash will consist of pairs of hostname and
Net::SMTP reference.<br>
# The consumers of this variable are trySend_persist() and contactAnyServer_persist()</font>
<br>
<br>
<br><font size=1 face="Courier New">sub init($)<br>
{ my ($self, $args) = @_;</font>
<br>
<br><font size=1 face="Courier New"> $self->{'connx_persist'}={}
#ELS<br>
unless (exists($self->{'connx_persist'}));</font>
<br>
<br><font size=1 face="Courier New"> my $hosts = $args->{hostname};<br>
unless($hosts)<br>
{ require Net::Config;<br>
$hosts = $Net::Config::NetConfig{smtp_hosts};<br>
undef $hosts unless @$hosts;<br>
$args->{hostname} = $hosts;<br>
}</font>
<br>
<br><font size=1 face="Courier New"> $args->{via} ||=
'smtp';<br>
$args->{port} ||= '25';</font>
<br>
<br><font size=1 face="Courier New"> $self->SUPER::init($args)
or return;</font>
<br>
<br><font size=1 face="Courier New"> my $helo = $args->{helo}<br>
|| eval { require Net::Config; $Net::Config::inet_domain
}<br>
|| eval { require Net::Domain; Net::Domain::hostfqdn()
};</font>
<br>
<br><font size=1 face="Courier New"> $self->{MTS_net_smtp_opts}<br>
= { Hello => $helo<br>
, Debug => ($args->{smtp_debug}
|| 0)<br>
};</font>
<br>
<br><font size=1 face="Courier New">warn "ELS: Using doctored Mail::Transport::SMTP";<br>
$self;<br>
}</font>
<br>
<br><font size=1 face="Courier New">#------------------------------------------</font>
<br>
<br>
<br><font size=1 face="Courier New">sub trySend($@)<br>
{ my ($self, $message, %args) = @_;</font>
<br>
<br><font size=1 face="Courier New"> # From whom is this message.<br>
my $from = $args{from} || $message->sender || '<>';<br>
$from = $from->address if ref $from && $from->isa('Mail::Address');</font>
<br>
<br><font size=1 face="Courier New"> # Who are the destinations.<br>
if(defined $args{To})<br>
{ $self->log(WARNING =><br>
"Use option `to' to overrule the destination: `To' would refer
to a field");<br>
}</font>
<br>
<br><font size=1 face="Courier New"> my @to = map {$_->address}
$self->destinations($message, $args{to});</font>
<br>
<br><font size=1 face="Courier New"> unless(@to)<br>
{ $self->log(NOTICE =><br>
'No addresses found to send the
message to, no connection made');<br>
return 1;<br>
}</font>
<br>
<br><font size=1 face="Courier New"> # Prepare the header<br>
my @header;<br>
require IO::Lines;<br>
my $lines = IO::Lines->new(\@header);<br>
$message->head->printUndisclosed($lines);</font>
<br>
<br><font size=1 face="Courier New"> #<br>
# Send<br>
#</font>
<br>
<br><font size=1 face="Courier New"> if(wantarray)<br>
{ # In LIST context<br>
my $server;<br>
return (0, 500, "Connection Failed",
"CONNECT", 0)<br>
unless $server = $self->contactAnyServer;</font>
<br>
<br><font size=1 face="Courier New"> return
(0, $server->code, $server->message, 'FROM', $server->quit)<br>
unless $server->mail($from);</font>
<br>
<br><font size=1 face="Courier New"> foreach
(@to)<br>
{ next if $server->to($_);<br>
# must we be able to disable this?<br>
# next if $args{ignore_erroneous_destinations}<br>
return (0, $server->code,
$server->message,"To $_",$server->quit);<br>
}</font>
<br>
<br><font size=1 face="Courier New"> $server->data;<br>
$server->datasend($_) foreach @header;<br>
my $bodydata = $message->body->file;</font>
<br>
<br><font size=1 face="Courier New"> if(ref
$bodydata eq 'GLOB') { $server->datasend($_) while <$bodydata>
}<br>
else { while(my $l = $bodydata->getline)
{ $server->datasend($l) } }</font>
<br>
<br><font size=1 face="Courier New"> return
(0, $server->code, $server->message, 'DATA', $server->quit)<br>
unless $server->dataend;</font>
<br>
<br><font size=1 face="Courier New"> return
($server->quit, $server->code, $server->message, 'QUIT',<br>
$server->code);<br>
}</font>
<br>
<br><font size=1 face="Courier New"> # in SCALAR context<br>
my $server;<br>
return 0 unless $server = $self->contactAnyServer;</font>
<br>
<br><font size=1 face="Courier New"> $server->quit, return
0<br>
unless $server->mail($from);</font>
<br>
<br><font size=1 face="Courier New"> foreach (@to)<br>
{<br>
next if $server->to($_);<br>
# must we be able to disable this?<br>
# next if $args{ignore_erroneous_destinations}<br>
$server->quit;<br>
return 0;<br>
}</font>
<br>
<br><font size=1 face="Courier New"> $server->data;<br>
$server->datasend($_) foreach @header;<br>
my $bodydata = $message->body->file;</font>
<br>
<br><font size=1 face="Courier New"> if(ref $bodydata eq 'GLOB')
{ $server->datasend($_) while <$bodydata> }<br>
else { while(my $l = $bodydata->getline)
{ $server->datasend($l) } }</font>
<br>
<br><font size=1 face="Courier New"> $server->quit, return
0<br>
unless $server->dataend;</font>
<br>
<br><font size=1 face="Courier New"> $server->quit;<br>
}</font>
<br>
<br><font size=1 face="Courier New">#------------------------------------------</font>
<br>
<br>
<br><font size=1 face="Courier New">sub trySend_persist($@)<br>
{ my ($self, $message, %args) = @_;</font>
<br>
<br>
<br><font size=1 face="Courier New"> # From whom is this message.<br>
my $from = $args{from} || $message->sender || '<>';<br>
$from = $from->address if ref $from && $from->isa('Mail::Address');</font>
<br>
<br><font size=1 face="Courier New"> # Who are the destinations.<br>
if(defined $args{To})<br>
{ $self->log(WARNING =><br>
"Use option `to' to overrule the destination: `To' would refer
to a field");<br>
}</font>
<br>
<br><font size=1 face="Courier New"> my @to = map {$_->address}
$self->destinations($message, $args{to});</font>
<br>
<br><font size=1 face="Courier New"> unless(@to)<br>
{ $self->log(NOTICE =><br>
'No addresses found to send the
message to, no connection made');<br>
return 1;<br>
}</font>
<br>
<br><font size=1 face="Courier New"> # Prepare the header<br>
my @header;<br>
require IO::Lines;<br>
my $lines = IO::Lines->new(\@header);<br>
$message->head->printUndisclosed($lines);</font>
<br>
<br><font size=1 face="Courier New"> #<br>
# Send<br>
#</font>
<br>
<br><font size=1 face="Courier New"> my
($server,$chosenhost)=$self->contactAnyServer_persist;</font>
<br>
<br><font size=1 face="Courier New"> #
ELS: If the process using the library is threaded, make sure that there<br>
# is an advisory lock on the
reference to the Net::SMTP connection object.<br>
# That way, only one thread writes
a transaction to this particular connection<br>
# at one time. This does
not preclude the use of other connections.<br>
lock $self->{'connx_persist'}->{$chosenhost}
if $server;</font>
<br>
<br><font size=1 face="Courier New"> if(wantarray)<br>
{ # In LIST context</font>
<br>
<br><font size=1 face="Courier New"> unless($server)<br>
{<br>
return
(0, 500, "Connection Failed", "CONNECT", 0)<br>
}<br>
unless($server->mail($from))<br>
{<br>
my
@retval=(0, $server->code, $server->message, 'FROM', $server->quit);<br>
delete
$self->{'connx_persist'}->{$chosenhost};<br>
return
@retval;<br>
}</font>
<br>
<br><font size=1 face="Courier New"> foreach
(@to)<br>
{ next if $server->to($_);<br>
# must we be able to disable this?<br>
# next if $args{ignore_erroneous_destinations}<br>
my
@retval=(0, $server->code, $server->message,"To $_",$server->quit);<br>
delete
$self->{'connx_persist'}->{$chosenhost};<br>
return
@retval;<br>
}</font>
<br>
<br><font size=1 face="Courier New"> $server->data;<br>
$server->datasend($_) foreach @header;<br>
my $bodydata = $message->body->file;</font>
<br>
<br><font size=1 face="Courier New"> if(ref
$bodydata eq 'GLOB') { $server->datasend($_) while <$bodydata>
}<br>
else { while(my $l = $bodydata->getline)
{ $server->datasend($l) } }</font>
<br>
<br><font size=1 face="Courier New"> unless($server->dataend)<br>
{<br>
my
@retval=(0, $server->code, $server->message, 'DATA', $server->quit);<br>
delete
$self->{'connx_persist'}->{$chosenhost};<br>
return
@retval;<br>
}</font>
<br>
<br><font size=1 face="Courier New"> return
(1, $server->code, $server->message, 'NOOP', $server->code);<br>
}</font>
<br>
<br><font size=1 face="Courier New"> #
in SCALAR context<br>
return 0 unless $server;</font>
<br>
<br><font size=1 face="Courier New"> unless($server->mail($from))<br>
{<br>
$server->quit;<br>
delete
$self->{'connx_persist'}->{$chosenhost};<br>
return
0;<br>
}</font>
<br>
<br><font size=1 face="Courier New"> foreach
(@to)<br>
{<br>
next
if $server->to($_);<br>
# must we be able to disable this?<br>
# next if $args{ignore_erroneous_destinations}<br>
$server->quit;<br>
delete
$self->{'connx_persist'}->{$chosenhost};<br>
return
0;<br>
}</font>
<br>
<br><font size=1 face="Courier New"> $server->data;<br>
$server->datasend($_) foreach @header;<br>
my $bodydata = $message->body->file;</font>
<br>
<br><font size=1 face="Courier New"> if(ref
$bodydata eq 'GLOB') { $server->datasend($_) while <$bodydata>
}<br>
else { while(my $l = $bodydata->getline)
{ $server->datasend($l) } }</font>
<br>
<br><font size=1 face="Courier New"> unless($server->dataend)<br>
{<br>
$server->quit;<br>
delete $self->{'connx_persist'}->{$chosenhost};<br>
return 0;<br>
}<br>
1;<br>
# ELS Implicit unlock $self->{'connx_persist'}->{$chosenhost}
as exit scope;<br>
}</font>
<br>
<br><font size=1 face="Courier New">#------------------------------------------</font>
<br>
<br>
<br><font size=1 face="Courier New">sub contactAnyServer()<br>
{ my $self = shift;</font>
<br>
<br><font size=1 face="Courier New"> my ($enterval, $count,
$timeout) = $self->retry;<br>
my ($host, $port, $username, $password) = $self->remoteHost;<br>
my @hosts = ref $host ? @$host : $host;</font>
<br>
<br><font size=1 face="Courier New"> foreach my $host (@hosts)<br>
{ my $server = $self->tryConnectTo<br>
( $host, Port => $port,<br>
, %{$self->{MTS_net_smtp_opts}}, Timeout
=> $timeout<br>
);</font>
<br>
<br><font size=1 face="Courier New"> defined
$server or next;</font>
<br>
<br><font size=1 face="Courier New"> $self->log(PROGRESS
=> "Opened SMTP connection to $host.");</font>
<br>
<br><font size=1 face="Courier New"> if(defined
$username)<br>
{ if($server->auth($username, $password))<br>
{ $self->log(PROGRESS
=> "$host: Authentication succeeded.");<br>
}<br>
else<br>
{ $self->log(ERROR
=> "Authentication failed.");<br>
return undef;<br>
}<br>
}</font>
<br>
<br><font size=1 face="Courier New"> return
$server;<br>
}</font>
<br>
<br><font size=1 face="Courier New"> undef;<br>
}</font>
<br>
<br><font size=1 face="Courier New">#------------------------------------------</font>
<br>
<br><font size=1 face="Courier New">sub contactAnyServer_persist()<br>
{ my $self = shift;</font>
<br>
<br><font size=1 face="Courier New"> my ($enterval, $count,
$timeout) = $self->retry;<br>
my ($host, $port, $username, $password) = $self->remoteHost;<br>
my @hosts = ref $host ? @$host : $host;</font>
<br>
<br><font size=1 face="Courier New"> foreach my $host (@hosts)<br>
{ my ($server);<br>
if(exists($self->{'connx_persist'}->{$host}))
#ELS<br>
{<br>
$server=$self->{'connx_persist'}->{$host};<br>
lock $self->{'connx_persist'}->{$host} if $server;<br>
unless ($server->reset)<br>
{<br>
delete($self->{'connx_persist'}->{$host});<br>
next;<br>
}<br>
# Implicit unlock $self->{'connx_persist'}->{$host}<br>
}<br>
else<br>
{<br>
$server = $self->tryConnectTo<br>
( $host, Port => $port,<br>
, %{$self->{MTS_net_smtp_opts}}, Timeout
=> $timeout<br>
);</font>
<br>
<br><font size=1 face="Courier New">
defined $server or next;<br>
<br>
$self->log(PROGRESS => "Opened SMTP
connection to $host.");<br>
<br>
if(defined $username)<br>
{ if($server->auth($username, $password))<br>
{ $self->log(PROGRESS
=> "$host: Authentication succeeded.");<br>
}<br>
else<br>
{ $self->log(ERROR
=> "Authentication failed.");<br>
return undef;<br>
}<br>
}<br>
<br>
$self->{'connx_persist'}->{$host}=$server;<br>
}<br>
return ($server,$host);<br>
}</font>
<br>
<br><font size=1 face="Courier New"> undef;<br>
}</font>
<br>
<br><font size=1 face="Courier New">#------------------------------------------</font>
<br>
<br>
<br><font size=1 face="Courier New">sub tryConnectTo($@)<br>
{ my ($self, $host) = (shift, shift);<br>
Net::SMTP->new($host, @_);<br>
}</font>
<br>
<br><font size=1 face="Courier New">#------------------------------------------</font>
<br>
<br><font size=1 face="Courier New">sub DESTROY($) #ELS<br>
{<br>
my
$self=shift;<br>
foreach
my $connx (values %{$self->{'connx_persist'}})<br>
{<br>
$connx->quit;<br>
}<br>
}</font>
<br>
<br>
<br><font size=1 face="Courier New">1;</font>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<table width=100%>
<tr valign=top>
<td width=40%><font size=1 face="sans-serif"><b>Eugene L Schulman/Edison/IBM</b>
</font>
<p><font size=1 face="sans-serif">06/03/2005 06:50 PM</font>
<td width=59%>
<table width=100%>
<tr>
<td>
<div align=right><font size=1 face="sans-serif">To</font></div>
<td valign=top><font size=1 face="sans-serif">[email protected]</font>
<tr>
<td>
<div align=right><font size=1 face="sans-serif">cc</font></div>
<td valign=top>
<tr>
<td>
<div align=right><font size=1 face="sans-serif">Subject</font></div>
<td valign=top><font size=1 face="sans-serif">Contribution- persistent
connection code for Mail::Transport::SMTP</font></table>
<br>
<table>
<tr valign=top>
<td>
<td></table>
<br></table>
<br>
<br>
<br><font size=3> </font>
<br>
<br></div>
--=_alternative 0080587585257015_=--