From 1d739bfbf784f20ec1dd7706f17268c61cdb2ede Mon Sep 17 00:00:00 2001
From: Daniel Friesel <derf@finalrewind.org>
Date: Sat, 11 Jan 2014 22:15:33 +0100
Subject: db-iris: Use -or for "interesting" route, -of for full

---
 bin/db-iris | 12 ++++++++----
 1 file changed, 8 insertions(+), 4 deletions(-)

(limited to 'bin')

diff --git a/bin/db-iris b/bin/db-iris
index 25ca88d..cbda3b6 100755
--- a/bin/db-iris
+++ b/bin/db-iris
@@ -19,7 +19,6 @@ use Travel::Status::DE::IRIS::Stations;
 
 my ( $date, $time );
 my $datetime = DateTime->now( time_zone => 'Europe/Berlin' );
-my $arrivals = 0;
 my $filter_via;
 my ( @grep_class, @grep_type, @grep_platform );
 my ( %edata, @edata_pre );
@@ -76,6 +75,7 @@ if ($time) {
 for my $efield (@edata_pre) {
 	given ($efield) {
 		when ('d') { $edata{delay}    = 1 }
+		when ('f') { $edata{fullroute} = 1 }
 		when ('m') { $edata{messages} = 1 }
 		when ('q') { $edata{qos}      = 1 }
 		when ('r') { $edata{route}    = 1 }
@@ -166,7 +166,7 @@ sub display_result {
 
 		}
 
-		if ( $edata{route} ) {
+		if ( $edata{fullroute} ) {
 			$need_newlines = 1;
 			print "\n" . join( "\n", $d->route );
 		}
@@ -222,7 +222,7 @@ for my $d ( $status->results() ) {
 		@output,
 		[
 			$timestr, $d->train,
-			$arrivals ? q{} : join( q{  }, $d->route_interesting ),
+			$edata{route} ? join( q{  }, $d->route_interesting ) : q{},
 			$d->route_end, $d->platform, $d
 		]
 	);
@@ -291,6 +291,10 @@ Valid output types are:
 List all delay reasons entered into the IRIS, even if the train is on time
 by now.
 
+=item f / fullroute
+
+Show the entire route of all trains (both before and after I<station>).
+
 =item m / messages
 
 List all messages (delay and qos) entered into the IRIS with timestamps.
@@ -305,7 +309,7 @@ omitted, use the m / messages type to see those as well.
 
 =item r / route
 
-Show the entire route of all trains (both before and after I<station>).
+Show up to three stops between I<station> and the train's destination.
 
 =item t / times
 
-- 
cgit v1.2.3