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

Net::Server::Mail::ESMTP::XFORWARD Ranking & Summary

Net::Server::Mail::ESMTP::XFORWARD Tags

Perl module command XFORWARD command XFORWARD

Net::Server::Mail::ESMTP::XFORWARD Description

Net::Server::Mail::ESMTP::XFORWARD is a Perl module to add support to the XFORWARD command in Net::Server::Mail::ESMTP. 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. Requirements: · Perl

Net::Server::Mail::ESMTP::XFORWARD Related Software