#!/usr/bin/perl
use strict;
use warnings;

use CGI qw(:standard);
use CGI::Carp 'fatalsToBrowser'; # only use for testing
use GD::Graph;
use Data::Dumper;
 
my $clean_total  = qx(sudo grep -Ec 'amavis.*Passed CLEAN' /var/log/maillog);
my $spam_total   = qx(sudo grep -Ec 'amavis.*Blocked SPAM' /var/log/maillog);
my $virus_total  = qx(sudo grep -Ec 'amavis.*Blocked INFECTED' /var/log/maillog);
my $banned_total = qx(sudo grep -Ec 'amavis.*Blocked BANNED' /var/log/maillog); 
my $badheader_total = qx(sudo grep -Ec 'amavis.*BAD-HEADER-' /var/log/maillog);
my $reject_total = qx(sudo grep -c 'reject' /var/log/maillog); 

my $data = GD::Graph::Data->new([
    ["Cleaned","Spam","Virus","Banned","BadHeader","Rejected"],
    [10, 36, 0, 0, 0, 974],
]) or die GD::Graph::Data->error; 

print header('text/plain');
print Dumper $data;