From 100b3345793043d50f90619c25123dc4d218e5cd Mon Sep 17 00:00:00 2001
From: Raimo Niskanen <raimo@erlang.org>
Date: Thu, 8 May 2014 16:16:03 +0200
Subject: fix agent configuration details

---
 lib/snmp/src/agent/snmpa_net_if.erl | 14 +++++++++++++-
 1 file changed, 13 insertions(+), 1 deletion(-)

(limited to 'lib/snmp/src/agent/snmpa_net_if.erl')

diff --git a/lib/snmp/src/agent/snmpa_net_if.erl b/lib/snmp/src/agent/snmpa_net_if.erl
index 59d88517c9..96211fc5f4 100644
--- a/lib/snmp/src/agent/snmpa_net_if.erl
+++ b/lib/snmp/src/agent/snmpa_net_if.erl
@@ -112,6 +112,14 @@ get_address() ->
     {value, IPAddress} = snmp_framework_mib:intAgentIpAddress(get),
     IPAddress.
 
+get_domain() ->
+    case snmp_framework_mib:intAgentTransportDomain(get) of
+	{value, Domain} ->
+	    Domain;
+	genErr ->
+	    snmpUDPDomain
+    end.
+
 filter_reset(Pid) ->
     Pid ! filter_reset.
 
@@ -155,6 +163,8 @@ do_init(Prio, NoteStore, MasterAgent, Parent, Opts) ->
     ?vlog("starting",[]),
 
     %% -- Port and address --
+    Domain = get_domain(),
+    ?vdebug("domain: ~w",[Domain]),
     UDPPort = get_port(),
     ?vdebug("port: ~w",[UDPPort]),
     IPAddress = get_address(),
@@ -181,7 +191,9 @@ do_init(Prio, NoteStore, MasterAgent, Parent, Opts) ->
     IPOpts2 = ip_opt_no_reuse_address(Opts),
     IPOpts3 = ip_opt_recbuf(Opts),
     IPOpts4 = ip_opt_sndbuf(Opts),
-    IPOpts  = [binary | IPOpts1 ++ IPOpts2 ++ IPOpts3 ++ IPOpts4], 
+    IPOpts  =
+	[binary, snmp_conf:tdomain_to_family(Domain)
+	 | IPOpts1 ++ IPOpts2 ++ IPOpts3 ++ IPOpts4],
     ?vdebug("open socket with options: ~w",[IPOpts]),
     case gen_udp_open(UDPPort, IPOpts) of
 	{ok, Sock} ->
-- 
cgit v1.2.3