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 {