Description: Fix hard-coded non-FHS compliant paths in grapher.pm
Author: Marc Haber <mh+debian-packages@zugschlus.de>
Forwarded: no

--- a/presenter/perllib/DSC/grapher.pm
+++ b/presenter/perllib/DSC/grapher.pm
@@ -27,8 +27,8 @@
 
 # CONSTANTS
 my $dbg_lvl = 0;	# also set debug_file in dsc-grapher.cfg
-my $DATAROOT = '/usr/local/dsc/data';
-my $DEFAULTCONFIG = '/usr/local/dsc/etc/dsc-grapher.cfg';
+my $DATAROOT = '/var/lib/dsc-statistics/data';
+my $DEFAULTCONFIG = '/etc/dsc-statistics/dsc-grapher.cfg';
 my $CacheImageTTL = 60;		# 1 min
 my $expires_time = '+1m';
 my $sublist_item ='&rsaquo;&nbsp;';
@@ -180,7 +180,7 @@
 				$self->make_image($cache_name);
 			}
 		}
-		my $source = "/usr/local/dsc/share/html/plot.page";
+		my $source = "/usr/share/dsc-statistics-presenter/html/plot.page";
 		my $t = Text::Template->new(
 			TYPE => 'FILE',
 			SOURCE => $source,
@@ -1005,13 +1005,13 @@
 sub cache_image_path {
 	my $self = shift;
 	my $prefix = shift || die;
-	"/usr/local/dsc/cache/$prefix.png";
+	"/var/cache/dsc-statistics-presenter/$prefix.png";
 }
 
 sub cache_mapfile_path {
 	my $self = shift;
 	my $prefix = shift || confess "cache_mapfile_path: no prefix given";
-	"/usr/local/dsc/cache/$prefix.map";
+	"/var/cache/dsc-statistics-presenter/$prefix.map";
 }
 
 # return 0 if we should generate a cached image
@@ -1586,11 +1586,11 @@
 	my $self = shift;
 	my $icon = shift;	# should be like 'foo.png"
 	my $buf;
-	if (open(F, "/usr/local/dsc/share/html/$icon")) {
+	if (open(F, "/usr/share/dsc-statistics-presenter/html/$icon")) {
 		$buf .= $_ while (<F>);
 		close(F);
 	} else {
-		warn "/usr/local/dsc/htdocs/$icon: $!\n";
+		warn "/usr/share/dsc-statistics-presenter/html/$icon: $!\n";
 	}
 	$buf;
 }
