[socket-nif] Add more control message decoding

Added decoding of the "known" control message options: pktinfo,
recvtos, recvttl and recvorigdstaddr).

OTP-14831

1 files changed, 13 insertions, 5 deletions

diff --git a/lib/kernel/test/socket_server.erl b/lib/kernel/test/socket_server.erl
index 5d00f78b2a..a804078917 100644
--- a/lib/kernel/test/socket_server.erl
+++ b/lib/kernel/test/socket_server.erl
@@ -720,10 +720,18 @@ handler_init(Manager, ID, Msg, Peek, Sock) ->
                RtHdr, AuthHdr, HopLimit, HopOpts, DstOpts, FlowInfo,
                UHops]),
 
-            ok = soip(Sock, pktinfo,  true),
+            SIP = 
+                fun(O, V) ->
+                        if 
+                            (Type =:= dgram) -> 
+                                ok = soip(Sock, O,  V);
+                            true ->
+                                ok
+                        end
+                end,
             ok = soip(Sock, recvtos,  true),
-            ok = soip(Sock, recvttl,  true),
-            %% ok = soip(Sock, recvopts, true),
+            SIP(recvttl,  true),
+            ok = soip(Sock, recvorigdstaddr,  true),
 
             handler_loop(#handler{msg     = Msg,
                                   peek    = Peek,
@@ -786,13 +794,13 @@ recv(#handler{peek = true, socket = Sock, type = stream}) ->
 recv(#handler{peek = false, socket = Sock, type = stream}) ->
     do_recv(Sock);
 recv(#handler{socket = Sock, msg = true, type = dgram}) ->
-    ok = socket:setopt(Sock, otp, debug, true),
+    %% ok = socket:setopt(Sock, otp, debug, true),
     case socket:recvmsg(Sock) of
         {ok, #{addr  := Source,
                iov   := [Data],
                ctrl  := CMsgHdrs,
                flags := Flags}} ->
-            ok = socket:setopt(Sock, otp, debug, false),
+            %% ok = socket:setopt(Sock, otp, debug, false),
             i("received message: "
               "~n   CMsgHdrs: ~p"
               "~n   Flags:    ~p", [CMsgHdrs, Flags]),