anchor.diff:  %% Description: Handling cast messages
   %%--------------------------------------------------------------------
   handle_cast(start_now, S) ->
  -    Body = contact_tracker(S, "started"),
  +    {ok, Body} = contact_tracker(S, "started"),
       {ok, NextRequestTime, NS} = decode_and_handle_body(Body, S),
       {noreply, NS, timer:seconds(NextRequestTime)};
   handle_cast(torrent_completed, S) ->
  -    Body = contact_tracker(S, "completed"),
  +    {ok, Body} = contact_tracker(S, "completed"),
       {ok, NextRequestTime, NS} = decode_and_handle_body(Body, S),
       {noreply, NS, timer:seconds(NextRequestTime)}.
   
  
positive.code: 	        control_pid = none}).
  
  -define(DEFAULT_REQUEST_TIMEOUT, 180).
  
  %%====================================================================
  %% API
  
negative.code:     NewUrl = build_tracker_url(S, Event),
      case http:request(NewUrl) of
  	{ok, {{_, 200, _}, _, Body}} ->
  	    {ok, Body};
  	{error, E} ->
  	    {error, E}
      end.
  
  decode_and_handle_body(Body, S) ->
  