From 4ab8c3cc012f4154c79428243d62f94938d7563a Mon Sep 17 00:00:00 2001
From: Daniel Friesel <derf@finalrewind.org>
Date: Sun, 11 Sep 2011 13:35:24 +0200
Subject: Allow departure listing for an address / point of interest

---
 bin/efa-m | 11 ++++++++---
 1 file changed, 8 insertions(+), 3 deletions(-)

(limited to 'bin/efa-m')

diff --git a/bin/efa-m b/bin/efa-m
index 0c10ba6..def9f07 100755
--- a/bin/efa-m
+++ b/bin/efa-m
@@ -9,7 +9,7 @@ use Getopt::Long qw(:config no_ignore_case);
 use List::Util qw(max);
 use Travel::Status::DE::VRR;
 
-my ( $date, $time );
+my ( $date, $time, $input_type );
 my @output;
 
 binmode( STDOUT, ':encoding(utf-8)' );
@@ -26,13 +26,18 @@ if ( @ARGV != 2 ) {
 	show_help(1);
 }
 
-my ( $place, $station ) = @ARGV;
+my ( $place, $input ) = @ARGV;
+
+if ( $input =~ s{ ^ (?<type> address|poi|stop) : }{}x ) {
+	$input_type = $+{type};
+}
 
 my $status = Travel::Status::DE::VRR->new(
 	date  => $date,
 	place => $place,
-	name  => $station,
+	name  => $input,
 	time  => $time,
+	type  => $input_type,
 );
 
 sub show_help {
-- 
cgit v1.2.3