summaryrefslogtreecommitdiff
path: root/cgi/index.pl
diff options
context:
space:
mode:
authorDaniel Friesel <derf@finalrewind.org>2013-02-26 21:27:35 +0100
committerDaniel Friesel <derf@finalrewind.org>2013-02-26 21:27:35 +0100
commit046b1b0f77dccc884033a18a1907d4ca20413c48 (patch)
tree1b9910d0f339675034cd9fe872d9f1a477c85629 /cgi/index.pl
parentd06126063590da2487b2e1664d56136b9e545208 (diff)
add option to hide delays < 5 minutes
Diffstat (limited to 'cgi/index.pl')
-rw-r--r--cgi/index.pl7
1 files changed, 5 insertions, 2 deletions
diff --git a/cgi/index.pl b/cgi/index.pl
index a525cf6..40ab878 100644
--- a/cgi/index.pl
+++ b/cgi/index.pl
@@ -6,7 +6,7 @@ use Travel::Status::DE::DeutscheBahn;
use 5.014;
use utf8;
-our $VERSION = '0.03';
+our $VERSION = '0.04';
my $refresh_interval = 900;
@@ -37,6 +37,7 @@ sub handle_request {
my @platforms = split( /,/, $self->param('platforms') // q{} );
my $template = $self->param('mode') // 'multi';
+ my $hide_low_delay = $self->param('hidelowdelay') // 0;
$self->stash( departures => [] );
$self->stash( title => 'db-fakedisplay' );
@@ -89,10 +90,12 @@ sub handle_request {
if ( $info eq '+0' ) {
$info = undef;
}
+ if ($hide_low_delay and $info) {
+ $info =~ s{ ^ (?: ca\. \s* )? \+ [ 1 2 3 4 ] $ }{}x;
+ }
if ($info) {
$info
=~ s{ ^ (?: ca\. \s* )? \+ (\d+) }{Verspätung ca. $1 Min}x;
- $info =~ s{ 1 \s Minute\Kn }{}x;
}
push(
@departures,