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

ftpserver.pl: Added support for POP3 RSET command

Browse Source
This commit is contained in:
Steve Holme
2013-09-11 18:07:25 +01:00
parent b0afb00000
commit 5840c918d5
1 changed files with 20 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
tests/ftpserver.pl
View File

@@ -563,6 +563,7 @@ sub protocolsetup {
'NOOP' => \&NOOP_pop3, 'NOOP' => \&NOOP_pop3,
'QUIT' => \&QUIT_pop3, 'QUIT' => \&QUIT_pop3,
'RETR' => \&RETR_pop3, 'RETR' => \&RETR_pop3,
'RSET' => \&RSET_pop3,
'STAT' => \&STAT_pop3, 'STAT' => \&STAT_pop3,
'TOP' => \&TOP_pop3, 'TOP' => \&TOP_pop3,
'UIDL' => \&UIDL_pop3, 'UIDL' => \&UIDL_pop3,
@@ -1456,6 +1457,25 @@ sub TOP_pop3 {
return 0; return 0;
} }
sub RSET_pop3 {
my ($args) = @_;
if ($args) {
sendcontrol "-ERR Protocol error\r\n";
}
else {
if (@deleted) {
logmsg "resetting @deleted message(s)\n";
@deleted = ();
}
sendcontrol "+OK\r\n";
}
return 0;
}
sub QUIT_pop3 { sub QUIT_pop3 {
if(@deleted) { if(@deleted) {
logmsg "deleting @deleted message(s)\n"; logmsg "deleting @deleted message(s)\n";