Thanks for your reply. I realized the code due to your kind help. my last code was Global mail stats. It has BOTH Inbound and Outbound mails. Now I want to write separate codes for Inbound and Outbound mails. I wrote below code for Inbound mails. It works. I hope it is OK. If there are any problems with my code, Pls enlighten me. Below code with grep Is what I want. 


#Passed CLEAN - Clean Mails

my $clean_total = qx(sudo grep -Ec 'amavis.*Passed CLEAN.*RelayedInbou
+nd' /var/log/maillog);
chomp($clean_total);
#$clean_total =~ s/^\s+|\s+$//g;

#Blocked SPAM - Spam Mails

my $spam_total = qx(sudo grep -Ec 'amavis.*Blocked SPAM.*DiscardedInbo
+und' /var/log/maillog);
chomp($spam_total);
#$spam_total =~ s/^\s+|\s+$//g;

#Blocked INFECTED - Virus Mails

my $virus_total = qx(sudo grep -Ec 'amavis.*Blocked INFECTED.*Discarde
+dInbound' /var/log/maillog);
chomp($virus_total);
#$virus_total =~ s/^\s+|\s+$//g;

#Blocked BANNED - Banned Mails exe,scr etc.

my $banned_total = qx(sudo grep -Ec 'amavis.*Blocked BANNED.*Discarded
+Inbound' /var/log/maillog); 
chomp($banned_total);
#$banned_total =~ s/^\s+|\s+$//g;

#BAD-HEADER- - Bad Header Mails

my $badheader_total = qx(sudo grep -Ec 'amavis.*BAD-HEADER-.*RelayedIn
+bound' /var/log/maillog);
chomp($badheader_total);
#$badheader_total =~ s/^\s+|\s+$//g;

#REJECT - REJECT Mails

my $reject_total = qx(sudo grep -c 'smtpd.*reject' /var/log/maillog);
chomp($reject_total);
#$reject_total =~ s/^\s+|\s+$//g;

[download]

But, Since it is NOT very professional perl method, I wrote below code. It works well. pls see it and give your comments 


#!/usr/bin/perl
# inbound.cgi

use CGI qw(:standard);
#use CGI ':standard';
use strict;
use warnings;
use GD::Graph;
use GD::Graph::bars;
use CGI::Carp 'fatalsToBrowser'; # use only for testing

my $logfile = '/var/log/maillog';
open my $fh, '<', $logfile or die "Could not open $logfile : $!";
my %count=();

while (<$fh>){
  if (/amavis.*(Passed|Blocked) (CLEAN|SPAM|INFECTED|BANNED).*(Relayed
+Inbound|DiscardedInbound)/){
    ++$count{$2};
  } elsif (/amavis.*(BAD-HEADER)-.*RelayedInbound/) {
    ++$count{$1};
  } elsif (/smtpd.*reject/){
    ++$count{'REJECTED'};
  }
}
close $fh;  
my @data = map{ $count{$_} || 0 } qw(CLEAN SPAM INFECTED BANNED BAD-HE
+ADER REJECTED);

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

my $graph = GD::Graph::bars->new(600,300);
$graph->set( 
    x_label       => 'Category',
    y_label       => 'Count',
    title         => 'Inbound Mail Statistics '.localtime,
    show_values   => 1,
    y_tick_number => 8,
    bar_spacing   => 10,
    shadow_depth  => -4,
    shadowclr     => 'dred',
    transparent   => 0,
) or die $graph->error;

my $font = '/usr/share/fonts/dejavu/DejaVuSans-Bold.ttf';
$graph->set_title_font($font,12);
$graph->set_values_font($font, 8);
$graph->set_x_axis_font($font,8);
$graph->set_y_axis_font($font,8);
$graph->set_x_label_font($font,12);
$graph->set_y_label_font($font,12);

print header('image/png');
$graph->plot($data) or die $graph->error;
binmode STDOUT;
print $graph->gd->png;

[download]

I want to generate both graphs withing page.cgi. So I rearranged it. 


#!/usr/bin/perl
# page.cgi
use strict;
use CGI ':standard';

print header();
print start_html(-title  =>'Global Mail Statistics',
                 -bgcolor=>'#95B8DB');
print qq!<br/><center>
<h1>Mail Statistics</h1>
<img src = "bargraph.cgi"></center>!;
print qq!<br/><br/><center>
<img src = "inbound.cgi"></center>!;
print end_html;

[download]

pls advice me if it is OK? Next, I am going to write outbound.cgi. I will let you know if I I have any issues? Sir, Thanks you very much for your meritorious deed. Hope to hear from you.

In reply to Re^8: problem with show_values => 1, while drawing a bar graph with variables by theravadamonk
in thread problem with show_values => 1, while drawing a bar graph with variables by theravadamonk

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.