generic-library/curl
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

ftpserver.pl: Added support for POP3 DELE command

Browse Source
This commit is contained in:
Steve Holme 2013-09-07 19:27:52 +01:00 committed by unknown
parent 3d60590422
commit 243ad539fe
1 changed files with 16 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
tests/ftpserver.pl
View File

@ -560,6 +560,7 @@ sub protocolsetup {
'AUTH' => \&AUTH_pop3, 'AUTH' => \&AUTH_pop3,
'RETR' => \&RETR_pop3, 'RETR' => \&RETR_pop3,
'LIST' => \&LIST_pop3, 'LIST' => \&LIST_pop3,
'DELE' => \&DELE_pop3,
); );
%displaytext = ( %displaytext = (
'USER' => '+OK We are happy you popped in!', 'USER' => '+OK We are happy you popped in!',
@ -1295,6 +1296,21 @@ my @pop3list=(
return 0; 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 ################ FTP commands
################ ################