36 lines
751 B
Perl
36 lines
751 B
Perl
|
package Net::LMTP;
|
||
|
|
|
||
|
|
use base 'Net::SMTP';
|
||
|
|
|
||
|
|
|
||
|
|
sub hello {
|
||
|
|
my $me = shift;
|
||
|
|
my $domain = shift || "localhost.localdomain";
|
||
|
|
my $ok = $me->_LHLO($domain);
|
||
|
|
my @msg = $me->message;
|
||
|
|
|
||
|
|
if ($ok) {
|
||
|
|
my $h = ${*$me}{'net_smtp_esmtp'} = {};
|
||
|
|
foreach my $ln (@msg) {
|
||
|
|
$h->{uc $1} = $2 if $ln =~ /([-\w]+)\b[= \t]*([^\n]*)/;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
elsif ($me->status == CMD_ERROR) {
|
||
|
|
@msg = $me->message if $ok = $me->_HELO($domain);
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
return unless $ok;
|
||
|
|
${*$me}{net_smtp_hello_domain} = $domain;
|
||
|
|
$msg[0] =~ /\A\s*(\S+)/;
|
||
|
|
return ($1 || " ");
|
||
|
|
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
sub _EHLO { shift->unsupported(@_);}
|
||
|
|
sub _HELO { shift->unsupported(@_);}
|
||
|
|
sub _LHLO { shift->command("LHLO", @_)->response() == CMD_OK }
|
||
|
|
|
||
|
|
1;
|