less caching for some stops

1 files changed, 7 insertions, 1 deletions

diff --git a/cgi/index.pl b/cgi/index.pl
index 7da21ac..73bf1e3 100644
--- a/cgi/index.pl
+++ b/cgi/index.pl
@@ -20,9 +20,15 @@ sub default_no_lines {
 sub get_results {
 	my ( $backend, $city, $stop ) = @_;
 
+	my $expiry = 900;
+
+	if (lc($city) eq 'berlin' or lc($stop) ~~ [qw[hbf hauptbahnhof]]) {
+		$expiry = 600;
+	}
+
 	my $cache = Cache::File->new(
 		cache_root      => '/tmp/vrr-fake',
-		default_expires => '900 sec',
+		default_expires => "${expiry} sec",
 	);
 
 	my $sstr = ( $backend eq 'db' ? "${stop}, ${city}" : "${city} _ ${stop}" );