From 00d2c8eac5bcf13579c75fa4a5ccfd117b4d2adf Mon Sep 17 00:00:00 2001
From: Daniel Friesel <derf@finalrewind.org>
Date: Sun, 10 Feb 2013 16:39:10 +0100
Subject: automatically refresh display after cache expiry

---
 cgi/index.pl | 14 +++++++++-----
 1 file changed, 9 insertions(+), 5 deletions(-)

(limited to 'cgi/index.pl')

diff --git a/cgi/index.pl b/cgi/index.pl
index 6abb47a..06eb677 100644
--- a/cgi/index.pl
+++ b/cgi/index.pl
@@ -7,12 +7,14 @@ use utf8;
 
 our $VERSION = '0.03';
 
+my $refresh_interval = 900;
+
 sub get_results_for {
 	my ($station) = @_;
 
 	my $cache = Cache::File->new(
 		cache_root      => '/tmp/db-fake',
-		default_expires => '900 sec'
+		default_expires => $refresh_interval . ' sec',
 	);
 
 	my $results = $cache->thaw($station);
@@ -87,7 +89,8 @@ sub handle_request {
 			$info = undef;
 		}
 		if ($info) {
-			$info =~ s{ ^ (?: ca\. \s* )? \+ (\d+) }{Verspätung ca. $1 Minuten}x;
+			$info
+			  =~ s{ ^ (?: ca\. \s* )? \+ (\d+) }{Verspätung ca. $1 Minuten}x;
 			$info =~ s{ 1 \s Minute\Kn }{}x;
 		}
 		push(
@@ -105,9 +108,10 @@ sub handle_request {
 
 	$self->render(
 		$template,
-		departures => \@departures,
-		version    => $VERSION,
-		title      => "departures for ${station}"
+		departures       => \@departures,
+		version          => $VERSION,
+		title            => "departures for ${station}",
+		refresh_interval => $refresh_interval + 3,
 	);
 }
 
-- 
cgit v1.2.3