anchor.diff:  %% Description: Handling all non call/cast messages
   %%--------------------------------------------------------------------
   handle_info(timeout, S) ->
  -    Body = contact_tracker(S, none),
  -    {ok, NextRequestTime, NS} = decode_and_handle_body(Body, S),
  -    {noreply, NS, timer:seconds(NextRequestTime)};
  +    case contact_tracker(S, none) of
  +	{ok, Body} ->
  +	    {ok, NextRequestTime, NS} = decode_and_handle_body(Body, S),
  +	    {noreply, NS, timer:seconds(NextRequestTime)};
  +	{error, timedout} ->
  +	    {noreply, S, timer:seconds(?DEFAULT_CONNECTION_TIMEOUT_INTERVAL)}
  +    end;
   handle_info(Info, State) ->
       io:format("got info: ~p~n", [Info]),
       {noreply, State}.
  
positive.code:     NewUrl = build_tracker_url(S, Event),
      case http:request(NewUrl) of
  	{ok, {{_, 200, _}, _, Body}} ->
  	    Body
      end.
  
  decode_and_handle_body(Body, S) ->
  
negative.code: 	        control_pid = none}).
  
  -define(DEFAULT_REQUEST_TIMEOUT, 180).
  -define(DEFAULT_CONNECTION_TIMEOUT_INTERVAL, 1800000).
  
  %%====================================================================
  %% API
  