view release on metacpan or  search on metacpan

MsgStore.pm  view on Meta::CPAN

483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
{
  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)