summaryrefslogtreecommitdiff
path: root/lib/Travelynx/Helper/Traewelling.pm
diff options
context:
space:
mode:
authorDaniel Friesel <derf@finalrewind.org>2021-02-02 18:20:49 +0100
committerDaniel Friesel <derf@finalrewind.org>2021-02-02 18:20:49 +0100
commit0088f11eb03b69608ac6133f00df088d0a9ff16c (patch)
treed2a6d47e0d5ecdc906cda3de90b40034b46a1d27 /lib/Travelynx/Helper/Traewelling.pm
parent5bef0bdda9e5d57672ed54098e941fa783a520be (diff)
Remove workaround for https://github.com/Traewelling/traewelling/issues/72
Issue has been fixed
Diffstat (limited to 'lib/Travelynx/Helper/Traewelling.pm')
-rw-r--r--lib/Travelynx/Helper/Traewelling.pm24
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 =>