aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xtests/ftpserver.pl20
1 files changed, 20 insertions, 0 deletions
diff --git a/tests/ftpserver.pl b/tests/ftpserver.pl
index 7900dcdba..23af6f85f 100755
--- a/tests/ftpserver.pl
+++ b/tests/ftpserver.pl
@@ -581,6 +581,7 @@ sub protocolsetup {
%commandfunc = (
'APPEND' => \&APPEND_imap,
'CAPABILITY' => \&CAPABILITY_imap,
+ 'EXAMINE' => \&EXAMINE_imap,
'FETCH' => \&FETCH_imap,
'LIST' => \&LIST_imap,
'SELECT' => \&SELECT_imap,
@@ -989,6 +990,25 @@ sub LIST_imap {
return 0;
}
+sub EXAMINE_imap {
+ my ($testno) = @_;
+ fix_imap_params($testno);
+
+ 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";
+ sendcontrol "$cmdid OK [READ-ONLY] EXAMINE completed\r\n";
+
+ return 0;
+}
+
################
################ POP3 commands
################