diff options
| author | Daniel Friesel <derf@finalrewind.org> | 2013-02-10 16:39:10 +0100 | 
|---|---|---|
| committer | Daniel Friesel <derf@finalrewind.org> | 2013-02-10 16:39:10 +0100 | 
| commit | 00d2c8eac5bcf13579c75fa4a5ccfd117b4d2adf (patch) | |
| tree | c010b75f8d9cfd5531b5a5a7dc24e67339248a13 /cgi | |
| parent | 945379f1ca34642556bccefe637c3d444d893210 (diff) | |
automatically refresh display after cache expiry
Diffstat (limited to 'cgi')
| -rw-r--r-- | cgi/index.pl | 14 | ||||
| -rw-r--r-- | cgi/templates/layouts/default.html.ep | 3 | 
2 files changed, 12 insertions, 5 deletions
| 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,  	);  } diff --git a/cgi/templates/layouts/default.html.ep b/cgi/templates/layouts/default.html.ep index 09a17c0..6e46cdc 100644 --- a/cgi/templates/layouts/default.html.ep +++ b/cgi/templates/layouts/default.html.ep @@ -4,6 +4,9 @@  <head>  	<title><%= $title %></title>  	<meta http-equiv="Content-Type" content="text/html;charset=UTF-8"/> +% if ($self->stash('refresh_interval')) { +	<meta http-equiv="refresh" content="<%= $self->stash('refresh_interval') %>"/> +% }  	<style type="text/css">  	html { | 
