callback::subsite::parameter_changed::impl::xotcl-core_param_changed (private)

 callback::subsite::parameter_changed::impl::xotcl-core_param_changed \
    -package_id package_id -parameter parameter -value value

Defined in packages/xotcl-core/tcl/01-debug-procs.tcl

Implementation of subsite::parameter_changed for xotcl-core parameters

Switches:

-package_id (required)

the package_id of the package the parameter was changed for

-parameter (required)

the parameter name

-value (required)

the new value

See Also:

• callback::subsite::parameter_changed::contract

Partial Call Graph (max 5 caller/called nodes):

Testcases:

No testcase defined.

Source code:

    ::callback::subsite::parameter_changed::contract__arg_parser {*}$args

    set package_key [apm_package_key_from_id $package_id]
    if {$package_key eq "xotcl-core"
        && $parameter eq "NslogRedirector"
        && [info commands ::xo::ns_log_redirector_manager] ne ""
      } {
      ::xo::ns_log_redirector_manager set_level $value
      #
      # Update the blueprint to reflect the parameter change
      # immediately.
      #
      # This is a heavy solution, but the NslogRedirector is not
      # likely to be changed frequently on a production system. The
      # alternative, a server restart, is even more expensive.
      #
      ns_eval [list ::xo::ns_log_redirector_manager set_level $value]
      #set blueprint [ns_ictl get]
      #set last [string last "\n::xo::ns_log_redirector_manager" $blueprint]
      #if {$last > -1} { set blueprint [string range $blueprint 0 $last-1]}
      #ns_ictl save "$blueprint\n::xo::ns_log_redirector_manager set_level $value"
    }

XQL Not present:

Generic, PostgreSQL, Oracle