Posted to tcl by colin at Wed Feb 25 08:15:34 GMT 2009view pretty

Nub code /noncookie/ {
    set r [Http NoCache $r]
    set cdict [Dict get? $r -cookies]
    if {[catch {Cookies fetch $cdict -name cookie} cl]} {
	<p> "No Cookies for YOU"
    } else {
	<p> "Got cookies!  $cl"
    }
}

Nub code /cookie/set {
    set r [Http NoCache $r]
    set cdict [Dict get? $r -cookies]
    
    # add in the cookies
    set cdict [Cookies add $cdict -path /cookie/ -name cookie -value cookie]
    set cdict [Cookies add $cdict -path /cookie/set/ -name cookie -value set]
    set cdict [Cookies add $cdict -path /cookie/test/ -name cookie -value test]
    set cdict [Cookies add $cdict -path /noncookie/ -name cookie -value noncookie]
    set cdict [Cookies add $cdict -name cookie -value nopath]
    dict set r -cookies $cdict
    
    <p> "Set you some Cookies"
}

Nub code /cookie/ {
    set r [Http NoCache $r]
    set cdict [Dict get? $r -cookies]
    if {[catch {Cookies fetch $cdict -name cookie} cl]} {
	<p> "No Cookies for YOU"
    } else {
	<p> "Got cookies!  $cl"
    }
}

Nub code /cookie/test {
    set r [Http NoCache $r]
    set cdict [Dict get? $r -cookies]
    if {[catch {Cookies fetch $cdict -name cookie} cl]} {
	<p> "No Cookies for YOU"
    } else {
	<p> "Got cookies!  $cl"
    }
}