Index: openacs-4/packages/acs-tcl/tcl/site-nodes-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/site-nodes-procs.tcl,v diff -u -r1.141.2.15 -r1.141.2.16 --- openacs-4/packages/acs-tcl/tcl/site-nodes-procs.tcl 7 Apr 2020 09:14:48 -0000 1.141.2.15 +++ openacs-4/packages/acs-tcl/tcl/site-nodes-procs.tcl 16 Apr 2020 16:29:44 -0000 1.141.2.16 @@ -1306,6 +1306,15 @@ :create site_node } + # + # For these URLs we assume that the site_node will never + # change, or require a broadcase flush, or reboot. + # + # TODO: make me configurable, after release of 5.10. + site_node eval { + set :static_site_nodes {/ 1 /dotlrn 1 /dotlrn/ 1 /register/ /SYSTEM/ 1} + } + ##################################################### # Caching ##################################################### @@ -1578,7 +1587,11 @@ # Try per-request caching # - set key ::__node_id($url) + if {[dict exists ${:static_site_nodes} $url]} { + set key :node_id($url) + } else { + set key ::__node_id($url) + } if {[info exists $key]} { #ns_log notice "==== returning cached value [set $key]" return [set $key] @@ -2190,3 +2203,7 @@ # tcl-indent-level: 4 # indent-tabs-mode: nil # End: + + +ns_server -pool monitor maxthreads 9 +ns_server -pool monitor minthreads 9