Posted to tcl by colin at Mon Oct 21 19:59:17 GMT 2013view pretty

set wub [pwd]	;# set according to your system

lappend ::auto_path $wub/Wub $wub/Utilities $wub/extensions
package require Debug
Debug on error 100
Debug on log 10

package require Dict

package require Httpd
package require Listener
proc Site {args} {}
proc Block {args} {return 0}
proc UA {args} {}
proc Cache {args} {return {}}

namespace eval ::Dispatcher {
    proc pre {r} {return $r}
    proc post {r} {return $r}
    proc do {op r} {
	return [Http Ok $r "<h1>Got it</h1>" text/html]
    }
}

Listener new

#...

vwait forever