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

[Martin Blapp]

Hi,

Hmmmm, seems to be a OS problem. Connections to localhost are
sloooooooooooooow. I'll ask the IPC people from the FreeBSD
project about this issue.

> hmm. I'm surprised -- my example with 1,000 messages takes
> about 0.8s to run here (this is the code from CVS, reading
> from a maildir; in this application a mailspool should be
> a little faster).
>
> The test script in your message takes about 0.2s.

FreeBSD 5.3 connecting to localhost

time perl5.6.1 -MIO::Socket -e '$s = new IO::Socket::INET("localhost:110");
$s->print("user USER\r\n");
$s->getline(); $s->print("pass PASS\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 $_; }' > xxx

real    2m9.509s
user    0m0.559s
sys     0m0.184s

FreeBSD 5.3 connecting to the external IP

time perl -MIO::Socket -e '$s = new IO::Socket::INET("server:110");
$s->print("user USER\r\n");
> $s->getline(); $s->print("pass PASS\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 $_; }' > xxx

real    0m6.932s
user    0m0.553s
sys     0m0.187s