mirror/curl
2
0
Fork 0
mirror of https://github.com/curl/curl.git synced 2024-11-27 05:50:21 +08:00
Code Issues Packages Projects Releases Wiki Activity

imap test server: Added support for the CAPABILITY command

Browse Source 
Added support for the CAPABILITY command in preparation of upcoming
changes.
This commit is contained in:
Steve Holme 2013-01-04 13:15:10 +00:00
parent 65e8ba8e1d
commit b708a522a1
1 changed files with 23 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
tests/ftpserver.pl
View File

@ -579,6 +579,7 @@ sub protocolsetup {
}
elsif($proto eq 'imap') {
%commandfunc = (
'CAPABILITY' => \&CAPABILITY_imap,
'FETCH' => \&FETCH_imap,
'SELECT' => \&SELECT_imap,
);
@ -759,7 +760,28 @@ my $cmdid;
# what was picked by SELECT
my $selected;
sub SELECT_imap {
sub CAPABILITY_imap {
my ($testno) = @_;
my $data;
if(!$support_capa) {
sendcontrol "$cmdid BAD Command\r\n";
}
else {
$data = "* CAPABILITY IMAP4";
if($support_auth) {
$data .= " AUTH=UNKNOWN";
}
$data .= " pingpong test server\r\n";
sendcontrol $data;
sendcontrol "$cmdid OK CAPABILITY completed\r\n";
}
return 0;
}
sub SELECT_IMAP {
my ($testno) = @_;
my @data;
my $size;
@ -771,7 +793,6 @@ sub SELECT_imap {
return 0;
}
sub FETCH_imap {
my ($testno) = @_;
my @data;