moparisthebest/curl
1
0
Fork 0
mirror of https://github.com/moparisthebest/curl synced 2024-12-22 08:08:50 -05:00
Code Issues Releases Wiki Activity

added support for RETRNOSIZE in the control file to tell RETR to not

Browse Source 
include size in the 150-reply
This commit is contained in:
Daniel Stenberg 2003-02-26 16:57:00 +00:00
parent 17cbbe3dc5
commit 9876ed09fe
1 changed files with 12 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
tests/ftpserver.pl
View File

@ -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);
}