Snippet to forcibly remove a CS Bucket from a Riak CS User

force_remove_s3_bucket.erl

Force_remove_s3_bucket = fun(UserID, Bucket) ->
  Update_user_buckets = fun(User, Bucket) ->
    Buckets = User#rcs_user_v2.buckets,
    %% At this point any siblings from the read of the
    %% user record have been resolved so the user bucket
    %% list should have 0 or 1 buckets that share a name
    %% with `Bucket'.
    case [B || B <- Buckets, B#moss_bucket_v1.name =:= Bucket#moss_bucket_v1.name] of
        [] ->
            {ok, User#rcs_user_v2{buckets=[Bucket | Buckets]}};
        [ExistingBucket] ->
            case
                (Bucket#moss_bucket_v1.last_action == deleted andalso
                 ExistingBucket#moss_bucket_v1.last_action == created)
                orelse
                (Bucket#moss_bucket_v1.last_action == created andalso
                 ExistingBucket#moss_bucket_v1.last_action == deleted) of
                true ->
                    UpdBuckets = [Bucket | lists:delete(ExistingBucket, Buckets)],
                    {ok, User#rcs_user_v2{buckets=UpdBuckets}};
                false ->
                    {ok, ignore}
            end
    end
  end,
  {ok, RC} = riak_cs_riak_client:checkout(),
  {ok, {User, UserObj}} = riak_cs_user:get_user(UserID, RC),
  BucketRecord = #moss_bucket_v1{name=Bucket,
                 last_action=deleted,
                 creation_date=riak_cs_wm_utils:iso_8601_datetime(),
                 modification_time=os:timestamp()},
  {ok, UpdUser} = Update_user_buckets(User, BucketRecord),
  riak_cs_user:save_user(UpdUser, UserObj, RC),
  riak_cs_riak_client:checkin(RC)
end.

%% To run :
% Force_remove_s3_bucket("S3UserKey","S3Bucket").