Un módulo fácil de usar para escribir BitHub Backends basado en CGI en Perl.
En la mayoría de los casos, tres declaraciones ya son suficientes. Configure un script para activar, un secreto compartido y un archivo de registro y estará listo para comenzar.
También admite la actualización de las insignias de estado de tipo Shields.io dependiendo del código de retorno del script de activación (o el éxito/fallas de la bifurcación).
# !/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();El módulo ha sido escrito sobre la frustración de no obtener GitHub :: Webhook para trabajar junto con CGI.PM.
Su primera encarnación ha sido escrita como un solo script CGI que impulsa un webhook para que el libro de gestión de paquetes Debian desencadine las compilaciones de las variantes de libros electrónicos y su implementación en cada empuje.
Copyright 2016 axel beckert [email protected].
Este programa es software libre; Puede redistribuirlo y/o modificarlo bajo los términos de: la Licencia Pública General de GNU publicada por Free Software Foundation, ya sea la versión 1 o (a su opción) cualquier versión posterior; o la licencia artística.
Consulte http://dev.perl.org/licenses/ para obtener más información.
Las insignias en el directorio static-badges tienen licencia bajo la dedicación del dominio público CC0 y no tienen derechos de autor.