Commit 81408d21 authored by Jiri Hruska's avatar Jiri Hruska Committed by Steve Holme
Browse files

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

Commit 198012ee inadvertently broke LIST_imap().
parent 5c89413b

tests/ftpserver.pl

+20 −8
Original line number Diff line number Diff line
@@ -940,9 +940,20 @@ sub STORE_imap { 
sub LIST_imap {

    my ($args) = @_;

    my ($reference, $mailbox) = split(/ /, $args, 2);

    my @data;



    logmsg "LIST_imap got $args\n";



    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 = "";
@@ -953,7 +964,8 @@ sub LIST_imap { 
    

        loadtest("$srcdir/data/test$testno");



    my @data = getpart("reply", "data$testpart");

        @data = getpart("reply", "data$testpart");

    }



    for my $d (@data) {

        sendcontrol $d;