507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
|
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
|
+
-
-
+
+
|
}
if {[string length [dict get $W .header]]>100000} {
error "HTTP request header too big - possible DOS attack"
}
} elseif {$n==0} {
# We have reached the blank line that terminates the header.
global argv0
set a0 [file normalize $argv0]
dict set W SCRIPT_FILENAME $argv0
dict set W DOCUMENT_ROOT [file dir $argv0]
dict set W SCRIPT_FILENAME $a0
dict set W DOCUMENT_ROOT [file dir $a0]
if {[wappInt-parse-header $chan]} {
catch {close $chan}
return
}
set len 0
if {[dict exists $W CONTENT_LENGTH]} {
set len [dict get $W CONTENT_LENGTH]
|