anchor.diff:  
   handle_info({udp, Socket, Ip, InPortNo, Packet},
   	#state{udp_socket = Socket, udp_remote_info = {Ip, InPortNo}} = State) ->
  -		?info("Client got UDP:  ~p", [Packet]),
  +		Message = aes_decrypt_envelope(Packet, State),
  +		?warning("Client got unhandled UDP message:  ~p", [Message]),
   		inet:setopts(Socket, [{active, once}]),
   		{noreply, State};
   
  
positive.code: 	service_control_channel(Envelope, State);
  
  service_message(#envelope{} = Envelope, State) ->
  	?warning("Unhandled reqeust:  ~p", [Envelope]),
  	State;
  
  service_message(Request, State) ->
  
negative.code: handle_info({tcp, Socket, Packet}, #state{tcp_socket = Socket, tcp_netstring = Cont} = State) ->
  	{Bins, TCPNetstring} = parse_netstring(Packet, Cont),
  	State1 = State#state{tcp_netstring = TCPNetstring},
  	Messages = [aes_decrypt_envelope(Bin, State) || Bin <- Bins],
  	NewState = service_messages(Messages, State1),
  	inet:setopts(Socket, [{active, once}]),
  	{noreply, NewState};
  
  