App-KGB

 view release on metacpan or  search on metacpan

Build.PL  view on Meta::CPAN

        perl                           => '5.010',
        'Class::Accessor'              => 0,
        'DBD::Pg'                      => 0,
        'Digest::SHA'                  => 0,
        'DirHandle'                    => 0,
        'File::Touch'                  => 0,
        'Git'                          => 0,
        'IPC::Run'                     => 0,
        'IPC::System::Simple'          => 0,
        'List::MoreUtils'              => 0,
        'JSON::XS'                     => 0,
        $json_rpc_client_module        => 0,
        'Net::IP'                      => 0,
        'POE'                          => 0,
        'POE::Component::IRC'          => '5.56',
        'POE::Component::Server::SOAP' => 0,
        'Proc::PID::File'              => 0,
        'SOAP::Lite'                   => 0,
        'SVN::Core'                    => 0,
        'SVN::Fs'                      => 0,
        'SVN::Repos'                   => 0,

Changes  view on Meta::CPAN

1.31 2013-08-17
  * client: default to using json
  * remove author-login from default message templates
  * import dirname in Client.pm
  * configure test git repositories whether test bot is running or not
  * remove project from default configuration
  * update documentation about default message templates
  * add author_name field for CVS commits
  * client: decode arguments given to --relay-msg
  * require JSON::XS instead of plain JSON

1.30 2013-08-09
  * bot: fix colorize_change_wrapper

1.29 2013-08-08
  * add versions to all modules
  * ensure strict and warnings are used everywhere

1.28 2013-08-08
  [ gregor herrmann ]

META.json  view on Meta::CPAN

         "requires" : {
            "Class::Accessor" : "0",
            "DBD::Pg" : "0",
            "Digest::SHA" : "0",
            "DirHandle" : "0",
            "File::Touch" : "0",
            "Git" : "0",
            "IPC::Run" : "0",
            "IPC::System::Simple" : "0",
            "JSON::RPC::Legacy::Client" : "0",
            "JSON::XS" : "0",
            "List::MoreUtils" : "0",
            "Net::IP" : "0",
            "POE" : "0",
            "POE::Component::IRC" : "5.56",
            "POE::Component::Server::SOAP" : "0",
            "Proc::PID::File" : "0",
            "SOAP::Lite" : "0",
            "SVN::Core" : "0",
            "SVN::Fs" : "0",
            "SVN::Repos" : "0",

META.yml  view on Meta::CPAN

requires:
  Class::Accessor: '0'
  DBD::Pg: '0'
  Digest::SHA: '0'
  DirHandle: '0'
  File::Touch: '0'
  Git: '0'
  IPC::Run: '0'
  IPC::System::Simple: '0'
  JSON::RPC::Legacy::Client: '0'
  JSON::XS: '0'
  List::MoreUtils: '0'
  Net::IP: '0'
  POE: '0'
  POE::Component::IRC: '5.56'
  POE::Component::Server::SOAP: '0'
  Proc::PID::File: '0'
  SOAP::Lite: '0'
  SVN::Core: '0'
  SVN::Fs: '0'
  SVN::Repos: '0'

lib/App/KGB/Client/ServerRef.pm  view on Meta::CPAN

            $res->fault->{detail}
            ? 'FAULT DETAILS: ' . $res->fault->{detail}
            : ''
            );
    }
}

sub send_changes_json {
    my ( $self, $repo_id, $message ) = @_;

    require JSON::XS;
    require JSON::RPC::Client::Any;
    my $rpc = JSON::RPC::Client::Any->new();

    $rpc->ua->timeout($self->timeout // 15);
    $message->{id} = 1;
    $message->{version} = '1.1';
    my $json = eval { JSON::XS::encode_json($message); };
    unless ($json) {
        my $dump;
        if ( require Devel::PartialDump ) {
            $dump = Devel::PartialDump->new->dump($message);
        }
        elsif ( require Data::Dumper ) {
            $dump = Data::Dumper::Dump($message);
        }
        else {
            $dump = '(Neither Devel::PartialDump nor Data::Dumper available)';

script/kgb-bot  view on Meta::CPAN

    "3" => 1,
);
our $progname;
our $restart      = 0;
our $shuttingdown = 0;
our $painter;
our $painter_dummy = App::KGB::Painter->new( { simulate => 1 } );
my %stats;
my $run_time_since = time;

# for JSON::XS, used for debugging
sub Net::IP::TO_JSON {
    shift->short;
}

sub save_progname () {
    $progname = Cwd::realpath($0);
}

sub polygen_available () {
    unless ( eval { require IPC::Run } ) {

script/kgb-bot  view on Meta::CPAN

    $KGB::debug = $conf->{debug} if exists $conf->{debug};
    $conf->{pid_dir}
        = Cwd::realpath( $conf->{pid_dir} // '/var/run/kgb-bot' );

    if (    exists $conf->{webhook}
        and exists $conf->{webhook}{allowed_networks} )
    {
        $_ = Net::IP->new($_) for @{ $conf->{webhook}{allowed_networks} };
    }

    KGB->debug( JSON::XS->new->convert_blessed(1)->encode($conf) );
    return $conf;
}

sub load_conf($) {
    my $file = shift;
    my $conf = read_conf($file);

    # Save globals
    $config_file = Cwd::realpath($file);
    $config      = $conf;

script/kgb-bot  view on Meta::CPAN

    else {
        return reply( $kernel, $net, $chan, $nick,
            "command '$command' is not known to me" );
    }
}

package KGB::JSON;

use strict;
use warnings;
use JSON::XS;
use POE;
use Digest::SHA qw(sha1_hex);

sub json_error {
    my ( $json, $resp, $error ) = @_;
    KGB->out($error);
    $resp->code(200);
    $resp->message('OK');
    $resp->content(
        encode_json(

script/kgb-ci-report  view on Meta::CPAN

#!/usr/bin/perl

use strict;
use warnings;

use DBD::Pg;
use DBI;
use Dpkg::Version;
use Getopt::Long;
use JSON::XS qw(decode_json);
use LWP::UserAgent;

my ( @opt_maintainer, $opt_kgb_config );
my $opt_verbose      = 1;
my $opt_distribution = 'debian';
my $opt_release      = 'sid';
my $opt_kgb_client   = 'kgb-client';

GetOptions(
    'm|maintainer=s' => \@opt_maintainer,