#!/bin/perl

#Client-Schlüssel 	8aJzHkVjpomU2UUl_W8G_90Syb3P9Eg5xK61Nwti85o
#Client-Secret 	v6zxkyQ1oNVr4RbB50w9dIancWDKhpXRgxG_4dej0eo
#Dein Zugangs-Token 	KkfiWIzBCAAiVOff9OHK0ka8fCsA-RAP-1TS9a_1Fks

use Mastodon::Client;

my $s1='
Alle #Ghostbike|s in einer Karte - #openstreetmap bietet sich da an

Viele von euch kennen diese Mahnmale, aber einige fehlen in #osm.
Sorgt bitte dafür, dass sie eingetragen sind bzw. werden.

Macht ein Foto und schreibt mich an (Chat oder Mail, Delta-Chat im Profil).
Tragt ihr selbst ein, kann das Preset unten die Daten einheitlich und vollständig gestalten.

@fedibikes@a.gup.pe

JOSM-Preset https://josm.openstreetmap.de/josmfile?page=Presets/Ghost%20Bike&zip
';

my $s2='
Fedinauten und Garmin User. Bock auf eine Garmin Gruppe? Ihr seid herzlich eingeladen.

https://connect.garmin.com/modern/group/3901008

@fedibikes@a.gup.pe

Ja, ich weiß, man könnte auch strava, weil mehr User oder so. Ich aber nicht :elephant:
';

my $post;

if ($ARGV[0] eq "osm") {
   $post = $s1;
} elsif ($ARGV[0] eq "garmin") {
   $post = $s2;
} else {
   $post = $ARGV[0];
}

if ($post) {
   my $client = Mastodon::Client->new(
      instance        => 'hessen.social',
      name            => 'perltoot',
      client_id       => '8aJzHkVjpomU2UUl_W8G_90Syb3P9Eg5xK61Nwti85o',
      client_secret   => 'v6zxkyQ1oNVr4RbB50w9dIancWDKhpXRgxG_4dej0eo',
      access_token    => 'KkfiWIzBCAAiVOff9OHK0ka8fCsA-RAP-1TS9a_1Fks',
      coerce_entities => 1,
   );
   $client->post_status($post);
} else {
   print "\$ ./toot.pl <osm|garmin|TXT>\n";
}

0;
__END__

#$client->post_status('So, werde euch jetzt #Toot|s per #Perl reinballern! @rdfhrn') if $ARGV[0];


#$client->post_status('And now in secret...',
#  { visibility => 'unlisted' }
#)

# Streaming interface might change!
#my $listener = $client->stream( 'public' );
#$listener->on( update => sub {
#  my ($listener, $status) = @_;
#  printf "%s said: %s\n",
#    $status->account->display_name,
#    $status->content;
#});
#$listener->start;


./toot.pl "
Alle #Ghostbike|s in einer Karte - #openstreetmap bietet sich da an

Viele von euch kennen diese Mahnmale, aber einige fehlen in #osm.
Sorgt bitte dafür, dass sie eingetragen sind bzw. werden.

Macht ein Foto und schreibt mich an (Chat oder Mail, Delta-Chat im Profil).
Tragt ihr selbst ein, kann das Preset unten die Daten einheitlich und vollständig gestalten.

@fedibikes@a.gup.pe

JOSM-Preset https://josm.openstreetmap.de/josmfile?page=Presets/Ghost%20Bike&zip
"


./toot.pl "
Fedinauten und Garmin User. Bock auf eine Garmin Gruppe? Ihr seid herzlich eingeladen.

https://connect.garmin.com/modern/group/3901008

@fedibikes@a.gup.pe

Ja, ich weiß, man könnte auch strava, weil mehr User oder so. Ich aber nicht :elephant:
"