summaryrefslogtreecommitdiff
path: root/bin/db-iris
diff options
context:
space:
mode:
Diffstat (limited to 'bin/db-iris')
-rwxr-xr-xbin/db-iris26
1 files changed, 21 insertions, 5 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 {