| | @@ -1,41 +1,18 @@ |
| 1 | 1 | #!/usr/bin/tclsh |
| 2 | 2 | # |
| 3 | | -# Run this script to build the "download.html" page. Also generate |
| 4 | | -# the fossil_download_checksums.html page. |
| 3 | +# Run this script to build andn install the "download.html" page of |
| 4 | +# unversioned comment. |
| 5 | +# |
| 6 | +# Also generate the fossil_download_checksums.html page. |
| 5 | 7 | # |
| 6 | 8 | # |
| 7 | 9 | set out [open download.html w] |
| 8 | 10 | fconfigure $out -encoding utf-8 -translation lf |
| 9 | 11 | puts $out \ |
| 10 | 12 | {<!DOCTYPE html> |
| 11 | | -<html> |
| 12 | | - <head> |
| 13 | | - <base href="https://www.fossil-scm.org/download.html" /> |
| 14 | | - <title>Fossil: Download</title> |
| 15 | | - <link rel="alternate" type="application/rss+xml" title="RSS Feed" |
| 16 | | - href="/fossil/timeline.rss" /> |
| 17 | | - <link rel="stylesheet" href="/fossil/style.css?default" type="text/css" |
| 18 | | - media="screen" /> |
| 19 | | - </head> |
| 20 | | - |
| 21 | | - <body> |
| 22 | | - <div class="header"> |
| 23 | | - <div class="title"><h1>Fossil</h1>Download</div> |
| 24 | | - </div> |
| 25 | | - <div class="mainmenu"> |
| 26 | | -<a href='/fossil/doc/trunk/www/index.wiki'>Home</a> |
| 27 | | -<a href='/fossil/timeline?y=ci'>Timeline</a> |
| 28 | | -<a href='/fossil/dir?ci=tip'>Code</a> |
| 29 | | -<a href='/fossil/doc/trunk/www/permutedindex.html'>Docs</a> |
| 30 | | -<a href='/fossil/brlist'>Branches</a> |
| 31 | | -<a href='/fossil/ticket'>Tickets</a> |
| 32 | | -<a href='/fossil/wiki'>Wiki</a> |
| 33 | | -<a href='/download.html' class='active'>Download</a> |
| 34 | | -</div> |
| 35 | | -<div class="content"> |
| 36 | | -<p> |
| 13 | +<div class='fossil-doc' data-title='Download Page'> |
| 37 | 14 | |
| 38 | 15 | <center><font size=4>} |
| 39 | 16 | puts $out \ |
| 40 | 17 | "<b>To install Fossil →</b> download the stand-alone executable" |
| 41 | 18 | puts $out \ |
| | @@ -45,46 +22,57 @@ |
| 45 | 22 | <a href="http://download.opensuse.org/repositories/home:/rmax:/fossil/"> |
| 46 | 23 | here.</a> |
| 47 | 24 | Cryptographic checksums for download files are |
| 48 | 25 | <a href="http://www.hwaci.com/fossil_download_checksums.html">here</a>. |
| 49 | 26 | </small></p> |
| 50 | | -</center> |
| 51 | | - |
| 52 | 27 | <table cellpadding="10"> |
| 53 | 28 | } |
| 54 | 29 | |
| 55 | | -# Find all all unique timestamps. |
| 30 | +# Find all unique timestamps. |
| 56 | 31 | # |
| 57 | | -foreach file [glob -nocomplain download/fossil-*.zip] { |
| 58 | | - if {[regexp -- {-(\d\.\d+).zip$} $file all version]} { |
| 32 | +set in [open {|fossil uv list} rb] |
| 33 | +while {[gets $in line]>0} { |
| 34 | + set fn [lindex $line 5] |
| 35 | + set filesize($fn) [lindex $line 3] |
| 36 | + if {[regexp -- {-(\d\.\d+)\.(tar\.gz|zip)$} $fn all version]} { |
| 37 | + set filehash($fn) [lindex $line 1] |
| 59 | 38 | set avers($version) 1 |
| 60 | 39 | } |
| 61 | 40 | } |
| 41 | +close $in |
| 42 | + |
| 43 | +set vdate(1.36) 2016-10-24 |
| 44 | +set vdate(1.35) 2016-06-14 |
| 45 | +set vdate(1.34) 2016-11-02 |
| 62 | 46 | |
| 63 | 47 | # Do all versions from newest to oldest |
| 64 | 48 | # |
| 65 | 49 | foreach vers [lsort -decr -real [array names avers]] { |
| 66 | | - set hr "/fossil/timeline?c=version-$vers;y=ci" |
| 50 | + # set hr "../timeline?c=version-$vers;y=ci" |
| 51 | + set v2 v[string map {. _} $vers] |
| 52 | + set hr "../doc/trunk/www/changes.wiki#$v2" |
| 67 | 53 | puts $out "<tr><td colspan=6 align=left><hr>" |
| 68 | | - puts $out "<center><b><a href=\"$hr\">Version $vers</a></b></center>" |
| 54 | + puts $out "<center><b><a href=\"$hr\">Version $vers</a>" |
| 55 | + if {[info exists vdate($vers)]} { |
| 56 | + set hr2 "../timeline?c=version-$vers&y=ci" |
| 57 | + puts $out " (<a href='$hr2'>$vdate($vers)</a>)" |
| 58 | + } |
| 59 | + puts $out "</b></center>" |
| 69 | 60 | puts $out "</td></tr>" |
| 70 | 61 | puts $out "<tr>" |
| 71 | 62 | |
| 72 | 63 | foreach {prefix img desc} { |
| 73 | 64 | fossil-linux-x86 linux.gif {Linux 3.x x86} |
| 74 | | - fossil-macosx-x86 mac.gif {Mac 10.x x86} |
| 65 | + fossil-macosx mac.gif {Mac 10.x x86} |
| 75 | 66 | fossil-openbsd-x86 openbsd.gif {OpenBSD 5.x x86} |
| 76 | 67 | fossil-w32 win32.gif {Windows} |
| 77 | 68 | fossil-src src.gif {Source Tarball} |
| 78 | 69 | } { |
| 79 | | - set basename download/$prefix-$vers |
| 80 | | - set filename $basename.tar.gz |
| 81 | | - if {![file exists $basename.tar.gz]} { |
| 82 | | - set filename $basename.zip |
| 83 | | - } |
| 84 | | - if {[file exists $filename]} { |
| 85 | | - set size [file size $filename] |
| 70 | + set glob download/$prefix*-$vers* |
| 71 | + set filename [array names filesize $glob] |
| 72 | + if {[info exists filesize($filename)]} { |
| 73 | + set size [set filesize($filename)] |
| 86 | 74 | set units bytes |
| 87 | 75 | if {$size>1024*1024} { |
| 88 | 76 | set size [format %.2f [expr {$size/(1024.0*1024.0)}]] |
| 89 | 77 | set units MiB |
| 90 | 78 | } elseif {$size>1024} { |
| | @@ -97,26 +85,23 @@ |
| 97 | 85 | } else { |
| 98 | 86 | puts $out "<td> </td>" |
| 99 | 87 | } |
| 100 | 88 | } |
| 101 | 89 | puts $out "</tr>" |
| 102 | | - if {[file exists download/releasenotes-$vers.html]} { |
| 103 | | - puts $out "<tr><td colspan=6 align=left>" |
| 104 | | - set rn [open download/releasenotes-$vers.html] |
| 105 | | - fconfigure $rn -encoding utf-8 |
| 106 | | - puts $out "[read $rn]" |
| 107 | | - close $rn |
| 108 | | - puts $out "</td></tr>" |
| 109 | | - } |
| 90 | +# |
| 91 | +# if {[info exists filesize(download/releasenotes-$vers.html)]} { |
| 92 | +# puts $out "<tr><td colspan=6 align=left>" |
| 93 | +# set rn [|open uv cat download/releasenotes-$vers.html] |
| 94 | +# fconfigure $rn -encoding utf-8 |
| 95 | +# puts $out "[read $rn]" |
| 96 | +# close $rn |
| 97 | +# puts $out "</td></tr>" |
| 98 | +# } |
| 110 | 99 | } |
| 111 | 100 | puts $out "<tr><td colspan=5><hr></td></tr>" |
| 112 | 101 | |
| 113 | | -puts $out {</table></div> |
| 114 | | -</body> |
| 115 | | -</html> |
| 116 | | -} |
| 117 | | - |
| 102 | +puts $out {</table></center></div>} |
| 118 | 103 | close $out |
| 119 | 104 | |
| 120 | 105 | # Generate the checksum page |
| 121 | 106 | # |
| 122 | 107 | set out [open fossil_download_checksums.html w] |
| | @@ -128,11 +113,15 @@ |
| 128 | 113 | <p>The following table shows the SHA1 checksums for the precompiled |
| 129 | 114 | binaries available on the |
| 130 | 115 | <a href="/download.html">Fossil website</a>.</p> |
| 131 | 116 | <pre>} |
| 132 | 117 | |
| 133 | | -foreach file [lsort [glob -nocomplain download/fossil-*.zip]] { |
| 134 | | - set sha1sum [lindex [exec sha1sum $file] 0] |
| 135 | | - puts $out "$sha1sum [file tail $file]" |
| 118 | +foreach {line} [split [exec fossil sql "SELECT hash, name FROM unversioned\ |
| 119 | + WHERE name GLOB '*.tar.gz' OR\ |
| 120 | + name GLOB '*.zip'"] \n] { |
| 121 | + set x [split $line |] |
| 122 | + set hash [lindex $x 0] |
| 123 | + set nm [file tail [lindex $x 1]] |
| 124 | + puts $out "$hash $nm" |
| 136 | 125 | } |
| 137 | 126 | puts $out {</pre></body></html>} |
| 138 | 127 | close $out |
| 139 | 128 | |