Tcl Library Source Code

Check-in [2b1fd1d488]
Login
Bounty program for improvements to Tcl and certain Tcl packages.
Tcl 2019 Conference, Houston/TX, US, Nov 4-8
Send your abstracts to [email protected]
or submit via the online form by Sep 9.

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: 2b1fd1d4880860b54a1c4051efb34e097a5ad3d7603c460ec54651e9c1588be0
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
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

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