From c1edc66f2c9951f9075f91c209ccf51b7ab319ee Mon Sep 17 00:00:00 2001
From: Daniel Friesel <derf@finalrewind.org>
Date: Fri, 24 Jun 2011 08:58:58 +0200
Subject: Add --date/--time to db-ris, accept empty info in lib

---
 bin/db-ris                           | 14 +++++++++++++-
 lib/Travel/Status/DE/DeutscheBahn.pm |  2 +-
 2 files changed, 14 insertions(+), 2 deletions(-)

diff --git a/bin/db-ris b/bin/db-ris
index 95e1c6e..c2c76d1 100755
--- a/bin/db-ris
+++ b/bin/db-ris
@@ -5,9 +5,21 @@ use 5.010;
 
 our $VERSION = '0.0';
 
+use Getopt::Long;
 use Travel::Status::DE::DeutscheBahn;
 
-my $status = Travel::Status::DE::DeutscheBahn->new( station => shift, );
+my ( $date, $time );
+
+GetOptions(
+	'd|date=s' => \$date,
+	't|time=s' => \$time,
+);
+
+my $status = Travel::Status::DE::DeutscheBahn->new(
+	date    => $date,
+	station => shift,
+	time    => $time,
+);
 
 for my $d ( $status->departures() ) {
 
diff --git a/lib/Travel/Status/DE/DeutscheBahn.pm b/lib/Travel/Status/DE/DeutscheBahn.pm
index 55b82dd..32c017d 100644
--- a/lib/Travel/Status/DE/DeutscheBahn.pm
+++ b/lib/Travel/Status/DE/DeutscheBahn.pm
@@ -105,7 +105,7 @@ sub departures {
 		my $route    = $n_route->textContent();
 		my $dest     = $n_dest->textContent();
 		my $platform = $n_platform->textContent();
-		my $info     = $n_info->textContent();
+		my $info     = $n_info ? $n_info->textContent() : q{};
 		my @via;
 
 		for my $str ( $time, $train, $dest, $platform, $info ) {
-- 
cgit v1.2.3