<html>
<head>
<base href="$baseurl/$current_page" />
<title>$<project_name>: $<title></title>
<link rel="alternate" type="application/rss+xml" title="RSS Feed"
href="$home/timeline.rss" />
<link rel="stylesheet" href="$home/style.css?default" type="text/css"
media="screen" />
</head>
<body>
<div class="header">
<div class="title"><h1>$<project_name></h1>$<title></div>
<div class="status"><th1>
if {[info exists login]} {
html "$login — <a href='$home/login'>Logout</a>\n"
} else {
html "<a href='$home/login'>Login</a>\n"
}
</th1></div>
</div>
<div class="mainmenu">
<th1>
proc isin {val lst} {
set tot [llength $lst]
for {set i 0} {$i < $tot} {set i [expr {$i + 1}]} {
set cur [lindex $lst $i]
if {$val eq $cur} {
return 0
}
}
return 1
}
proc menulink {pagename url name} {
upvar current_page current
upvar home home
set compsetup [string compare [string range $current 0 4] setup]
set comphome [string compare [string range $current 0 3] home]
set comptag [string compare $current tagtimeline]
set compbr [string compare $current brtimeline]
set compdir [isin $current "artifact ci finfo hexdump"]
set comptl [string compare $current info]
set comptkt [isin $current "modreq rptedit tktnew rptsql rptview"]
html "<a href='$home$url'"
if {$pagename eq $current
|| ($pagename eq "home" && $comphome == 0)
|| ($pagename eq "setup" && $compsetup == 0)
|| ($pagename eq "taglist" && $comptag == 0)
|| ($pagename eq "dir" && $compdir == 0)
|| ($pagename eq "timeline" && $comptl == 0)
|| ($pagename eq "ticket" && $comptkt == 0)
|| ($pagename eq "brlist" && $compbr == 0)
} {
html " class='active' "
}
html ">$name</a>"
}
menulink "home" $index_page Home
if {[anycap jor]} {
menulink "timeline" "/timeline" Timeline
}
if {[hascap oh]} {
menulink "dir" "/dir?ci=tip" Files
}
if {[hascap o]} {
menulink "brlist" "/brlist" Branches
menulink "taglist" "/taglist" Tags
}
if {[hascap r]} {
menulink "ticket" "/ticket" Tickets
}
if {[hascap j]} {
menulink "wiki" "/wiki" Wiki
}
if {[hascap s]} {
menulink "setup" "/setup" Admin
} elseif {[hascap a]} {
menulink "setup_ulist" "/setup_ulist" Users
}
</th1></div>