Switch to edit mode.
Name(s): Cookie:1: "Modified by Quadir (#9780)@moo.ca to allow actual value cookies"
2: "Store the cookies as a list of name/value pairs."
3: cookies = $string_utils:explode(strsub(argstr, " ", ";"), ";")
4: for cookie in (cookies)
5: sep = index(cookie, "=")
6: value = $su:to_value($su:subst(cookie[sep + 1..$], $www.subst))
7: if (value[1])
8: this.cookies = {@this.cookies, {toobj(cookie[1..sep - 1]), value[2]}}
9: endif
10: endfor
11: "Last modified by whiz (#3135) on Sun Apr 14 12:33:11 2002 MDT."