From 6a353049ac94751d53e877c6b5f3c452d717cfe3 Mon Sep 17 00:00:00 2001
From: Steve Holme <steve_holme@hotmail.com>
Date: Thu, 29 Aug 2013 07:20:03 +0100
Subject: [PATCH] ftpserver.pl: Added SELECT check to IMAP FETCH and STORE
 handlers

---
 tests/ftpserver.pl | 12 ++++++++++--
 1 file changed, 10 insertions(+), 2 deletions(-)

diff --git a/tests/ftpserver.pl b/tests/ftpserver.pl
index ec7ccbba8..2655575b8 100755
--- a/tests/ftpserver.pl
+++ b/tests/ftpserver.pl
@@ -829,6 +829,9 @@ sub FETCH_imap {
         $data[0] = $response;
         logmsg "return proof we are we\n";
     }
+    elsif ($selected eq "") {
+        sendcontrol "$cmdid BAD Command received in Invalid state\r\n";
+    }
     else {
         logmsg "retrieve a mail\n";
 
@@ -941,8 +944,13 @@ sub STORE_imap {
 
     logmsg "STORE_imap got $args\n";
 
-    sendcontrol "* $uid FETCH (FLAGS (\\Seen \\Deleted))\r\n";
-    sendcontrol "$cmdid OK STORE completed\r\n";
+    if ($selected eq "") {
+        sendcontrol "$cmdid BAD Command received in Invalid state\r\n";
+    }
+    else {
+        sendcontrol "* $uid FETCH (FLAGS (\\Seen \\Deleted))\r\n";
+        sendcontrol "$cmdid OK STORE completed\r\n";
+    }
 
     return 0;
 }