Verified Commit 3e6e3631 authored by Luc Didry's avatar Luc Didry
Browse files

First version

parents
This diff is collapsed.
# Pouet it from CI
This software is used for automatically tooting from Gitlab CI when creating a new tag.
## How to use?
TODO: add instructions
## License
GPLv3, see the [LICENSE](LICENSE) file for details.
## Logo
The logo is the [mascot of Mastodon](https://commons.wikimedia.org/wiki/File%3AMastodon_Mascot_%28Alternative%29.png)
## Author
[Luc Didry](https://fiat-tux.fr). You can support me on [Tipeee](https://tipeee.com/fiat-tux) and [Liberapay](https://liberapay.com/sky).
[![Tipeee button](https://framagit.org/luc/last/raw/master/themes/default/img/tipeee-tip-btn.png)](https://tipeee.com/fiat-tux) [![Liberapay logo](https://framagit.org/luc/last/raw/master/themes/default/img/liberapay.png)](https://liberapay.com/sky)
requires 'Mastodon::Client';
This diff is collapsed.
#!/usr/bin/perl
use strict;
use warnings;
use 5.10.0;
use Mastodon::Client;
die 'No host defined. Aborting' unless $ENV{HOST};
die 'No message. Aborting.' unless $ENV{MESSAGE};
my $client = Mastodon::Client->new(
instance => $ENV{HOST},
name => 'Pouet it from CI',
website => 'https://framagit.org/fiat-tux/hat-softwares/mastodon/pouet-it-from-ci',
scopes => ['write'],
client_id => $ENV{CLIENT_ID},
client_secret => $ENV{CLIENT_SECRET},
access_token => $ENV{ACCESS_TOKEN},
coerce_entities => 0
);
say 'Posting status';
$client->post_status($ENV{MESSAGE});
say 'All has been well. Message tooted.';
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment