Don't forget to close socket of timed out flow

diff --git a/src/mod_sip_registrar.erl b/src/mod_sip_registrar.erl
index 7233d053b85851706cb83943bfedad558f7c8dfc..9f52436037f3c5de08f23998979f380499b49ee2 100644 (file)
--- a/src/mod_sip_registrar.erl
+++ b/src/mod_sip_registrar.erl
@@ -321,6 +321,11 @@ delete_expired_session(US, TRef) ->
              fun(#sip_session{reg_tref = T1,
                               flow_tref = T2} = Session)
                    when T1 == TRef; T2 == TRef ->
+                     if T2 /= undefined ->
+                             close_socket(Session);
+                        true ->
+                             ok
+                     end,
                      delete_session(Session);
                 (_) ->
                      ok
@@ -518,6 +523,13 @@ set_monitor_and_timer(#sip_session{socket = #sip_socket{type = Type,
 set_timer(#sip_session{us = US}, Timeout) ->
     erlang:start_timer(Timeout * 1000, self(), US).
 
+close_socket(#sip_session{socket = SIPSocket}) ->
+    if SIPSocket#sip_socket.type /= udp ->
+           esip_socket:close(SIPSocket);
+       true ->
+           ok
+    end.
+
 delete_session(#sip_session{reg_tref = RegTRef,
                            flow_tref = FlowTRef,
                            conn_mref = MRef} = Session) ->