Eingecheckt in <%= $journey->{train_type} %> <%= $journey->{train_no} %> % if ($journey->{comment}) {

<%= $journey->{comment} %>

% }

% if ($journey->{boarding_countdown} > 120) { Einfahrt in <%= sprintf('%.f', $journey->{boarding_countdown} / 60) %> Minuten
% } % elsif ($journey->{boarding_countdown} > 60) { Einfahrt in einer Minute
% } % elsif ($journey->{boarding_countdown} > 0) { Zug fährt ein
% } % if ($journey->{departure_countdown} > 120) { Abfahrt in <%= sprintf('%.f', $journey->{departure_countdown} / 60) %> Minuten % } % elsif ($journey->{departure_countdown} > 60) { Abfahrt in einer Minute % } % elsif ($journey->{departure_countdown} > 0) { Abfahrt in weniger als einer Minute % } % elsif (defined $journey->{arrival_countdown}) { % if ($journey->{arrival_countdown} > 60) { Ankunft in <%= sprintf('%.f', $journey->{arrival_countdown} / 60) %> Minute<%= sprintf('%.f', $journey->{arrival_countdown} / 60) == 1 ? '' : 'n' %> % } % elsif ($journey->{arrival_countdown} > 0) { Ankunft in weniger als einer Minute % } % else { Ziel erreicht % } % if ($journey->{arrival_countdown} < (60 * 15) and $journey->{arr_platform}) { % if ($journey->{arr_direction} and $journey->{arr_direction} eq 'r') {
Gleis <%= $journey->{arr_platform} %> ▶ % } % elsif ($journey->{arr_direction} and $journey->{arr_direction} eq 'l') {
◀ Gleis <%= $journey->{arr_platform} %> % } % else {
auf Gleis <%= $journey->{arr_platform} %> % } % } % } % elsif ($journey->{arr_name}) { Ankunft in mehr als zwei Stunden % } % if ($journey->{departure_countdown} > 0 and $journey->{dep_platform}) { % if ($journey->{dep_direction} and $journey->{dep_direction} eq 'r') {
Gleis <%= $journey->{dep_platform} %> ▶ % } % elsif ($journey->{dep_direction} and $journey->{dep_direction} eq 'l') {
◀ Gleis <%= $journey->{dep_platform} %> % } % else {
von Gleis <%= $journey->{dep_platform} %> % } % } % if (my $wr = $journey->{wagonorder}) {
% my @wagons = $wr->wagons; % my $direction = $wr->direction == 100 ? '→' : '←'; % if ($journey->{dep_direction}) { % $direction = $journey->{dep_direction} eq 'l' ? '◀' : '▶'; % if (($journey->{dep_direction} eq 'l' ? 0 : 100) != $wr->direction) { % @wagons = reverse @wagons; % } % } %= $direction % for my $wagon (@wagons) { % if (not ($wagon->is_locomotive or $wagon->is_powercar)) { %= $wagon->number || $wagon->type % } % } %= $direction % }

