Posted to tcl by colin at Mon Oct 21 19:59:17 GMT 2013view raw
- 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