diff options
Diffstat (limited to 'cgi/index.pl')
| -rw-r--r-- | cgi/index.pl | 30 |
1 files changed, 30 insertions, 0 deletions
diff --git a/cgi/index.pl b/cgi/index.pl index 5c464d9..7c8db0b 100644 --- a/cgi/index.pl +++ b/cgi/index.pl @@ -77,6 +77,7 @@ sub handle_request { my $stop = $self->stash('stop'); my $no_lines = $self->param('no_lines'); + my $frontend = $self->param('frontend') // 'png'; if ( not $no_lines or $no_lines < 1 or $no_lines > 10 ) { $no_lines = $default{no_lines}; @@ -94,6 +95,7 @@ sub handle_request { city => $city, stop => $stop, version => $VERSION, + frontend => $frontend, title => $city ? "departures for ${city} ${stop}" : "vrr-fakedisplay ${VERSION}", @@ -259,6 +261,34 @@ sub get_departures { return ( \@fmt_departures, $errstr ); } +sub render_html { + my $self = shift; + + my ( $departures, $errstr ) = get_departures( + city => $self->stash('city'), + stop => $self->stash('stop'), + no_lines => scalar $self->param('no_lines'), + backend => scalar $self->param('backend'), + filter_line => scalar $self->param('line'), + filter_platform => scalar $self->param('platform'), + offset => scalar $self->param('offset'), + ); + + for my $d ( @{$departures} ) { + if ( $d->[2] and $d->[2] ne 'sofort' ) { + $d->[2] .= ' min'; + } + } + + $self->render( + 'display', + title => "vrr-fakedisplay v${VERSION}", + departures => $departures, + ); + + return; +} + sub render_image { my $self = shift; |