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):

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