anchor.diff:  accept_data_connection(#state{mode = passive} = State) ->
       maybe_requests_tls_upgrade(State).
   
  -send_ctrl_message(#state{csock = Socket, verbose = Verbose}, Message) ->
  +send_ctrl_message(S=#state{csock = Socket, verbose = Verbose}, Message) ->
       verbose(lists:flatten(Message),Verbose,send),
  +    io:format('<--ctrl ~p ---- ~s~p~n',[Socket,Message,S]),
       send_message(Socket, Message).
   
  -send_data_message(#state{dsock = Socket}, Message) ->
  +send_data_message(S=#state{dsock = Socket}, Message) ->
  +    io:format('<==data ~p ==== ~s~p~n',[Socket,Message,S]),
       case send_message(Socket, Message) of
   	ok ->
   	    ok;
  
positive.code: handle_info({tcp, Socket, Data},
  	    #state{dsock = {tcp,Socket},
  		   caller = {recv_file, Fd}} = State0) ->
      file_write(binary_to_list(Data), Fd),
      progress_report({binary, Data}, State0),
      State = activate_data_connection(State0),
  
negative.code: handle_info({tcp, Socket, Data}, #state{dsock = {tcp,Socket}, client = From,
  					caller = recv_chunk}
  	    = State)  ->
      io:format('L~p --data ~p ----> ~s~p~n',[?LINE,Socket,Data,State]),
      gen_server:reply(From, {ok, Data}),
      {noreply, State#state{client = undefined, data = <<>>}};
  
  handle_info({tcp, Socket, Data}, #state{dsock = {tcp,Socket}} = State0) ->
      io:format('L~p --data ~p ----> ~s~p~n',[?LINE,Socket,Data,State0]),
      State = activate_data_connection(State0),
      {noreply, State#state{data = <<(State#state.data)/binary,
  				  Data/binary>>}};
  