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