Легкий в использовании модуль для написания бэкендов GitHub на основе CGI на основе CGI в Perl.
В большинстве случаев трех утверждений уже достаточно. Настройте скрипт на триггер, общий секрет и файл журнала, и вы готовы к работе.
Он также поддерживает обновление значков Shields.io-подобного статуса в зависимости от кода возврата сценария триггера (или успеха/неудачи вилки).
# !/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();Модуль был написан из -за разочарования того, что он не получает GitHub :: WebHook для совместной работы с cgi.pm.
Первое воплощение было написано как один сценарий CGI, питающий веб-крючок для книги по управлению пакетами Debian, чтобы вызвать сборки вариантов электронной книги и их развертывание при каждом толчке.
Copyright 2016 Axel Beckert [email protected].
Эта программа является бесплатным программным обеспечением; Вы можете перераспределить его и/или изменить его в соответствии с условиями либо: общая публичная лицензия GNU, опубликованную Фондом Free Software, либо версией 1, либо (по варианту) любой более поздней версии; или художественная лицензия.
См. Http://dev.perl.org/licenses/ Для получения дополнительной информации.
Значки в каталоге static-badges лицензированы в соответствии с посвящением общественного достояния CC0 и не защищены авторским правом.