Hi Konrad,

> http://localhost:8080/@xmldata

> and get the intended xml data back. So far I've had no luck getting
> the server to successfully call a function and get anything back.

try this for example:


#!bin/picolisp lib.l

(load "ext.l" "lib/http.l" "lib/xhtml.l")

(de xmldata ()
   (prinl "HTTP/1.0 200 OK^M")
   (prinl "Server: PicoLisp^M")
   (prinl "Date: Fri, 3 Oct 2008 10:53:58 GMT^M")
   (prinl "Cache-Control: max-age=0^M")
   (prinl "Cache-Control: no-cache^M")
   (prinl "Content-Type: text/xml; charset=utf-8^M")
   (prinl "^M")
   (prinl "<hi><how/>are<you>?</you></hi>"))

(de start ()
   (html 0 "xmldata test" NIL NIL
      (<p> NIL (<href> "xmldata" "@xmldata") ) ) )

(server 8080 "@start")


Execute the script from your picolisp directory, then click on the
xmldata link.  You should get an XML as returned by xmldata function.

The next step is to fix the http header and get the xml from a file.



Reply via email to