summaryrefslogtreecommitdiff
path: root/cgi
diff options
context:
space:
mode:
Diffstat (limited to 'cgi')
-rw-r--r--cgi/index.pl15
1 files changed, 13 insertions, 2 deletions
diff --git a/cgi/index.pl b/cgi/index.pl
index dd5e875..678faae 100644
--- a/cgi/index.pl
+++ b/cgi/index.pl
@@ -3,7 +3,7 @@ use Mojolicious::Lite;
use Cache::File;
use DateTime;
-use DateTime::Format::DateParse;
+use DateTime::Format::Strptime;
use App::VRR::Fakedisplay;
use Travel::Status::DE::VRR;
@@ -88,6 +88,16 @@ sub render_image {
my $png = App::VRR::Fakedisplay->new(width => 180, height => 50, color => [split(qr{,}, $color)]);
+ my $strp_simple = DateTime::Format::Strptime->new(
+ pattern => '%H:%M',
+ time_zone => 'floating',
+ );
+ my $strp_full = DateTime::Format::Strptime->new(
+ pattern => '%d.%m.%Y %H:%M',
+ time_zone => 'floating',
+ );
+
+
if ($self->param('line')) {
@grep_line = split(qr{,}, $self->param('line'));
}
@@ -104,7 +114,8 @@ sub render_image {
my $time = $d->time;
my $etr;
- my $dt_dep = DateTime::Format::DateParse->parse_datetime($time, 'floating');
+ my $dt_dep = $strp_simple->parse_datetime($time)
+ // $strp_full->parse_datetime($time);
my $dt;
if ((@grep_line and not ($line ~~ \@grep_line)) or