Commit fc8447df authored by Birte Kristina Friesel's avatar Birte Kristina Friesel
Browse files

db-iris: Support unicode station / via arguments

parent bfadf303

bin/db-iris

+5 −1
Original line number Diff line number Diff line
@@ -5,6 +5,7 @@ use 5.018; 


our $VERSION = '0.00';



use Encode qw(decode);

use Getopt::Long qw(:config no_ignore_case);

use List::Util qw(max);

use Travel::Status::DE::IRIS;
@@ -43,6 +44,9 @@ if ( @ARGV != 1 ) { 
}



my ($station) = @ARGV;



$filter_via = decode( 'UTF-8', $filter_via );

$station    = decode( 'UTF-8', $station );

$station    = get_station($station);



for my $type ( split( qr{,}, $types ) ) {