ftpserver.pl: Fixed IMAP SEARCH command

diff --git a/tests/ftpserver.pl b/tests/ftpserver.pl
index 0e4a7bc..d5ae6bb 100755 (executable)
--- a/tests/ftpserver.pl
+++ b/tests/ftpserver.pl
@@ -1033,12 +1033,13 @@ sub STATUS_imap {
 }
 
 sub SEARCH_imap {
-    my ($testno) = @_;
-    fix_imap_params($testno);
+    my ($what) = @_;
+    my $testno = $selected;
+    fix_imap_params($what);
 
     logmsg "SEARCH_imap got test $testno\n";
 
-    $testno =~ s/[^0-9]//g;
+    $testno =~ s/^([^0-9]*)//;
     my $testpart = "";
     if ($testno > 10000) {
         $testpart = $testno % 10000;