From 8aa394bf04ebc6cd29d1c0cceafa76c7e43e794f Mon Sep 17 00:00:00 2001
From: Birte Kristina Friesel <derf@finalrewind.org>
Date: Sun, 22 Sep 2024 19:34:48 +0200
Subject: oh look! stopseq support!

(parser is still missing)
---
 lib/Travel/Status/DE/EFA.pm | 45 +++++++++++++++++++++++++++++----------------
 1 file changed, 29 insertions(+), 16 deletions(-)

(limited to 'lib/Travel/Status/DE/EFA.pm')

diff --git a/lib/Travel/Status/DE/EFA.pm b/lib/Travel/Status/DE/EFA.pm
index e2d7e18..d0f8504 100644
--- a/lib/Travel/Status/DE/EFA.pm
+++ b/lib/Travel/Status/DE/EFA.pm
@@ -145,7 +145,7 @@ sub new {
 		delete $opt{timeout};
 	}
 
-	if ( not( $opt{name} or $opt{from_json} ) ) {
+	if ( not( $opt{name} or $opt{stopseq} or $opt{from_json} ) ) {
 		confess('You must specify a name');
 	}
 	if ( $opt{type}
@@ -156,7 +156,7 @@ sub new {
 
 	if ( $opt{service} and exists $efa_instance{ $opt{service} } ) {
 		$opt{efa_url} = $efa_instance{ $opt{service} }{url};
-		if ( $opt{journey} ) {
+		if ( $opt{stopseq} ) {
 			$opt{efa_url} .= '/XML_STOPSEQCOORD_REQUEST';
 		}
 		else {
@@ -211,20 +211,6 @@ sub new {
 	}
 
 	my $self = {
-		post => {
-			language          => 'de',
-			mode              => 'direct',
-			outputFormat      => 'JSON',
-			type_dm           => $opt{type} // 'stop',
-			useProxFootSearch => $opt{proximity_search} ? '1' : '0',
-			useRealtime       => '1',
-			itdDateDay        => $dt->day,
-			itdDateMonth      => $dt->month,
-			itdDateYear       => $dt->year,
-			itdTimeHour       => $dt->hour,
-			itdTimeMinute     => $dt->minute,
-			name_dm           => encode( 'UTF-8', $opt{name} ),
-		},
 		response       => $opt{from_json},
 		developer_mode => $opt{developer_mode},
 		efa_url        => $opt{efa_url},
@@ -241,6 +227,33 @@ sub new {
 		json => JSON->new->utf8,
 	};
 
+	if ( $opt{stopseq} ) {
+		$self->{post} = {
+			line              => $opt{stopseq}{stateless},
+			stop              => $opt{stopseq}{stop_id},
+			tripCode          => $opt{stopseq}{key},
+			date              => $opt{stopseq}{date},
+			coordOutputFormat => 'WGS84[DD.DDDDD]',
+			outputFormat      => 'rapidJson',
+		};
+	}
+	else {
+		$self->{post} = {
+			language          => 'de',
+			mode              => 'direct',
+			outputFormat      => 'JSON',
+			type_dm           => $opt{type} // 'stop',
+			useProxFootSearch => $opt{proximity_search} ? '1' : '0',
+			useRealtime       => '1',
+			itdDateDay        => $dt->day,
+			itdDateMonth      => $dt->month,
+			itdDateYear       => $dt->year,
+			itdTimeHour       => $dt->hour,
+			itdTimeMinute     => $dt->minute,
+			name_dm           => encode( 'UTF-8', $opt{name} ),
+		};
+	}
+
 	if ( $opt{place} ) {
 		$self->{post}{placeInfo_dm}  = 'invalid';
 		$self->{post}{placeState_dm} = 'empty';
-- 
cgit v1.2.3