diff options
| author | Daniel Friesel <derf@finalrewind.org> | 2020-10-04 12:27:20 +0200 |
|---|---|---|
| committer | Daniel Friesel <derf@finalrewind.org> | 2020-10-04 12:27:20 +0200 |
| commit | 562dd7ccaef9270070d142e9d6cfe8aa164e072e (patch) | |
| tree | 770f4a5c9b33b1d67366f0a2ab5f0d3cf36d71fa /lib/Travelynx/Helper | |
| parent | 7ef1fe06b9968be758c1cc32f18987a71a2cb698 (diff) | |
add toot and tweet settings to traewelling checkin
Diffstat (limited to 'lib/Travelynx/Helper')
| -rw-r--r-- | lib/Travelynx/Helper/Traewelling.pm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lib/Travelynx/Helper/Traewelling.pm b/lib/Travelynx/Helper/Traewelling.pm index 6d7c367..2a522e5 100644 --- a/lib/Travelynx/Helper/Traewelling.pm +++ b/lib/Travelynx/Helper/Traewelling.pm @@ -286,6 +286,8 @@ sub checkin { tripID => $opt{trip_id}, 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", @@ -321,7 +323,7 @@ sub checkin { ); return; } - $self->{log}->debug("... success!"); + $self->{log}->debug( "... success! " . $tx->res->body ); # As of 2020-10-04, traewelling.de checkins do not yet return # "statusId". The patch is present on the develop branch and waiting |