Changeset 15139 in project


Ignore:
Timestamp:
07/02/09 21:36:47 (11 years ago)
Author:
sjamaan
Message:

Do not send full URI in header request to regular servers (proxy support needs to be added, so we don't worry about that yet)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/http-client/trunk/http-client.scm

    r15124 r15139  
    148148              (host ,(cons (uri-host uri) (uri-port uri)))
    149149              (user-agent ,(client-software)))))
    150     (update-request req headers: (headers h (request-headers req)))))
     150    (update-request req
     151                    headers: (headers h (request-headers req)))))
    151152
    152153(define (http-client-error loc msg specific . rest)
     
    263264                               req port: (http-connection-outport con)
    264265                               uri: uri)))
    265             (request (write-request req))
     266            (request (write-request
     267                      (update-request
     268                       req
     269                       ;; only do this if not using a proxy
     270                       uri: (update-uri (uri-reference "")
     271                                        path: (uri-path uri)
     272                                        query: (uri-query uri)))))
    266273            ;; Writer should be prepared to be called several times
    267274            ;; Maybe try and figure out a good way to use the
     
    299306        (else (let ((data (reader response)))
    300307                (cleanup!)
    301                 (values data (request-uri req) response)))))
     308                (values data uri response)))))
    302309     (exn (exn i/o net)
    303310          (close-connection! uri)
     
    327334                    ((string? uri-or-request) (uri-reference uri-or-request))
    328335                    (else (request-uri uri-or-request))))
    329          (req (if (request? uri-or-request) uri-or-request (make-request)))
     336         (req (if (request? uri-or-request)
     337                  uri-or-request
     338                  (make-request uri: uri)))
    330339         (req (if postdata
    331340                  (update-request
Note: See TracChangeset for help on using the changeset viewer.