From b15adb7762b6caaecaa83637abfcf5fdb4802092 Mon Sep 17 00:00:00 2001 From: Holger Weiss Date: Mon, 2 Sep 2013 13:16:24 +0200 Subject: Remove "contrib" plugins These days, sites such as "Nagios Exchange" are a much better place for publishing plugins not maintained by the Plugins Development Team. --- contrib/check_dns_random.pl | 74 --------------------------------------------- 1 file changed, 74 deletions(-) delete mode 100644 contrib/check_dns_random.pl (limited to 'contrib/check_dns_random.pl') diff --git a/contrib/check_dns_random.pl b/contrib/check_dns_random.pl deleted file mode 100644 index 4bed4120..00000000 --- a/contrib/check_dns_random.pl +++ /dev/null @@ -1,74 +0,0 @@ -#!/usr/bin/perl -# ------------------------------------------------------------------------------ -# File Name: check_dns_random.pl -# Author: Richard Mayhew - South Africa -# Date: 2000/01/26 -# Version: 1.0 -# Description: This script will check to see if dns resolves hosts -# randomly from a list using the check_dns plugin. -# Email: netsaint@splash.co.za -# ------------------------------------------------------------------------------ -# Copyright 1999 (c) Richard Mayhew -# Credits go to Ethan Galstad for coding Nagios -# If any changes are made to this script, please mail me a copy of the -# changes :) -# License GPL -# ------------------------------------------------------------------------------ -# Date Author Reason -# ---- ------ ------ -# 1999/09/26 RM Creation -# ------------------------------------------------------------------------------ - -# -----------------------------------------------------------------[ Require ]-- -require 5.004; - -# --------------------------------------------------------------------[ Uses ]-- -use Socket; -use strict; - -# --------------------------------------------------------------[ Enviroment ]-- -$ENV{PATH} = "/bin"; -$ENV{BASH_ENV} = ""; -$|=1; - -my $host = shift || &usage; - -my $domainfile = "/usr/local/nagios/etc/domains.list"; -my $wc = `/usr/bin/wc -l $domainfile`; -my $check = "/usr/local/nagios/libexec/check_dns"; -my $x = 0; -my $srv_file = ""; -my $z = ""; -my $y = ""; - -open(DOMAIN,"<$domainfile") or die "Error Opening $domainfile File!\n"; - while () { - $srv_file .= $_; -} - close(DOMAIN); - my @data = split(/\n/,$srv_file); - -chomp $wc; -$wc =~ s/ //g; -$wc =~ s/domains//g; - -$x = rand $wc; -($z,$y) = split(/\./,$x); - -system($check, $data[$z], $host); -exit ($? / 256); - -sub usage -{ - print "Minimum arguments not supplied!\n"; - print "\n"; - print "Perl Check Random DNS plugin for Nagios\n"; - print "Copyright (c) 2000 Richard Mayhew\n"; - print "\n"; - print "Usage: check_dns_random.pl \n"; - print "\n"; - print " = DNS server you would like to query.\n"; - exit -1; - -} - -- cgit v1.2.3-74-g34f1