| ︙ | | |
398
399
400
401
402
403
404
405
406
407
408
409
410
411
|
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
|
+
+
+
+
|
global env
variable openPgpFileNameOnly
variable openPgpInstalledDirectory
if {[catch {openPgpMustBeInstalled}] == 0} then {
return true
}
if {![info exists openPgpFileNameOnly]} then {
return false
}
if {![info exists openPgpInstalledDirectory]} then {
return false
}
if {[isWindows]} then {
if {[info exists env(ProgramFiles(x86))]} then {
|
| ︙ | | |
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
|
425
426
427
428
429
430
431
432
433
434
435
436
437
438
|
-
-
-
-
|
set directory $openPgpInstalledDirectory
}
if {![file isdirectory $directory]} then {
return false
}
if {![info exists openPgpFileNameOnly]} then {
return false
}
|
| ︙ | | |
528
529
530
531
532
533
534
535
536
537
538
539
540
541
|
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
|
+
+
+
+
|
# the fully qualified path and file name of the OpenPGP signature
# file to verify.
#
# <public>
proc verifyOpenPgpSignature { fileName } {
variable openPgpFileNameOnly
variable openPgpVerifyCommand
if {![info exists openPgpFileNameOnly]} then {
return false
}
if {[isEagle]} then {
set fileName [formatExecArgument $fileName]
if {[catch {
eval exec -success Success [subst $openPgpVerifyCommand]
}] == 0} then {
|
| ︙ | | |
634
635
636
637
638
639
640
641
642
643
644
645
646
647
|
638
639
640
641
642
643
644
645
646
647
648
649
650
651
652
653
654
655
|
+
+
+
+
|
# qualified path and file name of the file to be signed.
#
# <public>
proc createOpenPgpSignature { fileName } {
global env
variable openPgpFileNameOnly
variable openPgpSignCommand
if {![info exists openPgpFileNameOnly]} then {
return false
}
if {[isEagle]} then {
set fileName [formatExecArgument $fileName]
if {[catch {
eval exec -success Success [subst $openPgpSignCommand]
}] == 0} then {
|
| ︙ | | |
669
670
671
672
673
674
675
676
677
678
679
680
681
682
|
677
678
679
680
681
682
683
684
685
686
687
688
689
690
691
692
693
694
|
+
+
+
+
|
# of this package.
#
# <internal>
proc importOpenPgpKeyFile { fileName varName } {
variable openPgpFileNameOnly
variable openPgpImportCommand
variable openPgpImportPattern
if {![info exists openPgpFileNameOnly]} then {
return false
}
if {[string length $varName] > 0} then {
upvar 1 $varName result
}
if {[isEagle]} then {
set fileName [formatExecArgument $fileName]
|
| ︙ | | |