Commit 8157f388 authored by Daniel Friesel's avatar Daniel Friesel
Browse files

JSON Status API: Add experimental and undocumented nextStops key

parent 75363c35
Loading
Loading
Loading
Loading
+26 −0
Original line number Diff line number Diff line
@@ -3193,8 +3193,34 @@ sub startup {
					id   => $status->{train_id},
				},
				actionTime => $status->{timestamp}->epoch,
				nextStops  => [],
			};

			for my $stop ( @{ $status->{route_after} // [] } ) {
				if ( $status->{arr_name} and $stop->[0] eq $status->{arr_name} )
				{
					last;
				}
				push(
					@{ $ret->{nextStops} },
					{
						name             => $stop->[0],
						scheduledArrival => $stop->[1]{sched_arr}
						? $stop->[1]{sched_arr}->epoch
						: undef,
						realArrival => $stop->[1]{rt_arr}
						? $stop->[1]{rt_arr}->epoch
						: undef,
						scheduledDeparture => $stop->[1]{sched_dep}
						? $stop->[1]{sched_dep}->epoch
						: undef,
						realDeparture => $stop->[1]{rt_dep}
						? $stop->[1]{rt_dep}->epoch
						: undef,
					}
				);
			}

			if ( $status->{dep_eva} ) {
				my @station_descriptions
				  = Travel::Status::DE::IRIS::Stations::get_station(