1 --- check_rbl-1.1.0/check_rbl 2010-02-01 18:28:07.075134119 +0200
2 +++ check_rbl-1.1.0/check_rbl 2010-02-01 18:28:07.075134119 +0200
5 if ( lookup($lookup_ip) ) {
7 + verbose "LISTED: $lookup_ip\n";
12 + verbose "OK: $lookup_ip\n";
18 $PLUGIN->nagios_exit( UNKNOWN, 'Cannot resolve ' . $OPTIONS->host );
21 +verbose "Using " . $OPTIONS->timeout . " as global script timeout\n";
22 alarm $OPTIONS->timeout;
27 ################################################################################
29 -verbose 'Checking ' . $OPTIONS->host . " ($IP)\n";
30 +my @servers = @{$OPTIONS->server};
31 +my $nservers = scalar @servers;
33 +verbose 'Checking ' . $OPTIONS->host . " ($IP) on $nservers server(s)\n";
36 { workers => $OPTIONS->workers },
39 - while ( my $server = pop @{ $OPTIONS->server } ) {
40 + while ( my $server = pop @servers ) {
45 my $total = scalar @BLACKLISTED;
48 - "BLACKLISTED on $total " . ( ( $total == 1 ) ? 'server' : 'servers' );
49 + $OPTIONS->host. " BLACKLISTED on $total " . ( ( $total == 1 ) ? 'server' : 'servers' ) . " of $nservers";
52 $status .= " (@BLACKLISTED)";