diff options
Diffstat (limited to 'cgi/index.pl')
| -rw-r--r-- | cgi/index.pl | 11 |
1 files changed, 11 insertions, 0 deletions
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} ) { |