I don't know if this is the right place but I thought it might be
interesting for some to keep track on the debug progress.

So I managed to import my feed, and add myself to the db
programmatically (the registration form is still not working for me
but we wait with that) with the new testing version, then I started
the server, everything OK, the login form loads, so I fill in my
username/password and get this from the traceAll call, I only paste
the last hundred lines or so, I think it should be enough:

   postForm = $177616230456044
   postGui :
    chk> +gui $177616230456063 :
    chk> +gui $177616230456063 = NIL
    val> +field $177616230456063 :
     str> +field $177616230456063 :
     str> +field $177616230456063 = "henrik"
    val> +field $177616230456063 = "henrik"
    set> +field $177616230456063 : "henrik" T
    set> +field $177616230456063 = NIL
    chk> +gui $177616230456116 :
    chk> +gui $177616230456116 = NIL
    val> +field $177616230456116 :
     str> +field $177616230456116 :
     str> +field $177616230456116 = "123456"
    val> +field $177616230456116 = "123456"
    set> +field $177616230456116 : "123456" T
    set> +field $177616230456116 = NIL
    chk> +gui $177616230456154 :
    chk> +gui $177616230456154 = NIL
    val> +gui $177616230456154 :
    val> +gui $177616230456154 = NIL
    set> +gui $177616230456154 : NIL T
    set> +gui $177616230456154 = NIL
    upd> +gui $177616230456063 :
    upd> +gui $177616230456063 = NIL
    upd> +gui $177616230456116 :
    upd> +gui $177616230456116 = NIL
    upd> +gui $177616230456154 :
    upd> +gui $177616230456154 = NIL
   postGui = NIL
   httpHead : "text/plain; charset=utf-8" NIL NIL NIL
    http1 : "text/plain; charset=utf-8" NIL NIL NIL
     httpDate : 734013 79120
      day : 734013 (Mon Tue Wed Thu Fri Sat Sun .)
      day = Tue
      pad : 2 27
      pad = "27"
      tim$ : 79120 T
       pad : 2 21
       pad = "21"
       pad : 2 58
       pad = "58"
       pad : 2 40
       pad = "40"
      tim$ = "21:58:40"
     httpDate = " GMT^M"
    http1 = NIL
    httpCookies :
    httpCookies = NIL
   httpHead = "^M"
   js> +field $177616230456063 :
    able :
    able = T
   js> +field $177616230456063 = "henrik"
   js> +field $177616230456116 :
    able :
    able = T
   js> +field $177616230456116 = "123456"
   js> +Button $177616230456154 :
    able :
    able = T
   js> +Button $177616230456154 = "Login"
  jsForm = NIL
 http = NIL
 task : 29 ((http @))
 task = (29 (http @))
 http : 29
  _htHead :
   htArg : ("$" "u" "i" "d")
   htArg = uid
   htArg : ("+" "1" "5" "0" "6" "3" "2" "1" "4" "6" "1" "2" "6" "4"
"3" "5" "9" "8" "4" "2" "7" "0" "9" "6" "9" "9" "1")
   htArg = 15063214612643598427096991
  _htHead = 628
  _htMultipart :
   _htSet : ("*" "G" "e" "t") "1"
   _htSet = "1"
   _htSet : ("*" "F" "o" "r" "m") "2"
   _htSet = "2"
   _htSet : ("*" "G" "u" "i" "(" "+" "1" ")") "henrik"
    htArg : ("+" "1")
    htArg = 1
   _htSet = "henrik"
   _htSet : ("*" "G" "u" "i" "(" "+" "2" ")") "123456"
    htArg : ("+" "2")
    htArg = 2
   _htSet = "123456"
   _htSet : ("*" "G" "u" "i" "(" "+" "-" "3" ")") "Login"
    htArg : ("+" "-" "3")
    htArg = -3
   _htSet = "Login"
  _htMultipart = "Login"
  htArg : ("+" "0")
  htArg = 0
  _htSet : ("*" "M" "e" "n" "u") 0
  _htSet = 0
  htArg : ("+" "1")
  htArg = 1
  _htSet : ("*" "T" "a" "b") 1
  _htSet = 1
  htArg : NIL
  htArg = NIL
  _htSet : ("*" "I" "D") NIL
  _htSet = NIL
  timeout : 1800000
  timeout = 1800000
  db : uid +User 15063214612643598427096991
   tree : uid +User NIL
   tree = (uid . +User)
   fetch : (uid . +User) 15063214612643598427096991
    root : (uid . +User)
    root = (1 . {H2})
   fetch = NIL
  db = NIL
  app :
  app = NIL
  action : ((rss-html (form NIL (<table> NIL NIL NIL (<row> NIL
"Username" (gui 'uname '(+TextField) 10)) (<row> NIL "Password" (gui
'pwd '(+PwField) 10)) (<row> NIL (gui '(+Button) "Login" '(let Uid
(chkLogin (val> (: home uname)) (val> (: home pwd))) (if Uid (prog
(cookie 'uid Uid) (setq *Cookies (cons 'uid Uid)) (put!> (db 'uid
'+User Uid) 'session NIL) (redir)) (err "Could not login."))))) (<row>
NIL (<href> "Sign Up" "@register"))))))
   postForm :
   postForm = $177616230456044
   postGui :
    chk> +gui $177616230456063 :
    chk> +gui $177616230456063 = NIL
    val> +field $177616230456063 :
     str> +field $177616230456063 :
     str> +field $177616230456063 = "henrik"
    val> +field $177616230456063 = "henrik"
    set> +field $177616230456063 : "henrik" T
    set> +field $177616230456063 = NIL
    chk> +gui $177616230456116 :
    chk> +gui $177616230456116 = NIL
    val> +field $177616230456116 :
     str> +field $177616230456116 :
     str> +field $177616230456116 = "123456"
    val> +field $177616230456116 = "123456"
    set> +field $177616230456116 : "123456" T
    set> +field $177616230456116 = NIL
    chk> +gui $177616230456154 :
    chk> +gui $177616230456154 = NIL
    val> +gui $177616230456154 :
    val> +gui $177616230456154 = NIL
    set> +gui $177616230456154 : NIL T
    set> +gui $177616230456154 = NIL
    act> +Button $177616230456154 :
     able :
     able = T
     val> +field $177616230456063 :
      str> +field $177616230456063 :
      str> +field $177616230456063 = "henrik"
     val> +field $177616230456063 = "henrik"
     val> +field $177616230456116 :
      str> +field $177616230456116 :
      str> +field $177616230456116 = "123456"
     val> +field $177616230456116 = "123456"
     db : uname +User "henrik" pwd "123456"
      tree : uname +User NIL
      tree = (uname . +User)
      fetch : (uname . +User) "henrik"
       root : (uname . +User)
       root = (1 . {H1})
      fetch = {2}
      _db : {2} pwd "123456"
3236 SIG-11

The login form code:

(de signin ()
   (app)
   (action
      (rss-html
         (form NIL
            (<table> NIL NIL NIL
               (<row> NIL "Username"  (gui 'uname '(+TextField) 10))
               (<row> NIL "Password"  (gui 'pwd   '(+PwField)   10))
               (<row> NIL
                  (gui '(+Button) "Login"
                     '(let Uid (chkLogin (val> (: home uname)) (val>
(: home pwd)))
                         (if Uid
                            (prog
                               (cookie 'uid Uid)
                               (setq *Cookies (cons 'uid Uid))
                               (put!> (db 'uid '+User Uid) 'session NIL)
                               (redir))
                            (err "Could not login.")))))
               (<row> NIL (<href> "Sign Up" "@register")))))))


The +User E/R:

(class +User +Entity) #
(rel uname    (+Need +Key +String)) #
(rel pwd      (+Need +String))
(rel feeds    (+List +Ref +Link) NIL (+Feed))#
(rel uid      (+Key +Number)) #
(rel email    (+String))
(rel tw_uname (+String))
(rel tw_pwd   (+String))
-- 
UNSUBSCRIBE: mailto:picol...@software-lab.de?subject=unsubscribe

Reply via email to