if {[info exists login]} {
puts "Logged in as $login"
html " · Logout"
} else {
puts "Not logged in"
html " · Login"
}
set once 1
set sitemap 0
set is_index [expr [string compare [string range $current_page 0 4] "index"]==0]
set is_home [expr [string compare [string range $current_page 0 [expr [string length $index_page]-1] ] $index_page]==0]
foreach {name url expr class} $mainmenu {
if {![capexpr $expr]} continue
if {$once && [string match $url\[/?#\]* /$current_page/]} {
set class "active $class"
set once 0
}
html "- "
if {[string match /* $url]} {set url $home$url}
if {[string match *sitemap* $url]} {set sitemap 1}
html "$name
\n"
}
if {!$sitemap} {
html "- ...\n"
}