anchor.diff:  -include("uce.hrl").
   
   -export([ post/2
  -	  , post/4
  -	  , get_raw/2
  -	  , get/1
  -	  , get/2
  -	  , put/2
  -	  , put/4
  +        , post/4
  +        , get_raw/2
  +        , get/1
  +        , get/2
  +        , put/2
  +        , put/4
           , delete/2
           ]).
   -export([url_encode/1]).
  
positive.code: 
  delete(Path, Params) ->
      {ok, {_, _, JSON}} =
  	httpc:request(delete, {?BASE_URL ++ Path ++ "?" ++ url_encode(Params), []}, [], []),
      mochijson:decode(JSON).
  
  request(Path, Method, Params, ContentType, Body) ->
      Query = case Params of
  		[] ->
  		    "";
  		_ ->
  		    "?" ++ url_encode(Params)
              end,
      Request = httpc:request(Method, {?BASE_URL ++ Path ++ Query,
  				     [], ContentType,
  				     Body}, [{timeout, ?HTTP_TIMEOUT}], []),
      {Return, {{_RVersion, RCode, RComment}, _RHeaders, RBody}} = Request,
      {Return, {RCode, RComment, RBody}}.
  
  url_encode(Params) ->
      UrlEncodedParams = [yaws_api:url_encode(Elem) ++ "=" ++
                          yaws_api:url_encode(Value) ||
                          {Elem, Value} <- Params],
      string:join(UrlEncodedParams, "&").
  
negative.code:     mochijson:decode(JSON).
  get(Path, Params) ->
      {ok, {_, _, JSON}} =
          httpc:request(?BASE_URL ++ Path ++ "?" ++ url_encode(Params), httpc:default_profile()),
      mochijson:decode(JSON).
  
  post(Path, Params) ->
      {ok, {_, _, JSON}} =
          request(Path, post, [], "application/x-www-form-urlencoded", url_encode(Params)),
      mochijson:decode(JSON).
  
  post(Path, Params, ContentType, Body) ->
  