Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Further improvements to the master release archive verification tool. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
8d7c524914d3434c6188c24b6b22c505 |
| User & Date: | mistachkin 2014-11-24 23:13:48 |
Context
|
2014-11-25
| ||
| 00:18 | Improve handling of bad hash values and non-source archives in the master release archive verification tool. check-in: 79c91d89e7 user: mistachkin tags: trunk | |
|
2014-11-24
| ||
| 23:13 | Further improvements to the master release archive verification tool. check-in: 8d7c524914 user: mistachkin tags: trunk | |
| 22:21 | Fix issues in the master release archive verification tool regarding file names containing spaces. check-in: 06cb175d37 user: mistachkin tags: trunk | |
Changes
Changes to Setup/verify.eagle.
300
301
302
303
304
305
306
307
308
309
310
311
312
313
...
337
338
339
340
341
342
343
344
345
346
347
348
349
350
|
#
# HACK: For now, only verify SHA1 hashes for those files present
# in the repository.
#
if {![string match -nocase -- *Source* $archiveFileName]} then {
continue
}
set extractCommandMap [list \
%fileName% [file nativename $manifestFileName] \
%directory% [file nativename $extractDirectory]]
set extractFileName [file join \
$extractDirectory [file tail $manifestFileName]]
................................................................................
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
}
}
|
>
>
>
>
>
>
>
>
>
>
>
>
>
>
|
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
...
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
|
#
# HACK: For now, only verify SHA1 hashes for those files present
# in the repository.
#
if {![string match -nocase -- *Source* $archiveFileName]} then {
continue
}
#
# NOTE: Skip anything that does not look like a file.
#
if {[string index $manifestFileName end] in [list / \\]} then {
continue
}
set extractCommandMap [list \
%fileName% [file nativename $manifestFileName] \
%directory% [file nativename $extractDirectory]]
set extractFileName [file join \
$extractDirectory [file tail $manifestFileName]]
................................................................................
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
}
}
|