anchor.diff:  %%
   put(Scheme, Host, Port, Path, Args, Body) ->
     URL = build_uri(Scheme, Host, Port, Path, Args),
  -  case httpc:request(put, {URL, [], ?CONTENT_URLENCODED, Body}, [], []) of
  -    {ok, {{_, 200, _}, Headers, Body}} ->
  -      {ok, decode_body(proplists:get_value("content-type", Headers), Body)};
  -    {ok, {{_, 201, Response}, _, _}} -> {ok, Response};
  -    {ok, {{_, 204, _}, _, _}} -> {ok, []};
  -    {ok, {{_, S, Error}, _, _}} ->
  -      autocluster_log:error("PUT response (~p) ~s", [S, Error]),
  -      {error, S};
  -    {error, Reason} -> {error, Reason}
  -  end.
  +  Response = httpc:request(put, {URL, [], ?CONTENT_URLENCODED, Body}, [], []),
  +  parse_response(Response).
   
   
   %% @private
  
positive.code: %%
  post(Scheme, Host, Port, Path, Args, Body) ->
    URL = build_uri(Scheme, Host, Port, Path, Args),
    case httpc:request(post, {URL, [], ?CONTENT_JSON, Body}, [], []) of
      {ok, {{_, 200, _}, Headers, Body}} ->
        {ok, decode_body(proplists:get_value("content-type", Headers), Body)};
      {ok, {{_, 201, _}, Headers, Body}} ->
        {ok, decode_body(proplists:get_value("content-type", Headers), Body)};
      {ok, {{_, 204, _}, _, _}}    -> {ok, []};
      {ok, {{_, S, Error}, _, _}} ->
        autocluster_log:error("POST response (~p) ~s", [S, Error]),
        {error, S};
      {error, Reason} -> {error, Reason}
    end.
  
  
  %% @public
  
negative.code: %% @end
  %%
  get(Scheme, Host, Port, Path, Args) ->
    Response = httpc:request(build_uri(Scheme, Host, Port, Path, Args)),
    parse_response(Response).
  
  
  %% @public
  