HttpServer sample



source ../../oo.tcl

@import core.*

set server [[HttpServer new] port: 4000]
$server root: [file join [set @RUNTIME(directory)] doc]
$server start