Changeset 13418 in project


Ignore:
Timestamp:
02/27/09 22:50:07 (11 years ago)
Author:
sjamaan
Message:

Make connection keep-alive check correctly obey the protocol versions of both client and server

File:
1 edited

Legend:

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

    r13417 r13418  
    209209    (let* ([req (if (string? req)
    210210                    (http:make-request 'GET req '(("Connection" . "close")))
    211                     req) ]
     211                    req) ]
     212           [proto (string-upcase (symbol->string (http:request-protocol req)))]
    212213           [as (remove (lambda (a) (string-ci=? (car a) "content-length"))
    213214                       (http:request-attributes req))]
     
    226227                           (else (tcp-connect host port)))])
    227228             (let ([method (string-upcase (symbol->string (http:request-method req)))]
    228                    [proto (string-upcase (symbol->string (http:request-protocol req)))]
    229229                   [result ""])
    230230               (if (and proxy-host (not (string=? serv "https")))
     
    263263                               (make-property-condition 'net))))
    264264                     ((and (is-keep-alive? header a)   ; server
    265                            (is-keep-alive? header as)) ; client
     265                           (is-keep-alive? proto as)) ; client
    266266                      (unless (is-connected? id)
    267267                        (add-connection! id i o)))
Note: See TracChangeset for help on using the changeset viewer.