API de integração do Jira Service Desk com o Nagios para abrir chamado de eventos/alertas

[rangel de oliveira machado]

#!/bin/perl

use strict;
use warnings;
use JIRA::REST;
use Data::Dumper;

use Getopt::Std;
use Getopt::Long qw(:config no_ignore_case bundling);

my $jira = JIRA::REST->new({
url => 'https://xxxxxxx',
username => 'xxxx',
password => 'xxxx'
});

#my $baseurl = $jira->GET('/rest/servicedeskapi/info');
#print Dumper($baseurl);
#
use vars qw( $state $type $attempt $hostname $servicedesc $serviceoutput $datetime );
GetOptions(
'help|h' => \&print_usage,
'state|s=s' => \$state,
'type|t=s' => \$type,
'attempt|A=i' => \$attempt,
'hostname|H=s' => \$hostname,
'servicedesc|S=s' => \$servicedesc,
'serviceoutput|a=s' => \$serviceoutput,
'datetime|d=s' => \$datetime,
);

if(!$state or !$type or !$attempt or !$hostname or !$servicedesc) {
print "\tUSAGE:/usr/local/nagios/libexec/jira_eventhandler.pl -s <state> -t <type> -A <attempt> -H <hostname> -S <servicedesc>\n";
exit 3; #unknown
}

if($type ne "HARD" or $state eq "OK") {
# not doing anything till its reaaaally a problem
exit 0; #ok
}

[Joao Galdino Mello de Souza]

Estava olhando seu script, acredito que esta faltando um pedaço. Não está fazendo nada com o objeto $jira que foi criado no início.