From 79ad2692d0871d7b6f6e8278748c29351cd39811 Mon Sep 17 00:00:00 2001
From: Daniel Friesel <derf@finalrewind.org>
Date: Sat, 29 Oct 2011 22:59:03 +0200
Subject: Use strptime for date parsing (support daychange)

---
 cgi/index.pl | 15 +++++++++++++--
 1 file changed, 13 insertions(+), 2 deletions(-)

(limited to 'cgi/index.pl')

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
-- 
cgit v1.2.3