anchor.diff:  %%====================================================================
   %%% Internal functions
   %%====================================================================
  +%%--------------------------------------------------------------------
  +%% Func: get_location_from_headers/1
  +%% Description: get location from 301 header.
  +%%--------------------------------------------------------------------
  +get_location_from_headers(Headers) ->
  +    case lists:keysearch("location", 1, Headers) of
  +        {value, {"location", Location}} ->
  +            Location;
  +        _ ->
  +            error
  +    end.
  
positive.code: get_url(Url) ->
      HttpDoc = http:request(get, {Url, headers()}, [], []),
      case HttpDoc of
          {ok, {{_,200,_}, _Headers, Body}} -> Body;
          _ -> {error}
      end.
  
  %%--------------------------------------------------------------------
  %% Func: headers/0
  %% Description: build request headers.
  %%--------------------------------------------------------------------
  headers() -> [{"User-Agent", "Webgnos.us/0.0"}].
  
  %%--------------------------------------------------------------------
  %% Func: parse_xml/1
  
negative.code: %% API
  -export([
            get_url/1,
            get_redirect_url/1,
            parse_xml/1
          ]).
  
  