modules/template.tcl


1
2
3
4
5
6
7
8
9
10
11
12
13
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]]
	}
}