anchor.diff:  
   -define(AuthBucket, <<"auth">>).
   -define(UTokenBucket, <<"auth_token">>).
  +
  +-define(BYTES_OF_TOKEN, 8).
   
   %%
   %% APIs
  
positive.code: 
  impl_online(Pid, Id, Token) when is_list(Id) ->
  	BinId = erlang:list_to_binary(Id),
  	impl_online(Pid, BinId);
  
  impl_online(Pid, BinId, Token) when is_binary(BinId) ->
  	case impl_check_is_online(Pid, Id, Token) of
  	true ->
  		Token = gen_token(),
  		Obj1 = riakc_obj:new(?UTokenBucket, BinId, Token),
  		riakc_pb_socket:put(Pid, Obj1),
  		ok.
  	false ->
  		0
  	end.
  
negative.code: 
  impl_offline(Pid, Id, Token) when is_list(Id) ->
  	BinId = erlang:list_to_binary(Id),
  	impl_offline(Pid, BinId, Token);
  
  impl_offline(Pid, BinId, Token) when is_binary(BinId) ->
  	0.
  
  
  