Un module facile à utiliser pour rédiger des backend GitHub Webhook basés sur CGI à Perl.
Dans la plupart des cas, trois déclarations suffisent déjà. Configurez un script à déclencher, un secret partagé et un fichier journal et vous êtes prêt à partir.
Il prend également en charge la mise à jour des badges d'état de type shields.io en fonction du code de retour du script de déclenchement (ou du succès / échec de la fourche).
# !/usr/bin/perl
use CGI::Github::Webhook;
my $ghwh = CGI::Github::Webhook -> new(
mime_type => ' text/plain ' ,
trigger => ' /srv/some-github-project/bin/deploy.pl ' ,
trigger_backgrounded => 1,
secret => ' use a generated password here, nothing valuable ' ,
log => ' /srv/some-github-project/log/deployment.log ' ,
badge_to => ' /srv/some-github-project/htdocs/status.svg ' ,
);
$ghwh -> run();Le module a été écrit sur la frustration de ne pas obtenir GitHub :: WebHook pour travailler avec cgi.pm.
Son première incarnation a été écrite comme un seul script CGI alimentant un webhook pour le livre de gestion des packages Debian pour déclencher des builds des variantes de livres électroniques et leur déploiement à chaque poussée.
Copyright 2016 Axel Beckert [email protected].
Ce programme est un logiciel gratuit; Vous pouvez le redistribuer et / ou le modifier selon les termes de la licence publique générale GNU publiée par la Free Software Foundation, soit la version 1, soit (à votre option) toute version ultérieure; ou la licence artistique.
Voir http://dev.perl.org/licenses/ pour plus d'informations.
Les badges dans le répertoire static-badges sont concédés sous licence en vertu du dévouement du domaine public CC0 et non protégé par le droit d'auteur.