anchor.diff:  	    {error, What}
       end.
   
  +siplookup([]) ->
  +    none;
   siplookup(Domain) ->
       case regexp:first_match(Domain, "^[0-9]+\.[0-9]+\.[0-9]+\.[0-9]+$") of
   	{match, _, _} ->
  
positive.code:     end.
  
  naptrlookup(Name) ->
      logger:log(debug, "naptrlookup: ~p", [Name]),
      case inet_res:nslookup(Name, in, ?T_NAPTR) of
  	{ok, Rec} ->
  	    ParseNAPTR = fun(Entry) ->
  				 parsenaptr(Entry#dns_rr.data)
  			 end,
  	    lists:map(ParseNAPTR, lists:filter(fun isnaptr/1,
  					       Rec#dns_rec.anlist));
  	{error, nxdomain} ->
  	    []
      end.
  
  
negative.code: applyregexp(Number, []) ->
      none;
  applyregexp(Number, [Regexp | Rest]) ->
      logger:log(debug, "Resolver: applyregexp: IN ~p ~p", [Number, Regexp]),
      Rewrite = case string:tokens(Regexp, "!") of
  		  [Lhs, Rhs] ->
  		      NLhs = fixplus(Lhs),
  		      Res = util:regexp_rewrite(Number, [{NLhs, Rhs}]),
  		      logger:log(debug, "Resolver: applyregexp: OUT ~p", [Res]),
  		      Res;
  		  _ ->
  		      nomatch
  