::nsmcp::questionRestrict

This procedure is defined in the server but not documented via ad_proc or proc_doc and may be intended as a private interface.

The procedure is defined as:

proc ::nsmcp::questionRestrict {context pins restricted} {
    
    set allowed [::nsmcp::questionPermissions]
    if {[$context targets] ne [list [$context server]]} {error "Question credential must target only this virtual server"}
    foreach permission [$context permissions] {
        if {$permission ni $allowed} {error "Question credential exceeds questionAllowedPermissions; provision a dedicated diagnostic credential"}
    }
    if {$restricted} {$context configure -questionRestricted true -questionPins $pins}
    return $context

}