diff options
Diffstat (limited to 'tests/ftpserver.pl')
-rwxr-xr-x | tests/ftpserver.pl | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/tests/ftpserver.pl b/tests/ftpserver.pl index 7efc8be04..d0986ea77 100755 --- a/tests/ftpserver.pl +++ b/tests/ftpserver.pl @@ -1640,7 +1640,10 @@ sub APOP_pop3 { my ($args) = @_; my ($user, $secret) = split(/ /, $args, 2); - if (($user eq "") || ($secret eq "")) { + if (!grep /^APOP$/, @capabilities) { + sendcontrol "-ERR Unrecognized command\r\n"; + } + elsif (($user eq "") || ($secret eq "")) { sendcontrol "-ERR Protocol error\r\n"; } else { |