SyslogScan::Summary 0.32

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 =>
[/var/log/syslog]);
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";
}

Product's homepage

Requirements:

· Perl