anchor.diff:  	{Messages, Cont} = netstring:decode(data, State#state.netstring_cont),
   	State1 = State#state{netstring_cont = Cont},
   
  +  DecodedMessages = [json_to_envelope(Message) || Message <- Messages],
  +
   	%TODO: Send the messages to the client connection pid.
   
   	{noreply, State1};
  
positive.code: 			State
  	end,
  
  	{noreply, State};
  
  handle_info(Info, State) ->
  	lager:warning("Unhandled message: ~p", [Info]),
  
negative.code: %% --------------------------------------------------------------------------------------------------------------------
  
  % Decrypt message
  aes_decrypt(CipherText, #state{aes_key = AESKey, aes_vector = AESVector}) ->
    Decrypted = crypto:block_decrypt(aes_cbc128, AESKey, AESVector, CipherText),
  
  	% Strip padding added by OpenSSL's AES algorithm.
  	PaddingByteCount = binary:last(Decrypted),
  