mirror/curl
2
0
Fork 0
mirror of https://github.com/curl/curl.git synced 2025-02-17 14:59:45 +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') { elsif($proto eq 'imap') {
%commandfunc = ( %commandfunc = (
'CAPABILITY' => \&CAPABILITY_imap,
'FETCH' => \&FETCH_imap, 'FETCH' => \&FETCH_imap,
'SELECT' => \&SELECT_imap, 'SELECT' => \&SELECT_imap,
); );
@ -759,7 +760,28 @@ my $cmdid;
# what was picked by SELECT # what was picked by SELECT
my $selected; 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 ($testno) = @_;
my @data; my @data;
my $size; my $size;
@ -771,7 +793,6 @@ sub SELECT_imap {
return 0; return 0;
} }
sub FETCH_imap { sub FETCH_imap {
my ($testno) = @_; my ($testno) = @_;
my @data; my @data;