Write a test cgi for that part and use Dumper to inspect the result. You may see line endings \n on your grep results
poj#!/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/ma +illog); my $spam_total = qx(sudo grep -Ec 'amavis.*Blocked SPAM' /var/log/ma +illog); my $virus_total = qx(sudo grep -Ec 'amavis.*Blocked INFECTED' /var/lo +g/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"], [$clean_total, $spam_total, $virus_total, $banned_total, $badheade +r_total, $reject_total], ]) or die GD::Graph::Data->error; print header('text/plain'); print Dumper $data;
In reply to Re: problem with show_values => 1, while drawing a bar graph with variables
by poj
in thread problem with show_values => 1, while drawing a bar graph with variables
by theravadamonk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |