summaryrefslogtreecommitdiff
path: root/lib/DBInfoscreen/Controller/Stationboard.pm
diff options
context:
space:
mode:
Diffstat (limited to 'lib/DBInfoscreen/Controller/Stationboard.pm')
-rw-r--r--lib/DBInfoscreen/Controller/Stationboard.pm10
1 files changed, 10 insertions, 0 deletions
diff --git a/lib/DBInfoscreen/Controller/Stationboard.pm b/lib/DBInfoscreen/Controller/Stationboard.pm
index 2013669..cba737c 100644
--- a/lib/DBInfoscreen/Controller/Stationboard.pm
+++ b/lib/DBInfoscreen/Controller/Stationboard.pm
@@ -411,6 +411,7 @@ sub format_hafas_result_info {
sub render_train {
my ( $self, $result, $departure, $station_name, $template ) = @_;
+ $departure->{links} = [];
$departure->{route_pre_diff} = [
$self->json_route_diff(
[ $result->route_pre ],
@@ -609,6 +610,15 @@ sub render_train {
if ( $message->{display} ) {
push( @him_messages,
[ $message->{header}, $message->{lead} ] );
+ if ( $message->{lead} =~ m{zuginfo.nrw/?\?msg=(\d+)} ) {
+ push(
+ @{ $departure->{links} },
+ [
+ "Großstörung",
+ "https://zuginfo.nrw/?msg=$1"
+ ]
+ );
+ }
}
}
for my $message ( @{ $departure->{moreinfo} // [] } ) {