| | @@ -0,0 +1,98 @@ |
| 1 | +<html>
|
| 2 | +<head>
|
| 3 | +<base href="$baseurl/$current_page" />
|
| 4 | +<title>$<project_name>: $<title></title>
|
| 5 | +<link rel="alternate" type="application/rss+xml" title="RSS Feed"
|
| 6 | + href="$home/timeline.rss" />
|
| 7 | +<link rel="stylesheet" href="$stylesheet_url" type="text/css"
|
| 8 | + media=<div class="header">
|
| 9 | + <div class="logo">
|
| 10 | + <th1>
|
| 11 | + ##
|
| 12 | + ## NOTE: The purpose of this procedure is to take the base URL of the
|
| 13 | + ## Fossil project and return the root of the entire web site using
|
| 14 | + ## the same URI scheme as the base URL (e.g. http or https).
|
| 15 | + ##
|
| 16 | + proc getLogoUrl { baseurl } {
|
| 17 | + set idx(first) [string first // $baseurl]
|
| 18 | + if {$idx(first) != -1} {
|
| 19 | + ##
|
| 20 | + ## NOTE: Skip second slash.
|
| 21 | + ##
|
| 22 | + set idx(first+1) [expr {$idx(first) + 2}]
|
| 23 | + ##
|
| 24 | + ## NOTE: (part 1) The [string first] command does NOT actually
|
| 25 | + ## support the optional startIndex argument as specified
|
| 26 | + ## in the TH1 support manual; therefore, we fake it by
|
| 27 | + ## using the [string range] command and then adding the
|
| 28 | + project_nameadding the
|
| 29 | + ## necessary offset to the result<th1>
|
| 30 | +low). In Tc, we could use the following ins} elscript
|
| 31 | + </th1>
|
| 32 | + ##
|
| 33 | + set idx(nextRange) [string range $baseurl $idx(first+1) funcdivif {$iif(e){
|
| 34 | + ## NOTE: (part 2) Add thefunction f(n) {
|
| 35 | +Add the nece}
|
| 36 | +for the next slash (i.e the itial searnext) [exp}]
|
| 37 | + ##
|
| 38 | + ]
|
| 39 | + ##
|
| 40 | + ## }
|
| 41 | +}
|
| 42 | +next slash.
|
| 43 | + ><th1>
|
| 44 | +set sitemap 0
|
| 45 | +scheme and host fthe base URL.
|
| 46 | + ##
|
| 47 | + "updateClock();"$idx(first)]
|
| 48 | + sest [string range $baseurl $idx>
|
| 49 | + <th1>
|
| 50 | + ##
|
| 51 | + ## NOT
|
| 52 | +<th1>
|
| 53 | +proc menulink {url name} {
|
| 54 | +name</a>\n"
|
| 55 | + }
|
| 56 | +}
|
| 57 | +menindex_page'>Home</a>\n"
|
| 58 | +name</a>\n"
|
| 59 | + }
|
| 60 | +}
|
| 61 | +me/help'>Help<>$name</a>\n"
|
| 62 | + }
|
| 63 | +}
|
| 64 | +me/timeline'>Timeline</a>$name</a>\n"
|
| 65 | + }
|
| 66 | +}
|
| 67 | +me/tree?ci=tip'>Files</>$name</a>\n"
|
| 68 | + }
|
| 69 | +}
|
| 70 | +me/brlist'>Branches</a>\n"
|
| 71 | +>$name</a>\n"
|
| 72 | + }
|
| 73 | +}
|
| 74 | +me/taglist'>Tags</>$name</a>\n"
|
| 75 | + }
|
| 76 | +}
|
| 77 | +me/ticket'>Tickets</>$name</a>\n"
|
| 78 | + }
|
| 79 | +}
|
| 80 | +me/wiki'>Wiki</a>\n"setup_ulist Users
|
| 81 | +}
|
| 82 | +e iname</a>\n"
|
| 83 | + }
|
| 84 | +}
|
| 85 | +me/setup'>Admin</a>\n"
|
| 86 | +}
|
| 87 | +e it by
|
| 88 | + ## name</a>\n"
|
| 89 | + }
|
| 90 | +}
|
| 91 | +me/setup_ulist'>Users</a>\n"<html>
|
| 92 | +<head>
|
| 93 | +<base href="$baseuse href="$baseurl/$c/login'>Logout</a>\n"
|
| 94 | +} else {
|
| 95 | +>$name</a>\n"
|
| 96 | + }
|
| 97 | +}
|
| 98 | +me |