[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

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

From: Martin Rubey
Subject: Re: [Axiom-developer] Re: Axiom HyperDoc Replacement
Date: 21 Apr 2007 16:43:48 +0200
User-agent: Gnus/5.09 (Gnus v5.9.0) Emacs/21.4

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


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.



reply via email to

[Prev in Thread] Current Thread [Next in Thread]