File mailgraph-1.14-cgi.patch of Package mailgraph
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()
<title>Mail statistics for $host</title>
<meta http-equiv="Refresh" content="300" />
<meta http-equiv="Pragma" content="no-cache" />
-<link rel="stylesheet" href="mailgraph.css" type="text/css" />
+<link rel="stylesheet" href="/css/mailgraph.css" type="text/css" />
</head>
<body>
HEADER
- print "<h1>Mail statistics for $host</h1>\n";
+ print "<h1 id=\"TOP\">Mail statistics for $host</h1>\n";
print "<ul id=\"jump\">\n";
for my $n (0..$#graphs) {
@@ -177,7 +177,7 @@ HEADER
print "</ul>\n";
for my $n (0..$#graphs) {
- print "<h2 id=\"G$n\">$graphs[$n]{title}</h2>\n";
+ print "<h2 id=\"G$n\">$graphs[$n]{title}<a href=\"#TOP\"> TOP</a></h2>\n";
print "<p><img src=\"$scriptname?${n}-n\" alt=\"mailgraph\"/><br/>\n";
print "<img src=\"$scriptname?${n}-e\" alt=\"mailgraph\"/></p>\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);
}
