export_vars_sign (private)

 export_vars_sign [ -params params ] value

Defined in packages/acs-tcl/tcl/utilities-procs.tcl

Call ad_sign parameterized via max_age and secret specified in urlencoding

Switches:
-params (optional)
Parameters:
value

Partial Call Graph (max 5 caller/called nodes):
%3 export_vars export_vars (public) export_vars_sign export_vars_sign export_vars->export_vars_sign

Testcases:
No testcase defined.
Source code:
    set max_age ""
    set user_binding 0
    set secret  [ns_config "ns/server/[ns_info server]/acs" parametersecret ""]
    foreach {key val} [ns_set array [ns_parsequery $params]] {
        switch -- $key {
            max_age -
            secret {
                set $key $val
            }
            user {
                if {$user_binding == 0} {
                    set user_binding -1
                } else {
                    ns_log warning "can't overrode sign(user) with sign(nonce)"
                }
            }
            csrf {
                if {$user_binding == 0} {
                    set user_binding -2
                } else {
                    ns_log warning "can't overrode sign(user) with sign(nonce)"
                }
            }
            default {
                #
                # It seems, there are several cases, where
                # "export_vars_sign" is called with invalid params
                # (which can be seemingly ignored:
                #
                ns_log warning  "export_vars_sign: invalid value '$key' in sign() specification (params <$params>, key=<$key>)"
                #error "invalid value '$key' in sign() specification"

            }
        }
    }

    return [ad_sign -max_age $max_age -secret $secret -binding $user_binding $value]
XQL Not present:
PostgreSQL, Oracle
Generic XQL file:
packages/acs-tcl/tcl/utilities-procs.xql

[ hide source ] | [ make this the default ]
Show another procedure: