Index: openacs-4/packages/acs-bootstrap-installer/tcl/00-proc-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-bootstrap-installer/tcl/00-proc-procs.tcl,v
diff -u -r1.66.2.19 -r1.66.2.20
--- openacs-4/packages/acs-bootstrap-installer/tcl/00-proc-procs.tcl 24 Feb 2021 04:00:45 -0000 1.66.2.19
+++ openacs-4/packages/acs-bootstrap-installer/tcl/00-proc-procs.tcl 27 Feb 2021 18:03:38 -0000 1.66.2.20
@@ -854,13 +854,22 @@
Switch values are placed in corresponding variable names in the calling
environment.
+ GN: This function is a hack to overcome shortcomings of argument
+ parsing at the first place, since the old-style argument parser of
+ OpenACS does NOT support non-positional arguments after the
+ positional ones. Since the advent of XOTcl2, this limitation is
+ gone and just used for installations without XOTcl.... but since
+ XOTcl is required since many years, this is not an issue anymore.
+
@param allowed_args a list of allowable switch names.
@param argv a list of command-line options. May end with args
to
indicate that extra values should be tolerated after switches and placed in
the args
list.
@error if the list of command-line options is not valid.
} {
+ #ns_log notice "ad_arg_parser '$allowed_args' <$argv>"
+
if {[lindex $allowed_args end] eq "args"} {
set varargs_p 1
set allowed_args [lrange $allowed_args 0 [llength $allowed_args]-2]