Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | Fixed an error with Clay's uuid generator when running with Tcllib's md5 implementation SCGI servers now read the doc_root setting and expose that as the DOCUMENT_ROOT header to scgi application code |
---|---|
Downloads: | Tarball | ZIP archive |
Timelines: | family | ancestors | descendants | both | hypnotoad |
Files: | files | file ages | folders |
SHA3-256: |
2b1fd1d4880860b54a1c4051efb34e09 |
User & Date: | hypnotoad 2019-06-08 00:22:14.214 |
Context
2019-06-16
| ||
20:16 | Fixed error in httpd: FormData was not getting information from GET requests Fixed error in httpd: File based content was looking at REQUEST_URI instead of REQUEST_PATH Fixed problem in practcl: PreInitScript on Windows cannot include a source check-in: 7fda9d9978 user: hypnotoad tags: hypnotoad | |
2019-06-08
| ||
00:22 | Fixed an error with Clay's uuid generator when running with Tcllib's md5 implementation SCGI servers now read the doc_root setting and expose that as the DOCUMENT_ROOT header to scgi application code check-in: 2b1fd1d488 user: hypnotoad tags: hypnotoad | |
2019-06-05
| ||
13:30 | Pulling changes from trunk check-in: 147792792a user: hypnotoad tags: hypnotoad | |
Changes
Changes to modules/clay/build/uuid.tcl.
︙ | |||
91 92 93 94 95 96 97 | 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 | + - + | } else { package require md5 2 proc ::clay::uuid::raw {{type {}}} { variable nextuuid set tok [md5::MD5Init] md5::MD5Update $tok "$type [incr nextuuid($type)] [generate_tcl_machinfo]" set r [md5::MD5Final $tok] return $r |
︙ |
Changes to modules/clay/clay.tcl.
︙ | |||
353 354 355 356 357 358 359 | 353 354 355 356 357 358 359 360 361 362 363 364 365 366 367 368 | + - + | } else { package require md5 2 proc ::clay::uuid::raw {{type {}}} { variable nextuuid set tok [md5::MD5Init] md5::MD5Update $tok "$type [incr nextuuid($type)] [generate_tcl_machinfo]" set r [md5::MD5Final $tok] return $r |
︙ |
Changes to modules/httpd/httpd.tcl.
︙ | |||
1679 1680 1681 1682 1683 1684 1685 1686 1687 1688 1689 1690 1691 1692 | 1679 1680 1681 1682 1683 1684 1685 1686 1687 1688 1689 1690 1691 1692 1693 | + | 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 } |
︙ |
Changes to modules/practcl/practcl.tcl.
︙ | |||
329 330 331 332 333 334 335 | 329 330 331 332 333 334 335 336 337 338 339 340 341 342 343 344 | + - + | } else { package require md5 2 proc ::clay::uuid::raw {{type {}}} { variable nextuuid set tok [md5::MD5Init] md5::MD5Update $tok "$type [incr nextuuid($type)] [generate_tcl_machinfo]" set r [md5::MD5Final $tok] return $r |
︙ |