Fossil SCM
Enhance the "mkdownload.tcl" script so that it recognizes either tarballs or ZIP archives, with a preference for tarballs.
Commit
fb94a70da422ae91a90116f49ed111c7ef74ea24
Parent
22681034c194314…
1 file changed
+5
-1
+5
-1
| --- www/mkdownload.tcl | ||
| +++ www/mkdownload.tcl | ||
| @@ -74,11 +74,15 @@ | ||
| 74 | 74 | fossil-macosx-x86 zip mac.gif {Mac 10.x x86} |
| 75 | 75 | fossil-openbsd-x86 zip openbsd.gif {OpenBSD 5.x x86} |
| 76 | 76 | fossil-w32 zip win32.gif {Windows} |
| 77 | 77 | fossil-src tar.gz src.gif {Source Tarball} |
| 78 | 78 | } { |
| 79 | - set filename download/$prefix-$vers.$suffix | |
| 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 | + } | |
| 80 | 84 | if {[file exists $filename]} { |
| 81 | 85 | set size [file size $filename] |
| 82 | 86 | set units bytes |
| 83 | 87 | if {$size>1024*1024} { |
| 84 | 88 | set size [format %.2f [expr {$size/(1024.0*1024.0)}]] |
| 85 | 89 |
| --- www/mkdownload.tcl | |
| +++ www/mkdownload.tcl | |
| @@ -74,11 +74,15 @@ | |
| 74 | fossil-macosx-x86 zip mac.gif {Mac 10.x x86} |
| 75 | fossil-openbsd-x86 zip openbsd.gif {OpenBSD 5.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)}]] |
| 85 |
| --- www/mkdownload.tcl | |
| +++ www/mkdownload.tcl | |
| @@ -74,11 +74,15 @@ | |
| 74 | fossil-macosx-x86 zip mac.gif {Mac 10.x x86} |
| 75 | fossil-openbsd-x86 zip openbsd.gif {OpenBSD 5.x x86} |
| 76 | fossil-w32 zip win32.gif {Windows} |
| 77 | fossil-src tar.gz src.gif {Source Tarball} |
| 78 | } { |
| 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] |
| 86 | set units bytes |
| 87 | if {$size>1024*1024} { |
| 88 | set size [format %.2f [expr {$size/(1024.0*1024.0)}]] |
| 89 |