Net::Server::Mail::ESMTP::XFORWARD 0.15

Net::Server::Mail::ESMTP::XFORWARD is a Perl module to add support to the XFORWARD command in Net::Server::Mail::ESMTP.

SYNOPSIS

use Net::Server::Mail::ESMTP;

my @local_domains = qw(example.com example.org);
my $server = new IO::Socket::INET Listen => 1, LocalPort => 25;

my $conn;
while($conn = $server->accept)
{
my $esmtp = new Net::Server::Mail::ESMTP socket => $conn;
# activate some extensions
$esmtp->register(Net::Server::Mail::ESMTP::XFORWARD);
# adding some handlers
$esmtp->set_callback(RCPT => &validate_recipient);
$esmtp->process();
$conn->close()
}

sub validate_recipient
{
my($session, $recipient) = @_;

my $domain;
if($recipient =~ /@(.*)>s*$/)
{
$domain = $1;
}

if(not defined $domain)
{
return(0, 513, Syntax error.);
}
elsif(not(grep $domain eq $_, @local_domains) && $session->get_forwarded_addr != "10.1.1.1")
{
return(0, 554, "$recipient: Recipient address rejected: Relay access denied");
}

return(1);
}

When using a Net::Server::Mail::ESMTP script inside a MTA and not in front of Internet, values like client IP address are not accessible to the script and when the script returns mail to an other instance of smtpd daemon, it logs "localhost" as incoming address. To solve this problem, some administrators use the XFORWARD command. This module gives the ability to read and store XFORWARD informations.