Net::Server::Mail::ESMTP::SIZE - add support for the SIZE ESMTP extension to Net::Server::Mail
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() }
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.
Note: This is a patched, unauthorized version of the original module.
Establishes the size threshold for rejecting messages.
Register the plugin in the ESMTP object, and then call set_size on the object instance
Jose Luis Martinez CPAN ID: JLMARTIN CAPSiDE jlmartinez@capside.com http://www.pplusdomain.net Original Patch (not used here, but it gave Rene the idea whats wrong): Christian Felsing hostmaster@taunusstein.net This workaround module: Rene Schickbaue rene.schickbauer@magnapowertrain.com
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.
Net::Server::Mail, Net::Server::Mail::ESMTP
To install Net::Server::Mail::ESMTP::SIZE, copy and paste the appropriate command in to your terminal.
cpanm
cpanm Net::Server::Mail::ESMTP::SIZE
CPAN shell
perl -MCPAN -e shell install Net::Server::Mail::ESMTP::SIZE
For more information on module installation, please visit the detailed CPAN module installation guide.