anchor.diff:      read_only_user_creds.
   
   set_credentials(Role, User, Password) ->
  -    case cluster_compat_mode:is_cluster_30() of
  -        true ->
  -            set_credentials_30(Role, User, Password);
  -        false ->
  -            set_credentials_old(Role, User, Password)
  -    end.
  -
  -set_credentials_30(Role, User, Password) ->
       ns_config:set(get_key(Role), {User, {password, hash_password(Password)}}).
  -
  -set_credentials_old(admin, User, Password) ->
  -    ns_config:set(rest_creds, [{creds,
  -                                [{User, [{password, Password}]}]}]);
  -set_credentials_old(ro_admin, User, Password) ->
  -    ns_config:set(read_only_user_creds, {User, {password, Password}}).
   
   is_system_provisioned() ->
       is_system_provisioned(ns_config:latest()).
  
positive.code:          get_password/1,
           credentials_changed/3,
           unset_credentials/1,
           upgrade/1,
           get_creds/2,
           is_system_provisioned/0,
           is_system_provisioned/1,
  
negative.code:     end.
  
  credentials_changed(Role, User, Password) ->
      case ns_config:search(get_key(Role)) of
          {value, {User, {password, {Salt, Mac}}}} ->
              hash_password(Salt, Password) =/= Mac;
          _ ->
              true
      end.
  