From 26d8ae1c395c5eb2f650503a2e3a97d182df0f60 Mon Sep 17 00:00:00 2001
From: Daniel Friesel <derf@finalrewind.org>
Date: Sun, 28 Mar 2021 11:31:36 +0200
Subject: efa-m, EFA: Accept "stopID" stop type

---
 bin/efa-m                   | 2 +-
 lib/Travel/Status/DE/EFA.pm | 6 +++---
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/bin/efa-m b/bin/efa-m
index 10bf498..0bea51f 100755
--- a/bin/efa-m
+++ b/bin/efa-m
@@ -75,7 +75,7 @@ else {
 	( $place, $input ) = @ARGV;
 }
 
-if ( $input =~ s{ ^ (?<type> address|poi|stop) : }{}x ) {
+if ( $input =~ s{ ^ (?<type> address|poi|stop|stopID) : }{}x ) {
 	$input_type = $+{type};
 }
 
diff --git a/lib/Travel/Status/DE/EFA.pm b/lib/Travel/Status/DE/EFA.pm
index 25d3e15..e1c8edf 100644
--- a/lib/Travel/Status/DE/EFA.pm
+++ b/lib/Travel/Status/DE/EFA.pm
@@ -34,8 +34,8 @@ sub new {
 	if ( not( $opt{name} ) ) {
 		confess('You must specify a name');
 	}
-	if ( $opt{type} and not( $opt{type} ~~ [qw[stop address poi]] ) ) {
-		confess('type must be stop, address or poi');
+	if ( $opt{type} and not( $opt{type} ~~ [qw[stop stopID address poi]] ) ) {
+		confess('type must be stop, stopID, address, or poi');
 	}
 
 	if ( not $opt{efa_url} ) {
@@ -706,7 +706,7 @@ E<lt>derf+efa@finalrewind.orgE<gt>.
 
 Name of the place/city
 
-=item B<type> => B<address>|B<poi>|B<stop>
+=item B<type> => B<address>|B<poi>|B<stop>|B<stopID>
 
 Type of the following I<name>.  B<poi> means "point of interest".  Defaults to
 B<stop> (stop/station name).
-- 
cgit v1.2.3