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" } }