From 6f9b1c88bff082773e3c318a49f41103dadeb9ae Mon Sep 17 00:00:00 2001
From: Daniel Friesel <derf@finalrewind.org>
Date: Thu, 10 Nov 2011 20:43:08 +0100
Subject: configurable number of lines

---
 cgi/index.pl | 52 +++++++++++++++++++++++++++++++++++++++++++---------
 1 file changed, 43 insertions(+), 9 deletions(-)

diff --git a/cgi/index.pl b/cgi/index.pl
index ef9b640..c503cf3 100644
--- a/cgi/index.pl
+++ b/cgi/index.pl
@@ -8,7 +8,11 @@ use DateTime::Format::Strptime;
 use App::VRR::Fakedisplay;
 use Travel::Status::DE::VRR;
 
-our $VERSION = '0.01';
+our $VERSION = '0.02';
+
+sub default_no_lines {
+	return 5;
+}
 
 sub get_results_for {
 	my ( $city, $stop ) = @_;
@@ -37,11 +41,17 @@ sub handle_request {
 	my $city = $self->stash('city');
 	my $stop = $self->stash('stop');
 
+	my $no_lines = $self->param('lines');
+
+	if ($no_lines < 1 or $no_lines > 10) {
+		$no_lines = default_no_lines();
+	}
+
 	$self->stash( title   => 'vrr-fakedisplay' );
 	$self->stash( version => $VERSION );
 
 	$self->stash( params => $self->req->params->to_string );
-	$self->stash( height => 50 );
+	$self->stash( height => $no_lines * 10 );
 	$self->stash( width  => 180 );
 
 	$self->render(
@@ -80,17 +90,12 @@ sub render_image {
 	my $dt_now = DateTime->now( time_zone => 'Europe/Berlin' );
 
 	my $color = $self->param('color') || '255,208,0';
+	my $no_lines = $self->param('lines');
 
 	my ( @grep_line, @grep_platform );
 
 	my ( $results, $errstr ) = get_results_for( $city, $stop );
 
-	my $png = App::VRR::Fakedisplay->new(
-		width  => 180,
-		height => 50,
-		color  => [ split( qr{,}, $color ) ]
-	);
-
 	my $strp_simple = DateTime::Format::Strptime->new(
 		pattern   => '%H:%M',
 		time_zone => 'floating',
@@ -107,6 +112,16 @@ sub render_image {
 		@grep_platform = split( qr{,}, $self->param('platform') );
 	}
 
+	if ($no_lines < 1 or $no_lines > 10) {
+		$no_lines = default_no_lines();
+	}
+
+	my $png = App::VRR::Fakedisplay->new(
+		width  => 180,
+		height => $no_lines * 10,
+		color  => [ split( qr{,}, $color ) ]
+	);
+
 	$self->res->headers->content_type('image/png');
 	for my $d ( @{$results} ) {
 
@@ -177,7 +192,18 @@ get '/_redirect' => sub {
 	my $city = $self->param('city');
 	my $stop = $self->param('stop');
 
-	$self->redirect_to("/${city}/${stop}");
+	my $params = $self->req->params;
+
+	$params->remove('city');
+	$params->remove('stop');
+
+	if ($params->param('lines') == default_no_lines()) {
+		$params->remove('lines');
+	}
+
+	my $params_s = $params->to_string;
+
+	$self->redirect_to("/${city}/${stop}?${params_s}");
 };
 
 get '/'                => \&handle_request;
@@ -205,6 +231,10 @@ __DATA__
 		color: #000066;
 	}
 
+	div.break {
+		height: 1em;
+	}
+
 	</style>
 	<script src="https://ajax.googleapis.com/ajax/libs/jquery/1.5.1/jquery.min.js"></script>
 </head>
@@ -242,6 +272,10 @@ local transit networks as well.
   <%= text_field 'city' %>
   <%= text_field 'stop' %>
   <%= submit_button 'Display' %>
+  <div class="break"></div>
+  (optional) number of lines (1 .. 10):
+  <%= text_field 'lines' %>
+  <br/>
 </p>
 <% end %>
 
-- 
cgit v1.2.3