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

ftpserver.pl: Added support for POP STAT command

Browse Source
This commit is contained in:
Steve Holme 2013-09-08 08:37:37 +01:00
parent 18c595fde2
commit f851df88fb
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

@ -562,6 +562,7 @@ sub protocolsetup {
'LIST' => \&LIST_pop3, 'LIST' => \&LIST_pop3,
'QUIT' => \&QUIT_pop3, 'QUIT' => \&QUIT_pop3,
'RETR' => \&RETR_pop3, 'RETR' => \&RETR_pop3,
'STAT' => \&STAT_pop3,
); );
%displaytext = ( %displaytext = (
'USER' => '+OK We are happy you popped in!', 'USER' => '+OK We are happy you popped in!',
@ -1310,6 +1311,21 @@ sub DELE_pop3 {
return 0; return 0;
} }
sub STAT_pop3 {
my ($args) = @_;
if ($args ne "") {
sendcontrol "-ERR Protocol error\r\n";
}
else {
# Send statistics for the built-in fake message list as
# detailed in the LIST_pop3 function above
sendcontrol "+OK 3 4294967800\r\n";
}
return 0;
}
sub QUIT_pop3 { sub QUIT_pop3 {
sendcontrol "+OK byebye\r\n"; sendcontrol "+OK byebye\r\n";