Nagios Support Forum

Code: Select all

#!/usr/bin/perl

use LWP::UserAgent;
use JSON;
use Time::Format qw(%time %strftime %manip);

$e = 0;
$s = 1;

        my $start=  $time{'yyyy/mm/dd hh:mm:ss', time-$s*60*60};
        my $end  = $time{'yyyy/mm/dd hh:mm:ss', time-$e*60*60};

        my $param = "{\"params\":{\"msg\":\"values\"
                                        ,\"id1\":0
                                        ,\"id2\":0
                                        ,\"size\":100
                                        ,\"options\":\"sort-descending\"
                                        ,\"fieldName\":\"did\"
                                        ,\"where\":\"time=".$start ."-" . $end . "\"}}'";

        $urlget = "http://10.1.1.1:12345/sdk?&force-content-type=application/json&expiry=0";
        my $ua = LWP::UserAgent->new;
        my $json = JSON->new;
        my $basic = "10.1.1.1:12345";
        $ua->agent('bot1.0');
        $ua->credentials($basic,"exampletechnology","username" => "password");
        my $request = $ua->post($urlget, Content_Type => "application/json", Content => $param);
        $test = $json->decode($request->content);
        my $count = 0;
        my @urls;
        my %balls;
        my $state = 0;
        foreach (@{$test->{"results"}->{"fields"}})
        {
                push(@urls, $_->{value});
                $count++;
                $balls{$_->{group}}->{ $_->{type}}  = $_->{value}  ;
        }
        #foreach $line (@urls) {
        #       print "$line \n";
        #                       }
        #print "$count\n";

        if ($count == 13) {
        print "OK\n";
        exit (0);
        } else {
        print "CRITICAL\n";
        exit (2);
        }

Code: Select all

echo $?