anchor.diff:      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,
  +%    NCILog = State#state.nci_log,
       StartTime = State#state.start_time,
       LNCI = State#state.last_nci,
       LNEP = State#state.last_nep,
  
positive.code: 	    end;
  	{nci,Data}->
  	    {NCI,UT} = Data,
  	    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},
  	    listen(NewState);
  	{qps,Data}->
  	    {QPS,UT} = Data,
  
negative.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=undefined,last_nep=LNEP,last_int_nep=0,last_qps=LQPS}]),
      Pid.
  
  send(Msg) when is_atom(Msg); is_tuple(Msg) ->
  