[tpop3d-discuss] Re: Too many open files

[John P Connor]

>
> > I can't reproduce this here. The running tpop3d doesn't
> > create additional file descriptors, as checked by looking
> > at /proc/$pid/fd on Linux. I don't know what tool you can
> > use to test this on Solaris.

I think this was my problem .. I missed an "untie" off in my auth script. 
Trying to be clever & only tying once, you see, & untying at different 
points. Oops.

>I'll have a play with Purify, if someone can tell me the test
>conditions and how to recreate it?

Well, I still see process size growth, using the "noddy" authenticator I 
mentioned before:

sub auth {
   my $packet = shift;

                 $packet = {
                         result  => 'YES',
                         uid     => 500,
                         gid     => 500,
                         mailbox => '/var/mail/test',
                         mboxtype=> 'maildir',
                         domain  => '',
                 };
         $packet;
}

sub auth_finish {
}


I'm using a simple "exercising" script, which is this:

#!/usr/local/bin/perl

use Net::POP3;
  while(1) {
         $pop = Net::POP3->new("polanski", Timeout => 120);
         $pop->user('test');
         $pop->pass('test');
         select(undef,undef,undef,5);
         $pop->quit();
}

  & running about 15-20 of them in the background, started at random 
intervals. Slowly, tpop3d starts to grow in size. The account has only a 
single mail in it.

I'm running on Solaris 8 with latest patch kit & Perl 5.61. I built the s/w 
with gcc v2.95.3. If you want my actual binary, I can supply it :-)


Cheers

John