summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDaniel Friesel <derf@finalrewind.org>2011-11-20 13:02:44 +0100
committerDaniel Friesel <derf@finalrewind.org>2011-11-20 13:02:44 +0100
commit3fac36617f9b0f125ce477808873e2e34f4c9cdd (patch)
tree38f675b63e9cc4d021c3e4543ff1c5b981b1ca0a
parentff4e248c6baf0468ff9dbe6b99d4c59191a67277 (diff)
detect Travel::Status::DE::VRR error messages
-rw-r--r--cgi/index.pl11
-rw-r--r--lib/App/VRR/Fakedisplay.pm.PL2
-rw-r--r--share/font.pngbin649 -> 649 bytes
3 files changed, 12 insertions, 1 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} ) {
diff --git a/lib/App/VRR/Fakedisplay.pm.PL b/lib/App/VRR/Fakedisplay.pm.PL
index 1a9bf49..02b8bac 100644
--- a/lib/App/VRR/Fakedisplay.pm.PL
+++ b/lib/App/VRR/Fakedisplay.pm.PL
@@ -110,7 +110,7 @@ ___CUT___
parse_char_row( 0, 'A' .. 'Z' );
parse_char_row( 10, 'a' .. 'z' );
parse_char_row( 20, '0' .. '9' );
-parse_char_row( 30, q{:}, q{-}, q{.}, q{,}, q{/}, q{ } );
+parse_char_row( 30, q{:}, q{-}, q{.}, q{,}, q{/}, q{|}, q{ } );
parse_char_row( 40, qw(ä ö ü ß) );
print $out_fh <<'___CUT___';
diff --git a/share/font.png b/share/font.png
index fc88df8..7a0dd5e 100644
--- a/share/font.png
+++ b/share/font.png
Binary files differ