also debug print the remoteport

This commit is contained in:
Oliver Gorwits
2018-02-01 18:11:54 +00:00
parent 8b372bc9fb
commit 753acba124

View File

@@ -204,8 +204,9 @@ sub _try_connect {
try { try {
debug debug
sprintf '[%s] try_connect with ver: %s, class: %s, comm: %s', sprintf '[%s:%s] try_connect with ver: %s, class: %s, comm: %s',
$snmp_args->{DestHost}, $snmp_args->{Version}, $class, $debug_comm; $snmp_args->{DestHost}, $snmp_args->{RemotePort},
$snmp_args->{Version}, $class, $debug_comm;
Module::Load::load $class; Module::Load::load $class;
$info = $class->new(%$snmp_args, %comm_args) or return; $info = $class->new(%$snmp_args, %comm_args) or return;
@@ -216,8 +217,9 @@ sub _try_connect {
if ($reclass and $info and $info->device_type ne $class) { if ($reclass and $info and $info->device_type ne $class) {
$class = $info->device_type; $class = $info->device_type;
debug debug
sprintf '[%s] try_connect with ver: %s, new class: %s, comm: %s', sprintf '[%s:%s] try_connect with ver: %s, new class: %s, comm: %s',
$snmp_args->{DestHost}, $snmp_args->{Version}, $class, $debug_comm; $snmp_args->{DestHost}, $snmp_args->{RemotePort},
$snmp_args->{Version}, $class, $debug_comm;
Module::Load::load $class; Module::Load::load $class;
$info = $class->new(%$snmp_args, %comm_args); $info = $class->new(%$snmp_args, %comm_args);