summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--index.pl40
1 files changed, 39 insertions, 1 deletions
diff --git a/index.pl b/index.pl
index d153fe3..124b7fc 100644
--- a/index.pl
+++ b/index.pl
@@ -2,6 +2,7 @@
use Mojolicious::Lite;
use Cache::File;
use File::Slurp qw(read_file write_file);
+use List::Util qw(max);
use List::MoreUtils qw();
use Travel::Status::DE::HAFAS;
use Travel::Status::DE::HAFAS::StopFinder;
@@ -332,7 +333,13 @@ sub handle_request {
$self->stash( title => 'db-infoscreen' );
$self->stash( version => $VERSION );
- if ( not( $template ~~ [qw[clean json marudor multi single]] ) ) {
+ if ( $station =~ s{ [.] txt $ }{}x ) {
+ $template = 'text';
+ $self->param( station => $station );
+ $self->stash( layout => 'text' );
+ }
+
+ if ( not( $template ~~ [qw[clean json marudor multi single text]] ) ) {
$template = 'clean';
}
@@ -708,6 +715,20 @@ sub handle_request {
);
}
}
+ elsif ( $template eq 'text' ) {
+ push(
+ @departures,
+ [
+ sprintf( '%5s %s%s',
+ $time,
+ ( $delay and $delay > 0 ) ? q{+} : q{},
+ $delay || q{} ),
+ $result->train,
+ $result->destination,
+ $platform // q{ }
+ ]
+ );
+ }
elsif ( $backend eq 'iris' ) {
push(
@departures,
@@ -841,6 +862,23 @@ sub handle_request {
);
}
}
+ elsif ( $template eq 'text' ) {
+ my @line_length;
+ for my $i ( 0 .. $#{ $departures[0] } ) {
+ $line_length[$i] = max map { length( $_->[$i] ) } @departures;
+ }
+ my $output = q{};
+ for my $departure (@departures) {
+ $output .= sprintf(
+ join( q{ }, ( map { "%-${_}s" } @line_length ) ) . "\n",
+ @{$departure}[ 0 .. $#{$departure} ]
+ );
+ }
+ $self->render(
+ text => $output,
+ format => 'text',
+ );
+ }
else {
my $station_name = $data->{station_name} // $station;
$self->render(