diff options
| -rwxr-xr-x | Build.PL | 25 | ||||
| -rw-r--r-- | README | 13 | ||||
| -rwxr-xr-x | bin/db-fakedisplay | 246 | ||||
| -rw-r--r-- | cgi/index.pl | 175 |
4 files changed, 160 insertions, 299 deletions
diff --git a/Build.PL b/Build.PL deleted file mode 100755 index 747146d..0000000 --- a/Build.PL +++ /dev/null @@ -1,25 +0,0 @@ -#!/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(); @@ -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 diff --git a/bin/db-fakedisplay b/bin/db-fakedisplay deleted file mode 100755 index 3a3b0f9..0000000 --- a/bin/db-fakedisplay +++ /dev/null @@ -1,246 +0,0 @@ -#!/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. 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 %> </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> |