anchor.diff:  
   %% @headerfile "include/radius.hrl"
   -include_lib("radius/include/radius.hrl").
  +-include_lib("diameter/include/diameter.hrl").
   
   -record(statedata,
   		{ttls_fsm :: pid(),
  
positive.code: %% @private
  %%
  request(timeout, #statedata{} = StateData) ->
  	{stop, shutdown, StateData};
  request({ssl, SslSocket, Data}, #statedata{ssl_socket = SslSocket,
  		ttls_fsm = TtlsFsm} = StateData) ->
  	%gen_fsm:send_event(RadiusFsm, {accept, Data}),
  	{stop, shutdown, StateData};
  request({ssl_closed, SslSocket}, #statedata{ssl_socket = SslSocket,
  		ttls_fsm = TtlsFsm} = StateData) ->
  	%gen_fsm:send_event(RadiusFsm, {reject, SslSocket, socket_closed}),
  
negative.code: 		ttls_fsm = TtlsFsm} = StateData) ->
  	%gen_fsm:send_event(RadiusFsm, {reject, SslSocket, Reason}),
  	{stop, Reason, StateData}.
  %% @hidden
  request1(Subscriber, Password) ->
  	case ocs:find_subscriber(Subscriber) of
  		{ok, UserPassWord, _, _} ->
  			Size = size(UserPassWord),
  			<<UserPassWord:Size, _/binary>> = Password,
  			ok;
  		{error, not_found} ->
  			{error, not_found}
  	end.
  
  -spec handle_event(Event :: term(), StateName :: atom(),
  		StateData :: #statedata{}) ->
  