Added cache

1 files changed, 8 insertions, 6 deletions

diff --git a/http.tcl b/http.tcl
index 68cb163..307aebf 100755
--- a/http.tcl
+++ b/http.tcl
@@ -103,13 +103,15 @@ namespace eval http {
 
 	# Sends an opened file or cached file.
 	proc send-file {channel filename} {
-		#TODO: configure it to try the cache.
-		#TODO: configure channels to use binary translation if content type is not text/*
-		set file [open $filename]
-		fconfigure $file    -translation binary
 		fconfigure $channel -translation binary
-		fcopy $file $channel
-		close $file
+		if [cache::hit $filename] {
+			puts $channel [cache::get $filename]
+		} else {
+			set file [open $filename]
+			fconfigure $file -translation binary
+			fcopy $file $channel
+			close $file
+		}
 	}
 	
 	## Header