anchor.diff:  %% Exported: stop/1
   
   stop(Pid) -> tcp_serv:stop(Pid).
  +
  +
  +%%%
  +%%% Switch on bearer protocol to be used
  +%%%
  +connect(Host, Port, Opts) ->
  +    connect(get(proto), Host, Port, Opts).
  +
  +connect(?SSL, Host, Port, Opts) -> ssl:connect(Host, Port, Opts);
  +connect(_,    Host, Port, Opts) -> gen_tcp:connect(Host, Port, Opts).
  +
  +
  +close(Socket) ->
  +    close(get(proto), Socket).
  +
  +close(?SSL, Socket) -> ssl:close(Socket);
  +close(_   , Socket) -> gen_tcp:close(Socket).
  +
  +
  +send(Socket, Request) ->
  +    send(get(proto), Socket, Request).
  +
  +send(?SSL, Socket, Request) -> ssl:send(Socket, Request);
  +send(_   , Socket, Request) -> gen_tcp:send(Socket, Request).
  +
  +
  +recv(Socket, Length, Timeout) ->
  +    recv(get(proto), Socket, Length, Timeout).
  +
  +recv(?SSL, Socket, Length, Timeout) -> ssl:recv(Socket, Length, Timeout);
  +recv(_   , Socket, Length, Timeout) -> gen_tcp:recv(Socket, Length, Timeout).
  +
  +
  +
  +setopts(Socket, Opts) ->
  +    setopts(get(proto), Socket, Opts).
  +
  +setopts(?SSL, Socket, Opts) -> ssl:setopts(Socket, Opts);
  +setopts(_,    Socket, Opts) -> inet:setopts(Socket, Opts).
  +
  +
  +
  +
  
positive.code: 	 "Content-Type: text/XML\r\n",
  	 Header, "\r\n",
  	 Payload],
      gen_tcp:send(Socket, Request).
  
  parse_response(Socket, Timeout) ->
      inet:setopts(Socket, [{packet, line}]),
      case gen_tcp:recv(Socket, 0, Timeout) of
  	{ok, "HTTP/1.1 200 OK\r\n"} -> parse_header(Socket, Timeout);
  	{ok, StatusLine} -> {error, StatusLine};
  	{error, Reason} -> {error, Reason}
  
negative.code: 	 "Host: ", Host, "\r\n",
  	 Header, "\r\n",
  	 Payload],
      send(Socket, Request);
  send(Socket, URI, Header, Payload) ->
      Request =
  	["POST ", URI, " HTTP/1.1\r\n",
  