anchor.diff:  %%%-------------------------------------------------------------------
   %%% File    : sipsocket.erl
   %%% Author  : Fredrik Thulin <ft@it.su.se>
  -%%% Descrip.: Transport layer processes supervisor, and transport
  -%%%           layer interface functions.
  +%%% Descrip.: Transport layer processes supervisor, and sipsocket
  +%%%           interface functions.
   %%%
   %%% Created : 21 Mar 2004 by Fredrik Thulin <ft@it.su.se>
   %%%-------------------------------------------------------------------
  
positive.code: proto2viastr(tls)  -> "SIP/2.0/TLS";
  proto2viastr(tls6) -> "SIP/2.0/TLS";
  proto2viastr(udp)  -> "SIP/2.0/UDP";
  proto2viastr(udp6) -> "SIP/2.0/UDP".
  
  viastr2proto("SIP/2.0/TCP") -> tcp;
  viastr2proto("SIP/2.0/TLS") -> tls;
  viastr2proto("SIP/2.0/UDP") -> udp.
  
  is_good_socket(Socket) when is_record(Socket, sipsocket) ->
      case util:safe_is_process_alive(Socket#sipsocket.pid) of
  
negative.code:     logger:log(debug, "Transport layer supervisor started"),
      UDP = {sipsocket_udp, {sipsocket_udp, start_link, []},
  	   permanent, 2000, worker, [sipsocket_udp]},
      TCP = {tcp_dispatcher, {sipsocket_tcp, start_link, []},
  	   permanent, 2000, worker, [tcp_dispatcher]},
      TCPlisteners = tcp_dispatcher:get_listenerspecs(),
      MyList = [UDP, TCP] ++ TCPlisteners,
  