% if ($departure->{is_cancelled} and $departure->{sched_arrival}) {
An: ––:––
Plan: <%= $departure->{sched_arrival} %> % } % elsif ($departure->{arrival_is_cancelled}) { Beginnt hier
Plan: <%= $departure->{sched_arrival} %> % } % elsif ($departure->{arrival}) { % if ($departure->{arrival} ne $departure->{sched_arrival}) { % if (($departure->{arrival_delay} // 0) < 0) { An: <%= $departure->{arrival} %> % } % else { An: <%= $departure->{arrival} %> % }
Plan: <%= $departure->{sched_arrival} %> % } % else { An: <%= $departure->{arrival} %> % } % } % elsif ($departure->{sched_arrival}) { An: <%= $departure->{sched_arrival} %> % } % elsif ($departure->{prep_time}) { Ein: <%= $departure->{prep_time} %> % } % if ($departure->{tz_offset} and $departure->{local_sched_arr}) {
Lokal: <%= $departure->{local_sched_arr}->strftime('%H:%M') %> % }
Plan: <%= $departure->{sched_arrival} %> % } % elsif ($departure->{arrival_is_cancelled}) { Beginnt hier
Plan: <%= $departure->{sched_arrival} %> % } % elsif ($departure->{arrival}) { % if ($departure->{arrival} ne $departure->{sched_arrival}) { % if (($departure->{arrival_delay} // 0) < 0) { An: <%= $departure->{arrival} %> % } % else { An: <%= $departure->{arrival} %> % }
Plan: <%= $departure->{sched_arrival} %> % } % else { An: <%= $departure->{arrival} %> % } % } % elsif ($departure->{sched_arrival}) { An: <%= $departure->{sched_arrival} %> % } % elsif ($departure->{prep_time}) { Ein: <%= $departure->{prep_time} %> % } % if ($departure->{tz_offset} and $departure->{local_sched_arr}) {
Lokal: <%= $departure->{local_sched_arr}->strftime('%H:%M') %> % }
% if (@{$departure->{replaced_by}}) {
% for my $replacement (@{$departure->{replaced_by}}) {
Ersatzfahrt: <%= $replacement %>
% } % } % if (@{$departure->{replacement_for}}) { % for my $replacement (@{$departure->{replacement_for}}) { Ersatzfahrt für <%= $replacement %>
% } % } % if ($departure->{arrival_is_cancelled} and $departure->{departure_is_cancelled}) { Fahrt fällt aus % } % else { % my $left = ''; % my $right = ''; % if ($departure->{direction} and $departure->{direction} eq 'l') { % $left = '◀ '; % } % elsif ($departure->{direction} and $departure->{direction} eq 'r') { % $right = ' ▶'; % } % if ($departure->{scheduled_platform} and $departure->{platform} % and $departure->{scheduled_platform} ne $departure->{platform}) { <%= $left %>Gleis <%= $departure->{platform} %><%= $right %> % } % elsif ($departure->{scheduled_platform} or $departure->{platform}) { <%= $left %>Gleis <%= $departure->{platform} // $departure->{scheduled_platform} %><%= $right %> % } % } % if ($departure->{arrival_hidden} and not $departure->{prep_time}) {
Nur Einstieg % } % if ($departure->{departure_hidden}) {
Nur Ausstieg % }
% } % } % if (@{$departure->{replacement_for}}) { % for my $replacement (@{$departure->{replacement_for}}) { Ersatzfahrt für <%= $replacement %>
% } % } % if ($departure->{arrival_is_cancelled} and $departure->{departure_is_cancelled}) { Fahrt fällt aus % } % else { % my $left = ''; % my $right = ''; % if ($departure->{direction} and $departure->{direction} eq 'l') { % $left = '◀ '; % } % elsif ($departure->{direction} and $departure->{direction} eq 'r') { % $right = ' ▶'; % } % if ($departure->{scheduled_platform} and $departure->{platform} % and $departure->{scheduled_platform} ne $departure->{platform}) { <%= $left %>Gleis <%= $departure->{platform} %><%= $right %> % } % elsif ($departure->{scheduled_platform} or $departure->{platform}) { <%= $left %>Gleis <%= $departure->{platform} // $departure->{scheduled_platform} %><%= $right %> % } % } % if ($departure->{arrival_hidden} and not $departure->{prep_time}) {
Nur Einstieg % } % if ($departure->{departure_hidden}) {
Nur Ausstieg % }
% if ($departure->{is_cancelled} and $departure->{sched_departure}) {
Ab: ––:––
Plan: <%= $departure->{sched_departure} %> % } % elsif ($departure->{departure_is_cancelled}) { Endet hier
Plan: <%= $departure->{sched_departure} %> % } % elsif ($departure->{departure}) { % if ($departure->{departure} ne $departure->{sched_departure}) { Ab: <%= $departure->{departure} %>
Plan: <%= $departure->{sched_departure} %> % } % else { Ab: <%= $departure->{departure} %> % } % } % elsif ($departure->{sched_departure}) { Ab: <%= $departure->{sched_departure} %> % } % if ($departure->{tz_offset} and $departure->{local_sched_dep}) {
Lokal: <%= $departure->{local_sched_dep}->strftime('%H:%M') %> % }
Plan: <%= $departure->{sched_departure} %> % } % elsif ($departure->{departure_is_cancelled}) { Endet hier
Plan: <%= $departure->{sched_departure} %> % } % elsif ($departure->{departure}) { % if ($departure->{departure} ne $departure->{sched_departure}) { Ab: <%= $departure->{departure} %>
Plan: <%= $departure->{sched_departure} %> % } % else { Ab: <%= $departure->{departure} %> % } % } % elsif ($departure->{sched_departure}) { Ab: <%= $departure->{sched_departure} %> % } % if ($departure->{tz_offset} and $departure->{local_sched_dep}) {
Lokal: <%= $departure->{local_sched_dep}->strftime('%H:%M') %> % }
% my @wagons = $wr->wagons;
% my $direction = $wr->direction ? $wr->direction == 100 ? '→' : '←' : q{};
% if ($departure->{direction}) {
% $direction = $departure->{direction} eq 'l' ? '◀' : '▶';
% if (($departure->{direction} eq 'l' ? 0 : 100) != $wr->direction) {
% @wagons = reverse @wagons;
% }
% }
%= $direction
% my $gi;
% for my $wagon (@wagons) {
% if (not ($wagon->is_locomotive or $wagon->is_powercar)) {
% if (defined $gi and $gi != $wagon->group_index) {
•
% }
% if ($wagon->is_closed) {
X
% }
% else {
%= $wagon->number || ($wagon->type =~ m{AB} ? '½' : $wagon->type =~ m{A} ? '1.' : $wagon->type =~ m{B} ? '2.' : $wagon->type )
% }
% }
% $gi = $wagon->group_index;
% }
%= $direction
% }
% if ($departure->{trip_id}) {
% if (stash('station_name')) {
map Karte
% }
% else {
map Karte
% }
% }
% if ($departure->{wr_link}) {
train <%= $departure->{wr_text} || 'Wagen' %>
% }
% if ($departure->{train_type} and $departure->{train_no}) {
Details
% }
% for my $link (@{$departure->{links}}) {
warning <%= $link->[0] %>
% }
% if (not $departure->{departure_is_cancelled}) {
% if (my $u = $departure->{utilization}) {
Details
% }
% for my $link (@{$departure->{links}}) {
warning <%= $link->[0] %>
% }
% my ($text, $icon1, $icon2) = utilization_icon($u);
<%= $text %>. 1. <%= $icon1 %> 2. <%= $icon2 %>
% }
% elsif (my $o = $departure->{occupancy}) {
% my ($text, $icon) = occupancy_icon($o);
<%= $text %>. <%= $icon %>
% }
% }
%
% if ($departure->{missing_realtime}) {
gps_off Echtzeitdaten fehlen. Ob die Zugfahrt wie im Fahrplan vorgesehen stattfindet, ist nicht bekannt.
% }
% elsif ($departure->{no_realtime_yet}) {
gps_off Für diese Zugfahrt sind derzeit nur Fahrplandaten bekannt.
% }
% if ($departure->{moreinfo} and @{$departure->{moreinfo}}) {
Meldungen
% }
% if ($departure->{route_pre_diff} and $departure->{route_post_diff}) {
% if ($departure->{date}) {
Fahrtverlauf am
% if (stash('train') !~ m{[|]}) {
◀
% }
%= $departure->{date}->strftime('%d.%m.%Y')
% if (stash('train') !~ m{[|]}) {
▶
% }
% }
-
% for my $stop (@{$departure->{route_pre_diff}}) {
% if ($stop->{is_annotated} and $stop->{prod_name}) {
- % if ($stop->{prod_name}) { %= $stop->{prod_name} % } % if ($stop->{direction}) { → <%= $stop->{direction} %> % } % if ($stop->{operator}) { (<%= $stop->{operator} %>) % } % }
- <%= ($stop->{sched_dep} // $stop->{sched_arr})->strftime('%H:%M') %> <%= ($stop->{rt_dep} // $stop->{rt_arr})->strftime('%H:%M') %> % } % elsif (($stop->{rt_dep} and defined $stop->{dep_delay}) or (not $stop->{rt_dep} and $stop->{rt_arr} and defined $stop->{arr_delay})) { "><%= ($stop->{sched_dep} // $stop->{sched_arr}) ? ($stop->{sched_dep} // $stop->{sched_arr})->strftime('%H:%M') : q{} %> % } % else { "><%= ($stop->{sched_dep} // $stop->{sched_arr}) ? ($stop->{sched_dep} // $stop->{sched_arr})->strftime('%H:%M') : q{} %> % } % if ($stop->{tz_offset} and $stop->{local_dt_da}) { (lokal <%= $stop->{local_dt_da}->strftime('%H:%M') %>) % } <%= $stop->{name} %> % if ($stop->{load}{FIRST} or $stop->{load}{SECOND}) { % my ($text, $icon1, $icon2) = utilization_icon([$stop->{load}{FIRST}, $stop->{load}{SECOND}]); <%= $icon1 %> <%= $icon2 %> % } % } % if (stash('station_name')) { % if ($departure->{is_annotated} and $departure->{prod_name}) {
- % if ($departure->{prod_name}) { %= $departure->{prod_name} % } % if ($departure->{direction}) { → <%= $departure->{direction} %> % } % if ($departure->{operator}) { (<%= $departure->{operator} %>) % } % }
- % if ($departure->{departure} and $departure->{sched_departure} and $departure->{departure} ne $departure->{sched_departure}) { <%= $departure->{sched_departure} // $departure->{sched_arrival} // q{} %> % } % elsif ($departure->{departure} and $departure->{sched_departure} and $departure->{departure} eq $departure->{sched_departure} and not $departure->{no_realtime_yet}) { % } % elsif ($departure->{arrival} and $departure->{sched_arrival} and $departure->{arrival} ne $departure->{sched_arrival}) { <%= $departure->{sched_departure} // $departure->{sched_arrival} // q{} %> % } % elsif ($departure->{arrival} and $departure->{sched_arrival} and $departure->{arrival} eq $departure->{sched_arrival} and not $departure->{no_realtime_yet}) { % } % else { % } %= $departure->{departure} // $departure->{arrival} // $departure->{sched_departure} // $departure->{sched_arrival} // q{} % if ($departure->{tz_offset} and $departure->{local_dt_da}) { (lokal <%= $departure->{local_dt_da}->strftime('%H:%M') %>) % } <%= stash('station_name') %> % if (my $u = $departure->{utilization}) { % my ($text, $icon1, $icon2) = utilization_icon($u); <%= $icon1 %> <%= $icon2 %> % } % } % for my $stop (@{$departure->{route_post_diff}}) { % if ($stop->{is_annotated} and $stop->{prod_name}) {
- % if ($stop->{prod_name}) { %= $stop->{prod_name} % } % if ($stop->{direction}) { → <%= $stop->{direction} %> % } % if ($stop->{operator}) { (<%= $stop->{operator} %>) % } % }
- <%= ($stop->{sched_arr} // $stop->{sched_dep})->strftime('%H:%M') %> <%= ($stop->{rt_arr} // $stop->{rt_dep})->strftime('%H:%M') %> % } % elsif (($stop->{rt_arr} and defined $stop->{arr_delay}) or (not $stop->{rt_arr} and $stop->{rt_dep} and defined $stop->{dep_delay})) { "><%= ($stop->{sched_arr} // $stop->{sched_dep}) ? ($stop->{sched_arr} // $stop->{sched_dep})->strftime('%H:%M') : q{} %> % } % else { "><%= ($stop->{sched_arr} // $stop->{sched_dep}) ? ($stop->{sched_arr} // $stop->{sched_dep})->strftime('%H:%M') : q{} %> % } % if ($stop->{tz_offset} and $stop->{local_dt_ad}) { (lokal <%= $stop->{local_dt_ad}->strftime('%H:%M') %>) % } <%= $stop->{name} %> % if ($stop->{load}{FIRST} or $stop->{load}{SECOND}) { % my ($text, $icon1, $icon2) = utilization_icon([$stop->{load}{FIRST}, $stop->{load}{SECOND}]); <%= $icon1 %> <%= $icon2 %> % } % }
Betrieb: <%= join(q{, }, @{ $departure->{operators} // [] } ) %>
% }
% if ($departure->{details} and @{$departure->{details}}) {
Details:
% }
-
% for my $pair (@{$departure->{details}}) {
-
% if ($pair->[1]{icon}) {
<%= $pair->[1]{icon} %>
% }
%= $pair->[0]
% if (length($pair->[0]) > 25) {
% } %= $pair->[1]{text}
% }
% if ($departure->{route_info}) {
- <%= $departure->{route_info} %> % }