From 292386cfe1b25fd4620be55f51ea86bd4ad7538a Mon Sep 17 00:00:00 2001
From: Daniel Friesel <derf@finalrewind.org>
Date: Wed, 12 Feb 2014 19:23:19 +0100
Subject: db-iris: indicate changed platforms with an exclamation mark

---
 bin/db-iris | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

(limited to 'bin/db-iris')

diff --git a/bin/db-iris b/bin/db-iris
index a824fdd..58968c2 100755
--- a/bin/db-iris
+++ b/bin/db-iris
@@ -293,6 +293,9 @@ for my $d ( $status->results() ) {
 	}
 
 	my $platformstr = $d->platform // q{};
+	if ( ( $d->platform // q{} ) ne ( $d->sched_platform // q{} ) ) {
+		$platformstr .= ' !';
+	}
 	my $timestr;
 	if ($track_via) {
 		$timestr = get_departure( $d, '%H:%M' ) || get_arrival( $d, '%H:%M' );
@@ -363,6 +366,9 @@ either a DS100 station code (such as "EE") or a normal station name
 B<db-iris> will try to find station names containing I<station> as a
 substring.
 
+An exclamation mark (C<< ! >>) next to a platform indicates that it is not the
+scheduled one.
+
 =head1 OPTIONS
 
 =over
@@ -444,7 +450,7 @@ Show both scheduled and expected arrival and departure times.
 =item B<-p>, B<--platforms> I<platforms>
 
 Only show arrivals/departures at I<platforms> (comma-separated list, option may
-be repeated).
+be repeated).  This applies to actual departures, not schedules.
 
 =item B<-r>, B<--realtime>
 
-- 
cgit v1.2.3