Artifact Content
Not logged in

Artifact 7f36cbf30a82ef3cec30c1917a96415fa7d76eeb:


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