aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xtests/ftpserver.pl8
1 files changed, 7 insertions, 1 deletions
diff --git a/tests/ftpserver.pl b/tests/ftpserver.pl
index 0975a20dd..34f482542 100755
--- 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;