mirror/curl
2
0
Fork 0
mirror of https://github.com/curl/curl.git synced 2024-11-21 01:16:58 +08:00
Code Issues Packages Projects 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,
'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
################