% if ($journey->{arr_name}) {

<%= $journey->{dep_name} %>
<%= $journey->{real_departure}->strftime('%H:%M') %> % if ($journey->{real_departure}->epoch != $journey->{sched_departure}->epoch) { (<%= sprintf('%+d', ($journey->{real_departure}->epoch - $journey->{sched_departure}->epoch)/60) %>) % }
<%= $journey->{arr_name} %>
% if ($journey->{real_arrival}->epoch) { <%= $journey->{real_arrival}->strftime('%H:%M') %> % if ($journey->{real_arrival}->epoch != $journey->{sched_arrival}->epoch) { (<%= sprintf('%+d', ($journey->{real_arrival}->epoch - $journey->{sched_arrival}->epoch)/60) %>) % } % } % else { noch nicht bekannt % }
% for my $station (@{$journey->{route_after}}) { % if ($station->[0] eq $journey->{arr_name}) { % last; % } % if (($station->[1]{rt_arr_countdown} // 0) > 0) { <%= $station->[0] %>
<%= $station->[1]{rt_arr}->strftime('%H:%M') %> % if ($station->[1]{sched_arr}->epoch != $station->[1]{rt_arr}->epoch) { %= sprintf('(%+d)', ($station->[1]{rt_arr}->epoch - $station->[1]{sched_arr}->epoch ) / 60); % } % last; % } % if (($station->[1]{rt_dep_countdown} // 0) > 0) { <%= $station->[0] %>
<%= $station->[1]{rt_arr}->strftime('%H:%M') %> → <%= $station->[1]{rt_dep}->strftime('%H:%M') %> % if ($station->[1]{sched_dep}->epoch != $station->[1]{rt_dep}->epoch) { %= sprintf('(%+d)', ($station->[1]{rt_dep}->epoch - $station->[1]{sched_dep}->epoch ) / 60); % } % last; % } % }
% for my $station (@{$journey->{route_after}}) { % if ($station->[0] eq $journey->{arr_name}) { % last; % } % if (($station->[1]{rt_arr_countdown} // 0) > 0) { <%= $station->[0] %>
<%= $station->[1]{rt_arr}->strftime('%H:%M') %> % if ($station->[1]{sched_arr}->epoch != $station->[1]{rt_arr}->epoch) { %= sprintf('(%+d)', ($station->[1]{rt_arr}->epoch - $station->[1]{sched_arr}->epoch ) / 60); % } % last; % } % if (($station->[1]{rt_dep_countdown} // 0) > 0) { <%= $station->[0] %>
<%= $station->[1]{rt_arr}->strftime('%H:%M') %> → <%= $station->[1]{rt_dep}->strftime('%H:%M') %> % if ($station->[1]{sched_dep}->epoch != $station->[1]{rt_dep}->epoch) { %= sprintf('(%+d)', ($station->[1]{rt_dep}->epoch - $station->[1]{sched_dep}->epoch ) / 60); % } % last; % } % }

% } % if (@{$journey->{messages} // []} or @{$journey->{extra_data}{him_msg} // []} or @{$journey->{extra_data}{qos_msg} // []}) {

    % for my $message (reverse @{$journey->{messages} // []}) { % if ($journey->{sched_departure}->epoch - $message->[0]->epoch < 1800) {
  • warning <%= $message->[0]->strftime('%H:%M') %>: <%= $message->[1] %>
  • % } % } % if ($journey->{departure_countdown} > 0) { % for my $message (@{$journey->{extra_data}{qos_msg} // []}) {
  • info <%= $message->[0]->strftime('%H:%M') %>: <%= $message->[1] %>
  • % } % } % for my $message (@{$journey->{extra_data}{him_msg} // []}) {
  • info <%= $message->{header} %> <%= $message->{lead} %>
  • % }

% } % if (defined $journey->{arrival_countdown} and $journey->{arrival_countdown} < (20*60)) { % if (my @connections = get_connecting_trains()) { Verbindungen % if ($journey->{arrival_countdown} < 0) {

Zug auswählen zum Einchecken mit Zielwahl.

% } %= include '_connections', connections => \@connections, checkin_from => $journey->{arrival_countdown} < 0 ? $journey->{arr_ds100} : undef; % } % } % if (defined $journey->{arrival_countdown} and $journey->{arrival_countdown} <= 0) {

Der automatische Checkout erfolgt wegen gelegentlich veralteter IRIS-Daten erst etwa zehn Minuten nach der Ankunft.

% } % elsif (not $journey->{arr_name}) {

Ziel wählen:

% for my $station (@{$journey->{route_after}}) { % }
<%= $station->[0] %> % if ($station->[2] and $station->[2] eq 'cancelled') { entfällt % } % elsif ($station->[1]{rt_arr}) { <%= $station->[1]{rt_arr}->strftime('%H:%M') %> % } % elsif ($station->[2] and $station->[2] eq 'additional') { Zusatzhalt % }
% }
%#
%#
%# % my $url = 'https://marudor.de/details/' . $journey->{train_type} . ' ' . $journey->{train_no} . '/' . DateTime->now(time_zone => 'Europe/Berlin')->epoch . '000'; %# timeline Zuglauf %#
%#
%# % if ($journey->{extra_data}{trip_id}) { %# map Karte %# % } %#
%#
% if ($journey->{arr_name}) {
Ziel ändern? % for my $station (@{$journey->{route_after}}) { % my $is_dest = ($journey->{arr_name} and $station->[0] eq $journey->{arr_name}); % }
<%= $station->[0] %> % if ($station->[2] and $station->[2] eq 'cancelled') { entfällt % } % elsif ($station->[1]{rt_arr}) { <%= $station->[1]{rt_arr}->strftime('%H:%M') %> % } % elsif ($station->[2] and $station->[2] eq 'additional') { Zusatzhalt % }

Falls das Backend ausgefallen ist oder der Zug aus anderen Gründen verloren ging: Ohne Echtzeitdaten in <%= $journey->{arr_name} %> auschecken.

% }