diff options
Diffstat (limited to 'tests')
-rwxr-xr-x | tests/ftpserver.pl | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/tests/ftpserver.pl b/tests/ftpserver.pl index 1c63a308e..9c4d15372 100755 --- a/tests/ftpserver.pl +++ b/tests/ftpserver.pl @@ -563,6 +563,7 @@ sub protocolsetup { 'NOOP' => \&NOOP_pop3, 'QUIT' => \&QUIT_pop3, 'RETR' => \&RETR_pop3, + 'RSET' => \&RSET_pop3, 'STAT' => \&STAT_pop3, 'TOP' => \&TOP_pop3, 'UIDL' => \&UIDL_pop3, @@ -1456,6 +1457,25 @@ sub TOP_pop3 { 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 { if(@deleted) { logmsg "deleting @deleted message(s)\n"; |