Commit b264a03f authored by Daniel Stenberg's avatar Daniel Stenberg
Browse files

Support file names passed to RETR that don't start with a number. In that 

case, all non-numeric prefixing letters are cut off to figure out the test
number.
parent 7472ede3

tests/ftpserver.pl

+3 −2
Original line number Diff line number Diff line
@@ -55,7 +55,6 @@ sub ftpmsg { 
  open(INPUT, ">>log/server$ftpdnum.input") ||

    logmsg "failed to open log/server$ftpdnum.input\n";



  INPUT->autoflush(1);

  print INPUT @_;

  close(INPUT);
@@ -297,7 +296,7 @@ sub SIZE_command { 
}



sub RETR_command {

    my $testno = $_[0];

    my ($testno) = @_;



    logmsg "RETR file \"$testno\"\n";
@@ -318,6 +317,8 @@ sub RETR_command { 
        return 0;

    }



    $testno =~ s/^([^0-9]*)//;



    loadtest("$srcdir/data/test$testno");



    my @data = getpart("reply", "data");