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

ftpserver.pl: Added support for UID command

Browse Source
This commit is contained in:
Steve Holme 2013-09-11 20:26:43 +01:00
parent f2403140f9
commit 7fd84b14d2
1 changed files with 39 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

39
tests/ftpserver.pl
View File

@ -600,6 +600,7 @@ sub protocolsetup {
'SELECT' => \&SELECT_imap, 'SELECT' => \&SELECT_imap,
'STATUS' => \&STATUS_imap, 'STATUS' => \&STATUS_imap,
'STORE' => \&STORE_imap 'STORE' => \&STORE_imap
'UID' => \&UID_imap,
); );
%displaytext = ( %displaytext = (
'LOGIN' => ' OK LOGIN completed', 'LOGIN' => ' OK LOGIN completed',
@ -1292,6 +1293,44 @@ sub COPY_imap {
return 0; return 0;
} }
sub UID_imap {
my ($args) = @_;
my ($command) = split(/ /, $args, 1);
fix_imap_params($command, $mailbox);
logmsg "UID_imap got $args\n";
if ($selected eq "") {
sendcontrol "$cmdid BAD Command received in Invalid state\r\n";
}
elsif (($command ne "COPY") && ($command ne "FETCH") &&
($command ne "STORE") && ($command ne "SEARCH")) {
sendcontrol "$cmdid BAD Command Argument\r\n";
}
else {
my $testno = $selected;
$testno =~ s/^([^0-9]*)//;
my $testpart = "";
if ($testno > 10000) {
$testpart = $testno % 10000;
$testno = int($testno / 10000);
}
loadtest("$srcdir/data/test$testno");
my @data = getpart("reply", "data$testpart");
for my $d (@data) {
sendcontrol $d;
}
sendcontrol "$cmdid OK $command completed\r\n";
}
return 0;
}
sub LOGOUT_imap { sub LOGOUT_imap {
sendcontrol "* BYE cURL IMAP server signing off\r\n"; sendcontrol "* BYE cURL IMAP server signing off\r\n";
sendcontrol "$cmdid OK LOGOUT completed\r\n"; sendcontrol "$cmdid OK LOGOUT completed\r\n";