if {[info exists login]} {
puts "Logged in as $login"
} else {
puts "Not logged in"
}
set sitemap 0
foreach {name url expr class} $mainmenu {
if {![capexpr $expr]} continue
if {[string match /* $url]} {set url $home$url}
html "$name \n"
if {[string match /sitemap $url]} {set sitemap 1}
}
if {!$sitemap} {
html "Sitemap\n"
}