diff options
Diffstat (limited to 'http.tcl')
| -rwxr-xr-x | http.tcl | 10 |
1 files changed, 5 insertions, 5 deletions
@@ -40,8 +40,8 @@ namespace eval http { ] proc server {channel address port} { - variable hook_namespace; - variable srv; + #variable hook_namespace; + #variable srv; ## (1) Handle first line puts "(1)" @@ -51,6 +51,7 @@ namespace eval http { ## (2) Get rest of packet. set packet {} + while { [gets $channel line] } { puts $line ## Check if field-line is in correct form. @@ -80,7 +81,7 @@ namespace eval http { ## (3) Find if the file exists, or there is a hooked application. # If file exists, then 200 OK! - set filename [string cat $srv [request_target::file $request_target]] + set filename [string cat $configure::srv [request_target::file $request_target]] if [expr [file exists $filename] && [file isfile $filename]] { respond $channel 200 $filename } elseif [expr [file exists [string cat $filename "index.html"]] && [file isfile [string cat $filename "index.html"]]] { @@ -121,9 +122,8 @@ namespace eval http { proc respond {channel status {optional {}}} { ## Import Variables - variable srv; variable status_codes; - variable hook_namespace; + ## New Variables variable content {}; variable response {}; |