|
From: | Martin Blapp |
Subject: | Re: [tpop3d-discuss]Corrupted TOP response with PIPELINING and tpop3d 1.5.3 |
Date: | 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
[Prev in Thread] | Current Thread | [Next in Thread] |