aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xtests/ftpserver.pl16
1 files changed, 16 insertions, 0 deletions
diff --git a/tests/ftpserver.pl b/tests/ftpserver.pl
index f3c84942a..f9031bbaa 100755
--- a/tests/ftpserver.pl
+++ b/tests/ftpserver.pl
@@ -560,6 +560,7 @@ sub protocolsetup {
'AUTH' => \&AUTH_pop3,
'RETR' => \&RETR_pop3,
'LIST' => \&LIST_pop3,
+ 'DELE' => \&DELE_pop3,
);
%displaytext = (
'USER' => '+OK We are happy you popped in!',
@@ -1295,6 +1296,21 @@ my @pop3list=(
return 0;
}
+sub DELE_pop3 {
+ my ($msg) = @_;
+
+ logmsg "DELE_pop3 got $msg\n";
+
+ if ($msg eq "") {
+ sendcontrol "-ERR Protocol error\r\n";
+ }
+ else {
+ sendcontrol "+OK\r\n";
+ }
+
+ return 0;
+}
+
################
################ FTP commands
################