109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
|
}
}
# Resolve version numbers to checkin IDs
## XXX: TODO
set cache_tcl_version $build_tcl_version
if {$build_tcl_version == "fossil_trunk"} {
set cache_tcl_version [clock seconds]
}
set cache_kitcreator_version $build_kitcreator_version
if {$build_kitcreator_version == "trunk"} {
set cache_kitcreator_version [clock seconds]
}
# Generate a serialized hash that represents the state of the build
## Load a secret so keys cannot be pre-computed (but remain consistent)
set secretfd [open $secretfile "r"]
set secret [gets $secretfd]
close $secretfd
|
|
|
|
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
|
}
}
# Resolve version numbers to checkin IDs
## XXX: TODO
set cache_tcl_version $build_tcl_version
if {$build_tcl_version == "fossil_trunk"} {
set cache_tcl_version [clock format [clock seconds] -format {%Y%m%d}]
}
set cache_kitcreator_version $build_kitcreator_version
if {$build_kitcreator_version == "trunk"} {
set cache_kitcreator_version [clock format [clock seconds] -format {%Y%m%d}]
}
# Generate a serialized hash that represents the state of the build
## Load a secret so keys cannot be pre-computed (but remain consistent)
set secretfd [open $secretfile "r"]
set secret [gets $secretfd]
close $secretfd
|