Index: openacs-4/packages/acs-bootstrap-installer/installer/tcl/zz-postload.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-bootstrap-installer/installer/tcl/zz-postload.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/acs-bootstrap-installer/installer/tcl/zz-postload.tcl	7 Aug 2017 23:47:46 -0000	1.3
+++ openacs-4/packages/acs-bootstrap-installer/installer/tcl/zz-postload.tcl	3 Sep 2024 15:37:30 -0000	1.4
@@ -19,22 +19,23 @@
 
     ns_log "Notice" "Executing initialization code block $init(name) in $init(script)"
     if { [llength $init(args)] == 1 } {
-	set init(args) [lindex $init(args) 0]
+        set init(args) [lindex $init(args) 0]
     }
     if { [catch $init(args) error] } {
-	ns_log "Error" "Error executing initialization code block $init(name) in $init(script): $::errorInfo"
+        ns_log "Error" "Error executing initialization code block $init(name) in $init(script): $::errorInfo"
     }
 }
 
 
 # The __is_xql helper function is used to filter out just the xql files.
 #
 # It should return true for directories it should descend as well
-# If you had a large static tree with no .xql files you could return 0 on 
+# If you had a large static tree with no .xql files you could return 0 on
 # the subdirectory and it would not be searched.
 
-proc __is_xql {arg} { 
-    return [expr {[file isdirectory $arg] || [file extension $arg] eq ".xql"}]}
+proc __is_xql {arg} {
+    return [expr {[file isdirectory $arg] || [file extension $arg] eq ".xql"}]
+}
 
 # We need to load query files for the top-level stuff in www and Tcl
 # dirs is the list of directories to walk for xql files.  Packages .xql
@@ -46,11 +47,20 @@
     ns_log Notice "QD=Postload files to load from $dir: $files"
 
     foreach file $files {
-	db_qd_load_query_file $file
+        db_qd_load_query_file $file
     }
 }
 
 nsv_unset ad_after_server_initialization .
+ns_log notice "QD=Postload initialize logstats from startup: [ns_logctl stats]"
+if {[catch { nsv_set acs_properties logstats [ns_logctl stats] }]} {
+    #
+    # Must be a very old version of NaviServer running (before 4.99.7, Feb 2015)
+    #
+    ns_log warning "Running apparently a very old version of NaviServer." \
+        "Please upgrade for better function coverage!"
+    nsv_set acs_properties logstats {Error 0}
+}
 
 # Local variables:
 #    mode: tcl