anchor.diff:    VHost = extract_vhost(Data),
     case rabint:call({rabbit_access_control, clear_permissions, [Username, VHost]}) of
       {Error, _} -> {?MODULE, Error};
  +    {child_error, function_clause} -> 
  +      ?ERROR("DEPRECATED SUPPORT: To get rid of this message, upgrade to RabbitMQ 1.6"),
  +      unmap_user_from_vhost(Username, Vhost);
       ok -> get_user_perms(Username)
     end;
     
  
positive.code:   RPerm = extract_param("read", Data),
    case rabint:call({rabbit_access_control, set_permissions, [Username, VHost, CPerm, WPerm, RPerm]}) of
      {error, {Atom, _Error}} -> {?MODULE, Atom};
      ok -> get_user_perms(Username)
    end;
    
  
negative.code:   case proplists:get_value(<<"vhost">>, Data) of
      undefined -> "/";
      Perm -> erlang:binary_to_list(Perm)
    end.
    
    
  %%====================================================================
  %% DEPRECATED SUPPORT
  %%====================================================================
  map_user_to_vhost(Username, Vhost) ->
    rabint:call({rabbit_access_control, map_user_vhost, [Vhost, Username]}),
    {?MODULE, lists:append(["Mapped ", Vhost, Username])}.
  
  unmap_user_from_vhost(Username, Vhost) ->
    rabint:call(Node, {rabbit_access_control, unmap_user_vhost, [Vhost, Username]}),
    {?MODULE, lists:append(["Unmapped ", Username, Vhost])}.
    
  list_vhost_users(Vhost) ->
    O = rabint:call({rabbit_access_control, list_vhost_users, [Vhost]}),
    {?MODULE, O}.
  
  list_user_vhosts(Username) ->
    O = rabint:call({rabbit_access_control, list_user_vhosts, [Username]}),
    {?MODULE, O}.