diff options
Diffstat (limited to 'lib/Travelynx/Helper/Traewelling.pm')
| -rw-r--r-- | lib/Travelynx/Helper/Traewelling.pm | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/lib/Travelynx/Helper/Traewelling.pm b/lib/Travelynx/Helper/Traewelling.pm index bcde1de..f216263 100644 --- a/lib/Travelynx/Helper/Traewelling.pm +++ b/lib/Travelynx/Helper/Traewelling.pm @@ -1,6 +1,7 @@ package Travelynx::Helper::Traewelling; # Copyright (C) 2020-2023 Birte Kristina Friesel +# Copyright (C) 2023 networkException <git@nwex.de> # # SPDX-License-Identifier: AGPL-3.0-or-later @@ -322,6 +323,20 @@ sub logout_p { return $promise; } +sub convert_travelynx_to_traewelling_visibility { + my ( $travelynx_visibility ) = @_; + + my %visibilities = ( + 100 => 0, # public => StatusVisibility::PUBLIC + 80 => 4, # travelynx => StatusVisibility::AUTHENTICATED (only visible for logged in users) + 60 => 2, # followers => StatusVisibility::FOLLOWERS + 30 => 3, # unlisted => StatusVisibility::PRIVATE (there is no träwelling equivalent to unlisted, their StatusVisibility::UNLISTED shows the journey on the profile) + 10 => 3, # private => StatusVisibility::PRIVATE + ); + + return $visibilities{$travelynx_visibility}; +} + sub checkin_p { my ( $self, %opt ) = @_; @@ -352,6 +367,7 @@ sub checkin_p { arrival => $arrival_ts, toot => $opt{data}{toot} ? \1 : \0, tweet => $opt{data}{tweet} ? \1 : \0, + visibility => convert_travelynx_to_traewelling_visibility($opt{visibility}) }; if ( $opt{user_data}{comment} ) { |