Re: [Portableaserve-discuss] LispWorks and password-authorizer

[Edi W. <ed...@ag...>]

On Fri, 28 Oct 2005 20:15:43 -0700, Michael J Forster <mjf...@sh...> wrote:

> I'm running the latest CVS version of paserve on LispWorks 4.4.5 for
> Linux.  When using a password-authorizer, either in my own code or
> from the aserve examples.cl, ...
>
> (asdf:operate 'asdf:load-op :aserve)
>
> (net.aserve:start :port 8080)
>
> (publish :path "/secret-auth"
> 	 :content-type "text/html"
> 	 :authorizer (make-instance 'password-authorizer
> 		       :allowed '(("foo2" . "bar2")
> 				  ("foo3" . "bar3")
> 				  )
> 		       :realm  "SecretAuth")
> 	 :function
> 	 #'(lambda (req ent)
> 	     (with-http-response (req ent)
> 	       (with-http-body (req ent)
> 		 (html (:head (:title "Secret page"))
> 		       (:body "You made it to the secret page"))))))
>
>
> ... I get no response from the server, but do get the following
> error in the REPL:
>
> 2-aserve-worker: 10/28/05 - 20:26:31 - while processing command "GET /secret-auth HTTP/1.1"
> got error #<SYSTEM::STRING-OUTPUT-STREAM 2072A1EC> is not of type FILE-STREAM.

I get a similar error if I try with LWW 4.4.5.

> The following patch eliminates the problem under my circumstances.
>
> --- portableaserve.old/aserve/authorize.cl      2005-10-28 20:25:27.000000000 -0500
> +++ portableaserve/aserve/authorize.cl  2005-10-28 21:52:42.000000000 -0500
> @@ -81,6 +81,7 @@
>        
>        ; this is done to preventing a chunking response which
>        ; confuse the proxy (for now)..
> +      #-lispworks
>        (if* (member ':use-socket-stream (request-reply-strategy req))
>          then (setf (request-reply-strategy req)
>                 '(:string-output-stream

With your patch the server asks for a password but if I enter the
correct one I don't see the "secret page."

Cheers,
Edi.