Posted to tcl by colin at Wed Feb 25 08:15:34 GMT 2009view raw
- 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"
- }
- }