Tcl Library Source Code: Check-in [a4f6ae73f9]

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview

Comment:	Adding a DOCUMENT_ROOT to the server headers for scgi servers
Timelines:	family \| ancestors \| descendants \| both \| aku-the-big-httpd-testsuite-cleanup
Files:	files \| file ages \| folders
SHA3-256:	a4f6ae73f9e3a2373525adef06bb5ac92ddc08eca9b94bef322225918a5b5797
User & Date:	hypnotoad 2019-06-04 19:38:15

Context

2019-06-04
19:50		Removing hardcoded path, and registering the paths in the appropriate manner in the httpd tests check-in: 357caec02f user: hypnotoad tags: aku-the-big-httpd-testsuite-cleanup
19:38		Adding a DOCUMENT_ROOT to the server headers for scgi servers check-in: a4f6ae73f9 user: hypnotoad tags: aku-the-big-httpd-testsuite-cleanup
19:08		Fix for scgi-client-0006 in httpd check-in: 5f4063d387 user: hypnotoad tags: aku-the-big-httpd-testsuite-cleanup

Changes

Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to modules/httpd/build/scgi.tcl.

    my counter url_hit
    try {
      # Read the SCGI request on byte at a time until we reach a ":"
      dict set query http HTTP_HOST {}
      dict set query http CONTENT_LENGTH 0
      dict set query http REQUEST_URI /
      dict set query http REMOTE_ADDR $ip

      set size {}
      while 1 {
        set char [::coroutine::util::read $sock 1]
        if {[chan eof $sock]} {
          catch {close $sock}
          return
        }

    my counter url_hit
    try {
      # Read the SCGI request on byte at a time until we reach a ":"
      dict set query http HTTP_HOST {}
      dict set query http CONTENT_LENGTH 0
      dict set query http REQUEST_URI /
      dict set query http REMOTE_ADDR $ip
      dict set query http DOCUMENT_ROOT [my clay get server/ doc_root]
      set size {}
      while 1 {
        set char [::coroutine::util::read $sock 1]
        if {[chan eof $sock]} {
          catch {close $sock}
          return
        }