Uppercase Precommit Hook

uppercase_precommit_hook.erl

-module(uppercase_precommit_hook).
-export([uppercase_key/1, uppercase_value/1]).

uppercase_key(Object) ->
  riak_object:new(riak_object:bucket(Object),
  string:to_upper(riak_object:key(Object)),
                  riak_object:get_value(Object),
                  riak_object:get_metadata(Object)
  ).

uppercase_value(Object) ->
  riak_object:new(riak_object:bucket(Object),
                  riak_object:key(Object),
  string:to_upper(riak_object:get_value(Object)),
                  riak_object:get_metadata(Object)
  ).

Not actually tested