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.
