From d5cc926ec6c3020d2d51cacc7d14e59c558c4167 Mon Sep 17 00:00:00 2001
From: alekseiplusplus <alekseijeaves@protonmail.com>
Date: Sun, 30 Jun 2024 14:48:13 +1000
Subject: beginning draftwork on modules

---
 http.tcl | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'http.tcl')

diff --git a/http.tcl b/http.tcl
index 307aebf..3995c80 100755
--- a/http.tcl
+++ b/http.tcl
@@ -1,5 +1,5 @@
 # From configuration
-# root   Directory which files reside in.
+# srv   Directory which files reside in.
 
 namespace eval http {
 
@@ -41,7 +41,7 @@ namespace eval http {
     
     proc server {channel address port} {
 		variable hook_namespace;
-		variable root;
+		variable srv;
 		
 		## (1) Handle first line
 		puts "(1)"
@@ -80,7 +80,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 $root [request_target::file $request_target]]
+		set filename [string cat $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,7 +121,7 @@ namespace eval http {
 	proc respond {channel status {optional {}}} {
 
 		## Import Variables
-		variable root;
+		variable srv;
 		variable status_codes;
 		variable hook_namespace;
 		## New Variables
-- 
cgit v1.2.3