Mail::Stats - Perl module for getting quick statistics on procmail generated

MailStats documentation Contained in the MailStats distribution.

Index

Code Index:

NAME

Top

Mail::Stats - Perl module for getting quick statistics on procmail generated mailbox files.

SYNOPSIS

Top

  use Mail::Stats;

DESCRIPTION

Top

This is the beginning of a quick and dirty mbox statistics program. It will be very reworked over the next many moons. Hopefully it is mildly useful in its current format.

More documentation would be here, but I am getting on a plane to another country, and would like to get something out in an alpha state before I leave.

AUTHOR

Top

  Sean Dague
  sean@dague.net
  http://dague.net/sean

SEE ALSO

Top

perl(1).

MailStats documentation Contained in the MailStats distribution. 
package Mail::Stats;

use strict;
use vars qw($VERSION);

use Carp;
use Mail::Stats::Record;
use Mail::Stats::Parser;
use Mail::Stats::Config;

$VERSION = '0.02';

sub newmail {
  my $cfg = shift;
  my $c = new Mail::Stats::Config($cfg);
  
  if(!defined($c->{sort}) or scalar(@{$c->{mboxen}}) < 1) {
    return undef;
  }

  my $hash;
  
  for my $mbox (@{$c->{mboxen}}) {
    open(IN,$mbox) or croak("$0: could not open file $mbox - $!\n");
    $hash->{$mbox} = Mail::Stats::Parser::parse(\*IN);
    close(IN);
  }
  
  for my $mbox (sort {&{$c->{sort}}($hash)} keys %$hash) {
    my $short = $mbox;
    my $count = $hash->{$mbox}->num_unread();
    if($c->{showall} or $count) {
      $short =~ s/.*\///;
      my $message = $c->{message};
      $message =~ s/%% mbox %%/$short/;
      $message =~ s/%% count %%/$count/;
      print $message;
    }
  }

  return 1;
  # print STDERR Dumper($hash);
}

1;
__END__