102 lines
2.7 KiB
Perl
102 lines
2.7 KiB
Perl
#!/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:
|
|
"
|