[cells-devel] [openair] Scratching my head ...

[Ken Tilton]

Frank Goenninger wrote:
> Hmmm. So there's this function I "borrowed" from Kenny's code:
> 
> 
> (defun ht-monitor-page (path resource-class)
>   (lambda (request)
>     (trc "bingo request!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!" request path  
> resource-class)
>     (start-session)
>     (let ((root (or (bwhen (r (session-value 'root))
>                       (trc "clearing updates on re-used root!!!!!!!" r)
>                       (setf (updates r) nil)
>                       r)
>                     (progn
>                       (trc "creating new web-app...")
>                       (mk-web-app (:prefix path
>                                            :request (c-in  request)) ;; 
> was (c-in request) but we set that below so ???

I noticed that as well, never got a chance to pursue the question. I 
believe I tried supplying (c-in nil) as the initarg and things did not 
go well so I restored it to what is shown. The setf below is then an NOP 
when we make a new web-app because of how Cells handles non-change. I 
guessed that things happened during initialization that depended on 
having the intial request in hand. Andy will know better.


>                         (make-instance
>                          resource-class
>                          :fm-parent *parent*))))))
>       (trc "ROOT = " root)
>       (setf (session-value 'root) root)
>       (setf (request root) request)
>       #+test-ht-monitor (break)  ;; <<<<<<<-- See here
>       ;; (assert (handler root)) ;; <<<<<<<-- AND HERE ! ALWAYS FAILS !

That might be a bug I inserted, not understanding that some requests go 
to jquery and in that case openair should return nil. I took out a bit 
that looked for the "apropos" prefix and changed it to something ... 
well, I was just thrashing and reacted badly to something that looked 
wrong but probably was nominal.

kt

>       (trc "Handler is: " (describe (handler root)))
>       (trc "******* Calling handler ")
>       (handler root))))
> 
> My model is quite simple:
> 
> (defmd ht-monitor (page)
>   name
>   ip-address
>   term
> 
>   :title ":: HUNCHENTOOT MONITOR ::"
>   :style "/css/ht-monitor.css"
> 
>   :name (c? (server-name *server*))
>   :ip-address (c? (server-address *server*))
>   :term (c-in "")
> 
>   :kids (c? (the-kids
>              (mk-div ()
>                (mk-text (c? (conc$ "Name: " (name (u^ ht-monitor))))))
>              (mk-div ()
>                (mk-text (c? (conc$ "IP Address: " (ip-address (u^ ht- 
> monitor))))))
>              (mk-div ()
>                (mk-form (:action :get)
>                  (mk-text "Input: ")
>                  (mk-input (:name "i"
>                             :id "i"
>                             :-type "text"
>                             :value (c?n (term (u^ ht-monitor)))))
>                  (mk-text (c? (conc$ "Reversed: " (reverse (term (u^  
> ht-monitor)))))))))))
> 
> Handler is always NIL. The assertion always fails. I could not figure  
> out why...
> 
> Any ideas ???
> 
> Thx!
> 
> Best,
>    Frank
> 
> _______________________________________________
> cells-devel site list
> cells-devel at common-lisp.net
> http://common-lisp.net/mailman/listinfo/cells-devel
>