Index: openacs-4/packages/acs-tcl/tcl/security-init.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/security-init.tcl,v diff -u -N -r1.6.2.4 -r1.6.2.5 --- openacs-4/packages/acs-tcl/tcl/security-init.tcl 27 Feb 2023 17:53:52 -0000 1.6.2.4 +++ openacs-4/packages/acs-tcl/tcl/security-init.tcl 5 Apr 2024 08:28:21 -0000 1.6.2.5 @@ -11,10 +11,10 @@ } # -# Check, if parametersecret is set (needed for signed parameters) +# Check, if parameterSecret is set (needed for signed parameters) # -if {[ns_config "ns/server/[ns_info server]/acs" parametersecret ""] eq ""} { - ns_log warning "missing values for 'parametersecret' in section " \ +if {[ns_config "ns/server/[ns_info server]/acs" parameterSecret ""] eq ""} { + ns_log warning "missing values for 'parameterSecret' in section " \ "'ns/server/[ns_info server]/acs' in configuration file" } Index: openacs-4/packages/acs-tcl/tcl/security-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/security-procs.tcl,v diff -u -N -r1.126.2.98 -r1.126.2.99 --- openacs-4/packages/acs-tcl/tcl/security-procs.tcl 15 Feb 2024 16:47:57 -0000 1.126.2.98 +++ openacs-4/packages/acs-tcl/tcl/security-procs.tcl 5 Apr 2024 08:28:21 -0000 1.126.2.99 @@ -3228,7 +3228,7 @@ # set session_id [ad_conn peeraddr] } - set secret [ns_config "ns/server/[ns_info server]/acs" parametersecret ""] + set secret [ns_config "ns/server/[ns_info server]/acs" parameterSecret ""] if {[namespace which ::crypto::hmac] ne ""} { set token [::crypto::hmac string $secret $session_id-[clock clicks -microseconds]] @@ -3403,12 +3403,12 @@ ad_proc -public signed {{-max_age ""} value} { Compute a compact single-token signed value based on the - parametersecret. + parameterSecret. @see ::security::parameter::validated } { set token_id [sec_get_random_cached_token_id] - set secret [ns_config "ns/server/[ns_info server]/acs" parametersecret ""] + set secret [ns_config "ns/server/[ns_info server]/acs" parameterSecret ""] set signature [ad_sign -max_age $max_age -secret $secret -token_id $token_id $value] return [ns_base64urlencode [list $value $signature]] } @@ -3425,7 +3425,7 @@ set pair [ns_base64urldecode $input] if {[string is list -strict $pair] && [llength $pair] == 2} { lassign $pair value signature - set secret [ns_config "ns/server/[ns_info server]/acs" parametersecret ""] + set secret [ns_config "ns/server/[ns_info server]/acs" parameterSecret ""] set success [ad_verify_signature -secret $secret $value $signature] } if {$success} { @@ -3579,7 +3579,7 @@ if {[info exists $globalTokenName] && [set $globalTokenName] ne ""} { set token [set $globalTokenName] } else { - set secret [ns_config "ns/server/[ns_info server]/acs" parametersecret ""] + set secret [ns_config "ns/server/[ns_info server]/acs" parameterSecret ""] if {[namespace which ::crypto::hmac] ne ""} { set token [::crypto::hmac string $secret [session_id]] } else { Index: openacs-4/packages/acs-tcl/tcl/tcl-documentation-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/tcl-documentation-procs.tcl,v diff -u -N -r1.61.2.41 -r1.61.2.42 --- openacs-4/packages/acs-tcl/tcl/tcl-documentation-procs.tcl 15 Feb 2024 18:04:04 -0000 1.61.2.41 +++ openacs-4/packages/acs-tcl/tcl/tcl-documentation-procs.tcl 5 Apr 2024 08:28:21 -0000 1.61.2.42 @@ -1138,7 +1138,7 @@ # This is not an array, verify the scalar variable if { ![info exists apc_signatures($formal_name)] || ![ad_verify_signature \ - -secret [ns_config "ns/server/[ns_info server]/acs" parametersecret ""] \ + -secret [ns_config "ns/server/[ns_info server]/acs" parameterSecret ""] \ $var $apc_signatures($formal_name)] } { ad_complain -key $formal_name:verify [_ acs-tcl.lt_The_signature_for_the] @@ -1148,7 +1148,7 @@ # This is an array: verify the [array get] form of the array if { ![info exists apc_signatures($formal_name)] || ![ad_verify_signature \ - -secret [ns_config "ns/server/[ns_info server]/acs" parametersecret ""] \ + -secret [ns_config "ns/server/[ns_info server]/acs" parameterSecret ""] \ [lsort [array get var]] $apc_signatures($formal_name)] } { ad_complain -key $formal_name:verify [_ acs-tcl.lt_The_signature_for_the] Index: openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl,v diff -u -N -r1.189.2.172 -r1.189.2.173 --- openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl 26 Feb 2024 11:09:06 -0000 1.189.2.172 +++ openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl 5 Apr 2024 08:28:21 -0000 1.189.2.173 @@ -882,7 +882,7 @@ } { set max_age "" set user_binding 0 - set secret [ns_config "ns/server/[ns_info server]/acs" parametersecret ""] + set secret [ns_config "ns/server/[ns_info server]/acs" parameterSecret ""] foreach {key val} [ns_set array [ns_parsequery $params]] { switch -- $key { max_age - Index: openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl,v diff -u -N -r1.93.2.70 -r1.93.2.71 --- openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl 23 Feb 2024 12:58:27 -0000 1.93.2.70 +++ openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl 5 Apr 2024 08:28:21 -0000 1.93.2.71 @@ -162,7 +162,7 @@ set pair [ns_base64urldecode $input] if {[string is list -strict $pair] && [llength $pair] == 2} { lassign $pair value signature - set secret [ns_config "ns/server/[ns_info server]/acs" parametersecret ""] + set secret [ns_config "ns/server/[ns_info server]/acs" parameterSecret ""] #ns_log notice "[list ad_verify_signature -secret $secret $value $signature]" if {[ad_verify_signature -secret $secret $value $signature]} { return $value Index: openacs-4/packages/xowiki/tcl/form-field-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/form-field-procs.tcl,v diff -u -N -r1.284.2.242 -r1.284.2.243 --- openacs-4/packages/xowiki/tcl/form-field-procs.tcl 29 Feb 2024 12:58:08 -0000 1.284.2.242 +++ openacs-4/packages/xowiki/tcl/form-field-procs.tcl 5 Apr 2024 08:28:21 -0000 1.284.2.243 @@ -2404,7 +2404,7 @@ # don't render the labels if {[info exists :sign] && ${:sign}} { set token_id [sec_get_random_cached_token_id] - set secret [ns_config "ns/server/[ns_info server]/acs" parametersecret ""] + set secret [ns_config "ns/server/[ns_info server]/acs" parameterSecret ""] if {[info exists :max_age]} { set max_age ${:max_age} } else { @@ -2424,7 +2424,7 @@ set v 1 if {[info exists :sign] && ${:sign}} { set sig [::xo::cc form_parameter __${:name}_sig] - set secret [ns_config "ns/server/[ns_info server]/acs" parametersecret ""] + set secret [ns_config "ns/server/[ns_info server]/acs" parameterSecret ""] set v [ad_verify_signature -secret $secret $value $sig] ns_log notice "==== we have sig <$sig> val $v" }