← Back to branch summary

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

« back to all changes in this revision

Viewing changes to contrib/check_hprsc.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_hprsc.pl
 
1
#!/usr/bin/perl -wT
 
2
#
 
3
# Copyright (c) 2000 Hugo Gayosso
 
4
#
 
5
# Description:
 
6
#    Nagios plug-in that monitors the resources on an HP-UX machine
 
7
#    by querying the SNMP daemon
 
8
#
 
9
# License: General Public License (GPL)
 
10
#          http://www.gnu.org/copyleft/gpl.txt
 
11
#
 
12
# ChangeLog
 
13
#
 
14
 
 
15
# Requirements: Perl 5.005 or higher
 
16
 
 
17
# Variable initialization
 
18
$ENV{'PATH'}="";
 
19
$ENV{'ENV'}="";
 
20
$ENV{'BASH_ENV'}="";
 
21
 
 
22
 
 
23
if (-e "/usr/bin/snmpwalk") {
 
24
  $snmpwalk = "/usr/bin/snmpwalk";
 
25
} elsif (-e "/usr/local/bin/snmpwalk") {
 
26
  $snmpwalk = "/usr/local/snmpwalk";
 
27
}
 
28
 
 
29
 
 
30
# HP-UX SNMP OIDs
 
31
$filesystemID1_OID   = ".1.3.6.1.4.1.11.2.3.1.2.2.1.1";
 
32
$mounted_OID         = ".1.3.6.1.4.1.11.2.3.1.2.2.1.3";
 
33
$totalspace_OID      = ".1.3.6.1.4.1.11.2.3.1.2.2.1.4";
 
34
$freespace_OID       = ".1.3.6.1.4.1.11.2.3.1.2.2.1.6";
 
35
$path_OID            = ".1.3.6.1.4.1.11.2.3.1.2.2.1.10";
 
36
$cpu_5min_OID        = ".1.3.6.1.4.1.11.2.3.1.1.4";
 
37
 
 
38
use Getopt::Long;
 
39
 
 
40
GetOptions( "check-filesystem"   => \$chk_fs,
 
41
            "show-filesystems"   => \$show_fs,
 
42
            "check-filesystemID" => \$chk_fsid,
 
43
            "check-cpu"          => \$chk_cpu,
 
44
            "host=s"             => \$target_host,
 
45
            "community=s"        => \$target_community,
 
46
            "filesystemID1=i"    => \$fsid1_opt,
 
47
            "filesystem=s"       => \$fs_opt,
 
48
            "warning=i"          => \$warning_opt,
 
49
            "critical=i"         => \$critical_opt);
 
50
 
 
51
if ($chk_fs) {
 
52
    walk_data($snmpwalk, $target_host, $target_community, $mounted_OID );
 
53
    walk_data($snmpwalk, $target_host, $target_community, $totalspace_OID );
 
54
    walk_data($snmpwalk, $target_host, $target_community, $freespace_OID );    check_filesystem($fs_opt, $warning_opt, $critical_opt);
 
55
} elsif ($show_fs) {
 
56
    walk_data($snmpwalk, $target_host, $target_community, $filesystemID1_OID);
 
57
    walk_data($snmpwalk, $target_host, $target_community, $mounted_OID );
 
58
    walk_data($snmpwalk, $target_host, $target_community, $path_OID);
 
59
    show_filesystem();
 
60
} elsif ($chk_fsid){
 
61
    $totalspace_fsID_OID = "$totalspace_OID.$fsid1_opt";
 
62
    $freespace_fsID_OID = "$freespace_OID.$fsid1_opt";
 
63
    walk_data($snmpwalk, $target_host, $target_community, $totalspace_fsID_OID);
 
64
    walk_data($snmpwalk, $target_host, $target_community, $freespace_fsID_OID);
 
65
    check_filesystemID1($fsid1_opt, $warning_opt, $critical_opt);
 
66
} elsif ($chk_cpu) {
 
67
    get_cpu_load($snmpwalk, $target_host, $target_community, $cpu_5min_OID);
 
68
    check_cpu_5min($cpu, $warning_opt, $critical_opt);
 
69
} else {
 
70
    print "\n\nUsage:\n";
 
71
    print "Checking 5-min CPU Load:\n";
 
72
    print "     $0 --check-cpu -warning <threshold> --critical <threshold> --host <yourhost> --community <SNMP community>\n\n";
 
73
    print "Checking local filesystem mounted on a host:\n";
 
74
    print "     $0 --show-filesystems --host <hostname> --community <SNMP community>\n\n";
 
75
    print "Checking by filesystem name:\n";
 
76
    print "     $0 --check-filesystem --filesystem </dev/vg00/lvol1> --warning <% used space> --critical <% used space> --host <hostname> --community <SNMP community>\n\n";
 
77
    print "Checking by filesystem ID:\n";
 
78
    print "     $0 --check-filesystemID --filesystemID <filesystemID1> --warning <% used space> --critical <% used space> --host <hostname> --community <SNMP community>\n\n";
 
79
}
 
80
 
 
81
sub get_cpu_load {
 
82
    my ($snmpwalk, $target_host, $target_community, $OID) = @_;
 
83
    die "cannot fork: $!" unless defined($pid = open(SNMPWALK, "-|"));
 
84
 
 
85
    if ($pid) {   # parent
 
86
        while (<SNMPWALK>) {
 
87
            my @snmpdata = split(/:/,$_);
 
88
            $cpu = $snmpdata[1]/100;
 
89
        }
 
90
        close(SNMPWALK) or warn "kid exited $?";
 
91
    } else {      # child
 
92
        exec($snmpwalk,$target_host,$target_community,$OID)  or die "can't exec program: $!";
 
93
    }
 
94
}
 
