Commit 224bdfc6 authored by Birte Kristina Friesel's avatar Birte Kristina Friesel
Browse files

Remove script, convert template from HTML::Template to Mojolicious .ep template

parent 867d3514

Build.PL

deleted100755 → 0
+0 −25
Original line number Diff line number Diff line 
#!/usr/bin/env perl



use strict;

use warnings;

use Module::Build;



Module::Build->new(



	build_requires => {

		'Module::Build' => '0.36',

	},

	dist_name => 'db-fakedisplay',

	dist_version_from => 'bin/db-fakedisplay',

	license => 'unrestricted',

	requires => {

		'perl' => '5.10.0',

		'File::ShareDir' => 0,

		'HTML::Template' => 0,

		'List::Util' => 0,

		'Travel::Status::DE::DeutscheBahn' => '0.04',

	},

	share_dir => 'share',

	sign => 1,



)->create_build_script();

README

+1 −12
Original line number Diff line number Diff line
@@ -7,16 +7,5 @@ Dependencies 
------------



 * perl >= 5.10

 * File::ShareDir

 * Module::Build >= 0.36

 * HTML::Template

 * Mojolicious

 * Travel::Status::DE::DeutscheBahn >= 0.04
 


Installation

------------



$ perl Build.PL

$ perl Build

$ sudo perl Build install



You can then run 'man db-fakedisplay' for more information

bin/db-fakedisplay

deleted100755 → 0
+0 −246
Original line number Diff line number Diff line 
#!/usr/bin/env perl



use strict;

use warnings;

use 5.010;



use File::ShareDir qw(dist_file);

use Getopt::Long qw(:config no_ignore_case);

use HTML::Template;

use List::Util qw(first);

use Travel::Status::DE::DeutscheBahn;



our $VERSION = '0.00';



my @params;

my ( $station, @platforms );

my $mode = 'single';

my $template_file;

my $template;



GetOptions(



	'h|help'       => sub { show_help(0) },

	'm|mode=s'     => \$mode,

	't|template=s' => \&handle_template,

	'V|version' => sub { say "db-fakedisplay version ${VERSION}"; exit 0 },



) or show_help(1);



if ( $mode eq 'single' and not $template_file ) {

	$template_file = dist_file( 'db-fakedisplay', 'single-lcd.html' );

}



( $station, @platforms ) = @ARGV;

$template_file //= dist_file( 'db-fakedisplay', 'multi-lcd.html' );

$template = HTML::Template->new(

	filename          => $template_file,

	loop_context_vars => 1

);



if ( not defined $station ) {

	show_help(1);

}



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



sub handle_template {

	my ( undef, $template_name ) = @_;



	if ( -e $template_name ) {

		$template_file = $template_name;

	}

	else {

		$template_file = dist_file( 'db-fakedisplay', $template_name );

	}



	return;

}



sub show_help {

	my ($exit_status) = @_;



	say 'Usage: db-fakedisplay [-t template] <station> [platforms ...]';

	say 'See also: man db-fakedisplay';



	exit $exit_status;

}



sub add_result {

	my ($result) = @_;



	push(

		@params,

		{

			time  => $result->time,

			train => $result->train,

			via   => [ map { { stop => $_ } } $result->route_interesting(3) ],

			destination => $result->destination,

			platform    => ( split( / /, $result->platform ) )[0],

			info        => $result->info,

		}

	);



	return;

}



if ( $mode eq 'single' ) {

	if ( not @platforms ) {

		for my $result ( $status->results ) {

			if ( $result->platform ~~ \@platforms ) {

				next;

			}

			push( @platforms, $result->platform );

		}

		@platforms = sort { $a <=> $b } @platforms;

	}



	for my $platform (@platforms) {

		my $result = first { $_->platform =~ m{ ^ $platform (?: \s | $ )}x }

		$status->results;



		if ( not defined $result ) {

			push( @params, { platform => $platform } );

		}

		else {

			add_result($result);

		}

	}

}

else {

	for my $result ( $status->results ) {

		add_result($result);

	}

}



$template->param(

	departures => \@params,

	version    => $VERSION

);



say $template->output;



__END__



=head1 NAME



db-fakedisplay - Show train departures, as seen on the displays on most main stations



=head1 SYNOPSIS



B<db-fakedisplay> [-t I<template>] I<station> [I<platforms ...>]



=head1 VERSION



version 0.00



=head1 DESCRIPTION



B<db-fakedisplay> outputs HTML showing the next departure for every

I<platform> on I<station> on stdout.  The HTML is styled to look like the LCDs

installed on most (major) stations.



If no I<platforms> were specified, B<db-fakedisplay> shows all platforms for

which departures are reported.



=head1 OPTIONS



