anchor.diff:  ip_to_str({0,0,0,0,0,65535,IP1,IP2}) ->
     <<IP1B2:8, IP1B1:8>> = <<IP1:16>>,
     <<IP2B2:8, IP2B1:8>> = <<IP2:16>>,
  -  inet_parse:ntoa({IP1B2,IP1B1,IP2B2,IP2B1});
  +  inet_parse:ntoa({IP1B1,IP1B2,IP2B1,IP2B2});
     
   ip_to_str(IP) ->
     inet_parse:ntoa(IP).
  
positive.code:       [MName,REST2] = binary:split(REST,<<0>>),
        [RName,<<Serial:32/big-unsigned, Refresh:32/big-unsigned, Retry:32/big-unsigned, Expire:32/big-unsigned, Minimum:32/big-unsigned,_/binary>>] = binary:split(REST2,<<0>>),
        if NSCOUNT > 0 -> NSCOUNT1=NSCOUNT-1, ARCOUNT1=ARCOUNT; true -> ARCOUNT1=ARCOUNT-1,NSCOUNT1=NSCOUNT end,
        %ioc2rpz_fun:logMessage("SOA Serial ~p ~n",[Serial]),
        SOA2=#dns_SOA_RR{name=RNAME, type=RType, class=RClass, ttl=RTTL, rdlength=DLen, mname=MName, rname=RName, serial=Serial, refresh=Refresh, retry=Retry, expire=Expire, minimum=Minimum},
        parse_rr(NSCOUNT1, ARCOUNT1, RAW2, RR ++ [SOA2], SOA2, <<RAWN/binary,RNAME/binary, RType:2/big-unsigned-unit:8,RClass:2/big-unsigned-unit:8,RTTL:4/big-unsigned-unit:8,DLen:2/big-unsigned-unit:8,RDATA/binary>>);
  
      {?T_OPT, _ } -> %OPT Record
  %      ioc2rpz_fun:logMessage("Got OPT  RR. Type ~p UDP Payload ~p RCODE ~p RDLEN ~p ~n",[RType,RClass, RTTL, DLen]),
        <<RDATA:DLen/bytes,RAW2/binary>> = REST,
        %EXTCode - High bits for Rcode (RFC1035), EDNSVer=0 according with RFC6891, DO - Can handle DNSEC (RFC3225), Z - must be 0
        %<<EXTCode:8, EDNSVer:8, DO:1, Z:15>> = RTTL,
  
negative.code:   gen_server:start_link(?MODULE, [Socket,Params], []).
  
  init([Socket,Params]) ->
    ?logDebugMSG("ioc2rpz tcp child started ~n", []),
    gen_server:cast(self(), accept),
    {ok, #state{socket=Socket, params=Params}}.
  
  