coba mas kalo boleh saya liat file�nya (cgi + pl)----> .cgi
#!/usr/bin/perl -w
# mailgraph -- a postfix statistics rrdtool frontend # copyright (c) 2000-2002 David Schweikert <[EMAIL PROTECTED]> # released under the GNU General Public License
use RRDs; use POSIX qw(uname);
my $VERSION = "1.4";
my $host = (POSIX::uname())[1];
my $scriptname = 'mailgraph.cgi';
my $xpoints = 540;
my $points_per_sample = 3;
my $ypoints = 150;
my $ypoints_err = 80;
my $rrd = '/usr/local/mailgraph/mailgraph.rrd'; # path to where the RRD database is
my $rrd_virus = '/usr/local/mailgraph/mailgraph_virus.rrd'; # path to where the Virus RRD database is
my $tmp_dir = '/tmp/mailgraph'; # temporary directory where to store the images
[ .................... ]
---> .pl
[........] use RRDs;
use strict; use File::Tail; use Getopt::Long; use POSIX 'setsid';
my $VERSION = "1.4";
# config my $rrdstep = 60; my $xpoints = 540; my $points_per_sample = 3;
my $daemon_logfile = '/var/log/mailgraph.log'; my $daemon_pidfile = '/var/run/mailgraph.pid'; my $daemon_rrd_dir = '/var/log';
# global variables
my $logfile;
my $rrd = "/usr/local/mailgraph/mailgraph.rrd";
my $rrd_virus = "/usr/local/mailgraph/mailgraph_virus.rrd";
my $year;
my $this_minute;
my %sum = ( sent => 0, received => 0, bounced => 0, rejected => 0, virus => 0, spam => 0 );
my $rrd_inited=0;
my $verbose=0;
my $ignore_localhost;
[ ................ ]
Maaf saya cut .. saya sertakan yg mungkin berhubungan ....
Salam
