It doesn't work becuase your ns_writes will already have sent the headers.
So your ns_sendcookie that adds them to the headers isn't getting sent
anymore.
In the ADP version, nothing is sent before the page is complete, as
streaming isn't turned on, which is qhy it works.
Send your cookies before any ns_writes in the Tcl version.
Cheers,
bas.
Thorpe Mayes said:
> Why does this adp code work:
>
> -----------------
> <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
> <HTML>
> <BODY>
> <%
>
> set host [string tolower [ns_set get [ns_conn headers $conn] Host]]
>
> set jar [ns_getallcookies $conn]
> set hits [ns_getcrumble $jar userinfo hits]
> set lastvisit [ns_getcrumble $jar userinfo lastvisit]
>
> if { [string match "" $hits] } {
> set hits "0"
> }
> incr hits
>
> ns_puts "Hits: $hits<br>"
>
> if { [string match "" $lastvisit] } {
> ns_puts "Last Visit: This is your first visit, yay!!!!<br>"
> } else {
> ns_puts "Last Visit: [ns_fmttime $lastvisit "%a, %d-%b-%Y %T
> GMT"]<br>"
> }
>
> ns_setcrumble jar userinfo hits $hits
> ns_setcrumble jar userinfo lastvisit [ns_time]
>
> ns_sendcookie $conn $jar userinfo "/" [expr [ns_time] + 31536000]
> "$host" ""
>
> %>
>
> </BODY>
> </HTML>
>
> --------
>
> but this tcl code not work:
>
> ----------
>
> set host [string tolower [ns_set get [ns_conn headers conn] Host]]
>
> set jar [ns_getallcookies $conn]
>
> set hits [ns_getcrumble $jar userinfo hits]
>
> set lastvisit [ns_getcrumble $jar userinfo lastvisit]
>
> if { [string match "" $hits] } {
> set hits "0"
> }
> incr hits
>
> ns_write "Hits: $hits\n\n"
>
> if { [string match "" $lastvisit] } {
>
> ns_write "Last Visit: This is your first visit, yay!!!!"
>
> } else {
> ns_write "Last Visit: [ns_fmttime $lastvisit "%a, %d-%b-%Y %T GMT"]"
> }
>
> ns_setcrumble jar userinfo hits $hits
>
> ns_setcrumble jar userinfo lastvisit [ns_time]
>
> ns_sendcookie conn $jar userinfo "/" [expr [ns_time] + 31536000] $host ""
>
> -----
>
> ?
>
> the tcl code does not save the cookie while the adp code does.
>
> I am running aolserver 3.5.6
>
> the ns_ procedures are in cookie.tcl
>
> Thank you.
>
> Thorpe
>
>
> --
> AOLserver - http://www.aolserver.com/
>
> To Remove yourself from this list, simply send an email to
> <[EMAIL PROTECTED]> with the
> body of "SIGNOFF AOLSERVER" in the email message. You can leave the
> Subject: field of your email blank.
>
--
AOLserver - http://www.aolserver.com/
To Remove yourself from this list, simply send an email to <[EMAIL PROTECTED]>
with the
body of "SIGNOFF AOLSERVER" in the email message. You can leave the Subject:
field of your email blank.
