Dear http experts,
(defun server (s)
(let* ((get (read s nil 'eof))
(fn (and (eq get 'get) (read s nil 'eof))))
(format t "Got ~S~%~%" fn)
(format s "HTTP/1.1 ~S~%" (if fn 303 403))
(format s "Location:
file://localhost/home/martin/martin/Axiom/hyperdoc-replacement/stretch.html~%~%")
(close s)))
now works with lynx, but gives the acces denied message in konqueror. :-(
I do not have any other browser to try, and I really want it to work with
konqueror anyway. Whom could I ask?
Martin
_______________________________________________
Axiom-developer mailing list
[email protected]
http://lists.nongnu.org/mailman/listinfo/axiom-developer
