Loading tests/ftpserver.pl +16 −8 Original line number Diff line number Diff line Loading @@ -1556,6 +1556,10 @@ sub UIDL_pop3 { "3 4\r\n", # Note that UID 3 is a simulated "deleted" message ); if (!grep /^UIDL$/, @capabilities) { sendcontrol "-ERR Unrecognized command\r\n"; } else { logmsg "retrieve a message UID list\n"; sendcontrol "+OK Listing starts\r\n"; Loading @@ -1566,6 +1570,7 @@ sub UIDL_pop3 { # End with the magic 3-byte end of listing marker sendcontrol ".\r\n"; } return 0; } Loading @@ -1576,7 +1581,10 @@ sub TOP_pop3 { logmsg "TOP_pop3 got $args\n"; if (($msg eq "") || ($lines eq "")) { if (!grep /^TOP$/, @capabilities) { sendcontrol "-ERR Unrecognized command\r\n"; } elsif ((!$msg) || (!$lines)) { sendcontrol "-ERR Protocol error\r\n"; } else { Loading Loading
tests/ftpserver.pl +16 −8 Original line number Diff line number Diff line Loading @@ -1556,6 +1556,10 @@ sub UIDL_pop3 { "3 4\r\n", # Note that UID 3 is a simulated "deleted" message ); if (!grep /^UIDL$/, @capabilities) { sendcontrol "-ERR Unrecognized command\r\n"; } else { logmsg "retrieve a message UID list\n"; sendcontrol "+OK Listing starts\r\n"; Loading @@ -1566,6 +1570,7 @@ sub UIDL_pop3 { # End with the magic 3-byte end of listing marker sendcontrol ".\r\n"; } return 0; } Loading @@ -1576,7 +1581,10 @@ sub TOP_pop3 { logmsg "TOP_pop3 got $args\n"; if (($msg eq "") || ($lines eq "")) { if (!grep /^TOP$/, @capabilities) { sendcontrol "-ERR Unrecognized command\r\n"; } elsif ((!$msg) || (!$lines)) { sendcontrol "-ERR Protocol error\r\n"; } else { Loading