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

Added support for verifiedserver that returns a static silly string that 

allows the test script to verify that it is our test server running on the
particular port
parent eb993c28

tests/ftpserver.pl

+11 −3
Original line number Diff line number Diff line
@@ -37,15 +37,13 @@ do { 


my $proto = getprotobyname('tcp') || 6;



my $ftp_sendfile=""; # set to a file name when the file should be sent



socket(Server, PF_INET, SOCK_STREAM, $proto)|| die "socket: $!";

setsockopt(Server, SOL_SOCKET, SO_REUSEADDR,

           pack("l", 1)) || die "setsockopt: $!";

bind(Server, sockaddr_in($port, INADDR_ANY))|| die "bind: $!";

listen(Server,SOMAXCONN) || die "listen: $!";



print "FTP server started on port $port\n";

#print "FTP server started on port $port\n";



open(PID, ">.ftpserver.pid");

print PID $$;
@@ -156,6 +154,16 @@ sub RETR_command { 


    logmsg "RETR test number $testno\n";



    if($testno =~ /^verifiedserver$/) {

        # this is the secret command that verifies that this actually is

        # the curl test server

        print "150 Binary junk (10 bytes).\r\n";

        print SOCK "WE ROOLZ\r\n";

        close(SOCK);

        print "226 File transfer complete\r\n";

        return 0;

    }



    my $filename = "data/reply$testno.txt";



    my ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,