fix_cookies

This procedure is defined in the server but not documented via ad_proc or proc_doc and may be intended as a private interface.

The procedure is defined as:

proc fix_cookies {} {
    
    set cookieString [ns_set iget [ns_conn headers] cookie]
    if {[string match *pires* $cookieString]} {
	ad_log warning "received a probably invalid cookie: $cookieString"
	set newCookies {}
	foreach line [split $cookieString \n] {
	    if {[regexp {^([^;]*);} $line . c]} {
		lappend newCookies $c
	    }
	}
	if {[llength $newCookies] > 0} {
	    ad_log notice "fixed cookies [join $newCookies {;}]"
	    ns_set update [ns_conn headers] cookie [join $newCookies ";"]
	}
    }	

}