95
 
 
96
sub walk_data {
 
97
#This function queries the SNMP daemon for the specific OID
 
98
    my ($snmpwalk, $target_host, $target_community, $OID) = @_;
 
99
 
 
100
    die "cannot fork: $!" unless defined($pid = open(SNMPWALK, "-|"));
 
101
 
 
102
    if ($pid) {   # parent
 
103
        while (<SNMPWALK>) {
 
104
            $output = $_;
 
105
            sort_walk_data($output);
 
106
        }
 
107
        close(SNMPWALK) or warn "kid exited $?";
 
108
    } else {      # child
 
109
        exec($snmpwalk,$target_host,$target_community,$OID)  or die "can't exec program: $!";
 
110
    }
 
111
}
 
112
 
 
113
sub sort_walk_data {
 
114
    my ($snmp_data) = @_;
 
115
    @fields = split(/\./,$snmp_data);
 
116
    $item = $fields[8];
 
117
    $filesystemID1 = $fields[9];
 
118
    @fields2 = split(/=/,$fields[10]);
 
119
#   $filesystemID2 = $fields2[0];
 
120
    $value = $fields2[1];
 
121
    chomp($value);
 
122
    if ($value =~ /"/) {
 
123
        @fields3 = split(/"/,$value);
 
124
        $value = $fields3[1];
 
125
    }
 
126
    if ($item == 3) {
 
127
        $mounted{$filesystemID1} = "$value";
 
128
    } elsif ($item == 4) {
 
129
        $totalspace{$filesystemID1} = "$value";
 
130
    } elsif ($item == 6) {
 
131
        $freespace{$filesystemID1} = "$value";
 
132
    } elsif ($item == 10) {
 
133
        $filesystempath{$filesystemID1} = "$value";
 
134
    }
 
135
}
 
136
 
 
137
sub show_filesystem {
 
138
    print "\n\nfilesystemID1\tmounted filesystem\tfilesystem path\n";
 
139
    foreach $element (keys %mounted) {
 
140
        print "$element\t$mounted{$element}\t\t$filesystempath{$element}\n";
 
141
    }
 
142
    print "\n\n";
 
143
}
 
144
 
 
145
sub check_filesystem {
 
146
 
 
147
# Warning  = percentage of used space >= $warning and < $critical
 
148
# Critical = percentage of used space > $warning and >= $critical
 
149
# OK       = percentage of used space < $warning and < $critical
 
150
 
 
151
    my ($mounted_filesystem, $warning, $critical) = @_;
 
152
    foreach $element (keys %mounted) {
 
153
        if ($mounted{$element} eq $mounted_filesystem) {
 
154
            my $warning_result = $totalspace{$element}*(100-$warning)/100;
 
155
            my $critical_result = $totalspace{$element}*(100-$critical)/100;
 
156
            my $result_percent = $freespace{$element}*100/$totalspace{$element};
 
157
            if (($freespace{$element} <= $warning_result) && ($freespace{$element} > $critical_result)) {
 
158
                printf "Only %d M (%d%s) free\n",$freespace{$element}/1024,$result_percent,"%";
 
159
                exit 1;
 
160
            } elsif ($freespace{$element} <= $critical_result) {
 
161
                printf "Only %d M (%d%s) free\n",$freespace{$element}/1024,$result_percent,"%";
 
162
                exit 2;
 
163
            } else {
 
164
                printf "Disk ok - %d M (%d%s) free\n",$freespace{$element}/1024,$result_percent,"%";
 
165
                exit 0;
 
166
            }
 
167
        }
 
168
    }
 
169
    print "$mounted_filesystem doesn't exist in $target_host\n\n";
 
170
    exit -1;
 
171
}
 
172
 
 
173
sub check_filesystemID1{
 
174
# Warning  = percentage of used space >= $warning and < $critical
 
175
# Critical = percentage of used space > $warning and >= $critical
 
176
# OK       = percentage of used space < $warning and < $critical
 
177
 
 
178
    my ($fsid1, $warning, $critical) = @_;
 
179
    foreach $element (keys %totalspace) {
 
180
        if ($element eq  $fsid1) {
 
181
            my $warning_result = $totalspace{$element}*(100-$warning)/100;
 
182
            my $critical_result = $totalspace{$element}*(100-$critical)/100;
 
183
            my $result_percent = $freespace{$element}*100/$totalspace{$element};
 
184
            if (($freespace{$element} <= $warning_result) && ($freespace{$element} >= $critical_result)) {
 
185
                printf "Only %d M (%d%s) free\n",$freespace{$element}/1024,$result_percent,"%";
 
186
                exit 1;
 
187
            } elsif ($freespace{$element} <= $critical_result) {
 
188
                printf "Only %d M (%d%s) free\n",$freespace{$element}/1024,$result_percent,"%";
 
189
                exit 2;
 
190
            } else {
 
191
                printf "Disk ok - %d M (%d%s) free\n",$freespace{$element}/1024,$result_percent,"%";
 
192
                exit 0;
 
193
            }
 
194
        }
 
195
    }
 
196
    print "$fsid1 doesn't exist in $target_host\n\n";
 
197
    exit -1;
 
198
}
 
199
 
 
200
sub check_cpu_5min {
 
201
    my ($cpu, $warn, $crit) = @_;
 
202
    if ($cpu >= $crit) {
 
203
        print "Critical- 5-min load: $cpu\n";
 
204
        exit 2;
 
205
    } elsif ($cpu >= $warn) {
 
206
        print "Warning - 5-min load: $cpu\n";
 
207
        exit 1;
 
208
    } else {
 
209
        print "Load ok - 5-min load: $cpu\n";
 
210
        exit 0;
 
211
    }
 
212
}
 
213
 
 
214
 
 
215