anchor.diff:      State1 = send_request(Header1, station_configuration_request, ReqElements, State),
       next_state(run, State1);
   
  +run({wtp_event_request, Seq, Elements, #capwap_header{radio_id = RadioId, wb_id = WBID, 
  +                                                       flags = Flags}}, State) ->
  +    Header = #capwap_header{radio_id = RadioId, wb_id = WBID, flags = Flags},
  +    State1 = send_response(Header, wtp_event_response, Seq, [], State),
  +    Now = calendar:now_to_universal_time(erlang:now()),
  +    {FormatString, FormatVars} = lists:foldl(
  +                                   fun({Key, Value}, {FStr, FVars}) ->
  +                                           {FStr ++ "~p(~p), ", FVars ++ [Key, Value]}
  +                                   end, {"~p@~p: ", [State#state.id, Now]}, Elements),
  +    lager:debug([{class, wtp_statistics}], FormatString, FormatVars),
  +    next_state(run, State1);
  +
   run(Event, State) ->
       lager:warning("in RUN got unexpexted: ~p~n", [Event]),
       next_state(run, State).
  
positive.code: socket_send({dtls, Socket}, Data) ->
      ssl:send(Socket, Data).
  
  socket_close({udp, Socket}) ->
      capwap_udp:close(Socket);
  socket_close({dtls, Socket}) ->
  
negative.code: 	    ok
      end,
      socket_close(Socket),
      stop_trace(EventLog),
      ok.
  
  %%--------------------------------------------------------------------
  