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:[email protected]?subject=unsubscribe
