diff options
author | Daniel Friesel <derf@derf.homelinux.org> | 2009-07-09 13:37:35 +0200 |
---|---|---|
committer | Daniel Friesel <derf@derf.homelinux.org> | 2009-07-09 13:37:35 +0200 |
commit | 873ff588eb54d6470b5f4689366eacbf33b77dc2 (patch) | |
tree | bd95190837bfb8a42f2f4a992a37fd4750fd9acc /bin/efa | |
parent | ff5aad879bd0b74ea396b31d0d7d9494422f0232 (diff) |
efa: Added --version switch
Diffstat (limited to 'bin/efa')
-rwxr-xr-x | bin/efa | 6 |
1 files changed, 6 insertions, 0 deletions
@@ -11,6 +11,7 @@ use WWW::Mechanize; my $firsturl = 'http://efa.vrr.de/vrr/XSLT_TRIP_REQUEST2?language=de&itdLPxx_transpCompany=vrr'; my $posturl = 'http://efa.vrr.de/vrr/XSLT_TRIP_REQUEST2'; +my $VERSION = '1.0.1+git'; my $content; my %post; my $www = WWW::Mechanize->new( @@ -141,6 +142,7 @@ GetOptions( 'time=s' => \$time, 'to=s{2}' => \@to, 'to-type=s' => \$to_type, + 'version' => sub {print "efa version $VERSION\n"; exit 0}, 'via=s{2}' => \@via, 'via-type=s' => \$via_type, 'walk-speed=s' => \$walk_speed, @@ -447,6 +449,10 @@ C<--post lineRestriction=400> to also show IC and ICE trains. Note that B<--post> will be overridden by the standard efa options, such as B<--time>. +=item B<--version> + +Print version information + =back =head1 BUGS |