From 224bdfc68ee626995dbfec357be1268177d02cc9 Mon Sep 17 00:00:00 2001 From: Daniel Friesel Date: Fri, 19 Aug 2011 01:00:47 +0200 Subject: Remove script, convert template from HTML::Template to Mojolicious .ep template --- cgi/index.pl | 175 +++++++++++++++++++++++++++++++++++++++++++++++++++++------ 1 file changed, 159 insertions(+), 16 deletions(-) (limited to 'cgi/index.pl') diff --git a/cgi/index.pl b/cgi/index.pl index 424f07c..69e4698 100644 --- a/cgi/index.pl +++ b/cgi/index.pl @@ -1,8 +1,6 @@ #!/usr/bin/env perl use Mojolicious::Lite; use Cache::File; -use File::ShareDir qw(dist_file); -use HTML::Template; use Travel::Status::DE::DeutscheBahn; our $VERSION = '0.00'; @@ -43,11 +41,7 @@ get '/:station' => sub { my $self = shift; my $station = $self->stash('station'); - my @params; - my $template = HTML::Template->new( - filename => dist_file( 'db-fakedisplay', 'multi-lcd.html' ), - loop_context_vars => 1, - ); + my @departures; my @results = get_results_for($station); $self->stash( 'version', $VERSION ); @@ -59,23 +53,24 @@ get '/:station' => sub { for my $result (@results) { push( - @params, + @departures, { - time => $result->time, - train => $result->train, - via => [ map { { stop => $_ } } $result->route_interesting(3) ], + time => $result->time, + train => $result->train, + via => [ $result->route_interesting(3) ], destination => $result->destination, platform => ( split( / /, $result->platform ) )[0], info => $result->info, } ); } - $template->param( - departures => \@params, - version => $VERSION - ); - $self->render( text => $template->output ); + $self->render( + 'multi', + departures => \@departures, + version => $VERSION, + title => "departures for ${station}" + ); }; get '/multi/:station' => sub { @@ -143,3 +138,151 @@ v<%= $version %> + + +@@ multi.html.ep + + + + <%= $title %> + + + + + +
+% my $i = 0; +% for my $departure (@{$departures}) { +% $i++; + +
+
+%= $departure->{platform} +
+ +
+%= $departure->{time} +
+ +
+%= $departure->{train} +
+ +
+% my $via_max = @{$departure->{via}}; +% my $via_cur = 0; +% for my $stop (@{$departure->{via}}) { +% $via_cur++; +<%= $stop %><% if ($via_cur < $via_max) { %> - <% } %> +% } +
+ +
+%= $departure->{destination} +
+ +% if ($departure->{info}) { +
+%= $departure->{info} +
+% } + +
+ +% } + +
+ +
+db-fakedisplay +v<%= $version %> +
+ + + -- cgit v1.2.3