From fc8447df91f8b57fe160256ebc8952f62ee17783 Mon Sep 17 00:00:00 2001
From: Daniel Friesel <derf@finalrewind.org>
Date: Mon, 6 Jan 2014 13:36:20 +0100
Subject: db-iris: Support unicode station / via arguments

---
 bin/db-iris | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'bin')

diff --git a/bin/db-iris b/bin/db-iris
index 9deaf57..eefb2c6 100755
--- a/bin/db-iris
+++ b/bin/db-iris
@@ -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,7 +44,10 @@ if ( @ARGV != 1 ) {
 }
 
 my ($station) = @ARGV;
-$station = get_station($station);
+
+$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{!} ) {
-- 
cgit v1.2.3