Net::Server::Mail::ESMTP::XFORWARDNet::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
Advertisement
- License:
- Perl Artistic License
- Price:
- FREE
- Publisher Name:
- Xavier Guimard
- Publisher web site:
- http://search.cpan.org/~guimard/Net-Server-Mail-0.15/lib/Net/Server/Mail/ESMTP/XFORWARD.pm
Net::Server::Mail::ESMTP::XFORWARD Tags
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