yet another session problem
José Ronquillo
josrr at ymail.com
Thu Mar 20 22:12:15 UTC 2014
Ok, it still reports the error to the browser, but the session is created and the session value is saved.
On , José Ronquillo <josrr at ymail.com> wrote:
Hello again Faruk, I think the symbol *session* is not bound immediately after calling the function start-session, but the function returns it; this code works:
(defun f ()
(let ((username (hunchentoot:parameter "username"))
(session (hunchentoot:start-session)))
(format t "session:~s~%" session)
(setf (hunchentoot:session-value 'sessu session) username)
(hunchentoot:session-value 'sessu session)))
On Thursday, March 20, 2014 3:29 PM, Faruk S. Can <farukscan at gmail.com> wrote:
and with page.html:
<html>
<body>
<form action="/l" method="get">
<input type="text" name="username" </input>
<input type="submit" </input>
</form>
</body>
</html>
2014-03-20 23:08 GMT+02:00 Faruk S. Can <farukscan at gmail.com>:
no offense.
>I need help on hunchentoot session topic.
>whether I am doing a very simple mistake,
>or there is an issue.
>I do not need do not send your code
>and beg for help to solicit help
>as somebody has told days before
>this is very basically should work as I am expecting.
>It is very simple.
>to ensure installs are done:
>
>
>(ql:quickload '(:hunchentoot))
>
>(hunchentoot:start (make-instance 'hunchentoot:easy-acceptor :port 5050))
>
>
>
>(defun f ()
> (let ((username (hunchentoot:parameter "username")))
> (hunchentoot:start-session)
> (setf (hunchentoot:session-value 'sessu) username)
> (hunchentoot:session-value 'sessu)))
>
>
>(push (hunchentoot:create-prefix-dispatcher "/l" 'f) hunchentoot:*dispatch-table*)
>
>
>
>(push (hunchentoot:create-static-file-dispatcher-and-handler "/" "/Users/faruk/desktop/page.html") hunchentoot:*dispatch-table*)
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://mailman.common-lisp.net/pipermail/tbnl-devel/attachments/20140320/04c47c8c/attachment.html>
More information about the Tbnl-devel
mailing list