From 8ccf3d2271dbe21be209ab70b557ce4d437fe97d Mon Sep 17 00:00:00 2001
From: Daniel Friesel <derf@finalrewind.org>
Date: Sun, 19 Apr 2015 11:01:24 +0200
Subject: add devmode switch to enable/disable debug/developer output

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

(limited to 'bin/db-iris')

diff --git a/bin/db-iris b/bin/db-iris
index 310de21..684e80a 100755
--- a/bin/db-iris
+++ b/bin/db-iris
@@ -19,8 +19,9 @@ use Travel::Status::DE::IRIS;
 use Travel::Status::DE::IRIS::Stations;
 
 my ( $date, $time, $lookahead );
-my $datetime = DateTime->now( time_zone => 'Europe/Berlin' );
-my $realtime = 0;
+my $datetime       = DateTime->now( time_zone => 'Europe/Berlin' );
+my $developer_mode = 0;
+my $realtime       = 0;
 my ( $filter_via, $track_via, $status_via );
 my ( @grep_class, @grep_type, @grep_platform );
 my ( %edata,      @edata_pre );
@@ -43,6 +44,7 @@ GetOptions(
 	'T|type=s'      => \@grep_type,
 	'v|via=s'       => \$filter_via,
 	'V|track-via=s' => \$track_via,
+	'devmode'       => \$developer_mode,
 	'version'       => \&show_version,
 
 ) or show_help(1);
@@ -98,9 +100,10 @@ for my $efield (@edata_pre) {
 }
 
 my $status = Travel::Status::DE::IRIS->new(
-	datetime  => $datetime,
-	lookahead => $lookahead,
-	station   => $station,
+	datetime       => $datetime,
+	developer_mode => $developer_mode,
+	lookahead      => $lookahead,
+	station        => $station,
 );
 if ($track_via) {
 
-- 
cgit v1.2.3