ftpserver.pl: Added support for SMTP HELO command

...and updated test902 as explicit HELO response is no longer required.
This commit is contained in:
Steve Holme 2013-09-15 09:06:18 +01:00
parent e9cca79dd1
commit eae86ba62d
2 changed files with 15 additions and 1 deletions

View File

@ -12,7 +12,6 @@ RFC821
<reply>
<servercmd>
REPLY EHLO 500 Command unrecognized
REPLY HELO 250 Already old but still servicing...
</servercmd>
</reply>

View File

@ -623,6 +623,7 @@ sub protocolsetup {
elsif($proto eq 'smtp') {
%commandfunc = (
'DATA' => \&DATA_smtp,
'HELO' => \&HELO_smtp,
'RCPT' => \&RCPT_smtp,
);
%displaytext = (
@ -772,6 +773,20 @@ sub RCPT_smtp {
$smtp_rcpt = $args;
}
sub HELO_smtp {
my ($client) = @_;
# TODO: Get the IP address of the client connection to use in the HELO
# response when the client doesn't specify one but for now use 127.0.0.1
if (!$client) {
$client = "[127.0.0.1]";
}
sendcontrol "250 SMTP pingpong test server Hello $client\r\n";
return 0;
}
# What was deleted by IMAP STORE / POP3 DELE commands
my @deleted;