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 5242f0ac09
commit bae9070afb
1 changed files with 140 additions and 143 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
src/check_centreon_TcpConn
View File

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