| | @@ -1,6 +1,40 @@ |
| 1 | 1 | <div class="header"> |
| 2 | + <div class="logo"> |
| 3 | + <th1> |
| 4 | + ## See skins/original/header.txt for commentary; not repeated here. |
| 5 | + proc getLogoUrl { baseurl } { |
| 6 | + set idx(first) [string first // $baseurl] |
| 7 | + if {$idx(first) != -1} { |
| 8 | + set idx(first+1) [expr {$idx(first) + 2}] |
| 9 | + set idx(nextRange) [string range $baseurl $idx(first+1) end] |
| 10 | + set idx(next) [string first / $idx(nextRange)] |
| 11 | + if {$idx(next) != -1} { |
| 12 | + set idx(next) [expr {$idx(next) + $idx(first+1)}] |
| 13 | + set idx(next-1) [expr {$idx(next) - 1}] |
| 14 | + set scheme [string range $baseurl 0 $idx(first)] |
| 15 | + set host [string range $baseurl $idx(first+1) $idx(next-1)] |
| 16 | + if {[string compare $scheme http:/] == 0} { |
| 17 | + set scheme http:// |
| 18 | + } else { |
| 19 | + set scheme https:// |
| 20 | + } |
| 21 | + set logourl $scheme$host/ |
| 22 | + } else { |
| 23 | + set logourl $baseurl |
| 24 | + } |
| 25 | + } else { |
| 26 | + set logourl $baseurl |
| 27 | + } |
| 28 | + return $logourl |
| 29 | + } |
| 30 | + set logourl [getLogoUrl $baseurl] |
| 31 | + </th1> |
| 32 | + <a href="$logourl"> |
| 33 | + <img src="$logo_image_url" border="0" alt="$project_name"> |
| 34 | + </a> |
| 35 | + </div> |
| 2 | 36 | <div class="title"><h1>$<project_name></h1>$<title></div> |
| 3 | 37 | <div class="status"><th1> |
| 4 | 38 | if {[info exists login]} { |
| 5 | 39 | html "<a href='$home/login'>$login</a>\n" |
| 6 | 40 | } else { |
| 7 | 41 | |