System.Data.SQLite
Check-in [f64b6958a2]
Not logged in

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: f64b6958a22fb405c1a5d504b04f6d4d917bfb4c
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
Hide Diffs Unified Diffs Ignore Whitespace Patch

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