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

Send a (somewhat) random user-agent string, just to be on the safe side

parent 09e201a0

lib/Travel/Status/DE/DBRIS.pm

+15 −0
Original line number Diff line number Diff line
@@ -35,6 +35,20 @@ sub new { 
		$ua->env_proxy;

	}



	my @ua_base = (

'Mozilla/5.0 (Linux; Android 10; K) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/114.0.XXXX.YYY Mobile Safari/537.36',

'Mozila/5.0 (Linux; Android 14; SM-S928B/DS) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/120.0.XXXX.YYY Mobile Safari/537.36',

'Mozilla/5.0 (Linux; Android 14; Pixel 9 Pro Build/AD1A.240418.003; wv) AppleWebKit/537.36 (KHTML, like Gecko) Version/4.0 Chrome/124.0.XXXX.YYY Mobile Safari/537.36',

'Mozilla/5.0 (Linux; Android 13; Pixel 7) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/112.0.XXXX.YYY Mobile Safari/537.36',

'Mozilla/5.0 (Linux; Android 15; moto g - 2025 Build/V1VK35.22-13-2; wv) AppleWebKit/537.36 (KHTML, like Gecko) Version/4.0 Chrome/132.0.XXXX.YYY Mobile Safari/537.36',

'Mozilla/5.0 (X11; CrOS x86_64 14541.0.0) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/134.0.XXXX.YYY Safari/537.36',

	);



	my $rand1  = int( rand(1000) );

	my $rand2  = int( rand(100) );

	my $ua_str = $ua_base[ int( rand(@ua_base) ) ] =~ s{XXXX}{$rand1}r

	  =~ s{YYY}{$rand2}r;



	my $self = {

		cache          => $conf{cache},

		failure_cache  => $conf{failure_cache},
@@ -48,6 +62,7 @@ sub new { 
			'content-type'     => 'application/json; charset=utf-8',

			'Origin'           => 'https://www.bahn.de',

			'Referer'          => 'https://www.bahn.de/buchung/fahrplan/suche',

			'User-Agent'       => $ua_str,

			'x-correlation-id' => uuid4() . '_' . uuid4(),

		},

	};