--- /usr/share/backuppc/lib/BackupPC/CGI/GeneralInfo.pm.orig	2017-03-18 10:36:19.898840288 +0100
+++ /usr/share/backuppc/lib/BackupPC/CGI/GeneralInfo.pm	2017-03-18 10:39:00.059868076 +0100
@@ -45,12 +45,15 @@
     my $Privileged = CheckPermission();
 
     if ($In{image} ne "") {
 	$In{image} =~ /([0-9]+)/;
 	my $weeks = $1;
+        my $real = $<;  ### SUID
+        $< = $>;        ### SUID
 	print "Content-type: image/png\n\n";
 	print `/usr/bin/rrdtool graph - --imgformat=PNG --start=end-${weeks}w --end=-300 --title="BackupPC Pool Size (${weeks} weeks)" --base=1000 --height=100 --width=600 --alt-autoscale-max --lower-limit=0 --vertical-label="" --slope-mode --font TITLE:10:Times --font AXIS:8:Times --font LEGEND:8:Times --font UNIT:8:Times -c BACK#FFFFFF DEF:ao="$LogDir/pool.rrd":ckb:AVERAGE CDEF:a=ao,1024,* AREA:a#95B8DB:"CPool in bytes"  GPRINT:a:LAST:"Current\\:%8.2lf %s" GPRINT:a:AVERAGE:"Average\\:%8.2lf %s" GPRINT:a:MAX:"Maximum\\:%8.2lf %s\\n"`;
+        $< = $real;   ### SUID
 	return;
     }
 
     my($jobStr, $statusStr);
     foreach my $host ( sort(keys(%Jobs)) ) {