nsmcp::ConfigurationTool method options (protected)

 <instance of nsmcp::ConfigurationTool[i]> options arguments

Defined in /usr/local/ns/tcl/nsmcp/lib/config-tools.tcl

Parameters:
arguments (required)

Testcases:
No testcase defined.
Source code:
if {[lindex $arguments 1] ne "object"} {error "Expected arguments object"}
set result {scope server section {} limit 50 offset 0}
foreach {key type value} [lindex $arguments 2] {
    switch -- $key {
        scope {
            if {$type ne "string" || $value ni {server process}} {error "scope must be server or process"}
        }
        section {
            if {$type ne "string" || [string length $value] > 512 || [regexp {[\x00\r\n]} $value]} {error "Invalid configuration section"}
            set value [string trimright $value /]
        }
        limit - offset {
            if {$type ne "number" || ![string is integer -strict $value] || $value < 0
                || ($key eq "limit" && ($value < 1 || $value > 100))} {error "Invalid $key"}
        }
        default {error "Unknown argument: $key"}
    }
    dict set result $key $value
}
return $result
XQL Not present:
Generic, PostgreSQL, Oracle
[ hide source ] | [ make this the default ]
Show another procedure: