NAME
Net::Server::Mail::ESMTP::SIZE - add support for the SIZE ESMTP
extension to Net::Server::Mail
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::SIZE');
$esmtp->set_size(10_000_000); #10 Milion bytes
$esmtp->process();
$conn->close()
}
DESCRIPTION
Add the ESMTP SIZE extension to Net::Server::Mail::ESMTP. I stubbed this
extension when I wrote Test::SMTP and thought it would be nice to finish
it off.
METHODS
set_size($size)
Establishes the size threshold for rejecting messages.
USAGE
Register the plugin in the ESMTP object, and then call set_size on the
object instance
AUTHOR
Jose Luis Martinez
CPAN ID: JLMARTIN
CAPSiDE
[email protected]
http://www.pplusdomain.net
COPYRIGHT
This program is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.
The full text of the license can be found in the LICENSE file included
with this module.
SEE ALSO
Net::Server::Mail, Net::Server::Mail::ESMTP
