diff options
Diffstat (limited to 'bin')
| -rwxr-xr-x | bin/aseag-m | 19 |
1 files changed, 12 insertions, 7 deletions
diff --git a/bin/aseag-m b/bin/aseag-m index 5c2c453..af3bd94 100755 --- a/bin/aseag-m +++ b/bin/aseag-m @@ -14,13 +14,17 @@ use List::Util qw(max); use Travel::Status::DE::ASEAG; my (@grep_lines); -my $show_full_route = 0; +my $full_route = 0; +my $hide_past = 1; GetOptions( - 'h|help' => sub { show_help(0) }, - 'f|full-route' => \$show_full_route, - 'l|line=s@' => \@grep_lines, - 'V|version' => \&show_version, + 'a|route-after' => sub { $full_route = 'after' }, + 'b|route-before' => sub { $full_route = 'before' }, + 'h|help' => sub { show_help(0) }, + 'f|full-route' => \$full_route, + 'l|line=s@' => \@grep_lines, + 'p|with-past' => sub { $hide_past = 0 }, + 'V|version' => \&show_version, ) or show_help(1); @@ -70,7 +74,7 @@ sub display_result { @{$line}[ 0 .. 2 ] ); - if ($show_full_route) { + if ($full_route) { print "\n" . $line->[3] . "\n\n\n"; } } @@ -83,8 +87,9 @@ sub show_results { for my $d ( $status->results( + full_routes => $full_route, + hide_past => $hide_past, stop => $stop_name, - full_routes => $show_full_route ) ) { |