very limited date/time support (IRIS does not provide much past/future data)

2 files changed, 25 insertions, 8 deletions

diff --git a/bin/db-iris b/bin/db-iris
index 5db30e1..f9aeccb 100755
--- a/bin/db-iris
+++ b/bin/db-iris
@@ -5,6 +5,8 @@ use 5.018;
 
 our $VERSION = '0.00';
 
+use DateTime;
+use DateTime::Format::Strptime;
 use Encode qw(decode);
 use Getopt::Long qw(:config no_ignore_case);
 use List::Util qw(max);
@@ -14,6 +16,7 @@ use Travel::Status::DE::IRIS::Stations;
 my %train_type;
 
 my ( $date, $time );
+my $datetime = DateTime->now( time_zone => 'Europe/Berlin' );
 my $arrivals = 0;
 my $filter_via;
 my $ignore_late     = 0;
@@ -58,13 +61,26 @@ for my $type ( split( qr{,}, $types ) ) {
 	}
 }
 
+if ($date) {
+	my ( $day, $month, $year ) = split( /\./, $date );
+	$datetime->set(
+		day   => $day,
+		month => $month,
+		year  => $year || $datetime->year,
+	);
+}
+if ($time) {
+	my ( $hour, $minute, $second ) = split( /:/, $time );
+	$datetime->set(
+		hour   => $hour,
+		minute => $minute,
+		second => $second || $datetime->second,
+	);
+}
+
 my $status = Travel::Status::DE::IRIS->new(
-	date     => $date,
-	language => $language,
-	mot      => \%train_type,
+	datetime => $datetime,
 	station  => $station,
-	time     => $time,
-	mode     => $arrivals ? 'arr' : 'dep',
 );
 
 sub get_station {
diff --git a/lib/Travel/Status/DE/IRIS.pm b/lib/Travel/Status/DE/IRIS.pm
index 6cec7d7..e6bccaf 100644
--- a/lib/Travel/Status/DE/IRIS.pm
+++ b/lib/Travel/Status/DE/IRIS.pm
@@ -26,7 +26,8 @@ sub new {
 	}
 
 	my $self = {
-		dt_now     => DateTime->now( time_zone => 'Europe/Berlin' ),
+		datetime => $opt{datetime}
+		  // DateTime->now( time_zone => 'Europe/Berlin' ),
 		station    => $opt{station},
 		user_agent => $ua,
 	};
@@ -47,7 +48,7 @@ sub new {
 
 	$self->{nodes}{station} = ( $xml_st->findnodes('//station') )[0];
 
-	my $dt_req = $self->{dt_now}->clone;
+	my $dt_req = $self->{datetime}->clone;
 	for ( 1 .. 3 ) {
 		$self->get_timetable( $self->{nodes}{station}->getAttribute('eva'),
 			$dt_req );
@@ -231,7 +232,7 @@ sub errstr {
 sub results {
 	my ($self) = @_;
 
-	return @{ $self->{results} };
+	return @{ $self->{results} // [] };
 }
 
 1;