Report the correct size when 'verifiedserver' is requested.
This commit is contained in:
@@ -282,7 +282,9 @@ sub RETR_command {
|
|||||||
if($testno =~ /^verifiedserver$/) {
|
if($testno =~ /^verifiedserver$/) {
|
||||||
# this is the secret command that verifies that this actually is
|
# this is the secret command that verifies that this actually is
|
||||||
# the curl test server
|
# the curl test server
|
||||||
print "150 Binary junk (10 bytes).\r\n";
|
my $response = "WE ROOLZ: $$\r\n";
|
||||||
|
my $len = length($response);
|
||||||
|
print "150 Binary junk ($len bytes).\r\n";
|
||||||
print SOCK "WE ROOLZ: $$\r\n";
|
print SOCK "WE ROOLZ: $$\r\n";
|
||||||
close(SOCK);
|
close(SOCK);
|
||||||
print "226 File transfer complete\r\n";
|
print "226 File transfer complete\r\n";
|
||||||
|
|||||||
Reference in New Issue
Block a user