diff options
| author | Daniel Friesel <derf@finalrewind.org> | 2021-02-02 18:20:49 +0100 | 
|---|---|---|
| committer | Daniel Friesel <derf@finalrewind.org> | 2021-02-02 18:20:49 +0100 | 
| commit | 0088f11eb03b69608ac6133f00df088d0a9ff16c (patch) | |
| tree | d2a6d47e0d5ecdc906cda3de90b40034b46a1d27 /lib | |
| parent | 5bef0bdda9e5d57672ed54098e941fa783a520be (diff) | |
Remove workaround for https://github.com/Traewelling/traewelling/issues/72
Issue has been fixed
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/Travelynx/Helper/Traewelling.pm | 24 | 
1 files changed, 7 insertions, 17 deletions
| diff --git a/lib/Travelynx/Helper/Traewelling.pm b/lib/Travelynx/Helper/Traewelling.pm index 45b9511..2a8b5d5 100644 --- a/lib/Travelynx/Helper/Traewelling.pm +++ b/lib/Travelynx/Helper/Traewelling.pm @@ -1,4 +1,5 @@  package Travelynx::Helper::Traewelling; +  # Copyright (C) 2020 Daniel Friesel  #  # SPDX-License-Identifier: AGPL-3.0-or-later @@ -309,38 +310,27 @@ sub checkin {  	};  	my $request = { -		tripID      => $opt{trip_id}, +		tripID   => $opt{trip_id}, +		lineName => $opt{train_type} . ' ' +		  . ( $opt{train_line} // $opt{train_no} ),  		start       => q{} . $opt{dep_eva},  		destination => q{} . $opt{arr_eva},  		toot        => $opt{data}{toot} ? \1 : \0,  		tweet       => $opt{data}{tweet} ? \1 : \0,  	}; -	my $trip_req = sprintf( -		"tripID=%s&lineName=%s%%20%s&start=%s", -		$opt{trip_id}, $opt{train_type}, $opt{train_line} // $opt{train_no}, -		$opt{dep_eva} -	);  	if ( $opt{user_data}{comment} ) {  		$request->{body} = $opt{user_data}{comment};  	} -	# Work around https://github.com/Traewelling/traewelling/issues/72  	$self->{user_agent}->request_timeout(20) -	  ->get_p( -		"https://traewelling.de/api/v0/trains/trip?$trip_req" => $header ) -	  ->then( -		sub { -			return $self->{user_agent}->request_timeout(20) -			  ->post_p( "https://traewelling.de/api/v0/trains/checkin" => -				  $header => json => $request ); -		} -	)->then( +	  ->post_p( "https://traewelling.de/api/v0/trains/checkin" => +		  $header => json => $request )->then(  		sub {  			my ($tx) = @_;  			if ( my $err = $tx->error ) {  				my $err_msg = "HTTP $err->{code} $err->{message}"; -				$self->{log}->debug("... error: $err_msg"); +				$self->{log}->warn("Traewelling checkin error: $err_msg");  				$self->{model}->log(  					uid => $opt{uid},  					message => | 
