Compatibility SNMPv3

src/check_snmp_win.pl

@@ -11,8 +11,8 @@
 # help : ./check_snmp_win.pl -h
 
 use strict;
-use Net::SNMP;
 use Getopt::Long;
+require "@NAGIOS_PLUGINS@/Centreon/SNMP/Utils.pm";
 
 # Nagios specific
 
@@ -20,6 +20,15 @@ use lib "@NAGIOS_PLUGINS@";
 use utils qw(%ERRORS $TIMEOUT);
 #my $TIMEOUT = 5;
 #my %ERRORS=('OK'=>0,'WARNING'=>1,'CRITICAL'=>2,'UNKNOWN'=>3,'DEPENDENT'=>4);
+my %OPTION = (
+    "host" => undef,
+    "snmp-community" => "public", "snmp-version" => 1, "snmp-port" => 161, 
+    "snmp-auth-key" => undef, "snmp-auth-user" => undef, "snmp-auth-password" => undef, "snmp-auth-protocol" => "MD5",
+    "snmp-priv-key" => undef, "snmp-priv-password" => undef, "snmp-priv-protocol" => "DES",
+    "maxrepetitions" => undef,
+    "64-bits" => undef,
+);
+my $session_params;
 
 # SNMP Datas for processes (MIB II)
 my $process_table= '1.3.6.1.2.1.25.4.2.1';
@@ -47,10 +56,6 @@ my $win_serv_uninst = '1.3.6.1.4.1.77.1.2.3.1.4';
 my $Version='0.5';
 my $Name='check_snmp_win';
 
-my $o_host = 	undef; 		# hostname
-my $o_community =undef; 	# community
-my $o_port = 	161; 		# port
-my $o_version2	= undef;	#use snmp v2c
 my $o_descr = 	undef; 		# description filter
 my @o_descrL = 	undef;		# Service descriprion list.
 my $o_showall = undef;	# Show all services even if OK
@@ -61,16 +66,13 @@ my $o_verb=	undef;		# verbose mode
 my $o_version=   undef;         # print version
 my $o_noreg=	undef;		# Do not use Regexp for name
 my $o_timeout=  5;            	# Default 5s Timeout
