summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDaniel Friesel <derf@derf.homelinux.org>2009-07-09 13:37:35 +0200
committerDaniel Friesel <derf@derf.homelinux.org>2009-07-09 13:37:35 +0200
commit873ff588eb54d6470b5f4689366eacbf33b77dc2 (patch)
treebd95190837bfb8a42f2f4a992a37fd4750fd9acc
parentff5aad879bd0b74ea396b31d0d7d9494422f0232 (diff)
efa: Added --version switch
-rwxr-xr-xbin/efa6
1 files changed, 6 insertions, 0 deletions
diff --git a/bin/efa b/bin/efa
index 2233bbd..04f3c34 100755
--- a/bin/efa
+++ b/bin/efa
@@ -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