summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xindex.pl9
1 files changed, 7 insertions, 2 deletions
diff --git a/index.pl b/index.pl
index f0242ed..1becd27 100755
--- a/index.pl
+++ b/index.pl
@@ -4,6 +4,7 @@ use Mojolicious::Lite;
use Cache::File;
use DateTime;
use DBI;
+use Encode qw(decode);
use Geo::Distance;
use List::Util qw(first);
use List::MoreUtils qw(after_incl before_incl);
@@ -454,6 +455,10 @@ helper 'get_user_travels' => sub {
$raw_sched_ts, $raw_real_ts, $raw_route, $raw_messages
) = @row;
+ $name = decode( 'UTF-8', $name );
+ $raw_route = decode( 'UTF-8', $raw_route );
+ $raw_messages = decode( 'UTF-8', $raw_messages );
+
if ( $action == $action_type{checkin} ) {
push(
@travels,
@@ -499,8 +504,8 @@ helper 'get_user_status' => sub {
if ( @{$rows} ) {
my $now = DateTime->now( time_zone => 'Europe/Berlin' );
my $ts = epoch_to_dt( $rows->[0][1] );
- my $checkin_station_name = $rows->[0][3];
- my @route = split( qr{[|]}, $rows->[0][8] // q{} );
+ my $checkin_station_name = decode( 'UTF-8', $rows->[0][3] );
+ my @route = split( qr{[|]}, decode( 'UTF-8', $rows->[0][8] // q{} ) );
my @route_after;
my $is_after = 0;
for my $station (@route) {