Index: mailgraph-1.14/mailgraph.cgi =================================================================== --- mailgraph-1.14.orig/mailgraph.cgi +++ mailgraph-1.14/mailgraph.cgi @@ -16,9 +16,9 @@ my $xpoints = 540; my $points_per_sample = 3; my $ypoints = 160; my $ypoints_err = 96; -my $rrd = 'mailgraph.rrd'; # path to where the RRD database is -my $rrd_virus = 'mailgraph_virus.rrd'; # path to where the Virus RRD database is -my $tmp_dir = '/tmp/mailgraph'; # temporary directory where to store the images +my $rrd = '/var/lib/mailgraph/mailgraph.rrd'; # path to where the RRD database is +my $rrd_virus = '/var/lib/mailgraph/mailgraph_virus.rrd'; # path to where the Virus RRD database is +my $tmp_dir = '/var/lib/mailgraph/img'; # temporary directory where to store the images my @graphs = ( { title => 'Last Day', seconds => 3600*24, }, @@ -163,12 +163,12 @@ sub print_html() Mail statistics for $host - + HEADER - print "

Mail statistics for $host

\n"; + print "

Mail statistics for $host

\n"; print "\n"; for my $n (0..$#graphs) { - print "

$graphs[$n]{title}

\n"; + print "

$graphs[$n]{title} TOP

\n"; print "

\"mailgraph\"/
\n"; print "\"mailgraph\"/

\n"; } @@ -218,17 +218,17 @@ sub main() $uri =~ s/\//,/g; $uri =~ s/(\~|\%7E)/tilde,/g; mkdir $tmp_dir, 0777 unless -d $tmp_dir; - mkdir "$tmp_dir/$uri", 0777 unless -d "$tmp_dir/$uri"; + #mkdir "$tmp_dir/$uri", 0777 unless -d "$tmp_dir/$uri"; my $img = $ENV{QUERY_STRING}; if(defined $img and $img =~ /\S/) { if($img =~ /^(\d+)-n$/) { - my $file = "$tmp_dir/$uri/mailgraph_$1.png"; + my $file = "$tmp_dir/mailgraph_$1.png"; graph($graphs[$1]{seconds}, $file); send_image($file); } elsif($img =~ /^(\d+)-e$/) { - my $file = "$tmp_dir/$uri/mailgraph_$1_err.png"; + my $file = "$tmp_dir/mailgraph_$1_err.png"; graph_err($graphs[$1]{seconds}, $file); send_image($file); }