Fossil SCM
| 8f34429… | wyoung | 1 | <footer> |
| 8f87308… | mistachkin | 2 | <th1> |
| 8f87308… | mistachkin | 3 | proc getTclVersion {} { |
| 8f87308… | mistachkin | 4 | if {[catch {tclEval info patchlevel} tclVersion] == 0} { |
| 9f34c57… | mistachkin | 5 | return "<a href=\"https://www.tcl.tk/\">Tcl</a> version $tclVersion" |
| 8f87308… | mistachkin | 6 | } |
| 8f87308… | mistachkin | 7 | return "" |
| 8f87308… | mistachkin | 8 | } |
| 8f87308… | mistachkin | 9 | proc getVersion { version } { |
| 8f87308… | mistachkin | 10 | set length [string length $version] |
| 8f87308… | mistachkin | 11 | return [string range $version 1 [expr {$length - 2}]] |
| 8f87308… | mistachkin | 12 | } |
| 8f87308… | mistachkin | 13 | set version [getVersion $manifest_version] |
| 8f87308… | mistachkin | 14 | set tclVersion [getTclVersion] |
| 67f8111… | stephan | 15 | set fossilUrl https://fossil-scm.org |
| a08d175… | mistachkin | 16 | set fossilDate [string range $manifest_date 0 9]T[string range $manifest_date 11 end] |
| 8f87308… | mistachkin | 17 | </th1> |
| 8f87308… | mistachkin | 18 | This page was generated in about |
| 8f87308… | mistachkin | 19 | <th1>puts [expr {([utime]+[stime]+1000)/1000*0.001}]</th1>s by |
| 8f87308… | mistachkin | 20 | <a href="$fossilUrl/">Fossil</a> |
| 8f87308… | mistachkin | 21 | version $release_version $tclVersion |
| 8f87308… | mistachkin | 22 | <a href="$fossilUrl/index.html/info/$version">$manifest_version</a> |
| a08d175… | mistachkin | 23 | <a href="$fossilUrl/index.html/timeline?c=$fossilDate&y=ci">$manifest_date</a> |
| 8f34429… | wyoung | 24 | </footer> |