sessions

[Faruk S. Can]

morph composes home-page has changed
(defun morph-columns1 ()
 (html ()
      (head ()
         (link (list :rel "stylesheet" :href "reset.css"))
         (link (list :rel "stylesheet" :href "main.css"))
         (script () +js-sign-in+ +js-logout+ +jswritingdesk+
+jssavewriting+ +jsnotepad+))

(body ()

      (morph-categories-axis)
      (morph-time-axis)
      (div (list :style "height: 45px; border: 1px solid;")
           (morph-name)
           (morph-search)

           (div (list :id "online-xor-offline"
                      :style "height: 45px; border: 1px solid; float:left;")
                (if (signed-in-p);!!!t

                  (div (list :id "if-online")
                       (div (list :id "numbers-online" :style "border:1px
solid; float:left;")  "123 users online")
                       (div (list :id "username" :style "border:1px solid;
float:left;") (session-value '*username));!!!"sess val"
                       (button (list :onclick "ajaxlogout()") "logout")
                       (a (list :onclick "writingdesk()") "writing desk")
                       (a (list :onclick "notepad()") "note pad")
                       (a (list :onclick "published()") "published")
                       (a (list :onclick "preferences()") "preferences"))

                  (div (list :id "if-offline")
                       (morph-sign-in-form)
                       (morph-signup-link)
                       )))))))



On Sat, Mar 15, 2014 at 7:40 PM, Faruk S. Can <farukscan at gmail.com> wrote:

> my problem persists. once it has gone but i could not figure out how.
>  but now the problem is back.
> any help?
>
>
> On Wed, Mar 12, 2014 at 7:19 PM, Faruk S. Can <farukscan at gmail.com> wrote:
>
>> hi
>> i cannot sustain a session.
>> i login to my app. it shows my login name as i programmed.
>> when i refresh the page it stays there.
>> but when i refresh for the second time my session name and
>> other things goes away and instead i see what is there for the
>> not loginned case.
>>
>> I think i miss something in hunchentoot session hadling.
>>
>> ;all html generated by a macro:
>>
>> (defmacro ff (tag)
>>   `(defun ,tag (&rest c)
>>      (with-output-to-string (*standard-output*)
>>        (format t "<~a ~{~a='~a' ~}> ~{~a ~}</~a>" ',tag (car c) (cdr c)
>> ',tag))))
>>
>> ;;defining all tag functions:
>> (progn
>>   (ff html)
>>   (ff title)
>>   (ff head)
>>   (ff meta)
>>   (ff link)
>>   (ff style)
>>   (ff script)
>>   (ff body)
>>   (ff span)
>>   (ff div)
>>   (ff section)
>>   (ff p)
>>   (ff form)
>>   (ff input)
>>   (ff button)
>>   (ff textarea)
>>   (ff a)
>>   (ff h1)
>>   (ff h2)
>>   (ff h3)
>>   (ff h4)
>>   (ff h5)
>>   (ff h6)
>>   (ff ol)
>>   (ff ul)
>>   (ff li))
>>
>> ;authentication utilities used by the home page function at the bottom:
>>
>> (defun signed-in-p ()
>>   (if (and (boundp '*session*) (session-value '*signed-in *session*))
>>       t
>>       nil))
>>
>> (defun signed-up-p (x y)
>>   (if (with-connection *conn1spec*
>>          (query  (:select 'username 'password :from 'users.users
>>                           :where (:and (:= 'username x)
>>                                        (:= 'password y)))))
>>     t
>>     nil))
>>
>> (defun sign-in ()
>>   (let ((username (parameter "username"))
>> (password (parameter "password")))
>>     (if (signed-up-p username password)
>>       (progn
>>         (start-session)
>>         (setf (session-value '*username) username)
>>         (setf (session-value '*signed-in) t)
>>         (morph-status-plate (session-value '*username)))
>>       (with-output-to-string (s)
>>         (princ (morph-sign-in-form) s)
>>         (princ "No record found!" s)
>>         (princ (a (list :href "/form-sign-up") "Sign up") s)
>>          ))))
>> ;the data base querying functions are working correctly
>> ;views generated:
>>
>> (defun morph-write-button ()
>>   (div (list :style "border:1px solid; float:left;")
>>      (a (list :href "/writingp") "write")))
>>
>> (defun morph-status-plate (username)
>>    (div (list :id "status-plate" :style "border:1px solid; float:left;")
>>      (span () "123 users online")
>>      (span () username)
>>      (button (list :onclick "ajaxlogout()") "logout")))
>>
>> (defun morph-sign-in-form ()
>>   (div (list :id "sign-in-form" :style "border:1px solid; float:left;")
>>    (form (list :method "" :action "")
>>     (input (list :id "username" :type "input" :name "username"))
>>     (input (list :id "password" :type "input" :name "password"))
>>     (input (list :onClick "ajaxsignin()" :type "button" :value
>> "login")))))
>>
>> ;at last
>> ;the page i generate as home page:
>> (div (list :id "sign-in-form-or-status-plate"
>>                       :style "height: 45px; border: 1px solid;
>> float:left;")
>>                 (if (signed-in-p);;;;;;
>>                   (with-output-to-string (s)
>>                     (start-session)
>>                     (princ (morph-status-plate (session-value
>> '*username)) s)
>>                     (princ (morph-write-button) s))
>>                   (with-output-to-string (s)
>>                     (princ (morph-sign-in-form) s)
>>                     (princ (a (list :href "form-sign-up") "Sign up") s))))
>>
>>
>>
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://mailman.common-lisp.net/pipermail/tbnl-devel/attachments/20140315/2cb9a798/attachment.html>