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

  1. Nub code /noncookie/ {
  2. set r [Http NoCache $r]
  3. set cdict [Dict get? $r -cookies]
  4. if {[catch {Cookies fetch $cdict -name cookie} cl]} {
  5. <p> "No Cookies for YOU"
  6. } else {
  7. <p> "Got cookies! $cl"
  8. }
  9. }
  10.  
  11. Nub code /cookie/set {
  12. set r [Http NoCache $r]
  13. set cdict [Dict get? $r -cookies]
  14.  
  15. # add in the cookies
  16. set cdict [Cookies add $cdict -path /cookie/ -name cookie -value cookie]
  17. set cdict [Cookies add $cdict -path /cookie/set/ -name cookie -value set]
  18. set cdict [Cookies add $cdict -path /cookie/test/ -name cookie -value test]
  19. set cdict [Cookies add $cdict -path /noncookie/ -name cookie -value noncookie]
  20. set cdict [Cookies add $cdict -name cookie -value nopath]
  21. dict set r -cookies $cdict
  22.  
  23. <p> "Set you some Cookies"
  24. }
  25.  
  26. Nub code /cookie/ {
  27. set r [Http NoCache $r]
  28. set cdict [Dict get? $r -cookies]
  29. if {[catch {Cookies fetch $cdict -name cookie} cl]} {
  30. <p> "No Cookies for YOU"
  31. } else {
  32. <p> "Got cookies! $cl"
  33. }
  34. }
  35.  
  36. Nub code /cookie/test {
  37. set r [Http NoCache $r]
  38. set cdict [Dict get? $r -cookies]
  39. if {[catch {Cookies fetch $cdict -name cookie} cl]} {
  40. <p> "No Cookies for YOU"
  41. } else {
  42. <p> "Got cookies! $cl"
  43. }
  44. }