| ︙ | | |
400
401
402
403
404
405
406
407
408
409
|
400
401
402
403
404
405
406
407
408
409
410
411
412
413
|
+
+
+
+
|
variable openPgpInstalledDirectory
if {[catch {openPgpMustBeInstalled}] == 0} then {
return true
}
if {![info exists openPgpFileNameOnly]} then {
return false
}
if {![info exists openPgpInstalledDirectory]} then {
return false
}
|
| ︙ | | |
423
424
425
426
427
428
429
430
431
432
433
434
435
436
|
427
428
429
430
431
432
433
434
435
436
|
-
-
-
-
|
if {![file isdirectory $directory]} then {
return false
}
if {![info exists openPgpFileNameOnly]} then {
return false
}
|
| ︙ | | |
530
531
532
533
534
535
536
537
538
539
|
530
531
532
533
534
535
536
537
538
539
540
541
542
543
|
+
+
+
+
|
#
# <public>
proc verifyOpenPgpSignature { fileName } {
variable openPgpFileNameOnly
variable openPgpVerifyCommand
if {![info exists openPgpFileNameOnly]} then {
return false
}
if {[isEagle]} then {
set fileName [formatExecArgument $fileName]
if {[catch {
|
| ︙ | | |
636
637
638
639
640
641
642
643
644
645
|
640
641
642
643
644
645
646
647
648
649
650
651
652
653
|
+
+
+
+
|
# <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 {
|
| ︙ | | |
671
672
673
674
675
676
677
678
679
680
|
679
680
681
682
683
684
685
686
687
688
689
690
691
692
|
+
+
+
+
|
# <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
}
|
| ︙ | | |