[tpop3d-discuss]Corrupted TOP response with PIPELINING and tpop3d
1.5.3
Martin Blapp
mb at imp.ch
Wed, 2 Feb 2005 19:22:57 +0100 (CET)
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