anchor.diff:  	        control_pid = none}).
   
   -define(DEFAULT_REQUEST_TIMEOUT, 180).
  +-define(DEFAULT_CONNECTION_TIMEOUT_INTERVAL, 1800000).
   
   %%====================================================================
   %% API
  
positive.code: %% Description: Handling cast messages
  %%--------------------------------------------------------------------
  handle_cast(start_now, S) ->
      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, NextRequestTime, NS} = decode_and_handle_body(Body, S),
      {noreply, NS, timer:seconds(NextRequestTime)}.
  
  
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) ->
  