Return-Path: Delivered-To: apmail-tcl-websh-dev-archive@www.apache.org Received: (qmail 64314 invoked from network); 1 Dec 2003 18:21:22 -0000 Received: from daedalus.apache.org (HELO mail.apache.org) (208.185.179.12) by minotaur-2.apache.org with SMTP; 1 Dec 2003 18:21:22 -0000 Received: (qmail 65118 invoked by uid 500); 1 Dec 2003 18:21:14 -0000 Delivered-To: apmail-tcl-websh-dev-archive@tcl.apache.org Received: (qmail 65098 invoked by uid 500); 1 Dec 2003 18:21:14 -0000 Mailing-List: contact websh-dev-help@tcl.apache.org; run by ezmlm Precedence: bulk X-No-Archive: yes List-Post: List-Help: List-Unsubscribe: List-Subscribe: Delivered-To: mailing list websh-dev@tcl.apache.org Delivered-To: moderator for websh-dev@tcl.apache.org Received: (qmail 57431 invoked from network); 1 Dec 2003 18:15:58 -0000 X-Originating-IP: [199.243.201.138] X-Originating-Email: [booksforsale4a@hotmail.com] From: "Jerry Lam" To: Subject: Cookie Problem Date: Mon, 1 Dec 2003 13:15:48 -0500 MIME-Version: 1.0 Content-Type: multipart/alternative; boundary="----=_NextPart_000_00FA_01C3B80D.3C880A60" X-Priority: 3 X-MSMail-Priority: Normal X-Mailer: Microsoft Outlook Express 6.00.2800.1158 X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2800.1165 Message-ID: X-OriginalArrivalTime: 01 Dec 2003 18:16:02.0538 (UTC) FILETIME=[2DAAB4A0:01C3B837] X-Spam-Rating: daedalus.apache.org 1.6.2 0/1000/N X-Spam-Rating: minotaur-2.apache.org 1.6.2 0/1000/N ------=_NextPart_000_00FA_01C3B80D.3C880A60 Content-Type: text/plain; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable Hi, Apparently, there is something unusual in the cookies source code = (cookie.ws3) from the src code: [src code] proc web::cookiecontext {ctxmgrname args} { # correct namespace (relative to caller) ... ... # inside this proc proc ${ctxmgrname}::save {id {doInvalidate 0}} { variable _channel variable _domain variable _path variable _expires ... ... if { [catch {clock scan $_expires} msg] } { =20 set expstr $_expires } else { [\src code] if $_expires is an integer, then this will set expstr to that integer = since clock scan take a date string and not an integer if I'm not = mistaken. Which means that if I put the expiry time in second then the = expiry date will never be set correctly. Please let me know if I = misunderstood the source code or not.=20 Thanks, Jerry ------=_NextPart_000_00FA_01C3B80D.3C880A60 Content-Type: text/html; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable

Hi,

Apparently, there is something unusual = in the=20 cookies source code (cookie.ws3)

from the src code:

[src code]

proc web::cookiecontext {ctxmgrname = args}=20 {

# correct namespace = (relative to=20 caller)

...

# = inside this=20 proc

proc = ${ctxmgrname}::save=20 {id {doInvalidate 0}} {

        variable=20 _channel
        variable=20 _domain
        variable=20 _path
        variable=20 _expires

=20 ...

       =20     if { [catch {clock scan $_expires} msg] = }=20 {
     =20
            = set=20 expstr=20 $_expires
          =   }=20 else {

[\src code]

if $_expires is an integer, then this = will set=20 expstr to that integer since clock scan take a date string and not an = integer if=20 I'm not mistaken. Which means that if I put the expiry time in second = then the=20 expiry date will never be set correctly. Please let me know if I = misunderstood=20 the source code or not.

Thanks,

Jerry

------=_NextPart_000_00FA_01C3B80D.3C880A60--