From a3bdaf37b72013fe581f108c4798137e1ea267cd Mon Sep 17 00:00:00 2001
From: alekseiplusplus <alekseijeaves@protonmail.com>
Date: Sun, 30 Jun 2024 21:57:33 +1000
Subject: last commit of today; expanding on configuration and modules

---
 http.tcl | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

(limited to 'http.tcl')

diff --git a/http.tcl b/http.tcl
index 3995c80..7dc6dbb 100755
--- a/http.tcl
+++ b/http.tcl
@@ -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 {};
-- 
cgit v1.2.3