summaryrefslogtreecommitdiff
path: root/bin
diff options
context:
space:
mode:
authorDaniel Friesel <derf@finalrewind.org>2013-12-11 18:27:22 +0100
committerDaniel Friesel <derf@finalrewind.org>2013-12-11 18:27:22 +0100
commitb8c4107c0096a8d6db88cfe69dcc2c9f1530e07f (patch)
treecb4e1e6f28151a1940e69cfd8bef5bbd553e5083 /bin
parentb5d492e649d266ae78ceb1bd7d04d22fc79a9ef9 (diff)
allow stop / full_route parameter to be set in ->results
Diffstat (limited to 'bin')
-rwxr-xr-xbin/aseag-m16
1 files changed, 10 insertions, 6 deletions
diff --git a/bin/aseag-m b/bin/aseag-m
index 1fb593f..5c2c453 100755
--- a/bin/aseag-m
+++ b/bin/aseag-m
@@ -33,15 +33,13 @@ if ( @ARGV != 1 ) {
my ($stop_name) = @ARGV;
-my $status = Travel::Status::DE::ASEAG->new(
- name => $stop_name,
- full_routes => $show_full_route
-);
+my $status = Travel::Status::DE::ASEAG->new;
sub show_help {
my ($code) = @_;
- print "Usage: aseag-m <stop name>\n" . "See also: man aseag-m\n";
+ print "Usage: B<aseag-m> [ B<-l> I<lines> ] [B<-f>] I< <stop name>\n"
+ . "See also: man aseag-m\n";
exit $code;
}
@@ -83,7 +81,13 @@ sub display_result {
sub show_results {
my @output;
- for my $d ( $status->results ) {
+ for my $d (
+ $status->results(
+ stop => $stop_name,
+ full_routes => $show_full_route
+ )
+ )
+ {
my $dtime = $d->time;