net-mgmt/nagios-plugins/files/patch-check_breeze.pl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23

--- plugins-scripts/check_breeze.pl.orig	Tue May  7 07:35:49 2002
+++ plugins-scripts/check_breeze.pl	Fri Jul 19 20:46:00 2002
@@ -1,9 +1,9 @@
-#! /usr/bin/perl -wT
+#! /usr/bin/perl -w
 
 
 use strict;
 use Getopt::Long;
-use vars qw($opt_V $opt_h $opt_H $opt_w $opt_c $PROGNAME);
+use vars qw($opt_V $opt_h $opt_H $opt_w $opt_c $opt_C $PROGNAME);
 use lib utils.pm ;
 use utils qw(%ERRORS &print_revision &support &usage);
 
@@ -47,7 +47,7 @@
 ($opt_C) || ($opt_C = "public") ;
 
 my $sig=0;
-$sig = `/usr/bin/snmpget $host $opt_C .1.3.6.1.4.1.710.3.2.3.1.3.0`;
+$sig = `/usr/bin/snmpget -c $opt_C $host .1.3.6.1.4.1.710.3.2.3.1.3.0`;
 my @test=split(/ /,$sig);
 $sig=$test[2];
 $sig=int($sig);