Changeset 3264

Show
Ignore:
Timestamp:
06/15/08 00:15:01 (7 months ago)
Author:
edi
Message:

Some fixes

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/thirdparty/hunchentoot/headers.lisp

    r3262 r3264  
    8787  (let* ((return-code (return-code)) 
    8888         (chunkedp (and (server-output-chunking-p *server*) 
    89                         (eq (server-protocol) :http/1.1) 
     89                        (eq (server-protocol request) :http/1.1) 
    9090                        ;; only turn chunking on if the content 
    9191                        ;; length is unknown at this point... 
    …… 
    9696                        (member return-code *approved-return-codes*))) 
    9797         (reason-phrase (reason-phrase return-code)) 
    98          (request-method (request-method)) 
     98         (request-method (request-method request)) 
    9999         (head-request-p (eq request-method :head)) 
    100100         content-modified-p) 
    …… 
    117117             (setf *close-hunchentoot-stream* nil) 
    118118             (when (and (server-read-timeout *server*) 
    119                         (or (not (eq (server-protocol) :http/1.1)) 
     119                        (or (not (eq (server-protocol request) :http/1.1)) 
    120120                            keep-alive-requested-p)) 
    121121               ;; persistent connections are implicitly assumed for 

  • trunk/thirdparty/hunchentoot/log.lisp

    r3262 r3264  
    128128    (format stream "~:[-~@[ (~A)~]~;~:*~A~@[ (~A)~]~] ~:[-~;~:*~A~] \"~A ~A~@[?~A~] ~ 
    129129                    ~A\" ~A ~:[~*-~;~D~] \"~:[-~;~:*~A~]\" \"~:[-~;~:*~A~]\"~%" 
    130             (remote-addr) 
    131             (header-in :x-forwarded-for) 
     130            (remote-addr*) 
     131            (header-in* :x-forwarded-for) 
    132132            (authorization) 
    133133            (request-method*) 

  • trunk/thirdparty/hunchentoot/request.lisp

    r3262 r3264  
    271271  (get-parameters request)) 
    272272 
     273(defmethod post-parameters :before ((request request)) 
     274  (maybe-read-post-parameters :request request)) 
     275 
    273276(defun post-parameters* (&optional (request *request*)) 
    274277  "Returns an alist of the POST parameters associated with the REQUEST 
    275278object REQUEST." 
    276   (maybe-read-post-parameters :request request) 
    277279  (post-parameters request)) 
    278280