There appear to be at least two different errors in the code below.
(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:/users/rubey/martin/Axiom/hyperdoc-replacement/stretch.html~%")
(close s)))
gives
An error occurred while loading http://localhost:8080/x:
Access denied to
file:///users/rubey/martin/Axiom/hyperdoc-replacement/stretch.html.
(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: http://mat.univie.ac.at";)
(close s)))
seems to work
(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: ~S~% "http://mat.univie.ac.at";)
(close s)))
gives "Got /" forever.
Please Help!
Martin
_______________________________________________
Axiom-developer mailing list
[email protected]
http://lists.nongnu.org/mailman/listinfo/axiom-developer
