Issue has been fixed
This commit is contained in:
Daniel Friesel 2021-02-02 18:20:49 +01:00
parent 5bef0bdda9
commit 0088f11eb0

View file

@ -1,4 +1,5 @@
package Travelynx::Helper::Traewelling; package Travelynx::Helper::Traewelling;
# Copyright (C) 2020 Daniel Friesel # Copyright (C) 2020 Daniel Friesel
# #
# SPDX-License-Identifier: AGPL-3.0-or-later # SPDX-License-Identifier: AGPL-3.0-or-later
@ -310,37 +311,26 @@ sub checkin {
my $request = { 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}, start => q{} . $opt{dep_eva},
destination => q{} . $opt{arr_eva}, destination => q{} . $opt{arr_eva},
toot => $opt{data}{toot} ? \1 : \0, toot => $opt{data}{toot} ? \1 : \0,
tweet => $opt{data}{tweet} ? \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} ) { if ( $opt{user_data}{comment} ) {
$request->{body} = $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) $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" => ->post_p( "https://traewelling.de/api/v0/trains/checkin" =>
$header => json => $request ); $header => json => $request )->then(
}
)->then(
sub { sub {
my ($tx) = @_; my ($tx) = @_;
if ( my $err = $tx->error ) { if ( my $err = $tx->error ) {
my $err_msg = "HTTP $err->{code} $err->{message}"; 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( $self->{model}->log(
uid => $opt{uid}, uid => $opt{uid},
message => message =>