view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

    - Adjustments to test suite per RT119718

4.4001_002 Friday January 1 13:42 2017
    - Add IO::Socket::SSL to the test requirements, as this is why most of cpantesters is failing

4.4001_001 Friday January 1 12:17 2017
    - Mention exception handling in pod, closes RT #91405
    - Add an example nagios script
    - Set all server tests to author_tests for now
    - Bug.pm: Lots of pod improvements/Comment. Notably for update(), create() and what tags are
    - Bug/Comment.pm: Improve the behaviour of get() so that you can just give it a #bugid
    - t/200bug.t: fix for RT #119718
    - t/300classification.t: fix for RT #119718

4.4 Thursday December 29 23:13 2016
    - Client.pm: logout() now returns 1 (true) if logout is successful
    - User.pm: offer_account_by_email returns 1 (true) if successful
    - t/300component.t: added, but doesnt do anything
    - All tests now use diag() rather than printing to STDERR
    - t/700user.t: added, does as much as it can without admin privileges
    - Added README.md file for github etc.

eg/nagios2bugzilla/talktobugzilla.pl  view on Meta::CPAN

    $log->info("Tagged new bugs @newbugs with 'nagiosgenerated'") if @newbugs;
    $log->info("Tagged bugs @updatedbugs with 'nagiosgenerated'") if @updatedbugs;

    return 1

}

# adds a comment in nagios
sub nagios_comment {
    my ($host, $service, $bugid) = @_;

    $log->info( 'Telling nagios about new bug ' . $bugid );

    #  ADD_SVC_COMMENT;<host_name>;<service_description>;<persistent>;<author>;<comment>
    nagios_command(
        sprintf('ADD_SVC_COMMENT;%s;%s;1;bugzilla;%s',
            $host, $service, 'Auto-Bz http://bugzilla.domain.com/show_bug.cgi?id='.$bugid )
    );

    $log->info( 'Nagios was told about new bug ' . $bugid );

    return 1

}

# problems we have already observed
my %problems;

sub create_bug {