Check-in [2ba9a5699a]

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

Overview
Comment:Really fixed typos.
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:2ba9a5699a8255a2182fd1b506c2e4edff9bd676
User & Date: gwlester 2014-12-10 18:24:37
Context
2016-05-30
04:26
(no comment) check-in: 2484e9629e user: gwlester tags: trunk
2014-12-10
18:24
Really fixed typos. check-in: 2ba9a5699a user: gwlester tags: trunk
18:06
fixed typo check-in: 975183ea07 user: gwlester tags: trunk
Changes

Changes to ServeScripts.tcl.

464
465
466
467
468
469
470
471
472
473

474
475
476
477
478
479
480
                regexp -nocase {^basic +([^ ]+)$}\
                    [dict get $request header authorization] -> auth
            }
            if {![regexp {^([^ ]+) +([^ ]+) ([^ ]+)$} $line -> method url version]} {
                return
            }
 
            switch -exact -- $method { 
                POST 
                    ##

                    ## This is all broken and needs to be fixed
                    ##
                    set data ""
                    if {[dict exists $request header transfer-encoding]
                        && [dict get $request header transfer-encoding] eq "chunked"} {
                        # Receive chunked request body.
                        while {[scan [gets $sock line] %x length] == 1 && $length > 0} {







|
|
<
>







464
465
466
467
468
469
470
471
472

473
474
475
476
477
478
479
480
                regexp -nocase {^basic +([^ ]+)$}\
                    [dict get $request header authorization] -> auth
            }
            if {![regexp {^([^ ]+) +([^ ]+) ([^ ]+)$} $line -> method url version]} {
                return
            }
 
            switch -exact -- $method {
                POST { 

                    #
                    ## This is all broken and needs to be fixed
                    ##
                    set data ""
                    if {[dict exists $request header transfer-encoding]
                        && [dict get $request header transfer-encoding] eq "chunked"} {
                        # Receive chunked request body.
                        while {[scan [gets $sock line] %x length] == 1 && $length > 0} {