Commit 9876ed09 authored by Daniel Stenberg's avatar Daniel Stenberg
Browse files

added support for RETRNOSIZE in the control file to tell RETR to not 

include size in the 150-reply
parent 17cbbe3d

tests/ftpserver.pl

+12 −2
Original line number Diff line number Diff line
@@ -27,6 +27,7 @@ sub ftpmsg { print INPUT @_; } 


my $verbose=0; # set to 1 for debugging

my $retrweirdo=0;

my $retrnosize=0;



my $port = 8921; # just a default

do {
@@ -240,8 +241,13 @@ sub RETR_command { 
            $retrweirdo=0; # switch off the weirdo again!

        }

        else {

            print "150 Binary data connection for $testno () ($size bytes).\r\n";

            logmsg "150 Binary data connection for $testno ($size bytes).\n";

            my $sz = "($size bytes)";

            if($retrnosize) {

                $sz = "size?";

            }



            print "150 Binary data connection for $testno () $sz.\r\n";

            logmsg "150 Binary data connection for $testno () $sz.\n";



            for(@data) {

                my $send = $_;
@@ -386,6 +392,10 @@ sub customize { 
            print "instructed to use RETRWEIRDO\n";

            $retrweirdo=1;

        }

        elsif($_ =~ /RETRNOSIZE/) {

            print "instructed to use RETRNOSIZE\n";

            $retrnosize=1;

        }

    }

    close(CUSTOM);

}