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

Indicate that we support gzip and brotli compression

parent 8b3c5369

cpanfile

+2 −0
Original line number Diff line number Diff line
@@ -2,6 +2,8 @@ requires 'Class::Accessor'; 
requires 'DateTime';

requires 'DateTime::Format::Strptime';

requires 'Getopt::Long';

requires 'HTTP::Request', '7.00';

requires 'IO::Uncompress::Brotli';

requires 'JSON';

requires 'List::Util';

requires 'LWP::UserAgent';

lib/Travel/Status/DE/DBRIS.pm

+18 −1
Original line number Diff line number Diff line
@@ -59,6 +59,7 @@ sub new { 
		ua             => $ua,

		header         => {

			'accept'           => 'application/json',

			'accept-encoding'  => 'gzip, br',

			'content-type'     => 'application/json; charset=utf-8',

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

			'Referer'          => 'https://www.bahn.de/buchung/fahrplan/suche',
@@ -301,7 +302,7 @@ sub get_with_cache { 
		}

		return ( undef, $reply->status_line );

	}

	my $content = $reply->content;

	my $content = $reply->decoded_content;



	if ($cache) {

		$cache->freeze( $url, \$content );
@@ -362,6 +363,22 @@ sub get_with_cache_p { 
				return;

			}

			my $content = $tx->res->body;



			if (   $tx->res->headers->content_encoding

				&& $tx->res->headers->content_encoding eq 'br' )

			{

				eval {

					require IO::Uncompress::Brotli;

					say "unbro";

					$content = IO::Uncompress::Brotli::unbro(

						$tx->res->content->asset->slurp );

					say "done";

				};

				if ($@) {

					say $@;

				}

			}



			if ($cache) {

				$cache->freeze( $url, \$content );

			}