Re: [Axiom-developer] Re: Axiom HyperDoc Replacement

[Martin Rubey]

Martin Rubey <address@hidden> writes:

> > For an automatic redirection all you really need is something like this:
> > 
> >   (defun server (s)
> >     (let* ((get (read s nil 'eof))
> >            (fn (and (eq get 'get) (read-line s nil 'eof))))
> >       (format s "HTTP/1.1 ~S~%" (if fn 303 403))
> >       (format s "Location: ~S~%~%" (SPADCALL fn *docfun*))
> >       (close s))) 
> 
> that's what I wanted.  

OK, I got it to work now. The important bit was to send

  (format s "HTTP/1.1 ~S~%" blah)

(as you wrote, in fact) instead of

  (format s "HTTP/1.1 ~S~%~%" blah)


The second thing is to send

   file:/absolute/path/to/stretch.html

which is a nuisance.  Isn't there a way to make it read just the local
directory?  Oh well, maybe its even better that way.

Thanks,

Martin