aboutsummaryrefslogtreecommitdiff
path: root/tests
diff options
context:
space:
mode:
authorSteve Holme <steve_holme@hotmail.com>2013-09-07 19:27:52 +0100
committerunknown <Steve Holme@steve.digital-frog.com>2013-09-07 19:31:46 +0100
commit243ad539fe6e7d2c788e4c5318dd6708923265d2 (patch)
tree72a200c3a5bb97266e61dd4673fb5870db8d9b30 /tests
parent3d60590422f710ccccc64aa0619a13aeed1b0547 (diff)
ftpserver.pl: Added support for POP3 DELE command
Diffstat (limited to 'tests')
-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
################