Index: openacs-4/packages/acs-bootstrap-installer/acs-bootstrap-installer.info
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-bootstrap-installer/acs-bootstrap-installer.info,v
diff -u -r1.45.2.10 -r1.45.2.11
--- openacs-4/packages/acs-bootstrap-installer/acs-bootstrap-installer.info 13 Jul 2023 13:09:51 -0000 1.45.2.10
+++ openacs-4/packages/acs-bootstrap-installer/acs-bootstrap-installer.info 18 Jul 2024 14:08:12 -0000 1.45.2.11
@@ -9,7 +9,7 @@
f
t
-
+
Don Baccus
Bootstraps an OpenACS installation.
2022-08-22
@@ -18,7 +18,7 @@
GPL
3
-
+
Index: openacs-4/packages/acs-bootstrap-installer/bootstrap.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-bootstrap-installer/bootstrap.tcl,v
diff -u -r1.34.2.5 -r1.34.2.6
--- openacs-4/packages/acs-bootstrap-installer/bootstrap.tcl 18 Jul 2024 10:36:04 -0000 1.34.2.5
+++ openacs-4/packages/acs-bootstrap-installer/bootstrap.tcl 18 Jul 2024 14:08:12 -0000 1.34.2.6
@@ -21,15 +21,13 @@
# the system log might be spooled to stderr or the like.
#catch { nsv_set acs_properties initial_error_log_length [file size [ns_info log]] }
-catch { nsv_set acs_properties logstats [ns_logctl stats] }
-
# Initialize proc_doc NSV arrays.
nsv_set proc_source_file . ""
# Initialize ad_after_server_initialization.
nsv_set ad_after_server_initialization . ""
-ns_log Notice "bootstrap begin encoding [encoding system]"
+ns_log Notice "OpenACS bootstrap begin encoding [encoding system]"
###
#
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.2.1 -r1.3.2.2
--- openacs-4/packages/acs-bootstrap-installer/installer/tcl/zz-postload.tcl 13 Jul 2020 12:02:33 -0000 1.3.2.1
+++ openacs-4/packages/acs-bootstrap-installer/installer/tcl/zz-postload.tcl 18 Jul 2024 14:08:12 -0000 1.3.2.2
@@ -19,21 +19,21 @@
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} {
+proc __is_xql {arg} {
return [expr {[file isdirectory $arg] || [file extension $arg] eq ".xql"}]
}
@@ -47,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