anchor.diff:      % sending ping
       %Callback:ping(Transport, Socket),
       %Ref = gen_fsm:send_event_after(1000, ping_timeout),
  -    Ref=0,
  +    _Ref=0,
   
       Callback:close(Transport, Socket),
       %{next_state, connected, StateData#session{pingid=Ref}};
       {stop, normal, StateData};
   
  -connected(ping_timeout, StateData=#session{transport={Callback,Transport,Socket}}) ->
  +connected(ping_timeout, _StateData=#session{transport={Callback,Transport,Socket}}) ->
       Callback:close(Transport, Socket),
       {stop, normal, undefined}.
   
  
positive.code:             false
      end.
  
  garbage_collect(Pid) ->
      ok.
  
  %
  
negative.code:     Ret = Callback:crlfping(Transport, Socket),
      lager:info("send CRLF ping= ~p", [Ret]),
      case Ret of
          {error, _Err} ->
              {stop, normal, disconnect, StateData};
  
          ok ->
              {reply, ok, connected, StateData, 5000}
      end;
  
  connected(_,_, _StateData) ->
      {stop, normal, disconnect, undefined}.
  
  connected({timeout, _, timeout1}, _StateData) ->
  	lager:info("timeout after connection"),
  	{stop, disconnect, []};
  
  