From 7072efe5beea6b7dd854c5468f0beb8b5914f082 Mon Sep 17 00:00:00 2001
From: Daniel Friesel <derf@finalrewind.org>
Date: Fri, 5 Feb 2016 15:07:36 +0100
Subject: Allow cache root to be set via env

---
 index.pl | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/index.pl b/index.pl
index b22197e..78b7447 100644
--- a/index.pl
+++ b/index.pl
@@ -36,19 +36,20 @@ sub get_results_for {
 	my $data;
 
 	my $cache_hafas = Cache::File->new(
-		cache_root      => '/tmp/dbf-hafas',
+		cache_root => $ENV{DBFAKEDISPLAY_HAFAS_CACHE} // '/tmp/dbf-hafas',
 		default_expires => $refresh_interval . ' sec',
 		lock_level      => Cache::File::LOCK_LOCAL(),
 	);
 
 	my $cache_iris_main = Cache::File->new(
-		cache_root      => '/tmp/dbf-iris-main',
+		cache_root => $ENV{DBFAKEDISPLAY_IRIS_CACHE} // '/tmp/dbf-iris-main',
 		default_expires => '2 hours',
 		lock_level      => Cache::File::LOCK_LOCAL(),
 	);
 
 	my $cache_iris_rt = Cache::File->new(
-		cache_root      => '/tmp/dbf-iris-realtime',
+		cache_root => $ENV{DBFAKEDISPLAY_IRISRT_CACHE}
+		  // '/tmp/dbf-iris-realtime',
 		default_expires => '50 seconds',
 		lock_level      => Cache::File::LOCK_LOCAL(),
 	);
-- 
cgit v1.2.3