summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xbin/db-fakedisplay33
1 files changed, 33 insertions, 0 deletions
diff --git a/bin/db-fakedisplay b/bin/db-fakedisplay
index 11a2cbe..2e71d55 100755
--- a/bin/db-fakedisplay
+++ b/bin/db-fakedisplay
@@ -5,6 +5,7 @@ use warnings;
use 5.010;
use File::ShareDir qw(dist_file);
+use Getopt::Long qw(:config no_ignore_case);
use HTML::Template;
use List::Util qw(first);
use Travel::Status::DE::DeutscheBahn;
@@ -15,10 +16,18 @@ sub show_help {
my ($exit_status) = @_;
say 'Usage: db-fakedisplay <station> <platforms ...>';
+ say 'See also: man db-fakedisplay';
exit $exit_status;
}
+GetOptions(
+
+ 'h|help' => sub { show_help(0) },
+ 'V|version' => sub { say "db-fakedisplay version ${VERSION}"; exit 0 },
+
+) or show_help(1);
+
if (@ARGV < 2) {
show_help(1);
}
@@ -63,20 +72,36 @@ __END__
=head1 NAME
+db-fakedisplay - Show train departures, as seen on the displays on most main stations
+
=head1 SYNOPSIS
+B<db-fakedisplay> I<station> I<platforms ...>
+
=head1 VERSION
+version 0.00
+
=head1 DESCRIPTION
+B<db-fakedisplay> outputs HTML showing the next departure for every
+I<platform> on I<station> on stdout. The HTML is styled to look like the LCDs
+installed on most (major) stations.
+
=head1 OPTIONS
=over
+=item B<-V>, B<--version>
+
+Show version information
+
=back
=head1 EXIT STATUS
+Zero.
+
=head1 CONFIGURATION
None.
@@ -85,10 +110,18 @@ None.
=over
+=item * File::ShareDir(3pm)
+
+=item * HTML::Template(3pm)
+
+=item * Travel::Status::DE::DeutscheBahn(3pm)
+
=back
=head1 BUGS AND LIMITATIONS
+Unknown
+
=head1 AUTHOR
Copyright (C) 2011 by Daniel Friesel E<lt>derf@finalrewind.orgE<gt>