anchor.diff:                    async = Async}};
   
   command({squery, Sql}, State) ->
  -    send(State, $Q, [Sql, 0]),
  +    send(State, ?SIMPLEQUERY, [Sql, 0]),
       {noreply, State};
   
   %% TODO add fast_equery command that doesn't need parsed statement,
  
positive.code: 
  -include("pgsql.hrl").
  -include("pgsql_binary.hrl").
  
  -record(state, {mod,
                  sock,
  
negative.code: %% -- backend message handling --
  
  %% AuthenticationOk
  auth({?AUTHENTICATION_REQUEST, <<0:?int32>>}, State) ->
      {noreply, State#state{handler = initializing}};
  
  %% AuthenticationCleartextPassword
  auth({?AUTHENTICATION_REQUEST, <<3:?int32>>}, State) ->
      send(State, $p, [get(password), 0]),
      {noreply, State};
  
  %% AuthenticationMD5Password
  auth({?AUTHENTICATION_REQUEST, <<5:?int32, Salt:4/binary>>}, State) ->
      Digest1 = hex(erlang:md5([get(password), get(username)])),
      Str = ["md5", hex(erlang:md5([Digest1, Salt])), 0],
      send(State, $p, Str),
      {noreply, State};
  
  auth({?AUTHENTICATION_REQUEST, <<M:?int32, _/binary>>}, State) ->
      case M of
          2 -> Method = kerberosV5;
          4 -> Method = crypt;
  