PrivateCoffee/travelynx
4
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

perltidy

Browse source
This commit is contained in:
Birte Kristina Friesel 2023-07-13 20:56:30 +02:00
parent 0c1993f28e
commit 83df6f41e2
No known key found for this signature in database
GPG key ID: 19E6E524EBB177BA
1 changed files with 21 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

28
lib/Travelynx/Helper/Traewelling.pm
View file

@ -324,14 +324,27 @@ sub logout_p {
}
sub convert_travelynx_to_traewelling_visibility {
my ( $travelynx_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
# public => StatusVisibility::PUBLIC
100 => 0,
# travelynx => StatusVisibility::AUTHENTICATED
# (only visible for logged in users)
80 => 4,
# followers => StatusVisibility::FOLLOWERS
60 => 2,
# unlisted => StatusVisibility::PRIVATE
# (there is no träwelling equivalent to unlisted, their
# StatusVisibility::UNLISTED shows the journey on the profile)
30 => 3,
# private => StatusVisibility::PRIVATE
10 => 3,
);
return $visibilities{$travelynx_visibility};
@ -367,7 +380,8 @@ 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})
visibility =>
convert_travelynx_to_traewelling_visibility( $opt{visibility} )
};
if ( $opt{user_data}{comment} ) {