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