JSON Status API: Add experimental and undocumented nextStops key

lib/Travelynx.pm

@@ -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(