diff options
| author | Daniel Stenberg <daniel@haxx.se> | 2000-11-21 15:49:34 +0000 |
|---|---|---|
| committer | Daniel Stenberg <daniel@haxx.se> | 2000-11-21 15:49:34 +0000 |
| commit | ae58d84429b933fceda1fb48b8cf3c9d17acaae0 (patch) | |
| tree | 1e5545c9587a79814c2548fe596f36aaa6f92644 | |
| parent | eb993c28ca4a9d11e803ce5f82320229c9b6ea6c (diff) | |
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
| -rw-r--r-- | tests/ftpserver.pl | 14 |
1 files changed, 11 insertions, 3 deletions
diff --git a/tests/ftpserver.pl b/tests/ftpserver.pl index 38eb06af7..08b204ffd 100644 --- a/tests/ftpserver.pl +++ b/tests/ftpserver.pl @@ -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, |