ftpserver.pl: Moved SMTP MAIL handler into own function

diff --git a/tests/ftpserver.pl b/tests/ftpserver.pl
index 0975a20..34f4825 100755 (executable)
--- a/tests/ftpserver.pl
+++ b/tests/ftpserver.pl
@@ -625,11 +625,11 @@ sub protocolsetup {
             'DATA' => \&DATA_smtp,
             'EHLO' => \&EHLO_smtp,
             'HELO' => \&HELO_smtp,
+            'MAIL' => \&MAIL_smtp,
             'RCPT' => \&RCPT_smtp,
             'QUIT' => \&QUIT_smtp,
         );
         %displaytext = (
-            'MAIL' => '200 Note taken',
             'RCPT' => '200 Receivers accepted',
             'welcome' => join("",
             '220-        _   _ ____  _     '."\r\n",
@@ -738,6 +738,12 @@ sub EHLO_smtp {
     return 0;
 }
 
+sub MAIL_smtp {
+    sendcontrol "200 Note taken\r\n";
+
+    return 0;
+}
+
 sub DATA_smtp {
     my $testno;