nsmcp::BearerAuthenticator method grant (public)

 <instance of nsmcp::BearerAuthenticator> grant token principal \
    permissions targets expires

Defined in /usr/local/ns/tcl/nsmcp/lib/security.tcl

Parameters:

token (required)

principal (required)

permissions (required)

targets (required)

expires (required)

Testcases:

No testcase defined.

Source code:

if {[string length $token] < 32 || $principal eq "" ||
    ![string is wideinteger -strict $expires] || ($expires != 0 && $expires <= [clock seconds])} {
    error "expected a high-entropy token, named principal and expiry of zero or a future timestamp"
}
set digest [ns_crypto::md string -digest sha256 -- $token]
nsv_set ${:store} $digest [dict create principal $principal  permissions $permissions targets $targets expires $expires]
return $digest

XQL Not present:

Generic, PostgreSQL, Oracle