template::util::set_cookie (public, deprecated)

 template::util::set_cookie expire_state name value [ domain ]

Defined in packages/acs-templating/tcl/deprecated-procs.tcl

Deprecated. Invoking this procedure generates a warning.

Create a cookie with specified parameters. The expiration state may be persistent, session, or a number of minutes from the current time.

Parameters:

expire_state (required)

name (required)

value (required)

domain (optional)

See Also:

• ad_set_cookie

Testcases:

No testcase defined.

Source code:

ad_log_deprecated proc template::util::set_cookie

    if { [string match $domain {}] } {
    set path "ns/server/[ns_info server]/module/nssock"
    set domain [ns_config $path Hostname]
    }

    set cookie "$name=[ns_urlencode $value]; path=/; domain=$domain"

    switch -- $expire_state {

    persistent {
        append cookie ";expires=Wed, 01-Jan-2020 01:00:00 GMT"
    }

    "" -
    session {
    }

    default {

        set time [expr {[ns_time] + ($expire_state * 60)}]
        append cookie ";expires=[ns_httptime $time]"
    }
    }

    ns_set put [ns_conn outputheaders] "Set-Cookie" $cookie

XQL Not present:

Generic, PostgreSQL, Oracle