moparisthebest/curl
1
0
Fork 0
mirror of https://github.com/moparisthebest/curl synced 2024-12-22 08:08:50 -05:00
Code Issues Releases Wiki Activity

Added support for verifiedserver that returns a static silly string that

Browse Source 
allows the test script to verify that it is our test server running on the
particular port
This commit is contained in:
Daniel Stenberg 2000-11-21 15:49:34 +00:00
parent eb993c28ca
commit ae58d84429
1 changed files with 11 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
tests/ftpserver.pl
View File

@ -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,