I'm stuck at the simplest test of this basic server:
(de tst ()
(httpHead "text/plain; charset=utf-8")
(put '*Post "key" "value")
(ht:Out T (print (getl '*Post) (or (get '*Post "key") "Nothing"))) )
I post "key" => "value" to this function too.
The output is:
(("value" . "key") ("value" . "key")) "value"
I don't get it, isn't the put statement before ht:Out supposed to replace
"value" under "key"?
I change tst to:
(de tst ()
(httpHead "text/plain; charset=utf-8")
(ht:Out T (print (getl '*Post) (or (get '*Post "key") "Nothing"))) )
And get (("value" . "key")) "Nothing" back.
What is going on?
On Thu, Jul 7, 2011 at 1:24 PM, Alexander Burger <[email protected]>wrote:
> Hi Henrik,
>
> > How about this?:
>
> Good, this looks pretty minimal.
>
>
> > (undef 'http)
> >
> > (de http (S)
> > (use (*Post L @U @H @X)
> > (off *Post *Port% *ContLen *Cookies "*Cookies" "*HtSet")
>
> I think you can safely remove '*Port%', but that's not critical. It is
> only used in the form GUI to detect port changes, to avoid safety
> hiccups in XMLHttpRequests.
>
> Cheers,
> - Alex
> --
> UNSUBSCRIBE: mailto:[email protected]?subject=Unsubscribe
>
