Tcl Library Source Code

Check-in [a4f6ae73f9]
Login

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

Overview
Comment:Adding a DOCUMENT_ROOT to the server headers for scgi servers
Downloads: Tarball | ZIP archive
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.018
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
Unified Diff Ignore Whitespace Patch
Changes to modules/httpd/build/scgi.tcl.
117
118
119
120
121
122
123

124
125
126
127
128
129
130
    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
        }







>







117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
    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
        }