nsmcp::HttpTransport method questionPolicy (protected)

 <instance of nsmcp::HttpTransport[i]> questionPolicy context key

Defined in /usr/local/ns/tcl/nsmcp/transport.tcl

Parameters:
context (required)
key (required)

Testcases:
No testcase defined.
Source code:
if {![regexp {^[0-9a-f]{64}$} $key] || ![nsv_get nsmcp:question-observers $key observer]
    || ![dict exists $observer toolPins] || [dict get $observer principal] ne [$context principal]
    || [dict get $observer server] ne [$context server] || [dict get $observer deadline]<=[clock milliseconds]} {
    error "Question policy expired or unavailable"
}
::nsmcp::questionRestrict $context [dict get $observer toolPins] true
return $observer
XQL Not present:
Generic, PostgreSQL, Oracle
[ hide source ] | [ make this the default ]
Show another procedure: