anchor.diff:  %% Non-webmachine
   
   accept_json(ReqData, Context) ->
  +	AuthorizationHeader = wrq:get_req_header("Authorization", ReqData),
  +	UserKey = dynamo_user(AuthorizationHeader),
   	Target = list_to_binary(wrq:get_req_header("X-Amz-Target", ReqData)),
   	{Op, _ApiVersion} = dynamo_op(Target),
  +	lager:debug("UserKey: ~p~n", [UserKey]),
  +	lager:debug("Op: ~p~n", [Op]),
   	Operation = case Op of
   		"CreateTable" -> {rinamo_api, create_table};
   		"UpdateTable" -> {error, unimplemented};
  
positive.code: 
  -ifdef(TEST).
  
  dynamo_op_test() ->
  	TargetHeader = <<"DynamoDB_20120810.ListTables">>,
  	Actual = dynamo_op(TargetHeader),
  
negative.code: 
  %% Internal
  
  dynamo_user(AuthorizationHeader) ->
  	[_, Credentials, _, _] = string:tokens(AuthorizationHeader, " "),
  	StartCharPos = string:str(Credentials, "="),
  	EndCharPos = string:str(Credentials, "/"),
  	UserKey = string:substr(Credentials, StartCharPos + 1, EndCharPos - (StartCharPos + 1)),
  	list_to_binary(UserKey).
  
  dynamo_op(TargetHeader) ->
  	Header = binary:bin_to_list(TargetHeader),
  	case string:chr(Header, $.) of
  