Fossil SCM
Update the mkdownload.tcl script to use version numbers instead of dates on the build products.
Commit
3609d0b772686115b4bf08bfd2ffdd4b9a1adee3
Parent
6c40678e9114c41…
1 file changed
+11
-17
+11
-17
| --- www/mkdownload.tcl | ||
| +++ www/mkdownload.tcl | ||
| @@ -53,27 +53,21 @@ | ||
| 53 | 53 | } |
| 54 | 54 | |
| 55 | 55 | # Find all all unique timestamps. |
| 56 | 56 | # |
| 57 | 57 | foreach file [glob -nocomplain download/fossil-*.zip] { |
| 58 | - if {[regexp {(\d+).zip$} $file all datetime] | |
| 59 | - && [string length $datetime]>=14} { | |
| 60 | - set adate($datetime) 1 | |
| 58 | + if {[regexp -- {-(\d\.\d+).zip$} $file all version]} { | |
| 59 | + set avers($version) 1 | |
| 61 | 60 | } |
| 62 | 61 | } |
| 63 | 62 | |
| 64 | -# Do all dates from newest to oldest | |
| 65 | -# | |
| 66 | -foreach datetime [lsort -decr [array names adate]] { | |
| 67 | - set dt [string range $datetime 0 3]-[string range $datetime 4 5]- | |
| 68 | - append dt "[string range $datetime 6 7] " | |
| 69 | - append dt "[string range $datetime 8 9]:[string range $datetime 10 11]:" | |
| 70 | - append dt "[string range $datetime 12 13]" | |
| 71 | - set link [string map {{ } +} $dt] | |
| 72 | - set hr "/fossil/timeline?c=$link&y=ci" | |
| 73 | - puts $out "<tr><td colspan=6 align=left><hr>" | |
| 74 | - puts $out "<center><b><a href=\"$hr\">$dt</a></b></center>" | |
| 63 | +# Do all versions from newest to oldest | |
| 64 | +# | |
| 65 | +foreach vers [lsort -decr -real [array names avers]] { | |
| 66 | + set hr "/fossil/timeline?c=version-$vers;y=ci" | |
| 67 | + puts $out "<tr><td colspan=6 align=left><hr>" | |
| 68 | + puts $out "<center><b><a href=\"$hr\">Version $vers</a></b></center>" | |
| 75 | 69 | puts $out "</td></tr>" |
| 76 | 70 | puts $out "<tr>" |
| 77 | 71 | |
| 78 | 72 | foreach {prefix suffix img desc} { |
| 79 | 73 | fossil-linux-x86 zip linux.gif {Linux 3.x x86} |
| @@ -80,11 +74,11 @@ | ||
| 80 | 74 | fossil-macosx-x86 zip mac.gif {Mac 10.x x86} |
| 81 | 75 | fossil-openbsd-x86 zip openbsd.gif {OpenBSD 4.x x86} |
| 82 | 76 | fossil-w32 zip win32.gif {Windows} |
| 83 | 77 | fossil-src tar.gz src.gif {Source Tarball} |
| 84 | 78 | } { |
| 85 | - set filename download/$prefix-$datetime.$suffix | |
| 79 | + set filename download/$prefix-$vers.$suffix | |
| 86 | 80 | if {[file exists $filename]} { |
| 87 | 81 | set size [file size $filename] |
| 88 | 82 | set units bytes |
| 89 | 83 | if {$size>1024*1024} { |
| 90 | 84 | set size [format %.2f [expr {$size/(1024.0*1024.0)}]] |
| @@ -99,13 +93,13 @@ | ||
| 99 | 93 | } else { |
| 100 | 94 | puts $out "<td> </td>" |
| 101 | 95 | } |
| 102 | 96 | } |
| 103 | 97 | puts $out "</tr>" |
| 104 | - if {[file exists download/releasenotes-$datetime.html]} { | |
| 98 | + if {[file exists download/releasenotes-$vers.html]} { | |
| 105 | 99 | puts $out "<tr><td colspan=6 align=left>" |
| 106 | - set rn [open download/releasenotes-$datetime.html] | |
| 100 | + set rn [open download/releasenotes-$vers.html] | |
| 107 | 101 | fconfigure $rn -encoding utf-8 |
| 108 | 102 | puts $out "[read $rn]" |
| 109 | 103 | close $rn |
| 110 | 104 | puts $out "</td></tr>" |
| 111 | 105 | } |
| 112 | 106 |
| --- www/mkdownload.tcl | |
| +++ www/mkdownload.tcl | |
| @@ -53,27 +53,21 @@ | |
| 53 | } |
| 54 | |
| 55 | # Find all all unique timestamps. |
| 56 | # |
| 57 | foreach file [glob -nocomplain download/fossil-*.zip] { |
| 58 | if {[regexp {(\d+).zip$} $file all datetime] |
| 59 | && [string length $datetime]>=14} { |
| 60 | set adate($datetime) 1 |
| 61 | } |
| 62 | } |
| 63 | |
| 64 | # Do all dates from newest to oldest |
| 65 | # |
| 66 | foreach datetime [lsort -decr [array names adate]] { |
| 67 | set dt [string range $datetime 0 3]-[string range $datetime 4 5]- |
| 68 | append dt "[string range $datetime 6 7] " |
| 69 | append dt "[string range $datetime 8 9]:[string range $datetime 10 11]:" |
| 70 | append dt "[string range $datetime 12 13]" |
| 71 | set link [string map {{ } +} $dt] |
| 72 | set hr "/fossil/timeline?c=$link&y=ci" |
| 73 | puts $out "<tr><td colspan=6 align=left><hr>" |
| 74 | puts $out "<center><b><a href=\"$hr\">$dt</a></b></center>" |
| 75 | puts $out "</td></tr>" |
| 76 | puts $out "<tr>" |
| 77 | |
| 78 | foreach {prefix suffix img desc} { |
| 79 | fossil-linux-x86 zip linux.gif {Linux 3.x x86} |
| @@ -80,11 +74,11 @@ | |
| 80 | fossil-macosx-x86 zip mac.gif {Mac 10.x x86} |
| 81 | fossil-openbsd-x86 zip openbsd.gif {OpenBSD 4.x x86} |
| 82 | fossil-w32 zip win32.gif {Windows} |
| 83 | fossil-src tar.gz src.gif {Source Tarball} |
| 84 | } { |
| 85 | set filename download/$prefix-$datetime.$suffix |
| 86 | if {[file exists $filename]} { |
| 87 | set size [file size $filename] |
| 88 | set units bytes |
| 89 | if {$size>1024*1024} { |
| 90 | set size [format %.2f [expr {$size/(1024.0*1024.0)}]] |
| @@ -99,13 +93,13 @@ | |
| 99 | } else { |
| 100 | puts $out "<td> </td>" |
| 101 | } |
| 102 | } |
| 103 | puts $out "</tr>" |
| 104 | if {[file exists download/releasenotes-$datetime.html]} { |
| 105 | puts $out "<tr><td colspan=6 align=left>" |
| 106 | set rn [open download/releasenotes-$datetime.html] |
| 107 | fconfigure $rn -encoding utf-8 |
| 108 | puts $out "[read $rn]" |
| 109 | close $rn |
| 110 | puts $out "</td></tr>" |
| 111 | } |
| 112 |
| --- www/mkdownload.tcl | |
| +++ www/mkdownload.tcl | |
| @@ -53,27 +53,21 @@ | |
| 53 | } |
| 54 | |
| 55 | # Find all all unique timestamps. |
| 56 | # |
| 57 | foreach file [glob -nocomplain download/fossil-*.zip] { |
| 58 | if {[regexp -- {-(\d\.\d+).zip$} $file all version]} { |
| 59 | set avers($version) 1 |
| 60 | } |
| 61 | } |
| 62 | |
| 63 | # Do all versions from newest to oldest |
| 64 | # |
| 65 | foreach vers [lsort -decr -real [array names avers]] { |
| 66 | set hr "/fossil/timeline?c=version-$vers;y=ci" |
| 67 | puts $out "<tr><td colspan=6 align=left><hr>" |
| 68 | puts $out "<center><b><a href=\"$hr\">Version $vers</a></b></center>" |
| 69 | puts $out "</td></tr>" |
| 70 | puts $out "<tr>" |
| 71 | |
| 72 | foreach {prefix suffix img desc} { |
| 73 | fossil-linux-x86 zip linux.gif {Linux 3.x x86} |
| @@ -80,11 +74,11 @@ | |
| 74 | fossil-macosx-x86 zip mac.gif {Mac 10.x x86} |
| 75 | fossil-openbsd-x86 zip openbsd.gif {OpenBSD 4.x x86} |
| 76 | fossil-w32 zip win32.gif {Windows} |
| 77 | fossil-src tar.gz src.gif {Source Tarball} |
| 78 | } { |
| 79 | set filename download/$prefix-$vers.$suffix |
| 80 | if {[file exists $filename]} { |
| 81 | set size [file size $filename] |
| 82 | set units bytes |
| 83 | if {$size>1024*1024} { |
| 84 | set size [format %.2f [expr {$size/(1024.0*1024.0)}]] |
| @@ -99,13 +93,13 @@ | |
| 93 | } else { |
| 94 | puts $out "<td> </td>" |
| 95 | } |
| 96 | } |
| 97 | puts $out "</tr>" |
| 98 | if {[file exists download/releasenotes-$vers.html]} { |
| 99 | puts $out "<tr><td colspan=6 align=left>" |
| 100 | set rn [open download/releasenotes-$vers.html] |
| 101 | fconfigure $rn -encoding utf-8 |
| 102 | puts $out "[read $rn]" |
| 103 | close $rn |
| 104 | puts $out "</td></tr>" |
| 105 | } |
| 106 |