Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Minor tweaks to file info updating tool. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
836eef1fd5c208e56f04f71185809bcb |
| User & Date: | mistachkin 2011-10-03 10:01:48 |
Context
|
2011-10-03
| ||
| 21:35 | Update build procedures web page to include the new NuSpec files. check-in: 8f3acceb49 user: mistachkin tags: trunk | |
| 10:01 | Minor tweaks to file info updating tool. check-in: 836eef1fd5 user: mistachkin tags: trunk | |
| 09:53 | Add Tcl-based tool capable of automatically updating the file sizes and hashes on the downloads page. check-in: 3f0042b2f5 user: mistachkin tags: trunk | |
Changes
Changes to Setup/updateFileInfo.tcl.
1
2
3
4
5
6
7
8
9
10
11
12
..
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
|
############################################################################### # # updateFileInfo.tcl -- File Metadata Updating Tool # # WARNING: This tool requires that the Fossil binary somewhere along the PATH. # # Written by Joe Mistachkin. # Released to the public domain, use at your own risk! # ############################################################################### proc readFile { fileName } { ................................................................................ # # NOTE: Grab the fully qualified directory name of the directory containing # this script file. # set path [file normalize [file dirname [info script]]] # # 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 [file dirname $path] 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"). # |
|
>
>
>
>
>
>
>
|
|
1
2
3
4
5
6
7
8
9
10
11
12
13
..
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
|
############################################################################### # # updateFileInfo.tcl -- File Metadata Updating Tool # # WARNING: This tool requires the Fossil binary to exist somewhere along the # PATH. # # Written by Joe Mistachkin. # Released to the public domain, use at your own risk! # ############################################################################### proc readFile { fileName } { ................................................................................ # # NOTE: Grab the fully qualified directory name of the directory containing # this script file. # set path [file normalize [file dirname [info script]]] # # NOTE: *WARNING* This assumes that the root of the source check-out is one # directory above the directory containing this script. # set root [file normalize [file dirname $path]] # # 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"). # |