Commit 64c89090 authored by Steve Holme's avatar Steve Holme
Browse files

ftpserver.pl: Small correction tidy up 

Corrected some IMAP variable names and whitespace issues.
parent e8489425

tests/ftpserver.pl

+18 −17
Original line number Diff line number Diff line
@@ -874,12 +874,12 @@ sub APPEND_imap { 
    logmsg "APPEND_imap got $args\r\n";



    $args =~ /^([^ ]+) [^{]*\{(\d+)\}$/;

    my ($folder, $size) = ($1, $2);

    fix_imap_params($folder);

    my ($mailbox, $size) = ($1, $2);

    fix_imap_params($mailbox);



    sendcontrol "+ Ready for literal data\r\n";



    my $testno = $folder;

    my $testno = $mailbox;

    my $filename = "log/upload.$testno";



    logmsg "Store test number $testno in $filename\n";
@@ -977,6 +977,7 @@ sub LIST_imap { 
    }

    else {

        my $testno = $reference;



        $testno =~ s/^([^0-9]*)//;

        my $testpart = "";

        if ($testno > 10000) {