db-iris: indicate changed platforms with an exclamation mark

2 files changed, 10 insertions, 1 deletions

diff --git a/Changelog b/Changelog
index 94152cd..5abe008 100644
--- a/Changelog
+++ b/Changelog
@@ -4,6 +4,9 @@ git HEAD
     * db-iris: Fix --via not matching destination of trains with incomplete
       route data
     * Detect and merge duplicate results caused by train ID changes
+    * Result: Provide realtime data in ->platform, add ->sched_platform
+      accessor
+    * db-iris: indicate platform changes with an exclamation mark
 
 Travel::Status::DE::IRIS 0.02 - Mon Feb 03 2014
 
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>