view release on metacpan or  search on metacpan

MsgStore.pm  view on Meta::CPAN

{
  my $kept= shift;
  if(open KEPT, ">$mailroot/kept")
  {
    for(keys %$kept)
    { print KEPT $_, "\t", $$kept{$_}, "\n"; }
    close KEPT;
  }
}

sub getmail(&;&)
{
  my($prompt,$status)= @_;
  $status= sub{} unless $status;
  my $started= time;
  my %kept; _getkept(%kept);
  dbmopen my %acct, $mailroot.'/accounts', 0600
    or croak "Unable to open accounts database: $!\n";
  my($NewMsg,$index,@acct)= (0,0,keys %acct);
  my $grain= 10_000/@acct;
  ACCT: for(@acct)