Re: [tpop3d-discuss]Corrupted TOP response with PIPELINING and tpop3d 1.5.3

[Martin Blapp]

Hi,

> i'm just trying to reproduce this locally -- can you
> confirm that this scriptlet should show the problem:
>
> perl -MIO::Socket -e '$s = new IO::Socket::INET("localhost:9000");
        $s->print("user USERNAME\r\n");
        $s->getline();
        $s->print("pass PASSWORD\r\n");
        $s->getline(); $s->print("LIST\r\n");
        for ($i = 1; $i < 2000; ++$i) {
                $j=1 + $i%500;
                $s->print("top $j 0\r\n");
         }
        $s->print("quit\r\n");
        while (defined($_ = $s->getline())) { print $_; }'
>
> (replace USERNAME and PASSWORD as appropriate)

Why modulo $i%500  Just use $i ... its easier to debug afterwords.

Yes it should trigger the problem.

Martin