Nagios Support Forum

Code: Select all

use strict;
use warnings;
use Ocs::Nagios;

#use LWP::UserAgent 5.834; # need local_address
#use LWP::Simple;
#use LWP

#my $ua = LWP::UserAgent->new;
#$ua->default_header('User-Agent' => 'Mozilla/5.0');

my $server="10.120.7.212";
my $soap_user="admin";
my $soap_pass="admin";
my $soap_port=80;
my $directory="/etc/nagios2/conf.d/";
#my $directory="/etc/init.d/nagios";
my $obj = new Ocs::Nagios( server => $server,
                      soap_user => $soap_user,
                      soap_pass => $soap_pass,
                      soap_port => $soap_port,
                      directory => $directory
);

my %hash=$obj->init();

while ((my $host,my $ip) = each(%hash)) {
print "KEY : $host, Value : $ip\n";
# Create a host Object
$obj->host( host => $host,
         ip => $ip,
         template => "generic-host"
);
# Create a SERVICE for this host
$obj->service( template => "generic-service",
            service_description => "PING",
            check_command => "check_ping!100.0,20%!500.0,60%"
);
}