Changeset 4947 in project


Ignore:
Timestamp:
07/07/07 13:59:06 (13 years ago)
Author:
sjamaan
Message:

Fix ticket #15 issue with http:add-resource

File:
1 edited

Legend:

Unmodified
Added
Removed
  • http/http-server.scm

    r4763 r4947  
    370370
    371371(define (get/post-handler req)
    372   (let-values ([(loc args) (http:decode-url (http:request-url req))])
    373     (let ([h (http:find-resource loc)])
    374       (if h
    375           (handle-exceptions ex (begin
    376                                   (dribble (with-output-to-string (lambda ()
    377                                                                     (print-error-message ex)
    378                                                                     (print-call-chain))))
    379                                   (http:write-internal-error-response)) (h req args))
    380           ((http:fallback-handler) req) ) ) ) )
     372  (let-values (((loc get-args) (http:decode-url (http:request-url req))))
     373     (let ([args (append (http:request-body req) get-args)]
     374           [h (http:find-resource loc)])
     375       (if h
     376           (handle-exceptions ex (begin
     377                                   (dribble (with-output-to-string (lambda ()
     378                                                                     (print-error-message ex)
     379                                                                     (print-call-chain))))
     380                                   (http:write-internal-error-response)) (h req args))
     381           ((http:fallback-handler) req) ) ))  )
    381382
    382383(define http:fallback-handler
Note: See TracChangeset for help on using the changeset viewer.