snmp_remoteport setting to override port 161 for SNMP targets

lib/App/Netdisco/Transport/SNMP.pm

@@ -12,6 +12,7 @@ use Try::Tiny;
 use Module::Load ();
 use Path::Class 'dir';
 use NetAddr::IP::Lite ':lower';
+use List::Util qw/pairkeys pairfirst/;
 
 use base 'Dancer::Object::Singleton';
 
@@ -131,6 +132,11 @@ sub _snmp_connect_generic {
     DebugSNMP => ($ENV{SNMP_TRACE} || 0),
   );
 
+  # an override for RemotePort
+  ($snmp_args{RemotePort}) =
+    (pairkeys pairfirst { check_acl_no($device, $b) }
+      %{setting('snmp_remoteport') || {}}) || 161;
+
   # an override for bulkwalk
   $snmp_args{BulkWalk} = 0 if check_acl_no($device, 'bulkwalk_no');