From 2ef83136d4e6919fc6571bb8091748a56df3c60a Mon Sep 17 00:00:00 2001
From: Steve Holme <steve_holme@hotmail.com>
Date: Thu, 29 Aug 2013 20:08:27 +0100
Subject: [PATCH] ftpserver.pl: Updated IMAP EXAMINE handler to use dynamic
 test data

---
 tests/ftpserver.pl | 23 +++++++++++++++--------
 1 file changed, 15 insertions(+), 8 deletions(-)

diff --git a/tests/ftpserver.pl b/tests/ftpserver.pl
index 2655575..2756e07 100755
--- a/tests/ftpserver.pl
+++ b/tests/ftpserver.pl
@@ -1001,14 +1001,21 @@ sub EXAMINE_imap {
 
     logmsg "EXAMINE_imap got test $testno\n";
 
-    # Example from RFC 3501, 6.3.2. EXAMINE Command
-    sendcontrol "* 17 EXISTS\r\n";
-    sendcontrol "* 2 RECENT\r\n";
-    sendcontrol "* OK [UNSEEN 8] Message 8 is first unseen\r\n";
-    sendcontrol "* OK [UIDVALIDITY 3857529045] UIDs valid\r\n";
-    sendcontrol "* OK [UIDNEXT 4392] Predicted next UID\r\n";
-    sendcontrol "* FLAGS (\\Answered \\Flagged \\Deleted \\Seen \\Draft)\r\n";
-    sendcontrol "* OK [PERMANENTFLAGS ()] No permanent flags permitted\r\n";
+    $testno =~ s/[^0-9]//g;
+    my $testpart = "";
+    if ($testno > 10000) {
+        $testpart = $testno % 10000;
+        $testno = int($testno / 10000);
+    }
+
+    loadtest("$srcdir/data/test$testno");
+
+    my @data = getpart("reply", "data$testpart");
+
+    for my $d (@data) {
+        sendcontrol $d;
+    }
+
     sendcontrol "$cmdid OK [READ-ONLY] EXAMINE completed\r\n";
 
     return 0;
-- 
2.7.4