beginning draftwork on modules

1 files changed, 14 insertions, 0 deletions

diff --git a/modules/template.tcl b/modules/template.tcl
new file mode 100644
index 0000000..b76c201
--- /dev/null
+++ b/modules/template.tcl
@@ -0,0 +1,14 @@
+namespace eval template {
+
+	variable targets {
+		target1 target2
+	}
+
+	proc run {request_target} {
+		return [string cat \
+					[http::start "Title"] \
+					"This is a template<br>" \
+					"request_target: $request_target" \
+					[http::end]]
+	}
+}