index 22638234155115df299d6ce133a6f4715ada4085..63c71ffae957f9c9f5411f4bb2a649788af83607 100755 (executable)
$status = GetOptions(
"V" => \$opt_V, "version" => \$opt_V,
"h" => \$opt_h, "help" => \$opt_h,
- "v=i" => \$snmp_version, "snmp_version=i" => \$snmp_version,
+ "v=s" => \$snmp_version, "snmp_version=s" => \$snmp_version,
"C=s" => \$community,"community=s" => \$community,
"L=s" => \$seclevel, "seclevel=s" => \$seclevel,
"a=s" => \$authproto, "authproto=s" => \$authproto,
$timeout = $TIMEOUT;
}
- if ($snmp_version !~ /[123]/){
+ # Net::SNMP wants an integer
+ $snmp_version = 2 if $snmp_version eq "2c";
+
+ if ($snmp_version !~ /^[123]$/){
$state='UNKNOWN';
print ("$state: No support for SNMP v$snmp_version yet\n");
exit $ERRORS{$state};