Unverified Commit b9116cbe authored by Birte Kristina Friesel's avatar Birte Kristina Friesel
Browse files

Disable all certificate checks for KVB 

KVB appear to have misconfigured their TLS certificate
parent 5e77b1d2

lib/Travel/Status/DE/HAFAS.pm

+6 −0
Original line number Diff line number Diff line
@@ -12,6 +12,7 @@ use DateTime; 
use DateTime::Format::Strptime;

use Digest::MD5 qw(md5_hex);

use Encode      qw(decode encode);

use IO::Socket::SSL;

use JSON;

use LWP::UserAgent;

use Travel::Status::DE::HAFAS::Journey;
@@ -52,6 +53,11 @@ sub new { 
				$lwp_options{proxy} = [ [ 'http', 'https' ] => $proxy ];

			}

		}

		if ( $service and not $hafas_instance->{$service}{tls_verify} ) {

			$lwp_options{ssl_opts}{SSL_verify_mode}

			  = IO::Socket::SSL::SSL_VERIFY_NONE;

			$lwp_options{ssl_opts}{verify_hostname} = 0;

		}

		$ua = LWP::UserAgent->new(%lwp_options);

		$ua->env_proxy;

	}

lib/Travel/Status/DE/HAFAS/Services.pm.PL

+8 −12
Original line number Diff line number Diff line
@@ -22,6 +22,7 @@ sub load_instance { 
		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'),