anchor.diff:  -export([parse/2, parse_packet/1, parse_packet/2, parseheader/1, parserequest/1]).
   
   -include("sipsocket.hrl").
  +-include("siprecords.hrl").
   
   parse_packet(Packet) ->
       parse_packet(Packet, none).
  
positive.code:     case sipserver:origin2str(Origin, none) of
  	none -> true;
  	S ->
  	    % Extract receiver pid if present
  	    RStr = case Origin of
  		{_, _, _, SipSocket} when record(SipSocket, sipsocket) ->
  		    "(receiver: " ++ pid_to_list(SipSocket#sipsocket.pid) ++ ") ";
  	    _ ->
  		""
  	    end,
  	    logger:log(debug, "Packet from ~s ~s:~n~s", [S, RStr, Packet])
      end,
      Packetfixed = siputil:linefix(Packet),
  
negative.code: 	0 ->
  	    {Packetfixed, ""};
  	Headerlen ->
  	    Header = string:substr(Packetfixed, 1, Headerlen),
  	    Body = string:substr(Packetfixed, Headerlen + 2),
  	    {Header, Body}
      end.
  
  