← Back to branch summary

~ubuntu-branches/ubuntu/precise/nagios-plugins/precise-proposed

« back to all changes in this revision

Viewing changes to contrib/check_dns_random.pl

  • Committer: Bazaar Package Importer
  • Author(s): Guido Trotter
  • Date: 2004-06-15 15:37:48 UTC
  • Revision ID: james.westby@ubuntu.com-20040615153748-pq7702qdzghqfcns
Tags: upstream-1.3.1.0
Import upstream version 1.3.1.0

Show diffs side-by-side

added added

removed removed

Lines of Context:
contrib/check_dns_random.pl
 
1
#!/usr/bin/perl
 
2
# ------------------------------------------------------------------------------
 
3
# File Name:            check_dns_random.pl
 
4
# Author:               Richard Mayhew - South Africa
 
5
# Date:                 2000/01/26
 
6
# Version:              1.0
 
7
# Description:          This script will check to see if dns resolves hosts
 
8
#                       randomly from a list using the check_dns plugin. 
 
9
# Email:                netsaint@splash.co.za
 
10
# ------------------------------------------------------------------------------
 
11
# Copyright 1999 (c) Richard Mayhew
 
12
# Credits go to Ethan Galstad for coding Nagios
 
13
# If any changes are made to this script, please mail me a copy of the
 
14
# changes :)
 
15
# License GPL
 
16
# ------------------------------------------------------------------------------
 
17
# Date          Author          Reason
 
18
# ----          ------          ------
 
19
# 1999/09/26    RM              Creation
 
20
# ------------------------------------------------------------------------------
 
21
 
 
22
# -----------------------------------------------------------------[ Require ]--
 
23
require 5.004;
 
24
 
 
25
# --------------------------------------------------------------------[ Uses ]--
 
26
use Socket;
 
27
use strict;
 
28
 
 
29
# --------------------------------------------------------------[ Enviroment ]--
 
30
$ENV{PATH} = "/bin";
 
31
$ENV{BASH_ENV} = "";
 
32
$|=1;
 
33
 
 
34
my $host = shift || &usage;
 
35
 
 
36
my $domainfile = "/usr/local/nagios/etc/domains.list";
 
37
my $wc = `/usr/bin/wc -l $domainfile`;
 
38
my $check = "/usr/local/nagios/libexec/check_dns";
 
39
my $x = 0;
 
40
my $srv_file = "";
 
41
my $z = "";
 
42
my $y = "";
 
43
 
 
44
open(DOMAIN,"<$domainfile") or die "Error Opening $domainfile File!\n";
 
45
        while (<DOMAIN>) {
 
46
          $srv_file .= $_;
 
47
}
 
48
        close(DOMAIN);
 
49
                my @data = split(/\n/,$srv_file);
 
50
 
 
51
chomp $wc;
 
52
$wc =~ s/ //g;
 
53
$wc =~ s/domains//g;
 
54
 
 
55
$x = rand $wc;
 
56
($z,$y) = split(/\./,$x);
 
57
 
 
58
system($check, $data[$z], $host);
 
59
exit ($? / 256);
 
60
 
 
61
sub usage
 
62
{
 
63
        print "Minimum arguments not supplied!\n";
 
64
        print "\n";
 
65
        print "Perl Check Random DNS plugin for Nagios\n";
 
66
        print "Copyright (c) 2000 Richard Mayhew\n";
 
67
        print "\n";
 
68
        print "Usage: check_dns_random.pl <host>\n";
 
69
        print "\n";
 
70
        print "<host> = DNS server you would like to query.\n";
 
71
        exit -1;
 
72
 
 
73
}
 
74