diff options
| -rwxr-xr-x | tests/ftpserver.pl | 16 |
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 ################ |