From d6fb74fc9f292d1203421cc1f5fa0c34c94094ad Mon Sep 17 00:00:00 2001 From: Daniel Friesel Date: Sat, 29 Oct 2011 12:24:49 +0200 Subject: Pass on color --- cgi/index.pl | 13 ++++++++++--- 1 file changed, 10 insertions(+), 3 deletions(-) (limited to 'cgi/index.pl') diff --git a/cgi/index.pl b/cgi/index.pl index 63f2442..fdf900b 100644 --- a/cgi/index.pl +++ b/cgi/index.pl @@ -38,6 +38,10 @@ sub handle_request { $self->stash( title => 'vrr-fakedisplay' ); $self->stash( version => $VERSION ); + $self->stash( params => $self->req->params->to_string); + $self->stash( height => 50 ); + $self->stash( width => 180); + $self->render( 'main', city => $city, @@ -54,7 +58,9 @@ sub render_image { my $dt_now = DateTime->now(time_zone => 'Europe/Berlin'); - my $color = $self->param('color') // '255,0,0'; + my $color = $self->param('color') || '255,0,0'; + my $width = $self->param('width') || 180; + my $height = $self->param('height') || 50; $self->res->headers->content_type('image/png'); @@ -109,7 +115,7 @@ sub render_image { $png->draw_at(0, $line); $png->draw_at(25, $destination); - $png->draw_at(145, $etr); + $png->draw_at(144, $etr); if ($etr ne 'sofort') { $png->draw_at(161, 'min'); @@ -159,7 +165,8 @@ __DATA__ % if ($city and $stop) { -

% } % else { -- cgit v1.2.3