dbris-m: Add <station> <train type> <train no> trip detail entry point

1 files changed, 57 insertions, 2 deletions

diff --git a/bin/dbris-m b/bin/dbris-m
index bb6436b..b00d142 100755
--- a/bin/dbris-m
+++ b/bin/dbris-m
@@ -62,9 +62,15 @@ if ($use_cache) {
 	}
 }
 
+my ( $station, $train_type, $train_no ) = @ARGV;
+
+if ( not $station ) {
+	show_help(1);
+}
+
 my %opt = (
 	cache          => $cache,
-	station        => shift || show_help(1),
+	station        => $station,
 	developer_mode => $developer_mode,
 );
 
@@ -175,7 +181,44 @@ if ($mots) {
 	$opt{modes_of_transit} = [ grep { $known_mot{$_} } @mots ];
 }
 
-my $status = Travel::Status::DE::DBRIS->new(%opt);
+if ( $opt{station} and $train_type and $train_no ) {
+	my $dt = DateTime->now( time_zone => 'Europe/Berlin' )
+	  ->subtract( minutes => 15 );
+	my $status = Travel::Status::DE::DBRIS->new(
+		cache            => $cache,
+		datetime         => $opt{datetime} // $dt,
+		station          => $opt{station},
+		developer_mode   => $developer_mode,
+		modes_of_transit => [qw[ICE EC_IC IR REGIONAL SBAHN]],
+	);
+	my $found = 0;
+	for my $train ( $status->results ) {
+		if (
+			$train->train_short eq $train_type
+			and (  $train->maybe_train_no eq $train_no
+				or $train->maybe_line_no eq $train_no )
+		  )
+		{
+			$found = $train;
+			last;
+		}
+	}
+	if ($found) {
+		$opt{journey} = $found->id;
+		$train_no = {
+			eva          => $opt{station}->eva,
+			departure    => $found->dep,
+			train_type   => $found->train_short,
+			train_number => $found->maybe_train_no,
+		};
+		delete $opt{station};
+	}
+	else {
+		say STDERR "Did not find $train_type $train_no at "
+		  . $opt{station}->name;
+		exit 1;
+	}
+}
 
 sub show_help {
 	my ($code) = @_;
@@ -237,6 +280,8 @@ sub format_delay {
 	return q{};
 }
 
+my $status = Travel::Status::DE::DBRIS->new(%opt);
+
 if ( my $err = $status->errstr ) {
 	say STDERR "Request error: ${err}";
 	exit 2;
@@ -395,6 +440,8 @@ dbris-m - Interface to bahn.de public transit services
 
 B<dbris-m> [B<-d> I<DD.MM.YYYY>] [B<-t> I<HH:MM>] [B<-j>] I<station>
 
+B<dbris-m> I<station> I<train tpye> I<train number>
+
 B<dbris-m> I<JourneyID>
 
 B<dbris-m> B<?>I<query>|I<lat>B<:>I<lon>
@@ -433,6 +480,14 @@ station ID.  For each departure, B<dbris-m> shows
 
 =back
 
+=head2 Trip details (I<station> I<train type> I<train number>)
+
+List intermediate stops of I<train type> I<train number> with arrival/departure
+time, delay (if available), occupancy (if available), and stop name. Also
+includes some generic trip information. Only works if the specified train
+passes I<station> in the next few dozen minutes or B<-d> / B<-t> have been
+set to appropriate values.
+
 =head2 Trip details (I<JourneyID>)
 
 List intermediate stops of I<JourneyID> (as given by the departure monitor when