You are viewing a plain text version of this content. The canonical link for it is here.
Posted to websh-cvs@tcl.apache.org by ro...@apache.org on 2004/02/03 10:59:38 UTC
cvs commit: tcl-websh/src/generic cookie.ws3
ronnie 2004/02/03 01:59:38
Modified: src/generic cookie.ws3
Log:
- fixed cookie date format (http://wp.netscape.com/newsref/std/cookie_spec.html)
Revision Changes Path
1.3 +4 -4 tcl-websh/src/generic/cookie.ws3
Index: cookie.ws3
===================================================================
RCS file: /home/cvs/tcl-websh/src/generic/cookie.ws3,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- cookie.ws3 25 Oct 2001 11:04:26 -0000 1.2
+++ cookie.ws3 3 Feb 2004 09:59:38 -0000 1.3
@@ -135,11 +135,11 @@
set cookie "$id=$data"
if { $doInvalidate } {
- append cookie "; expires=Sat, 01-01-2000 00:00:00 MET"
+ append cookie "; expires=Sat, 01-Jan-2000 00:00:00 GMT"
} else {
if { $data == "{}" || $data == ""} {
- set cookie "$id=; expires=Sat, 01-01-2000 00:00:00 MET"
+ set cookie "$id=; expires=Sat, 01-Jan-2000 00:00:00 GMT"
} else {
# write the expiry-date
@@ -162,7 +162,7 @@
if {[string equal $_expires "today"]} {
set expstr $_expires
} else {
- set expstr [clock format $expsec -format "%a, %d-%m-%Y %H:%M:%S %Z"]
+ set expstr [clock format $expsec -format "%a, %d-%b-%Y %H:%M:%S %Z" -gmt true]
}
}
if { [string length $expstr] } {
---------------------------------------------------------------------
To unsubscribe, e-mail: websh-cvs-unsubscribe@tcl.apache.org
For additional commands, e-mail: websh-cvs-help@tcl.apache.org