| | @@ -0,0 +1,75 @@ |
| 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 [stange] 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 | + e.innerHTML=d.toISOString().replace("T"," ").replace(/:\d\d\.\d+Z/,""ock();"$idx(firste $baseurl $idx>
|
| 35 | + <th1>
|
| 36 | + ##
|
| 37 | + ## NOT
|
| 38 | +<th1>
|
| 39 | +proc menulink {url name} {
|
| 40 | +name</a>\n"
|
| 41 | + }
|
| 42 | +}
|
| 43 | +menindex_page'>Home</a>\n"
|
| 44 | +name</a>\n"
|
| 45 | + }
|
| 46 | +}
|
| 47 | +me/help'>Help<>$name</a>\n"
|
| 48 | + }
|
| 49 | +}
|
| 50 | +me/timeline'>Timeline</a>$name</a>\n"
|
| 51 | + }
|
| 52 | +}
|
| 53 | +me/tree?ci=tip'>Filhas>$name</a>\n"
|
| 54 | + }
|
| 55 | +}
|
| 56 | +me/brlist'>Branches</a>\n"
|
| 57 | +>$name</a>\n"
|
| 58 | + }
|
| 59 | +}
|
| 60 | +hasaglist'>Tags</>$name</a>\n"
|
| 61 | + }
|
| 62 | +}
|
| 63 | +me/ticket'>Tickets</>$name</a>\n"
|
| 64 | + }
|
| 65 | +}
|
| 66 | +me/wikihashas name</a>\n"
|
| 67 | + }
|
| 68 | +}
|
| 69 | +me/setup_ulist'>Users</a>\n"<html>reportlisd>
|
| 70 | +<base href="$baseuse href="$baseurl/$c/login'>Logout</a>\n"
|
| 71 | +} else {
|
| 72 | +>$name</a>\n"
|
| 73 | + }
|
| 74 | +}
|
| 75 | +me |