From 243ad539fe6e7d2c788e4c5318dd6708923265d2 Mon Sep 17 00:00:00 2001
From: Steve Holme <steve_holme@hotmail.com>
Date: Sat, 7 Sep 2013 19:27:52 +0100
Subject: ftpserver.pl: Added support for POP3 DELE command

---
 tests/ftpserver.pl | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)

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
 ################
-- 
cgit v1.2.3