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 | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
9d0de1fb029a527a798d442b5f864ad6 |
| User & Date: | mistachkin 2015-07-30 16:26:52 |
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
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
...
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
|
#
# 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]
} else {
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 directory [lindex $argv 1]
} else {
set directory [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
................................................................................
#
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 $directory [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
|
<
>
>
>
>
|
<
>
>
>
>
|
|
|
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
...
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
|
#
# 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
................................................................................
#
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
|