rs/net-server-mail

Extensible Perl implementation of the STMP protocol and its different evolutions (ie: ESMTP, LMTP)

Net::Server::Mail

This module is a versatile and extensible implementation of the SMTP protocol and its different evolutions like ESMTP and LMTP. The event driven object-oriented API makes easy to incorporate the SMTP protocol to your programs.

Other SMTPd implementations don't support useful ESMTP extensions and the LMTP protocol. Their interface design precludes adding them later. So I've decided to rewrite a complete implementation with extensibility in mind.

It provides mechanism to easy addition future or not yet implemented ESMTP extensions. Developers can hook code at each SMTP session state and change the module's behaviors by registering event call-backs. The class is designed to be easily inherited from.

Installation

To install this module type the following:

perl Makefile.PL
make
make test
make install

Dependencies

This module requires these other modules and libraries:

Sys::Hostname IO::Select and Carp all available on CPAN.

Licence

This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version.

This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details.

You should have received a copy of the GNU Lesser General Public License along with this library; if not, write to the Free Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA

Copyright

• Copyright (C) 2002 - Olivier Poitrey
• Copyright (C) 2007-2015 - Xavier Guimard [email protected]

STARTTLS

• Copyright (C) 2009 - Dan Moore
• Copyright (C) 2013 - Mytram [email protected]
• Copyright (C) 2013 - Xavier Guimard [email protected]

Contributors

• Georg Hoesch (patch to reduce memory consumption)

net-server-mail's Issues

Test `lmtp.t` fails

When running the testing suite, the lmtp.t test fails for me. CPAN Testers shows an issue on Windows, but I'm running GNU/Linux here, so I'm not sure why it's failing. I'm investigating further and hope to update with what I learn.

1..11
ok 1 - use Net::Server::Mail::LMTP;
ok 2
ok 3
ok 4
ok 5
ok 6
ok 7
ok 8
ok 9
ok 10
not ok 11
#   Failed test at t/lmtp.t line 52.
# Looks like you failed 1 test of 11.

"quit" broken

Bug was introduced in:

$line =~ s/^(.*\s)/uc($1)/ge;

Lowercased "quit" does not have any following params. Because of that \s does not match and command is not uppercased. Therefore it is not recognized as registered command:

< 220 Service ready
> quit 
< 500 Syntax error: unrecognized command

Incorrect behaviour on empty line

According to RFC5321 section 4.3.2 Command-Reply Sequences server should just reply with 500 for invalid command.

Current implementation reply with 500 and write perl error message.

Steps to reproduce issue:

1. Start service
2. Telnet to it

telnet localhost 2500
Trying 127.0.0.1...
Connected to localhost.
Escape character is '^]'.

220 Server.com ESMTP Service ready

500 Syntax error: unrecognized command

3. Read error from console:
   Use of uninitialized value $verb in uc at /home/getresponse/perl/lib/site_perl/5.28.0/Net/Server/Mail.pm line 564.