From 8c90462134ca8ad6c3bfb883db017374db94d9ef Mon Sep 17 00:00:00 2001 From: Daniel Friesel Date: Thu, 9 Jan 2014 14:35:02 +0100 Subject: db-iris: Remove unused options from source --- bin/db-iris | 34 ++++++---------------------------- 1 file changed, 6 insertions(+), 28 deletions(-) (limited to 'bin') 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 ) { -- cgit v1.2.3