diff options
author | Daniel Stenberg <daniel@haxx.se> | 2003-03-15 16:39:15 +0000 |
---|---|---|
committer | Daniel Stenberg <daniel@haxx.se> | 2003-03-15 16:39:15 +0000 |
commit | 0251563c981c2486d240ccf858cbbcf2a3ac1315 (patch) | |
tree | 407a3f098696f73955867007002b96b802e90930 /tests/ftpserver.pl | |
parent | 72673a351bd0cadeb7735c853fc542df1a56023e (diff) |
report pid back in the WE ROOLZ message
Diffstat (limited to 'tests/ftpserver.pl')
-rw-r--r-- | tests/ftpserver.pl | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/tests/ftpserver.pl b/tests/ftpserver.pl index 7c1b0aec6..76c68012d 100644 --- a/tests/ftpserver.pl +++ b/tests/ftpserver.pl @@ -211,9 +211,12 @@ sub RETR_command { # 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"; + print SOCK "WE ROOLZ: $$\r\n"; close(SOCK); print "226 File transfer complete\r\n"; + if($verbose) { + print STDERR "FTPD: We returned proof we are the test server\n"; + } return 0; } @@ -439,8 +442,9 @@ for ( $waitedpid = 0; print @welcome; if($verbose) { - print STDERR "OUT:\n"; - print STDERR @welcome; + for(@welcome) { + print STDERR "OUT: $_"; + } } my $state="fresh"; |