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
|
| ︙ |