Changeset 10763 in project


Ignore:
Timestamp:
05/11/08 19:00:33 (12 years ago)
Author:
sjamaan
Message:

Don't send Connection: keep-alive in case http:force-close is #t

File:
1 edited

Legend:

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

    r10761 r10763  
    324324      ;; Default for 1.0 is to close unless explicitly asked to keep alive
    325325      (sprintf "Connection: ~A\r\n"
    326       (if (string-ci=? "keep-alive"
    327                        (alist-ref "connection" (http:request-attributes req) string-ci=? ""))
     326      (if (and (not (http:force-close))
     327               (string-ci=? "keep-alive"
     328                            (alist-ref "connection" (http:request-attributes req) string-ci=? "")))
    328329          "Keep-alive"
    329330          "Close"))
Note: See TracChangeset for help on using the changeset viewer.