Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Pickup release archive verification tool changes from upstream. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
f64b6958a22fb405c1a5d504b04f6d4d |
| User & Date: | mistachkin 2014-11-26 20:15:27 |
Context
|
2014-11-28
| ||
| 08:38 | Fix typo on the release process web page. Fix for [89774dc93e]. check-in: 0d23e2583b user: mistachkin tags: trunk | |
|
2014-11-26
| ||
| 20:15 | Pickup release archive verification tool changes from upstream. check-in: f64b6958a2 user: mistachkin tags: trunk | |
|
2014-11-25
| ||
| 17:29 | Make sure the interop files are copied before the PostBuildEvent. Fix for [f16c93a932]. Make sure the interop files are copied when publishing a project that refers to a NuGet package containing them. Fix for [e796ac82c1]. check-in: eb697cca1c user: mistachkin tags: trunk | |
Changes
Changes to Setup/verify.eagle.
24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 ... 330 331 332 333 334 335 336 337 338 339 340 341 342 343 344 345 346 ... 356 357 358 359 360 361 362 363 364 365 366 367 368 369 370 371 372 373 374 375 376 377 378 379 380 |
proc getSha1Hashes { varName } {
variable fossil
upvar 1 $varName hashes
set data [exec -success Success -nocarriagereturns -- \
$fossil artifact current]
set result 0
set lines [split $data \n]
foreach line $lines {
if {[string range $line 0 1] eq "F "} then {
set fields [split $line " "]
................................................................................
catch {
file attributes $extractFileName -readonly false
file delete $extractFileName
}
try {
if {[catch {eval [string map \
$extractCommandMap $extractCommand]} result] == 0} then {
if {[info exists hashes($manifestFileName)]} then {
set hash [getSha1Sum $extractFileName]
if {[string length $hash] > 0} then {
if {$hash ne $hashes($manifestFileName)} then {
puts stdout [appendArgs \
"ERROR: Archive \"" $archiveFileName \
"\" file \"" $manifestFileName \
................................................................................
"\" file \"" $manifestFileName \
"\" could not be hashed."]
set exitCode 1
}
} else {
puts stdout [appendArgs \
"ERROR: Archive \"" $archiveFileName \
"\" file \"" $manifestFileName \
"\" has no repository hash."]
set exitCode 1
}
} else {
puts stdout [appendArgs \
"ERROR: Failed to extract file \"" \
$manifestFileName "\" from archive \"" \
$archiveFileName "\", error: " $result]
set exitCode 1
}
} finally {
catch {
file attributes $extractFileName -readonly false
file delete $extractFileName
|
| > | | < > | | | | | | |
24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 ... 330 331 332 333 334 335 336 337 338 339 340 341 342 343 344 345 346 347 ... 357 358 359 360 361 362 363 364 365 366 367 368 369 370 371 372 373 374 375 376 377 378 379 380 381 |
proc getSha1Hashes { varName } {
variable fossil
upvar 1 $varName hashes
set data [exec -success Success -nocarriagereturns -- \
$fossil artifact current]; # or "release"
set result 0
set lines [split $data \n]
foreach line $lines {
if {[string range $line 0 1] eq "F "} then {
set fields [split $line " "]
................................................................................
catch {
file attributes $extractFileName -readonly false
file delete $extractFileName
}
try {
if {[info exists hashes($manifestFileName)]} then {
if {[catch {
eval [string map $extractCommandMap $extractCommand]
} result] == 0} then {
set hash [getSha1Sum $extractFileName]
if {[string length $hash] > 0} then {
if {$hash ne $hashes($manifestFileName)} then {
puts stdout [appendArgs \
"ERROR: Archive \"" $archiveFileName \
"\" file \"" $manifestFileName \
................................................................................
"\" file \"" $manifestFileName \
"\" could not be hashed."]
set exitCode 1
}
} else {
puts stdout [appendArgs \
"ERROR: Failed to extract file \"" \
$manifestFileName "\" from archive \"" \
$archiveFileName "\", error: " $result]
set exitCode 1
}
} else {
puts stdout [appendArgs \
"ERROR: Archive \"" $archiveFileName \
"\" file \"" $manifestFileName \
"\" has no repository hash."]
set exitCode 1
}
} finally {
catch {
file attributes $extractFileName -readonly false
file delete $extractFileName
|