Commit f851df88 authored by Steve Holme's avatar Steve Holme
Browse files

ftpserver.pl: Added support for POP STAT command

parent 18c595fd

tests/ftpserver.pl

+16 −0
Original line number Diff line number Diff line
@@ -562,6 +562,7 @@ sub protocolsetup { 
            'LIST' => \&LIST_pop3,

            'QUIT' => \&QUIT_pop3,

            'RETR' => \&RETR_pop3,

            'STAT' => \&STAT_pop3,

        );

        %displaytext = (

            'USER' => '+OK We are happy you popped in!',
@@ -1310,6 +1311,21 @@ sub DELE_pop3 { 
    return 0;

}



sub STAT_pop3 {

    my ($args) = @_;



    if ($args ne "") {

        sendcontrol "-ERR Protocol error\r\n";

    }

    else {

        # Send statistics for the built-in fake message list as

        # detailed in the LIST_pop3 function above

        sendcontrol "+OK 3 4294967800\r\n";

    }



    return 0;

}



sub QUIT_pop3 {

    sendcontrol "+OK byebye\r\n";