From: Steve Holme <steve_holme@hotmail.com>
Date: Sat, 19 Oct 2013 19:39:18 +0000 (+0100)
Subject: ftpserver.pl: Fixed processing of POP3 authentication strings
X-Git-Tag: curl-7_34_0~217
X-Git-Url: https://granicus.if.org/sourcecode?a=commitdiff_plain;h=5b31b38c27bb7a0c496a36eda081a2fc9300796a;p=curl

ftpserver.pl: Fixed processing of POP3 authentication strings

...and corrected response when check fails from 500 to -ERR.
---

diff --git a/tests/ftpserver.pl b/tests/ftpserver.pl
index d0986ea77..5c5d19a53 100755
--- a/tests/ftpserver.pl
+++ b/tests/ftpserver.pl
@@ -3049,6 +3049,7 @@ while(1) {
                 sendcontrol "$1 '$full': command not understood.\r\n";
                 last;
             }
+
             $cmdid=$1; # set the global variable
             $FTPCMD=$2;
             $FTPARG=$3;
@@ -3057,6 +3058,16 @@ while(1) {
             $FTPCMD=$1;
             $FTPARG=$3;
         }
+        elsif($proto eq "pop3") {
+            # POP3 long "commands" are base64 authentication data
+            unless($full =~ /^[A-Z0-9+\/]+={0,2}$/i)) {
+                sendcontrol "-ERR '$full': command not understood.\r\n";
+                last;
+            }
+
+            $FTPCMD=$full;
+            $FTPARG="";
+        }
         elsif(($proto eq "smtp") && ($full =~ /^[A-Z0-9+\/]{0,512}={0,2}$/i)) {
             # SMTP long "commands" are base64 authentication data.
             $FTPCMD=$full;