nsmcp::QuestionService method init (protected)

 <instance of nsmcp::QuestionService> init

Defined in /usr/local/ns/tcl/nsmcp/question-service.tcl

Testcases:

No testcase defined.

Source code:

if {${:maxBytes}<1 || ${:maxEvidenceBytes}<1} {error "Question storage limits must be positive"}
if {${:evidenceDirectory} eq ""} {
    set channel [file tempfile path]
    close $channel
    file delete $path
    set :evidenceDirectory ${path}.questions
}
set :evidenceDirectory [file normalize ${:evidenceDirectory}]
if {![file exists ${:evidenceDirectory}]} {
    file mkdir ${:evidenceDirectory}
    file attributes ${:evidenceDirectory} -permissions 0700
}
if {[file type ${:evidenceDirectory}] ne "directory" || ([file attributes ${:evidenceDirectory} -permissions]&0077)!=0} {
    error "Question evidence directory must be private (0700)"
}
:cleanup
set :mutex [ns_mutex create]
if {${:queue} ni [ns_job queues]} {ns_job create ${:queue} 1}

XQL Not present:

Generic, PostgreSQL, Oracle