DN562385191

Subject: cgi.tcl y2k issue(?) - DN [1]

"Keith Lea" <keith@cs.oswego.edu> - 18 Dec 1999 - comp.lang.tcl

 proc cgi_cookie_set {nameval args} {
 ...
     if {[regexp "^expires=(.*)" $a dummy expiration]} {
         if {0==[string compare $expiration "never"]} {
             set expiration "Friday, 31-Dec-99 23:59:59 GMT"
 ...
 }

 uh-oh...after dec 31 1999, everyone's cookies are going to stop saving..

 -kl