Report the correct size when 'verifiedserver' is requested.

This commit is contained in:
Daniel Stenberg 2004-03-01 07:16:45 +00:00
Родитель d818cbe58c
Коммит 78f52c05a9
1 изменённых файлов: 3 добавлений и 1 удалений

Просмотреть файл

@ -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";