diff options
| author | Steve Holme <steve_holme@hotmail.com> | 2013-09-07 19:27:52 +0100 |
|---|---|---|
| committer | unknown <Steve Holme@steve.digital-frog.com> | 2013-09-07 19:31:46 +0100 |
| commit | 243ad539fe6e7d2c788e4c5318dd6708923265d2 (patch) | |
| tree | 72a200c3a5bb97266e61dd4673fb5870db8d9b30 | |
| parent | 3d60590422f710ccccc64aa0619a13aeed1b0547 (diff) | |
| download | curl-243ad539fe6e7d2c788e4c5318dd6708923265d2.tar.gz | |
ftpserver.pl: Added support for POP3 DELE command
| -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 ################ |