SyslogScan::Summary

SyslogScan::Summary encapsulates a tally of how many bytes people have sent and received through sendmail.
Download

SyslogScan::Summary Ranking & Summary

Advertisement

  • Rating:
  • License:
  • Perl Artistic License
  • Price:
  • FREE
  • Publisher Name:
  • Rolf Harold Nelson
  • Publisher web site:
  • http://search.cpan.org/~rhnelson/SyslogScan-0.32/SyslogScan/Summary.pm

SyslogScan::Summary Tags


SyslogScan::Summary Description

SyslogScan::Summary encapsulates a tally of how many bytes people have sent and received through sendmail. SyslogScan::Summary encapsulates a tally of how many bytes people have sent and received through sendmail.SYNOPSIS Use SyslogScan::Summary; Use SyslogScan::DeliveryIterator; my $iter = new SyslogScan::DeliveryIterator(syslogList => ); my $summary; if (defined $DOING_IT_THE_HARD_WAY_FOR_NO_PARTICULAR_REASON) { # feed a series of SyslogScan::Delivery objects $summary = new SyslogScan::Summary(); my $delivery; while ($delivery = $iter -> next()) { $summary -> registerDelivery($delivery); # You would instead use: # $summary -> registerDelivery($delivery,'foo.com.$') # if you only cared to get statistics relating to how # much mail users at foo.com sent or received. } } else { # slurps up all deliveries in the iterator, # producing the same effect as the block above $summary = new SyslogScan::Summary($iter); } print $summary -> dump(); use SyslogScan::Usage; my $usage = $$summary{'john_doe@foo.com'}; if (defined $usage) { print "Here is the usage of John Doe at foo.com:n"; print $usage -> dump(); } else { print "John Doe has neither sent nor received messages lately.n"; } Requirements: · Perl


SyslogScan::Summary Related Software