Commit c828f5b3 authored by Birte Kristina Friesel's avatar Birte Kristina Friesel
Browse files

add special api for marudor's departure monitor app

parent 88da2686

index.pl

+29 −7
Original line number Diff line number Diff line
@@ -15,7 +15,7 @@ our $VERSION = qx{git describe --dirty} || '0.05'; 
my $refresh_interval = 180;



sub get_results_for {

	my ( $backend, $station ) = @_;

	my ( $backend, $station, %opt ) = @_;



	my $cache = Cache::File->new(

		cache_root      => '/tmp/db-fake',
@@ -45,14 +45,17 @@ sub get_results_for { 


			my $status = Travel::Status::DE::IRIS->new(

				station      => $station,

				serializable => 1

				serializable => 1,

				%opt

			);

			$results = [ $status->results ];

			$cache->freeze( $cache_str, $results );

		}

		else {

			my $status

			  = Travel::Status::DE::DeutscheBahn->new( station => $station );

			my $status = Travel::Status::DE::DeutscheBahn->new(

				station => $station,

				%opt

			);

			$results = [ $status->results ];

			$cache->freeze( $cache_str, $results );

		}
@@ -75,6 +78,7 @@ sub handle_request { 
	my $backend        = $self->param('backend')       // 'ris';

	my $admode         = $self->param('admode')        // 'deparr';

	my $callback       = $self->param('callback');

	my %opt;



	my $api_version

	  = $backend eq 'iris'
@@ -85,7 +89,7 @@ sub handle_request { 
	$self->stash( title      => 'db-fakedisplay' );

	$self->stash( version    => $VERSION );



	if ( not( $template ~~ [qw[clean json multi single]] ) ) {

	if ( not( $template ~~ [qw[clean json marudor_v1 multi single]] ) ) {

		$template = 'multi';

	}
@@ -98,10 +102,14 @@ sub handle_request { 
		return;

	}



	if ( $template eq 'marudor_v1' and $backend eq 'iris' ) {

		$opt{lookahead} = 120;

	}



	my @departures;

	my @results = get_results_for( $backend, $station );

	my @results = get_results_for( $backend, $station, %opt );



	if ( not @results and $template eq 'json' ) {

	if ( not @results and $template ~~ [qw[json marudor_v1]] ) {

		my $json;

		if ( $backend eq 'iris' ) {

			my @candidates = map { { code => $_->[0], name => $_->[1] } }
@@ -348,6 +356,20 @@ sub handle_request { 
			);

		}

	}

	if ( $template eq 'marudor_v1' ) {

		$callback //= 'db_fakedisplay';

		my $json = $self->render_to_string(

			json => {

				api_version  => $api_version,

				preformatted => \@departures,

				version      => $VERSION,

			}

		);

		$self->render(

			data   => "$callback($json);",

			format => 'json'

		);

	}

	else {

		$self->render(

			$template,