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

imap: Fixed ftpserver.pl to allow verification even through LIST command

Browse Source 
Commit 198012ee inadvertently broke LIST_imap().
This commit is contained in:
Jiri Hruska 2013-03-06 22:16:19 +01:00 committed by Steve Holme
parent 5c89413b24
commit 81408d2111
1 changed files with 20 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
tests/ftpserver.pl
View File

@ -940,20 +940,32 @@ sub STORE_imap {
sub LIST_imap {
my ($args) = @_;
my ($reference, $mailbox) = split(/ /, $args, 2);
my @data;
logmsg "LIST_imap got $args\n";
my $testno = $reference;
$testno =~ s/^([^0-9]*)//;
my $testpart = "";
if ($testno > 10000) {
$testpart = $testno % 10000;
$testno = int($testno / 10000);
if ($reference eq '"verifiedserver"') {
# this is the secret command that verifies that this actually is
# the curl test server
@data = ("* LIST () \"/\" \"WE ROOLZ: $$\"\r\n");
if($verbose) {
print STDERR "FTPD: We returned proof we are the test server\n";
}
logmsg "return proof we are we\n";
}
else {
my $testno = $reference;
$testno =~ s/^([^0-9]*)//;
my $testpart = "";
if ($testno > 10000) {
$testpart = $testno % 10000;
$testno = int($testno / 10000);
}
loadtest("$srcdir/data/test$testno");
loadtest("$srcdir/data/test$testno");
my @data = getpart("reply", "data$testpart");
@data = getpart("reply", "data$testpart");
}
for my $d (@data) {
sendcontrol $d;