Jose Luis Martinez Torres > Net-Server-Mail-ESMTP-SIZE-0.01 > Net::Server::Mail::ESMTP::SIZE

Download:
Net-Server-Mail-ESMTP-SIZE-0.01.tar.gz

Dependencies

Annotate this POD

CPAN RT

Open  1
View/Report Bugs
Module Version: 0.01   Source   Latest Release: Net-Server-Mail-ESMTP-SIZE-0.03

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
    jlmartinez@capside.com
    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

syntax highlighting: