From 3fac36617f9b0f125ce477808873e2e34f4c9cdd Mon Sep 17 00:00:00 2001
From: Daniel Friesel <derf@finalrewind.org>
Date: Sun, 20 Nov 2011 13:02:44 +0100
Subject: detect Travel::Status::DE::VRR error messages

---
 cgi/index.pl | 11 +++++++++++
 1 file changed, 11 insertions(+)

(limited to 'cgi/index.pl')

diff --git a/cgi/index.pl b/cgi/index.pl
index e9fff98..04bbb7d 100644
--- a/cgi/index.pl
+++ b/cgi/index.pl
@@ -109,6 +109,10 @@ sub render_image {
 
 	my ( $results, $errstr ) = get_results_for( $city, $stop );
 
+	if ($errstr) {
+		$color = '255,0,0';
+	}
+
 	my $strp_simple = DateTime::Format::Strptime->new(
 		pattern   => '%H:%M',
 		time_zone => 'floating',
@@ -139,6 +143,13 @@ sub render_image {
 		color  => [ split( qr{,}, $color ) ]
 	);
 
+	if ($errstr) {
+		$png->draw_at(6, '-------efa.vrr.de error-------');
+		$png->new_line();
+		$png->new_line();
+		$png->draw_at(0, $errstr);
+	}
+
 	$self->res->headers->content_type('image/png');
 	for my $d ( @{$results} ) {
 
-- 
cgit v1.2.3