summaryrefslogtreecommitdiff
path: root/bin/db-iris
diff options
context:
space:
mode:
authorDaniel Friesel <derf@finalrewind.org>2015-04-19 11:01:24 +0200
committerDaniel Friesel <derf@finalrewind.org>2015-04-19 11:01:24 +0200
commit8ccf3d2271dbe21be209ab70b557ce4d437fe97d (patch)
tree355e333dbafc6a2aaf9148aeef17c2cb291f5016 /bin/db-iris
parent61f8adb24919b19e48b4d74717e6b4a8fbd5f7b5 (diff)
add devmode switch to enable/disable debug/developer output
Diffstat (limited to 'bin/db-iris')
-rwxr-xr-xbin/db-iris13
1 files changed, 8 insertions, 5 deletions
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) {