summaryrefslogtreecommitdiff
path: root/bin/db-iris
diff options
context:
space:
mode:
authorDaniel Friesel <derf@finalrewind.org>2014-01-09 14:35:02 +0100
committerDaniel Friesel <derf@finalrewind.org>2014-01-09 14:35:02 +0100
commit8c90462134ca8ad6c3bfb883db017374db94d9ef (patch)
treecf3e5aface82a48d5caff5ac2c29b1b897c3b046 /bin/db-iris
parenta99466f6b08f20d38b9de285223304e4b71f8fe4 (diff)
db-iris: Remove unused options from source
Diffstat (limited to 'bin/db-iris')
-rwxr-xr-xbin/db-iris34
1 files changed, 6 insertions, 28 deletions
diff --git a/bin/db-iris b/bin/db-iris
index f9aeccb..c18b215 100755
--- a/bin/db-iris
+++ b/bin/db-iris
@@ -13,32 +13,23 @@ use List::Util qw(max);
use Travel::Status::DE::IRIS;
use Travel::Status::DE::IRIS::Stations;
-my %train_type;
-
my ( $date, $time );
my $datetime = DateTime->now( time_zone => 'Europe/Berlin' );
my $arrivals = 0;
my $filter_via;
-my $ignore_late = 0;
my $show_full_route = 0;
-my $types = q{};
-my $language;
my @output;
binmode( STDOUT, ':encoding(utf-8)' );
GetOptions(
- 'a|arrivals' => \$arrivals,
- 'd|date=s' => \$date,
- 'f|full-route' => \$show_full_route,
- 'h|help' => sub { show_help(0) },
- 'l|lang=s' => \$language,
- 'L|ignore-late' => \$ignore_late,
- 'm|mot=s' => \$types,
- 't|time=s' => \$time,
- 'v|via=s' => \$filter_via,
- 'V|version' => \&show_version,
+ 'd|date=s' => \$date,
+ 'f|full-route' => \$show_full_route,
+ 'h|help' => sub { show_help(0) },
+ 't|time=s' => \$time,
+ 'v|via=s' => \$filter_via,
+ 'V|version' => \&show_version,
) or show_help(1);
@@ -52,15 +43,6 @@ $filter_via = decode( 'UTF-8', $filter_via );
$station = decode( 'UTF-8', $station );
$station = get_station($station);
-for my $type ( split( qr{,}, $types ) ) {
- if ( substr( $type, 0, 1 ) eq q{!} ) {
- $train_type{ substr( $type, 1 ) } = 0;
- }
- else {
- $train_type{$type} = 1;
- }
-}
-
if ($date) {
my ( $day, $month, $year ) = split( /\./, $date );
$datetime->set(
@@ -162,10 +144,6 @@ for my $d ( $status->results() ) {
next;
}
- if ( $ignore_late and $d->delay ) {
- next;
- }
-
my $delay = q{};
if ( $d->delay ) {