[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