-# SNMP V3 specific
-my $o_login=	undef;		# snmp v3 login
-my $o_passwd=	undef;		# snmp v3 passwd
 
 # functions
 
 sub p_version { print "$Name version : $Version\n"; }
 
 sub print_usage {
-    print "Usage: $Name [-v] -H <host> -C <snmp_community> [-2] | (-l login -x passwd) [-p <port>] -n <name>[,<name2] [-T=service] [-r] [-s] [-N=<n>] [-t <timeout>] [-V]\n";
+    print "Usage: $Name [-v] -H <host> -C <snmp_community> | (-l login -x passwd) [-p <port>] -n <name>[,<name2] [-T=service] [-r] [-s] [-N=<n>] [-t <timeout>] [-V]\n";
 }
 
 sub isnotnum { # Return true if arg is not a number
@@ -104,8 +106,6 @@ sub help {
    name or IP address of host to check
 -C, --community=COMMUNITY NAME
    community name for the host's SNMP agent (implies SNMP v1 or v2c with option)
--2, --v2c
-   Use snmp v2c
 -l, --login=LOGIN
    Login for snmpv3 authentication (implies v3 protocol with MD5)
 -x, --passwd=PASSWD
@@ -159,32 +159,39 @@ sub decode_utf8 { # just replaces UFT8 caracters by "."
 sub check_options {
     Getopt::Long::Configure ("bundling");
     GetOptions(
+        "H|hostname|host=s"         => \$OPTION{'host'},
+        "C|community=s"             => \$OPTION{'snmp-community'},
+        "snmp|snmp-version=s"       => \$OPTION{'snmp-version'},
+        "p|port|P|snmpport|snmp-port=i"    => \$OPTION{'snmp-port'},
+        "l|login|username=s"        => \$OPTION{'snmp-auth-user'},
+        "x|passwd|authpassword|password=s" => \$OPTION{'snmp-auth-password'},
+        "k|authkey=s"               => \$OPTION{'snmp-auth-key'},
+        "authprotocol=s"            => \$OPTION{'snmp-auth-protocol'},
+        "privpassword=s"            => \$OPTION{'snmp-priv-password'},
+        "privkey=s"                 => \$OPTION{'snmp-priv-key'},
+        "privprotocol=s"            => \$OPTION{'snmp-priv-protocol'},
+        "maxrepetitions=s"          => \$OPTION{'maxrepetitions'},
+        "64-bits"                   => \$OPTION{'64-bits'},
         'v'     => \$o_verb,		'verbose'	=> \$o_verb,
         'h'     => \$o_help,    	'help'        	=> \$o_help,
-        'H:s'   => \$o_host,		'hostname:s'	=> \$o_host,
-        'p:i'   => \$o_port,   		'port:i'	=> \$o_port,
-        'C:s'   => \$o_community,	'community:s'	=> \$o_community,
-        'l:s'   => \$o_login,           'login:s'       => \$o_login,
-        'x:s'   => \$o_passwd,          'passwd:s'      => \$o_passwd,
         't:i'   => \$o_timeout,       	'timeout:i'     => \$o_timeout,
         'n:s'   => \$o_descr,		'name:s'	=> \$o_descr,
         'r'     => \$o_noreg,           'noregexp'      => \$o_noreg,
         'T:s'   => \$o_type,           	'type:s'      	=> \$o_type,
         'N:i'   => \$o_number,          'number:i'      => \$o_number,
-	'2'	=> \$o_version2,	'v2c'		=> \$o_version2,
         's'     => \$o_showall,  	'showall'       => \$o_showall,
         'V'     => \$o_version,         'version'       => \$o_version
     );
     if (defined ($o_help)) { help(); exit $ERRORS{"UNKNOWN"}};
     if (defined($o_version)) { p_version(); exit $ERRORS{"UNKNOWN"}};
     # check snmp information
-    if ( !defined($o_community) && (!defined($o_login) || !defined($o_passwd)) )
+    ($session_params) = Centreon::SNMP::Utils::check_snmp_options($ERRORS{'UNKNOWN'}, \%OPTION);
-        { print "Put snmp login info!\n"; print_usage(); exit $ERRORS{"UNKNOWN"}}
+    
     # Check compulsory attributes
     if ( $o_type ne "service" ) {
       print "Invalid check type !\n"; print_usage(); exit $ERRORS{"UNKNOWN"}
     }
-    if ( ! defined($o_descr) ||  ! defined($o_host) ) { print_usage(); exit $ERRORS{"UNKNOWN"}};
+    if ( ! defined($o_descr) ) { print_usage(); exit $ERRORS{"UNKNOWN"}};
     @o_descrL=split(/,/,$o_descr);
     foreach my $List (@o_descrL) {
       if ( ! is_pattern_valid ($List) ) { print "Invalid pattern ! ";print_usage(); exit $ERRORS{"UNKNOWN"} }
@@ -210,61 +217,10 @@ if (defined($TIMEOUT)) {
 }
 
 # Connect to host
-my ($session,$error);
+my $session = Centreon::SNMP::Utils::connection($ERRORS{'UNKNOWN'}, $session_params);
-if ( defined($o_login) && defined($o_passwd)) {
-  # SNMPv3 login
-  verb("SNMPv3 login");
-  ($session, $error) = Net::SNMP->session(
-      -hostname         => $o_host,
-      -version          => '3',
-      -username         => $o_login,
-      -authpassword     => $o_passwd,
-      -authprotocol     => 'md5',
-      -privpassword     => $o_passwd,
-      -timeout          => $o_timeout
-   );
-} else {
-  if (defined ($o_version2)) {
-    # SNMPv2 Login
-	($session, $error) = Net::SNMP->session(
-       -hostname  => $o_host,
-	   -version   => 2,
-       -community => $o_community,
-       -port      => $o_port,
-       -timeout   => $o_timeout
-    );
-  } else {
-  # SNMPV1 login
-    ($session, $error) = Net::SNMP->session(
-       -hostname  => $o_host,
-       -community => $o_community,
-       -port      => $o_port,
-       -timeout   => $o_timeout
-    );
-  }
-}
-
-$session->max_msg_size(10000);
-verb($session->max_msg_size);
-#print $session->max_msg_size(),"\n";
-
-if (!defined($session)) {
-   printf("ERROR: %s.\n", $error);
-   exit $ERRORS{"UNKNOWN"};
-}
 
 # Look for process in name or path name table
-my $resultat=undef;
+my $resultat = Centreon::SNMP::Utils::get_snmp_table($win_serv_name, $session, $ERRORS{'UNKNOWN'}, \%OPTION);
-
-$resultat = (Net::SNMP->VERSION < 4) ?
-		$session->get_table($win_serv_name)
-		: $session->get_table(Baseoid => $win_serv_name);
-
-if (!defined($resultat)) {
-   printf("ERROR: Process name table : %s.\n", $session->error);
-   $session->close;
-   exit $ERRORS{"UNKNOWN"};
-}
 
 my @tindex = undef;
 my @oids = undef;
@@ -311,19 +267,9 @@ if ( $num_int == 0) {
     }
 }
 
-my $result=undef;
+my $result = Centreon::SNMP::Utils::get_snmp_leef(\@oids, $session, $ERRORS{'UNKNOWN'});
 my $num_int_ok=0;
 
-$result = (Net::SNMP->VERSION < 4) ?
-    $session->get_request(@oids)
-  : $session->get_request(Varbindlist => \@oids);
-
-if (!defined($result)) { printf("ERROR: running table : %s.\n", $session->error); $session->close;
-   exit $ERRORS{"UNKNOWN"};
-}
-
-$session->close;
-
 my $output=undef;
 #Check if service are in active state
 for (my $i=0; $i< $num_int; $i++) {
@@ -378,5 +324,3 @@ if (($num_int_ok < $o_number)||($force_critical == 1)) {
 }
 print "OK\n";
 exit $ERRORS{"OK"};
-
-