generic-library/curl
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

ftpserver.pl: Added EXAMINE_imap() for IMAP EXAMINE commands

Browse Source 
Used hard coded data from RFC-3501 section 6.3.2.
This commit is contained in:
Steve Holme 2013-03-14 22:49:57 +00:00
parent 001e664ff7
commit b50285d751
1 changed files with 20 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
tests/ftpserver.pl
View File

@ -581,6 +581,7 @@ sub protocolsetup {
%commandfunc = ( %commandfunc = (
'APPEND' => \&APPEND_imap, 'APPEND' => \&APPEND_imap,
'CAPABILITY' => \&CAPABILITY_imap, 'CAPABILITY' => \&CAPABILITY_imap,
'EXAMINE' => \&EXAMINE_imap,
'FETCH' => \&FETCH_imap, 'FETCH' => \&FETCH_imap,
'LIST' => \&LIST_imap, 'LIST' => \&LIST_imap,
'SELECT' => \&SELECT_imap, 'SELECT' => \&SELECT_imap,
@ -989,6 +990,25 @@ sub LIST_imap {
return 0; 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 ################ POP3 commands
################ ################