tyler.durden
/
centreon-plugins
mirror of https://github.com/centreon/centreon-plugins.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

bug fix 

git-svn-id: http://svn.centreon.com/Plugins/Dev@2668 6bcd3966-0018-0410-8128-fd23d134de7e
This commit is contained in:
Mat Sugumaran 2007-07-11 16:38:27 +00:00
parent 339bae8137
commit 7428a3ba9d
1 changed files with 140 additions and 143 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
centreon-plugins/src/check_centreon_TcpConn
View File

@ -19,23 +19,20 @@
##
## Plugin init
##
use strict;
use Net::SNMP qw(:snmp);
use FindBin;
use lib "$FindBin::Bin";
use lib "@NAGIOS_PLUGINS@";
use lib "@NAGIOS_PLUGINS";
use utils qw($TIMEOUT %ERRORS &print_revision &support);
if (eval "require oreon" ) {
use oreon qw(get_parameters create_rrd update_rrd &is_valid_serviceid);
use oreon qw(get_parameters);
use vars qw($VERSION %oreon);
%oreon=get_parameters();
%oreon = get_parameters();
} else {
print "Unable to load oreon perl module\n";
exit $ERRORS{'UNKNOWN'};
}
use vars qw($PROGNAME);
use Getopt::Long;
use vars qw($opt_h $opt_V $opt_H $opt_C $opt_v $opt_p $opt_c $opt_w);
@ -48,12 +45,12 @@ sub print_usage ();
Getopt::Long::Configure('bundling');
GetOptions
("h" => \$opt_h, "help" => \$opt_h,
"v=s" => \$opt_v, "snmp_version" => \$opt_v,
"v=s" => \$opt_v, "snmp_version=s" => \$opt_v,
"V" => \$opt_V, "version" => \$opt_V,
"H=s" => \$opt_H, "Hostname" => \$opt_H,
"p=i" => \$opt_p, "port" => \$opt_p,
"C=s" => \$opt_C, "Community" => \$opt_C,
"c=s" => \$opt_c, "w=s" => \$opt_w
"H=s" => \$opt_H, "Hostname=s" => \$opt_H,
"p=i" => \$opt_p, "port=s" => \$opt_p,
"C=s" => \$opt_C, "Community=s" => \$opt_C,
"c=s"=> \$opt_c, "w=s"=> \$opt_w
);
if ($opt_V) {