#!/usr/bin/env perl use Mojolicious::Lite; use Cache::File; use DateTime; use DateTime::Format::Strptime; use App::VRR::Fakedisplay; use Travel::Status::DE::VRR; no warnings 'uninitialized'; our $VERSION = '0.03'; sub default_no_lines { return 5; } sub get_results_for { my ( $city, $stop ) = @_; my $cache = Cache::File->new( cache_root => '/tmp/vrr-fake', default_expires => '900 sec', ); my $results = $cache->thaw("${city} _ ${stop}"); if ( not $results ) { my $status = Travel::Status::DE::VRR->new( place => $city, name => $stop ); $results = [ [ $status->results ], $status->errstr ]; $cache->freeze( "${city} _ ${stop}", $results ); } return @{$results}; } sub handle_request { my $self = shift; my $city = $self->stash('city'); my $stop = $self->stash('stop'); my $no_lines = $self->param('no_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 => $no_lines * 10 ); $self->stash( width => 180 ); $self->render( 'main', city => $city, stop => $stop, version => $VERSION, title => "departures for ${city} ${stop}", ); } sub shorten_line { my ($line) = @_; $line =~ s{ ^ SB \K \s+ }{}x; return $line; } sub shorten_destination { my ( $dest, $city ) = @_; if ( not( $dest =~ m{ Hbf $ }ix ) ) { $dest =~ s{ ^ $city \s }{}ix; } if ( length($dest) > 20 ) { $dest =~ s{^Dortmund}{DO} or $dest =~ s{^Duisburg}{DU} or $dest =~ s{^Düsseldorf}{D} or $dest =~ s{^Essen}{E} or $dest =~ s{^Gelsenkirchen}{GE} or $dest =~ s{^Mülheim}{MH}; } $dest = substr( $dest, 0, 20 ); return $dest; } sub render_image { my $self = shift; my $city = $self->stash('city'); my $stop = $self->stash('stop'); my $dt_now = DateTime->now( time_zone => 'Europe/Berlin' ); my $color = $self->param('color') || '255,208,0'; my $no_lines = $self->param('no_lines'); my ( @grep_line, @grep_platform ); my $offset = 0; my ( $results, $errstr ) = get_results_for( $city, $stop ); if ($errstr) { $color = '255,0,0'; } my $strp_simple = DateTime::Format::Strptime->new( pattern => '%H:%M', time_zone => 'floating', ); my $strp_full = DateTime::Format::Strptime->new( pattern => '%d.%m.%Y %H:%M', time_zone => 'floating', ); if ( $self->param('line') ) { my @lines = split( qr{,}, $self->param('line') ); @grep_line = map { qr{ ^ \Q$_\E }ix } @lines; } if ( $self->param('platform') ) { @grep_platform = split( qr{,}, $self->param('platform') ); } if ( $self->param('offset') ) { $offset = $self->param('offset'); } 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 ) ] ); if ($errstr) { $png->draw_at(6, '-------efa.vrr.de error-------'); $png->new_line(); $png->new_line(); $png->draw_at(0, $errstr); } $self->res->headers->content_type('image/png'); for my $d ( @{$results} ) { my $line = $d->line; my $platform = ( split( qr{ }, $d->platform ) )[-1]; my $destination = $d->destination; my $time = $d->time; my $etr; my $dt_dep = $strp_full->parse_datetime($time) // $strp_simple->parse_datetime($time); my $dt; $line =~ s{ \s* S-Bahn }{}ox; if ( ( @grep_line and not( grep { $line =~ $_ } @grep_line ) ) or ( @grep_platform and not( $platform ~~ \@grep_platform ) ) or ( $line =~ m{ ^ (RB | RE | IC | EC) }x ) ) { next; } if ( $time =~ m{ ^ \d\d? : \d\d $ }x ) { $dt = DateTime->new( year => $dt_now->year, month => $dt_now->month, day => $dt_now->day, hour => $dt_dep->hour, minute => $dt_dep->minute, second => $dt_dep->second, time_zone => 'Europe/Berlin', ); } else { $dt = $dt_dep; } my $duration = $dt->subtract_datetime($dt_now); if ( $duration->is_negative or ($duration->in_units('minutes') < $offset) ) { next; } elsif ( $duration->in_units('minutes') == 0 ) { $etr = 'sofort'; } elsif ( $duration->in_units('hours') == 0 ) { $etr = $duration->in_units('minutes'); } else { last; } $destination = shorten_destination( $destination, $city ); $line = shorten_line($line); $png->draw_at( 0, $line ); $png->draw_at( 25, $destination ); if (length($etr) > 2) { $png->draw_at( 145, $etr ); } elsif (length($etr) > 1) { $png->draw_at( 148, $etr ); } else { $png->draw_at( 154, $etr ); } if ( $etr ne 'sofort' ) { $png->draw_at( 161, 'min' ); } $png->new_line(); } $self->render( data => $png->png ); } get '/_redirect' => sub { my $self = shift; my $city = $self->param('city'); my $stop = $self->param('stop'); my $params = $self->req->params; $params->remove('city'); $params->remove('stop'); if ( not $params->param('no_lines') or $params->param('no_lines') == default_no_lines() ) { $params->remove('no_lines'); } for my $param (qw(line platform offset)) { if (not $params->param($param)) { $params->remove($param); } } my $params_s = $params->to_string; $self->redirect_to("/${city}/${stop}?${params_s}"); }; get '/' => \&handle_request; get '/:city/:stop.png' => \&render_image; get '/:city/:stop' => \&handle_request; app->start(); __DATA__ @@ main.html.ep <%= $title %> % if ($city and $stop) { % } % else {

VRR-Fakedisplay shows the next departures at a public transit stop, just like the Lumino LED displays used at some stops.

It was written for the VRR (Verkehrsverbund Rhein-Ruhr), but supports most other local transit networks as well.

% }
<% if (my $error = stash 'error') { %>

Error: <%= $error %>

<% } %> <%= form_for _redirect => begin %>
City -> Stop
<%= text_field 'city' %> <%= text_field 'stop' %> <%= submit_button 'Display' %>
optional:
display height [1..10]
<%= text_field 'no_lines' %>
min. offset [minutes]
<%= text_field 'offset' %>
match line prefix 1
<%= text_field 'line' %>
match platform 1
<%= text_field 'platform' %>
1 comma-separated list
<% end %>
vrr-fakedisplay v<%= $version %>
@@ not_found.html.ep page not found
page not found