anchor.diff:  	    end;
   	{nci,Data}->
   	    {NCI,UT} = Data,
  -	    NewNCILog = [{UT,NCI}|NCILog],
  +	    ets:insert(NCILog,{UT,NCI}),
  +%	    NewNCILog = [{UT,NCI}|NCILog],
   	    Time = list_to_binary(tap_utils:rfc3339(UT)),
   	    JSON = jiffy:encode({[{<<"Time">>,Time},{<<"NCI">>,NCI}]}),
   	    NewClients = broadcast_msg(Clients,JSON),
  -	    NewState = State#state{clients=NewClients,last_nci=JSON,nci_log=NewNCILog},
  +	    NewState = State#state{clients=NewClients,last_nci=JSON,nci_log=NCILog},
   	    listen(NewState);
   	{qps,Data}->
   	    {QPS,UT} = Data,
  
positive.code:     LNCI = jiffy:encode({[{<<"Time">>,Time},{<<"NCI">>,1}]}),
      LNEP = jiffy:encode({[{<<"Time">>,Time},{<<"NEP">>,1}]}),
      LQPS = jiffy:encode({[{<<"Time">>,Time},{<<"QPS">>,1}]}),
      Pid = spawn(?MODULE,listen,[#state{start_time=StartTime,clients=[],last_nci=LNCI,nci_log=[],last_nep=LNEP,last_int_nep=0,last_qps=LQPS}]),
      register(tap_client_data,Pid),
      Pid.
  
  send(Msg) when is_atom(Msg); is_tuple(Msg) ->
  
negative.code:     end.
  
  listen(State)->
      NCILog = State#state.nci_log,
      case NCILog of
  	undefined ->
  	    register(tap_client_data,self()),
  	    listen(State#state{nci_log = ets:new(nci_log,[])});
  	_ -> ok
      end,
      Clients = State#state.clients,
  %    NCILog = State#state.nci_log,
      StartTime = State#state.start_time,
      LNCI = State#state.last_nci,
      LNEP = State#state.last_nep,
  