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]