Disable all certificate checks for KVB

KVB appear to have misconfigured their TLS certificate

1 files changed, 8 insertions, 12 deletions

diff --git a/lib/Travel/Status/DE/HAFAS/Services.pm.PL b/lib/Travel/Status/DE/HAFAS/Services.pm.PL
index 93696bd..55775c5 100644
--- a/lib/Travel/Status/DE/HAFAS/Services.pm.PL
+++ b/lib/Travel/Status/DE/HAFAS/Services.pm.PL
@@ -17,12 +17,13 @@ sub load_instance {
 	my $data = $json->decode(
 		scalar read_file("ext/transport-apis/data/${path}-hafas-mgate.json") );
 	my %ret = (
-		name      => $data->{name} =~ s{ *[(][^)]+[)]}{}r,
-		homepage  => $data->{attribution}{homepage},
-		mgate     => $data->{options}{endpoint},
-		time_zone => $data->{timezone},
-		languages => $data->{supportedLanguages},
-		request   => {
+		name       => $data->{name} =~ s{ *[(][^)]+[)]}{}r,
+		homepage   => $data->{attribution}{homepage},
+		mgate      => $data->{options}{endpoint},
+		time_zone  => $data->{timezone},
+		languages  => $data->{supportedLanguages},
+		tls_verify => $opt{tls_verify} // 1,
+		request    => {
 			client => $data->{options}{client},
 			auth   => $data->{options}{auth},
 		},
@@ -30,11 +31,6 @@ sub load_instance {
 			area    => $data->{coverage}{realtimeCoverage}{area},
 			regions => $data->{coverage}{realtimeCoverage}{region} // []
 		},
-
-		#coverage => {
-		#	area => $data->{coverage}{realtimeCoverage}{area},
-		#	regions => $data->{coverage}{realtimeCoverage}{region},
-		#}
 	);
 
 	my %bitmask_to_product;
@@ -163,7 +159,7 @@ my %hafas_instance = (
 		salt   => 'i5s7m3q9z6b4k1c2',
 		micmac => 1,
 	},
-	KVB        => { load_instance( 'de/kvb',           lang => 'deu' ), },
+	KVB        => { load_instance( 'de/kvb', lang => 'deu' ), tls_verify => 0 },
 	mobiliteit => { load_instance( 'lu/mobiliteit-lu', lang => 'deu' ) },
 	NAHSH      => {
 		load_instance('de/nahsh'),