diff options
author | Daniel Friesel <derf@finalrewind.org> | 2015-04-19 11:01:24 +0200 |
---|---|---|
committer | Daniel Friesel <derf@finalrewind.org> | 2015-04-19 11:01:24 +0200 |
commit | 8ccf3d2271dbe21be209ab70b557ce4d437fe97d (patch) | |
tree | 355e333dbafc6a2aaf9148aeef17c2cb291f5016 /bin/db-iris | |
parent | 61f8adb24919b19e48b4d74717e6b4a8fbd5f7b5 (diff) |
add devmode switch to enable/disable debug/developer output
Diffstat (limited to 'bin/db-iris')
-rwxr-xr-x | bin/db-iris | 13 |
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) { |