Commit 8c904621 authored by Birte Kristina Friesel's avatar Birte Kristina Friesel
Browse files

db-iris: Remove unused options from source

parent a99466f6

bin/db-iris

+6 −28
Original line number Diff line number Diff line
@@ -13,29 +13,20 @@ 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,
@@ -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 ) {