SyslogScan::SummarySyslogScan::Summary encapsulates a tally of how many bytes people have sent and received through sendmail. | |
Download |
SyslogScan::Summary Ranking & Summary
Advertisement
- 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