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\">&nbsp;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);
 		}