check_dns_host

Perl, uses (requires):

Net::DNS
Getopt::Long
Array::Compare
Pod::Usage
Time::HiRes

/ Example service definition:

define service{

use generic-service
hostgroup_name deathstar*
servicegroups dns_alerts
service_description DNS_forward
check_command check_dns_host_forward_match!1
notification_options c
}


define service{

use generic-service
hostgroup_name deathstar*
servicegroups dns_alerts
service_description DNS_reverse
check_command check_dns_host_reverse_match!1
notification_options c
}


/ Example command definition:

define command{

command_name check_dns_host_forward_match
command_line $USER1$/check_dns_host.pl -H $HOSTALIAS$ -q FORWARD -w 50 -c 500 -m $HOSTADDRESS$ -r $ARG1$
}


define command{

command_name check_dns_host_reverse_match
command_line $USER1$/check_dns_host.pl -H $HOSTADDRESS$ -q REVERSE -w 50 -c 500 -m $HOSTALIAS$ -r $ARG1$
}