From 4f00a02ba3f5717b824ccf57c30b75e9ce01a438 Mon Sep 17 00:00:00 2001
From: Dan Fandrich <dan@coneharvesters.com>
Date: Wed, 24 Oct 2007 19:39:29 +0000
Subject: [PATCH] Fixed the test FTP server to support the >10000 test number
 notation

---
 tests/ftpserver.pl | 21 ++++++++++++++++++---
 1 file changed, 18 insertions(+), 3 deletions(-)

diff --git a/tests/ftpserver.pl b/tests/ftpserver.pl
index c98b752ae..05d5ca68f 100644
--- a/tests/ftpserver.pl
+++ b/tests/ftpserver.pl
@@ -337,6 +337,11 @@ sub NLST_command {
 
 sub MDTM_command {
     my $testno = $_[0];
+    my $testpart = "";
+    if ($testno > 10000) {
+    	$testpart = $testno % 10000;
+    	$testno = $testno / 10000;
+    }
 
     loadtest("$srcdir/data/test$testno");
 
@@ -359,6 +364,11 @@ sub MDTM_command {
 
 sub SIZE_command {
     my $testno = $_[0];
+    my $testpart = "";
+    if ($testno > 10000) {
+    	$testpart = $testno % 10000;
+    	$testno = $testno / 10000;
+    }
 
     loadtest("$srcdir/data/test$testno");
 
@@ -383,7 +393,7 @@ sub SIZE_command {
     }
     else {
         $size=0;
-        @data = getpart("reply", "data");
+        @data = getpart("reply", "data" . $testpart);
         for(@data) {
             $size += length($_);
         }
@@ -416,17 +426,22 @@ sub RETR_command {
     }
 
     $testno =~ s/^([^0-9]*)//;
+    my $testpart = "";
+    if ($testno > 10000) {
+    	$testpart = $testno % 10000;
+    	$testno = $testno / 10000;
+    }
 
     loadtest("$srcdir/data/test$testno");
 
-    my @data = getpart("reply", "data");
+    my @data = getpart("reply", "data" . $testpart);
 
     my $size=0;
     for(@data) {
         $size += length($_);
     }
 
-    my %hash = getpartattr("reply", "data");
+    my %hash = getpartattr("reply", "data" . $testpart);
 
     if($size || $hash{'sendzero'}) {