diff options
| -rw-r--r-- | cgi/index.pl | 7 | ||||
| -rw-r--r-- | lib/App/VRR/Fakedisplay.pm.PL | 2 |
2 files changed, 5 insertions, 4 deletions
diff --git a/cgi/index.pl b/cgi/index.pl index 80cf5c3..7da21ac 100644 --- a/cgi/index.pl +++ b/cgi/index.pl @@ -11,7 +11,7 @@ use Travel::Status::DE::VRR; no warnings 'uninitialized'; -our $VERSION = '0.03'; +our $VERSION = '0.04'; sub default_no_lines { return 5; @@ -89,6 +89,8 @@ sub handle_request { sub shorten_line { my ($line) = @_; + $line =~ s{ \s* S-Bahn }{}ox; + $line =~ s{ ^ ( U | S | SB ) \K \s+ }{}ox; $line =~ s{ ^ ( STR | Bus ) }{}ox; @@ -175,7 +177,7 @@ sub render_image { ); if ($errstr) { - $png->draw_at( 6, '-------efa.vrr.de error-------' ); + $png->draw_at( 6, '--------backend error--------' ); $png->new_line(); $png->new_line(); $png->draw_at( 0, $errstr ); @@ -194,7 +196,6 @@ sub render_image { // $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 ) ) diff --git a/lib/App/VRR/Fakedisplay.pm.PL b/lib/App/VRR/Fakedisplay.pm.PL index 02b8bac..3ad0fe5 100644 --- a/lib/App/VRR/Fakedisplay.pm.PL +++ b/lib/App/VRR/Fakedisplay.pm.PL @@ -82,7 +82,7 @@ use utf8; use File::ShareDir qw(dist_file); use GD; -our $VERSION = '0.01'; +our $VERSION = '0.04'; sub new { my ( $class, %opt ) = @_; |