anchor.diff:  -define(SERVER, ?MODULE).
   
   -record(lease, { path   :: binary()   % subpath which is locked
  -               , u_id   :: binary()   % user identifier
  +               , key_id   :: binary()   % user identifier
                  , public :: binary()   % public string used for token generation
                  , secret :: binary()   % secret used for token generation
                  , time   :: integer()  % timestamp (time when lease acquired)
  
positive.code: %%% Internal functions
  %%%===================================================================
  
  -spec p_new_lease(User, Path, Public, Secret, State) -> new_lease_result()
                                                              when User :: binary(),
                                                                   Path :: binary(),
                                                                   Public :: binary(),
                                                                   Secret :: binary(),
                                                                   State :: map().
  p_new_lease(User, Path, Public, Secret, _State) ->
      {ok, MaxLeaseTime} = application:get_env(cvmfs_services, max_lease_time),
  
      %% Match statement that selects all rows with a given repo,
  
negative.code: %%
  %% @end
  %%--------------------------------------------------------------------
  handle_call({lease_req, new_lease, {KeyId, Path, Public, Secret}}, _From, State) ->
      Reply = p_new_lease(KeyId, Path, Public, Secret, State),
      {reply, Reply, State};
  handle_call({lease_req, end_lease, Public}, _From, State) ->
      Reply = p_end_lease(Public),
  