Dan Moore > Net-Server-Mail-ESMTP-STARTTLS-0.02 > Net::Server::Mail::ESMTP::STARTTLS

Download:
Net-Server-Mail-ESMTP-STARTTLS-0.02.tar.gz

Dependencies

Annotate this POD

View/Report Bugs
Module Version: 0.02   Source  

NAME ^

Net::Server::Mail::ESMTP::STARTTLS - Simple implementation of STARTTLS (RFC3207) for Net::Server::Mail::ESMTP

VERSION ^

Version 0.02

SYNOPSIS ^

Simple implementation of STARTTLS (RFC3207) for Net::Server::Mail::ESMTP.

    use Net::Server::Mail::ESMTP;
    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 STARTTLS extension
      $esmtp->register('Net::Server::Mail::ESMTP::STARTTLS');

      # adding STARTTLS handler
      $esmtp->set_callback(STARTTLS => \&tls_started);
      $esmtp->process;
    }

    sub tls_started
    {
      my ($session) = @_;

      # now allow authentication
      $session->register('Net::Server::Mail::ESMTP::AUTH');
    }

FUNCTIONS ^

verb

keyword

reply

starttls

AUTHOR ^

Dan Moore, <dan at moore.cx>

TODO ^

RFC Compliance Issues

Reset state after success

Quoth RFC2487: "Upon completion of the TLS handshake, the SMTP protocol is reset to the initial state (the state in SMTP after a server issues a 220 service ready greeting). The server MUST discard any knowledge obtained from the client, such as the argument to the EHLO command, which was not obtained from the TLS negotiation itself."

Remove STARTTLS from list of commands after success

Quoth RFC2487: "A server MUST NOT return the TLS extension in response to an EHLO command received after a TLS handshake has completed."

Note, though, that both of the above can be done outside the library.

BUGS ^

Failed handshaking might break things badly

When the start_SSL call fails, I'm not sure that things will work out so well.

Please report any bugs or feature requests to bug-net-server-mail-esmtp-starttls at rt.cpan.org, or through the web interface at http://rt.cpan.org/NoAuth/ReportBug.html?Queue=Net-Server-Mail-ESMTP-STARTTLS. I will be notified, and then you'll automatically be notified of progress on your bug as I make changes.

SUPPORT ^

You can find documentation for this module with the perldoc command.

    perldoc Net::Server::Mail::ESMTP::STARTTLS

You can also look for information at:

ACKNOWLEDGEMENTS ^

Net::Server::Mail rules, but I had to rely on Net::Server::Mail::ESMTP::AUTH as an example for how to write an ESMTP::Extension. Thanks to the authors of both!

COPYRIGHT & LICENSE ^

Copyright 2009 Dan Moore, all rights reserved.

This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

syntax highlighting: