MeTA1 1.0.PreAlpha23.0 (Default branch)


 
Thread Tools Search this Thread
Special Forums News, Links, Events and Announcements Software Releases - RSS News MeTA1 1.0.PreAlpha23.0 (Default branch)
# 1  
Old 01-23-2008
MeTA1 1.0.PreAlpha23.0 (Default branch)

MeTA1 is a modularized message transfer agent (MTA)consisting of five (or more) persistent processes,four of which are multi-threaded. A queue managercontrols SMTP servers and SMTP clients to receiveand send email messages, an address resolverprovides lookups in various maps (including DNS)for mail routing, and a main control programstarts the other processes and watches over theirexecution. The queue manager organizes the flow ofmessages through the system and provides measuresto avoid overloading the local or remote systemsby implementing a central control instance. It issimple to configure using a C-like syntax and issecure and efficient.License: Other/Proprietary License with SourceChanges:
This release fixes a few bugs, most of which arerelated to createmap and the cdb map type. Two newfeatures were added. The interesting one is thatthe SMTP server now treats "Relaying denied"errors as "bad" commands. This means that thoserejections count for max_bad_commands_per_sessionand max_bad_commands_per_transaction. This isuseful when a client is broken enough to tryseveral relaying attempts.Image

More...
Login or Register to Ask a Question

Previous Thread | Next Thread
Login or Register to Ask a Question
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)