eval [db one {SELECT sqlar_uncompress(data,sz) FROM sqlar WHERE name='wapp.tcl'}] proc wapp-default {} { global wapp set x [string trimleft [dict get $wapp PATH_INFO] /] if {$x==""} {set x index.html} set doc [db one {SELECT sqlar_uncompress(data,sz) FROM sqlar WHERE name=('doc/' || $x)}] if {$doc==""} { wapp-subst {

Not Found: %html(/$x)

} return } dict set wapp .reply $doc switch -glob -- $x { *.html {wapp-mimetype text/html} *.gif {wapp-mimetype image/gif} *.jpg {wapp-mimetype image/jpeg} *.png {wapp-mimetype image/png} *.css {wapp-mimetype text/css} default {wapp-mimetype text/html} } } wapp-start $argv