Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | Make the download page updating script easier to use. |
---|---|
Downloads: | Tarball | ZIP archive |
Timelines: | family | ancestors | descendants | both | trunk |
Files: | files | file ages | folders |
SHA1: |
9d0de1fb029a527a798d442b5f864ad6 |
User & Date: | mistachkin 2015-07-30 16:26:52.198 |
Context
2015-07-30
| ||
16:27 | Update some incorect SHA1 hashes on the download page. check-in: 36e46ec005 user: mistachkin tags: trunk | |
16:26 | Make the download page updating script easier to use. check-in: 9d0de1fb02 user: mistachkin tags: trunk | |
00:15 | Update SQLite core library to the 3.8.11.1 release. check-in: e2757bd694 user: mistachkin tags: trunk | |
Changes
Changes to Setup/updateFileInfo.tcl.
︙ | ︙ | |||
57 58 59 60 61 62 63 | # # NOTE: Grab the name of the file to be updated from the command line, if # available; otherwise, use the default (i.e. "../www/downloads.wiki"). # if {[info exists argv] && [llength $argv] > 0} then { set updateFileName [lindex $argv 0] | > | > > | > | > > | | 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 | # # NOTE: Grab the name of the file to be updated from the command line, if # available; otherwise, use the default (i.e. "../www/downloads.wiki"). # if {[info exists argv] && [llength $argv] > 0} then { set updateFileName [lindex $argv 0] } if {![info exists updateFileName] || \ [string length $updateFileName] == 0} then { set updateFileName [file join $root www downloads.wiki] } # # NOTE: Grab the directory containing the files referenced in the data of the # file to be updated from the command line, if available; otherwise, use # the default (i.e. "./Output"). # if {[info exists argv] && [llength $argv] > 1} then { set outputDirectory [lindex $argv 1] } if {![info exists outputDirectory] || \ [string length $outputDirectory] == 0} then { set outputDirectory [file join $path Output] } # # NOTE: Setup the regular expression pattern with the necessary captures. This # pattern is mostly non-greedy; however, at the end we need to match # exactly 40 hexadecimal characters. In theory, in Tcl, this could have # an undefined result due to the mixing of greedy and non-greedy |
︙ | ︙ | |||
113 114 115 116 117 118 119 | # foreach {dummy fileName fileSize fileHash} \ [regexp -all -inline -nocase -- $pattern $data] { # # NOTE: Get the fully qualified file name based on the configured # directory. # | | | 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 | # foreach {dummy fileName fileSize fileHash} \ [regexp -all -inline -nocase -- $pattern $data] { # # NOTE: Get the fully qualified file name based on the configured # directory. # set fullFileName [file join $outputDirectory [file tail $fileName]] # # NOTE: If the file does not exist, issue a warning and skip it. # if {![file exists $fullFileName]} then { puts stdout "WARNING: File \"$fullFileName\" does not exist, skipped." continue |
︙ | ︙ |