From 152df485a903c80394945b178df4411b155c1f7d Mon Sep 17 00:00:00 2001
From: Daniel Friesel <derf@finalrewind.org>
Date: Wed, 18 Sep 2013 21:18:49 +0200
Subject: add .json frontend

---
 cgi/index.pl | 45 +++++++++++++++++++++++++++++++++++++++------
 1 file changed, 39 insertions(+), 6 deletions(-)

diff --git a/cgi/index.pl b/cgi/index.pl
index 6bd475b..4e481a8 100644
--- a/cgi/index.pl
+++ b/cgi/index.pl
@@ -93,11 +93,11 @@ sub handle_request {
 
 	$self->render(
 		'main',
-		city    => $city,
-		stop    => $stop,
-		version => $VERSION,
+		city     => $city,
+		stop     => $stop,
+		version  => $VERSION,
 		frontend => $frontend,
-		title   => $city
+		title    => $city
 		? "departures for ${city} ${stop}"
 		: "vrr-fakedisplay ${VERSION}",
 	);
@@ -250,7 +250,7 @@ sub get_departures {
 
 		$displayed_lines++;
 
-		push( @fmt_departures, [ $line, $destination, $etr ] );
+		push( @fmt_departures, [ $line, $destination, $etr, $d ] );
 	}
 
 	if ( not $want_crop ) {
@@ -291,6 +291,38 @@ sub render_html {
 	return;
 }
 
+sub render_json {
+	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';
+		}
+	}
+
+	my @preformatted = map { [ $_->[0], $_->[1], $_->[2] ] } @{$departures};
+	my @raw_objects = map { $_->[3] } @{$departures};
+
+	$self->render(
+		json => {
+			preformatted => \@preformatted,
+			raw          => \@raw_objects,
+		}
+	);
+
+	return;
+}
+
 sub render_image {
 	my $self = shift;
 
@@ -332,7 +364,7 @@ sub render_image {
 	$self->res->headers->content_type('image/png');
 	for my $d ( @{$departures} ) {
 
-		my ( $line, $destination, $etr ) = @{$d};
+		my ( $line, $destination, $etr, undef ) = @{$d};
 
 		$png->draw_at( 0,  $line );
 		$png->draw_at( 25, $destination );
@@ -391,6 +423,7 @@ get '/_redirect' => sub {
 
 get '/'                 => \&handle_request;
 get '/:city/:stop.html' => \&render_html;
+get '/:city/:stop.json' => \&render_json;
 get '/:city/:stop.png'  => \&render_image;
 get '/:city/:stop'      => \&handle_request;
 
-- 
cgit v1.2.3