generic-library/curl
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Made the magic testnumber > 10000 support actually work

Browse Source
This commit is contained in:
Dan Fandrich 2007-10-27 01:02:57 +00:00
parent e8057241c6
commit 59dccb34b0
1 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
tests/ftpserver.pl
View File

@ -180,7 +180,7 @@ sub startsf {
} }
} }
# remove the file here so that if startsf() fails, it is very noticable # remove the file here so that if startsf() fails, it is very noticeable
unlink($pidfile); unlink($pidfile);
startsf(); startsf();
@ -340,7 +340,7 @@ sub MDTM_command {
my $testpart = ""; my $testpart = "";
if ($testno > 10000) { if ($testno > 10000) {
$testpart = $testno % 10000; $testpart = $testno % 10000;
$testno = $testno / 10000; $testno = int($testno / 10000);
} }
loadtest("$srcdir/data/test$testno"); loadtest("$srcdir/data/test$testno");
@ -367,7 +367,7 @@ sub SIZE_command {
my $testpart = ""; my $testpart = "";
if ($testno > 10000) { if ($testno > 10000) {
$testpart = $testno % 10000; $testpart = $testno % 10000;
$testno = $testno / 10000; $testno = int($testno / 10000);
} }
loadtest("$srcdir/data/test$testno"); loadtest("$srcdir/data/test$testno");
@ -393,7 +393,7 @@ sub SIZE_command {
} }
else { else {
$size=0; $size=0;
@data = getpart("reply", "data" . $testpart); @data = getpart("reply", "data$testpart");
for(@data) { for(@data) {
$size += length($_); $size += length($_);
} }
@ -429,19 +429,19 @@ sub RETR_command {
my $testpart = ""; my $testpart = "";
if ($testno > 10000) { if ($testno > 10000) {
$testpart = $testno % 10000; $testpart = $testno % 10000;
$testno = $testno / 10000; $testno = int($testno / 10000);
} }
loadtest("$srcdir/data/test$testno"); loadtest("$srcdir/data/test$testno");
my @data = getpart("reply", "data" . $testpart); my @data = getpart("reply", "data$testpart");
my $size=0; my $size=0;
for(@data) { for(@data) {
$size += length($_); $size += length($_);
} }
my %hash = getpartattr("reply", "data" . $testpart); my %hash = getpartattr("reply", "data$testpart");
if($size || $hash{'sendzero'}) { if($size || $hash{'sendzero'}) {
@ -546,7 +546,7 @@ sub PASV_command {
kill(9, $prev); kill(9, $prev);
} }
# We fire up a new sockfilt to do the data tranfer for us. # We fire up a new sockfilt to do the data transfer for us.
$slavepid = open2(\*DREAD, \*DWRITE, $slavepid = open2(\*DREAD, \*DWRITE,
"./server/sockfilt --port 0 --logfile log/sockdata$ftpdnum$ext.log --pidfile $pidf $ipv6"); "./server/sockfilt --port 0 --logfile log/sockdata$ftpdnum$ext.log --pidfile $pidf $ipv6");
@ -869,7 +869,7 @@ while(1) {
sendcontrol "$text\r\n"; sendcontrol "$text\r\n";
} }
else { else {
$check=1; # no repsonse yet $check=1; # no response yet
} }
if($fake eq "") { if($fake eq "") {