diff options
Diffstat (limited to 'bin/aseag-m')
| -rwxr-xr-x | bin/aseag-m | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/bin/aseag-m b/bin/aseag-m index 86ed39a..2d06089 100755 --- a/bin/aseag-m +++ b/bin/aseag-m @@ -21,6 +21,7 @@ my $strftime_format = '%H:%M:%S'; my $strfrel_format = '%M min'; my ( %edata, @edata_pre ); my $calculate_routes = 0; +my $developer_mode; my $via; GetOptions( @@ -32,6 +33,7 @@ GetOptions( 'S|strfrel=s' => \$strfrel_format, 'v|via=s' => \$via, 'V|version' => \&show_version, + 'devmode' => \$developer_mode, ) or show_help(1); @@ -56,7 +58,8 @@ for my $efield (@edata_pre) { my ($stop_name) = @ARGV; -my $status = Travel::Status::DE::ASEAG->new; +my $status + = Travel::Status::DE::ASEAG->new( developer_mode => $developer_mode ); sub show_help { my ($code) = @_; |