#!/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;
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.
% }
@@ not_found.html.ep
page not found
page not found