Commit 4d6ef629 authored by Steve Holme's avatar Steve Holme
Browse files

ftpserver.pl: Added capability prerequisite for extended POP3 commands

parent b68c5270
Loading
Loading
Loading
Loading
+16 −8
Original line number Diff line number Diff line
@@ -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";
@@ -1566,6 +1570,7 @@ sub UIDL_pop3 {

        # End with the magic 3-byte end of listing marker
        sendcontrol ".\r\n";
    }

    return 0;
}
@@ -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 {