diff options
| author | Daniel Friesel <derf@finalrewind.org> | 2011-10-29 22:59:03 +0200 |
|---|---|---|
| committer | Daniel Friesel <derf@finalrewind.org> | 2011-10-29 22:59:03 +0200 |
| commit | 79ad2692d0871d7b6f6e8278748c29351cd39811 (patch) | |
| tree | 4c527df0ae6a4cbff9b48bb77cec3d741931ec5a /cgi | |
| parent | d900bfc9f17eea5b0d2439e976609aeb2be85e25 (diff) | |
Use strptime for date parsing (support daychange)
Diffstat (limited to 'cgi')
| -rw-r--r-- | cgi/index.pl | 15 |
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 |