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 |
|---|---|
| Timelines: | family | ancestors | descendants | both | hypnotoad |
| Files: | files | file ages | folders |
| SHA3-256: |
2b1fd1d4880860b54a1c4051efb34e09 |
| User & Date: | hypnotoad 2019-06-08 00:22:14 |
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 91 } else { 92 92 package require md5 2 93 93 proc ::clay::uuid::raw {{type {}}} { 94 94 variable nextuuid 95 95 set tok [md5::MD5Init] 96 96 md5::MD5Update $tok "$type [incr nextuuid($type)] [generate_tcl_machinfo]" 97 97 set r [md5::MD5Final $tok] 98 - return [::clay::uuid::tostring $r] 98 + return $r 99 + #return [::clay::uuid::tostring $r] 99 100 } 100 101 proc ::clay::uuid::generate {{type {}}} { 101 102 return [::clay::uuid::tostring [::clay::uuid::raw $type]] 102 103 } 103 104 proc ::clay::uuid::short {{type {}}} { 104 105 set r [::clay::uuid::raw $type] 105 106 binary scan $r H* s
Changes to modules/clay/clay.tcl.
353 353 } else { 354 354 package require md5 2 355 355 proc ::clay::uuid::raw {{type {}}} { 356 356 variable nextuuid 357 357 set tok [md5::MD5Init] 358 358 md5::MD5Update $tok "$type [incr nextuuid($type)] [generate_tcl_machinfo]" 359 359 set r [md5::MD5Final $tok] 360 - return [::clay::uuid::tostring $r] 360 + return $r 361 + #return [::clay::uuid::tostring $r] 361 362 } 362 363 proc ::clay::uuid::generate {{type {}}} { 363 364 return [::clay::uuid::tostring [::clay::uuid::raw $type]] 364 365 } 365 366 proc ::clay::uuid::short {{type {}}} { 366 367 set r [::clay::uuid::raw $type] 367 368 binary scan $r H* s
Changes to modules/httpd/httpd.tcl.
1679 1679 my counter url_hit 1680 1680 try { 1681 1681 # Read the SCGI request on byte at a time until we reach a ":" 1682 1682 dict set query http HTTP_HOST {} 1683 1683 dict set query http CONTENT_LENGTH 0 1684 1684 dict set query http REQUEST_URI / 1685 1685 dict set query http REMOTE_ADDR $ip 1686 + dict set query http DOCUMENT_ROOT [my clay get server/ doc_root] 1686 1687 set size {} 1687 1688 while 1 { 1688 1689 set char [::coroutine::util::read $sock 1] 1689 1690 if {[chan eof $sock]} { 1690 1691 catch {close $sock} 1691 1692 return 1692 1693 }
Changes to modules/practcl/practcl.tcl.
329 329 } else { 330 330 package require md5 2 331 331 proc ::clay::uuid::raw {{type {}}} { 332 332 variable nextuuid 333 333 set tok [md5::MD5Init] 334 334 md5::MD5Update $tok "$type [incr nextuuid($type)] [generate_tcl_machinfo]" 335 335 set r [md5::MD5Final $tok] 336 - return [::clay::uuid::tostring $r] 336 + return $r 337 + #return [::clay::uuid::tostring $r] 337 338 } 338 339 proc ::clay::uuid::generate {{type {}}} { 339 340 return [::clay::uuid::tostring [::clay::uuid::raw $type]] 340 341 } 341 342 proc ::clay::uuid::short {{type {}}} { 342 343 set r [::clay::uuid::raw $type] 343 344 binary scan $r H* s