=over



=item B<-t>, B<--template> B<single-lcd.html>|I<filename>



Select template.  Specify either a I<filename> or one of the templates shipped

with B<db-fakedisplay> (right now only B<single-lcd.html> is available, which

is also the default).



=item B<-V>, B<--version>



Show version information.



=back



=head1 TEMPLATES



B<db-fakedisplay> uses HTML::Template(3pm) to create the display.  In case you

want to create a custom template, the following variables are available:



=head2 departures



This is a loop variable, use it with C<< <TMPL_LOOP departures> foo <TMPL_VAR

bar> ... </TMPL_LOOP> >>.



This loop runs once for each requested platform. Inside it, you can use the

following variables:



=over



=item platform



The platform from which the train departs



=item time



The departure time (I<HH>:I<MM>)



=item train



The train / line name, something like "RE 10111" or "S 1"



=item via



A loop variable. For each run, the B<stop> variable contains one of the

interesting stops the train will pass on its route.



By default, it runs three times.



=item destination



The train's destination



=item info



Additional information about the train, such as delays. Unset if no

information is available (use C<< <TMPL_IF info> ... </TMPL_IF> >>).



=item no-data



Set if no departures were available for the requested platform.



=back



=head1 EXIT STATUS



Zero.



=head1 CONFIGURATION



None.



=head1 DEPENDENCIES



=over



=item * File::ShareDir(3pm)



=item * HTML::Template(3pm)



=item * Travel::Status::DE::DeutscheBahn(3pm)



=back



=head1 BUGS AND LIMITATIONS



Unknown



=head1 SEE ALSO



There is some example output available at

L<http://finalrewind.org/projects/db-fakedisplay/>.



=head1 AUTHOR



Copyright (C) 2011 by Daniel Friesel E<lt>derf@finalrewind.orgE<gt>



=head1 LICENSE



  0. You just DO WHAT THE FUCK YOU WANT TO.

cgi/index.pl

+159 −16
Original line number Diff line number Diff line 
#!/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) ],

				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 %> 
</div>

</body>

</html>





@@ multi.html.ep

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1//EN"

	"http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd">

<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en">

<head>

	<title><%= $title %></title>

	<meta http-equiv="Content-Type" content="text/html;charset=iso-8859-1"/>

	<style type="text/css">



	div.outer {

		border: 0.2em solid #000066;

		width: 55em;

	}



	div.display {

		background-color: #0000ff;

		color: white;

		font-family: Sans-Serif;

		font-weight: bold;

		position: relative;

		margin-bottom: 0;

		margin-top: 0;

		padding-top: 0;

		padding-bottom: 0;

		width: 55em;

		height: 1.4em;

	}



	div.display div {

		overflow: hidden;

		position: absolute;

		height: 100%;

	}



	div.time {

		left: 0;

		width: 6%;

		font-size: 95%;

	}



	div.train {

		left: 5%;

		width: 9%;

		background-color: white;

		color: #0000ff;

		font-size: 95%;

	}



	div.via {

		left: 15%;

		width: 35%;

	}



	div.via span {

		margin-right: 0.4em;

		font-size: 80%;

	}



	div.destination {

		left: 50%;

		width: 25%;

		font-size: 120%;

	}



	div.platform {

		left: 75%;

		width: 5%;

	}



	div.info {

		left: 80%;

		width: 20%;

		background-color: white;

		color: #0000ff;

		font-size: 80%;

		line-height: 150%;

	}



	div.separator {

		border-bottom: 0.1em solid #000066;

	}



	div.about {

		text-align: right;;

		font-family: Sans-Serif;

		color: #666666;

	}



	div.about a {

		color: #000066;

	}



	</style>

</head>

<body>



<div class="outer">

% my $i = 0;

% for my $departure (@{$departures}) {

% $i++;



<div class="display <% if (($i % 2) == 0) { %> separator<% } %>">

<div class="platform">

%= $departure->{platform}

</div>



<div class="time">

%= $departure->{time}

</div>



<div class="train">

%= $departure->{train}

</div>



<div class="via">

% my $via_max = @{$departure->{via}};

% my $via_cur = 0;

% for my $stop (@{$departure->{via}}) {

% $via_cur++;

<span><%= $stop %><% if ($via_cur < $via_max) { %> - <% } %></span>

% }

</div>



<div class="destination">

%= $departure->{destination}

</div>



% if ($departure->{info}) {

<div class="info">

%= $departure->{info}

</div>

% }



</div> <!-- display -->



% }



</div> <!-- outer -->



<div class="about">

<a href="http://finalrewind.org/projects/db-fakedisplay/">db-fakedisplay</a>

v<%= $version %>

</div>



</body>

</html>