Fossil SCM
Further improvements to the mkdownload.tcl script.
Commit
529941901a25ead52377c06eb092f836c8c2bbae
Parent
d0c77c7ce04f9f3…
1 file changed
+3
-6
+3
-6
| --- www/mkdownload.tcl | ||
| +++ www/mkdownload.tcl | ||
| @@ -60,20 +60,17 @@ | ||
| 60 | 60 | puts $out "</td></tr>" |
| 61 | 61 | puts $out "<tr>" |
| 62 | 62 | |
| 63 | 63 | foreach {prefix img desc} { |
| 64 | 64 | fossil-linux-x86 linux.gif {Linux 3.x x86} |
| 65 | - fossil-macosx-x86 mac.gif {Mac 10.x x86} | |
| 65 | + fossil-macosx mac.gif {Mac 10.x x86} | |
| 66 | 66 | fossil-openbsd-x86 openbsd.gif {OpenBSD 5.x x86} |
| 67 | 67 | fossil-w32 win32.gif {Windows} |
| 68 | 68 | fossil-src src.gif {Source Tarball} |
| 69 | 69 | } { |
| 70 | - set basename download/$prefix-$vers | |
| 71 | - set filename $basename.tar.gz | |
| 72 | - if {![info exists filesize($basename.tar.gz)]} { | |
| 73 | - set filename $basename.zip | |
| 74 | - } | |
| 70 | + set glob download/$prefix*-$vers* | |
| 71 | + set filename [array names filesize $glob] | |
| 75 | 72 | if {[info exists filesize($filename)]} { |
| 76 | 73 | set size [set filesize($filename)] |
| 77 | 74 | set units bytes |
| 78 | 75 | if {$size>1024*1024} { |
| 79 | 76 | set size [format %.2f [expr {$size/(1024.0*1024.0)}]] |
| 80 | 77 |
| --- www/mkdownload.tcl | |
| +++ www/mkdownload.tcl | |
| @@ -60,20 +60,17 @@ | |
| 60 | puts $out "</td></tr>" |
| 61 | puts $out "<tr>" |
| 62 | |
| 63 | foreach {prefix img desc} { |
| 64 | fossil-linux-x86 linux.gif {Linux 3.x x86} |
| 65 | fossil-macosx-x86 mac.gif {Mac 10.x x86} |
| 66 | fossil-openbsd-x86 openbsd.gif {OpenBSD 5.x x86} |
| 67 | fossil-w32 win32.gif {Windows} |
| 68 | fossil-src src.gif {Source Tarball} |
| 69 | } { |
| 70 | set basename download/$prefix-$vers |
| 71 | set filename $basename.tar.gz |
| 72 | if {![info exists filesize($basename.tar.gz)]} { |
| 73 | set filename $basename.zip |
| 74 | } |
| 75 | if {[info exists filesize($filename)]} { |
| 76 | set size [set filesize($filename)] |
| 77 | set units bytes |
| 78 | if {$size>1024*1024} { |
| 79 | set size [format %.2f [expr {$size/(1024.0*1024.0)}]] |
| 80 |
| --- www/mkdownload.tcl | |
| +++ www/mkdownload.tcl | |
| @@ -60,20 +60,17 @@ | |
| 60 | puts $out "</td></tr>" |
| 61 | puts $out "<tr>" |
| 62 | |
| 63 | foreach {prefix img desc} { |
| 64 | fossil-linux-x86 linux.gif {Linux 3.x x86} |
| 65 | fossil-macosx mac.gif {Mac 10.x x86} |
| 66 | fossil-openbsd-x86 openbsd.gif {OpenBSD 5.x x86} |
| 67 | fossil-w32 win32.gif {Windows} |
| 68 | fossil-src src.gif {Source Tarball} |
| 69 | } { |
| 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)] |
| 74 | set units bytes |
| 75 | if {$size>1024*1024} { |
| 76 | set size [format %.2f [expr {$size/(1024.0*1024.0)}]] |
| 77 |