add wagonorder helper

4 files changed, 96 insertions, 51 deletions

diff --git a/lib/DBInfoscreen.pm b/lib/DBInfoscreen.pm
index 700a4c9..b31a1a7 100644
--- a/lib/DBInfoscreen.pm
+++ b/lib/DBInfoscreen.pm
@@ -6,6 +6,7 @@ use Mojo::Base 'Mojolicious';
 
 use Cache::File;
 use DBInfoscreen::Helper::HAFAS;
+use DBInfoscreen::Helper::Wagonorder;
 use File::Slurp qw(read_file);
 use JSON;
 use Travel::Status::DE::HAFAS;
@@ -18,6 +19,8 @@ no if $] >= 5.018, warnings => 'experimental::smartmatch';
 
 our $VERSION = qx{git describe --dirty} || '0.05';
 
+chomp $VERSION;
+
 my %default = (
 	backend => 'iris',
 	mode    => 'app',
@@ -109,6 +112,18 @@ sub startup {
 	);
 
 	$self->helper(
+		wagonorder => sub {
+			my ($self) = @_;
+			state $hafas = DBInfoscreen::Helper::Wagonorder->new(
+				log        => $self->app->log,
+				cache      => $self->app->cache_iris_main,
+				user_agent => $self->ua,
+				version    => $VERSION,
+			);
+		}
+	);
+
+	$self->helper(
 		'handle_no_results' => sub {
 			my ( $self, $backend, $station, $errstr ) = @_;
 
diff --git a/lib/DBInfoscreen/Controller/Stationboard.pm b/lib/DBInfoscreen/Controller/Stationboard.pm
index c1d952c..f8426c5 100644
--- a/lib/DBInfoscreen/Controller/Stationboard.pm
+++ b/lib/DBInfoscreen/Controller/Stationboard.pm
@@ -105,47 +105,6 @@ sub log_api_access {
 	return;
 }
 
-sub check_wagonorder_with_wings {
-	my ( $ua, $cache, $train, $wr_link ) = @_;
-
-	if ( check_wagonorder( $ua, $cache, $train->train_no, $wr_link ) ) {
-		return 1;
-	}
-	elsif ( $train->is_wing ) {
-		my $wing = $train->wing_of;
-		if ( check_wagonorder( $ua, $cache, $wing->train_no, $wr_link ) ) {
-			return 1;
-		}
-	}
-	return;
-}
-
-sub check_wagonorder {
-	my ( $ua, $cache, $train_no, $wr_link ) = @_;
-
-	my $url
-	  = "https://lib.finalrewind.org/dbdb/has_wagonorder/${train_no}/${wr_link}";
-
-	if ( my $content = $cache->get($url) ) {
-		return $content eq 'y' ? 1 : undef;
-	}
-
-	$ua->request_timeout(2);
-	my $res = eval { $ua->head($url)->result };
-
-	if ($@) {
-		return;
-	}
-	if ( $res->is_error ) {
-		$cache->set( $url, 'n' );
-		return;
-	}
-	else {
-		$cache->set( $url, 'y' );
-		return 1;
-	}
-}
-
 sub get_results_for {
 	my ( $backend, $station, %opt ) = @_;
 	my $data;
@@ -455,13 +414,9 @@ sub render_train {
 
 	$departure->{trip_id} = $self->hafas->get_tripid($result);
 
-	if (
-		$departure->{wr_link}
-		and not check_wagonorder_with_wings(
-			$self->ua, $self->app->cache_iris_main,
-			$result,   $departure->{wr_link}
-		)
-	  )
+	if ( $departure->{wr_link}
+		and
+		not $self->wagonorder->is_available( $result, $departure->{wr_link} ) )
 	{
 		$departure->{wr_link} = undef;
 	}
diff --git a/lib/DBInfoscreen/Helper/HAFAS.pm b/lib/DBInfoscreen/Helper/HAFAS.pm
index 18a3eda..c9a2ba2 100644
--- a/lib/DBInfoscreen/Helper/HAFAS.pm
+++ b/lib/DBInfoscreen/Helper/HAFAS.pm
@@ -29,9 +29,11 @@ sub hafas_rest_req {
 		return $content;
 	}
 
-	my $res = eval { $self->{user_agent}->get($url)->result; };
+	my $res
+	  = eval { $self->{user_agent}->get( $url => $self->{header} )->result; };
 
 	if ($@) {
+		$self->{log}->debug("hafas_rest_req($url): $@");
 		return;
 	}
 	if ( $res->is_error ) {
@@ -52,9 +54,11 @@ sub hafas_json_req {
 		return $content;
 	}
 
-	my $res = eval { $self->{user_agent}->get($url)->result };
+	my $res
+	  = eval { $self->{user_agent}->get( $url => $self->{header} )->result };
 
 	if ($@) {
+		$self->{log}->debug("hafas_json_req($url): $@");
 		return;
 	}
 	if ( $res->is_error ) {
@@ -82,9 +86,11 @@ sub hafas_xml_req {
 		return $content;
 	}
 
-	my $res = eval { $self->{user_agent}->get($url)->result };
+	my $res
+	  = eval { $self->{user_agent}->get( $url => $self->{header} )->result };
 
 	if ($@) {
+		$self->{log}->debug("hafas_xml_req($url): $@");
 		return;
 	}
 	if ( $res->is_error ) {
diff --git a/lib/DBInfoscreen/Helper/Wagonorder.pm b/lib/DBInfoscreen/Helper/Wagonorder.pm
new file mode 100644
index 0000000..98c22ca
--- /dev/null
+++ b/lib/DBInfoscreen/Helper/Wagonorder.pm
@@ -0,0 +1,69 @@
+package DBInfoscreen::Helper::Wagonorder;
+
+use strict;
+use warnings;
+use 5.020;
+
+use DateTime;
+use Encode qw(decode encode);
+use Mojo::JSON qw(decode_json);
+use XML::LibXML;
+
+sub new {
+	my ( $class, %opt ) = @_;
+
+	my $version = $opt{version};
+
+	$opt{header}
+	  = { 'User-Agent' =>
+		  "dbf/${version} +https://finalrewind.org/projects/db-fakedisplay" };
+
+	return bless( \%opt, $class );
+
+}
+
+sub is_available {
+	my ( $self, $train, $wr_link ) = @_;
+
+	if ( $self->check_wagonorder( $train->train_no, $wr_link ) ) {
+		return 1;
+	}
+	elsif ( $train->is_wing ) {
+		my $wing = $train->wing_of;
+		if ( $self->check_wagonorder( $wing->train_no, $wr_link ) ) {
+			return 1;
+		}
+	}
+	return;
+}
+
+sub check_wagonorder {
+	my ( $self, $train_no, $wr_link ) = @_;
+
+	my $url
+	  = "https://lib.finalrewind.org/dbdb/has_wagonorder/${train_no}/${wr_link}";
+	my $cache = $self->{cache};
+
+	if ( my $content = $self->{cache}->get($url) ) {
+		return $content eq 'y' ? 1 : undef;
+	}
+
+	my $ua = $self->{user_agent}->request_timeout(2);
+
+	my $res = eval { $ua->head( $url => $self->{header} )->result };
+
+	if ($@) {
+		$self->{log}->debug("check_wagonorder($url): $@");
+		return;
+	}
+	if ( $res->is_error ) {
+		$cache->set( $url, 'n' );
+		return;
+	}
+	else {
+		$cache->set( $url, 'y' );
+		return 1;
+	}
+}
+
+1;