ftpserver.pl: Added support for IMAP NOOP command

This commit is contained in:
Steve Holme 2013-09-14 10:44:21 +01:00
parent fbcefc0ce0
commit 4f4dc5832d

View File

@ -595,6 +595,7 @@ sub protocolsetup {
'LIST' => \&LIST_imap,
'LSUB' => \&LSUB_imap,
'LOGOUT' => \&LOGOUT_imap,
'NOOP' => \&NOOP_imap,
'RENAME' => \&RENAME_imap,
'SEARCH' => \&SEARCH_imap,
'SELECT' => \&SELECT_imap,
@ -1331,6 +1332,29 @@ sub UID_imap {
return 0;
}
sub NOOP_imap {
my ($args) = @_;
my @data = (
"* 22 EXPUNGE\r\n",
"* 23 EXISTS\r\n",
"* 3 RECENT\r\n",
"* 14 FETCH (FLAGS (\\Seen \\Deleted))\r\n",
);
if ($args) {
sendcontrol "$cmdid BAD Command Argument\r\n";
}
else {
for my $d (@data) {
sendcontrol $d;
}
sendcontrol "$cmdid OK NOOP completed\r\n";
}
return 0;
}
sub LOGOUT_imap {
sendcontrol "* BYE cURL IMAP server signing off\r\n";
sendcontrol "$cmdid OK LOGOUT completed\r\n";