QPSMTPD-MailserverInterface/Net/LMTP.pm

package Net::LMTP;

use strict;
use warnings;

use base 'Net::SMTP';
use Net::Cmd;


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;