summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDaniel Friesel <derf@finalrewind.org>2011-12-03 10:38:41 +0100
committerDaniel Friesel <derf@finalrewind.org>2011-12-03 10:38:56 +0100
commit9015d556eb2a60b3ea0b753605887631e3f722be (patch)
treeb637938d8f502062259e47209d09267bf28d30b6
parenta3f2e6d4f97fce1bfb425a04243886c3ad71f4f8 (diff)
version++0.04
-rw-r--r--cgi/index.pl7
-rw-r--r--lib/App/VRR/Fakedisplay.pm.PL2
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 ) = @_;