proc htmlout {string} {
upvar htmlout htmlout
set htmlout $htmlout$string\n
}
proc htmlout.header {title} {
upvar htmlout htmlout
set htmlout ""
htmlout {}
htmlout {}
htmlout {}
htmlout "WTorrent - $title"
htmlout {}
}
proc htmlout.footer {} {
upvar htmlout htmlout
htmlout ""
}