Report the correct size when 'verifiedserver' is requested.
This commit is contained in:
Родитель
d818cbe58c
Коммит
78f52c05a9
|
@ -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";
|
||||||
|
|
Загрузка…
Ссылка в новой задаче