From: Steve Holme <steve_holme@hotmail.com>
Date: Sun, 15 Sep 2013 08:06:18 +0000 (+0100)
Subject: ftpserver.pl: Added support for SMTP HELO command
X-Git-Tag: curl-7_33_0~86
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=eae86ba62dadecc8fc9ef7ae4fc5f3a8439496e9;p=thirdparty%2Fcurl.git

ftpserver.pl: Added support for SMTP HELO command

...and updated test902 as explicit HELO response is no longer required.
---

diff --git a/tests/data/test902 b/tests/data/test902
index 4da1b99129..c61ab93532 100644
--- a/tests/data/test902
+++ b/tests/data/test902
@@ -12,7 +12,6 @@ RFC821
 <reply>
 <servercmd>
 REPLY EHLO 500 Command unrecognized
-REPLY HELO 250 Already old but still servicing...
 </servercmd>
 </reply>
 
diff --git a/tests/ftpserver.pl b/tests/ftpserver.pl
index c1df824084..15d00f08fa 100755
--- a/tests/ftpserver.pl
+++ b/tests/ftpserver.pl
@@ -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;