diff options
| -rw-r--r-- | tests/ftpserver.pl | 14 |
1 files changed, 12 insertions, 2 deletions
diff --git a/tests/ftpserver.pl b/tests/ftpserver.pl index 37bd78307..0140f723f 100644 --- a/tests/ftpserver.pl +++ b/tests/ftpserver.pl @@ -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); } |