SubEthaSMTP is an easy to understand Java library that provides a receptive SMTP server component. By plugging this component into your Java application, you can easily receive SMTP mail using a simple abstract Java interface. Also included is a small sub-project called Wiser, an easy to use incoming mail testing framework. It is based on top of Apache MINA for high performance new I/O (NIO) operation. License: The Apache License 2.0 Changes:
An issue with Wiser not storing messages for re-use has been fixed. Major refactoring to prevent OOM and improve perfs when dealing with large attached files. The returned hostname is now locahost when null. A -1 value has been added to override limits on setMaxConnections() and setMaxRecipients(). Handling of auth mechanisms has been fixed to require a configured auth mechanism when needed. A missing space char in the extended HELO AUTH string has been fixed. This release will prevent an SLF4J error on startup by linking the jdk14 logging facility.
Server::Relay(3pm) User Contributed Perl Documentation Server::Relay(3pm)NAME
Net::SMTP::Server::Relay - A simple relay module for Net::SMTP::Server.
SYNOPSIS
use Carp;
use Net::SMTP::Server;
use Net::SMTP::Server::Client;
use Net::SMTP::Server::Relay;
$server = new Net::SMTP::Server('localhost', 25) ||
croak("Unable to handle client connection: $!
");
while($conn = $server->accept()) {
# We can perform all sorts of checks here for spammers, ACLs,
# and other useful stuff to check on a connection.
# Handle the client's connection and spawn off a new parser.
# This can/should be a fork() or a new thread,
# but for simplicity...
my $client = new Net::SMTP::Server::Client($conn) ||
croak("Unable to handle client connection: $!
");
# Process the client. This command will block until
# the connecting client completes the SMTP transaction.
$client->process || next;
# In this simple server, we're just relaying everything
# to a server. If a real server were implemented, you
# could save email to a file, or perform various other
# actions on it here.
my $relay = new Net::SMTP::Server::Relay($client->{FROM},
$client->{TO},
$client->{MSG});
}
DESCRIPTION
The Net::SMTP::Server::Relay module implements simple SMTP relaying for use with the Net::SMTP::Server module. All this module does is to
take a given message and iterate through the list of recipients, doing DNS lookups for the associated MX record and delivering the
messages. This module makes extensive use of the plethora of other modules already implemented for Perl (specifically the DNS and
Net::SMTP modules in this case), and should give but a glimpse of the potential for extending the Net::SMTP::Server's functionality to
provide a full-featured SMTP server, native to Perl.
The above example illustrates the use of the Net::SMTP::Server::Relay modules -- you simply have to instantiate the module, passing along
the sender, recipients, and message. More formally:
$relay = new Net::SMTP::Server::Relay($from, @to, $msg);
Where $from is the sender, @to is an array containing the list of recipients, and $msg is the message to relay.
AUTHOR AND COPYRIGHT Net::SMTP::Server / SMTP::Server is Copyright(C) 1999, MacGyver (aka Habeeb J. Dihu) <macgyver@tos.net>. ALL RIGHTS
RESERVED.
You may distribute this package under the terms of either the GNU General Public License or the Artistic License, as specified in the Perl
README file.
SEE ALSO
Net::SMTP::Server::Server, Net::SMTP::Server::Client
perl v5.10.1 1999-12-28 Server::Relay(3pm)