mail::bulkmail::dummyserver(3pm) [debian man page]

Bulkmail::DummyServer(3pm)				User Contributed Perl Documentation				Bulkmail::DummyServer(3pm)

NAME

       Mail::Bulkmail::DummyServer - dummy class for dummy server objects

AUTHOR

       Jim Thomason, jim@jimandkoka.com

DESCRIPTION

       Mail::Bulkmail::DummyServer is a drop in replacement for Mail::Bulkmail::Server.

       Sometimes you just want to test things on your end - make sure your list iterates properly, make sure your mail merge is functioning fine,
       make sure your logging functions are correct, whatever.	And in those cases, you probably don't want to worry about futzing around with
       your SMTP relay and sending junk messages through it that you don't care about. Not to mention the fact that those probably will need to be
       inspected and deleted later. A hassle for debugging.

       Enter DummyServer. This is a subclass of Mail::Bulkmail::Server that behaves exactly the same except for the fact that it doesn't actually
       connect to a server. Instead, it sends all data that would be going to the server to a file instead. This file should be specified in the
       conf file.

	#in your conf file
	define package Mail::Bulkmail::DummyServer
	dummy_file     = ./my.dummy.file

       Now, instead of sending commands to your SMTP relay, they'll get sent to ./my.dummy.file for easy inspection at a later date.

CLASS ATTRIBUTES

       dummy_file Stores the dummy_file that you want to output your data to.

METHODS

       connect	  "connects" to your DummyServer. Actually, internally it ties a filehandle onto this package.	Yes, this thing has a (minimal)
		  implementation of a tied handle class to accomplish this feat.

		  This method is known to return

		   MBDu001 - server won't say EHLO

       disconnect overloaded disconnect method. Wipes out the internal socket as usual, but doesn't try to say RSET or QUIT to the server.

		  disconnect can also disconnect quietly, i.e., it won't try to issue a RSET and then quit before closing the socket.

		   $server->disconnect();			  #issues RSET and quit
		   $server->disconnect('quietly');	  #issues nothing

SEE ALSO

       Mail::Bulkmail::Server

COPYRIGHT (again)
       Copyright and (c) 2003 James A Thomason III (jim@jimandkoka.com). All rights reserved.  Mail::Bulkmail::DummyServer is distributed under
       the terms of the Perl Artistic License.

CONTACT INFO

       So you don't have to scroll all the way back to the top, I'm Jim Thomason (jim@jimandkoka.com) and feedback is appreciated.  Bug
       reports/suggestions/questions/etc.  Hell, drop me a line to let me know that you're using the module and that it's made your life easier.
       :-)

perl v5.8.8							    2008-03-04						Bulkmail::DummyServer(3pm)

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)