| Subject: | taint failure in Net::SNMP::Security::USM |
key must be an untainted string scalar at
/Library/Perl/5.10.0/Net/SNMP/Security/USM.pm line 1497.
One must attempt an AES128 session with a SNMP v3 host, as in this (with
the particulars properly configured):
#!perl -T
use strict;
use warnings;
use Data::Dumper;
use Net::SNMP qw(oid_lex_sort oid_base_match :snmp);
my ($session, $error) = Net::SNMP->session(
-authpassword => 'auth',
-privpassword => 'priv',
-username => 'user',
-authprotocol => 'MD5',
-retries => '2',
-version => '3',
-hostname => '10.0.0.2',
-privprotocol => 'AES128',
-nonblocking => '1',
-port => '161',
-timeout => '3'
);
my $list = $session->var_bind_list();
snmp_dispatcher();
if ($session->error()) {
print $session->error() . "\n";
}
else {
print "OK\n";
}