debian man page for net::server::mail::lmtp

Query: net::server::mail::lmtp

OS: debian

Section: 3pm

Format: Original Unix Latex Style Formatted with HTML and a Horizontal Scroll Bar

Net::Server::Mail::LMTP(3pm)				User Contributed Perl Documentation			      Net::Server::Mail::LMTP(3pm)

NAME
Net::Server::Mail::LMTP - A module to implement the LMTP protocole
SYNOPSIS
use Net::Server::Mail::LMTP; 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::LMTP socket => $conn; # adding some handlers $esmtp->set_callback(RCPT => &validate_recipient); $esmtp->set_callback(DATA => &queue_message); $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)) { return(0, 554, "$recipient: Recipient address rejected: Relay access denied"); } return(1); } sub queue_message { my($session, $data) = @_; my $sender = $session->get_sender(); my @recipients = $session->get_recipients(); return(0, 554, 'Error: no valid recipients') unless(@recipients); my $msgid = add_queue($sender, @recipients, $data) or return(0); return(1, 250, "message queued $msgid"); }
DESCRIPTION
This class implement the LMTP (RFC 2033) protocol. This class inherit from Net::Server::Mail::ESMTP. Please see Net::Server::Mail::ESMTP for documentation of common methods.
EVENTS
Descriptions of callback who's can be used with set_callback method. All handle takes the Net::Server::Mail::ESMTP object as first argument and specific callback's arguments. LHLO Same as ESMTP EHLO, please see Net::Server::Mail::ESMTP. DATA Overide the default DATA event by a per recipient response. It will be called for each recipients with data (in a scalar reference) as first argument followed by the current recipient.
SEE ALSO
Please, see Net::Server::Mail, Net::Server::Mail::SMTP and Net::Server::Mail::ESMTP.
AUTHOR
Olivier Poitrey <rs@rhapsodyk.net>
AVAILABILITY
Available on CPAN. anonymous SVN repository: svn co https://emailproject.perl.org/svn/Net-Server-Mail SVN repository on the web: http://emailproject.perl.org/svn/Net-Server-Mail/
BUGS
Please use CPAN system to report a bug (http://rt.cpan.org/).
LICENCE
This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this library; if not, write to the Free Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
COPYRIGHT
Copyright (C) 2002 - Olivier Poitrey, 2007 - Xavier Guimard perl v5.10.0 2007-04-10 Net::Server::Mail::LMTP(3pm)
Related Man Pages
net::server::multitype5.18(3) - mojave
net::server::multitype(3) - osx
mail::server::imap4(3pm) - debian
net::server::mail::esmtp::xforward(3pm) - debian
net::server::mail::lmtp(3pm) - debian
Similar Topics in the Unix Linux Community
PerlMRIM 0.8 (Default branch)
Bitgate Server Software Environment 0.8.0 (Default branch)
PerlMRIM 0.11 (Default branch)
Reg:Postfix Mail Server
Zimbra Mail Server Security Issue