89
90
91
92
93
94
95
96
97
98
99
100
101
102
|
set localFileName [file join \
[::PackageRepository::getFileTempDirectory] [appendArgs \
pkg_key_ [::PackageRepository::getUniqueSuffix] .asc]]
::PackageDownloader::downloadAndSaveOpenPgpKeyFile \
$localFileName
::PackageRepository::openPgpMustBeInstalled
if {[::PackageRepository::importOpenPgpKeyFile $localFileName \
result]} then {
puts stdout $result
} else {
error [appendArgs \
|
>
|
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
|
set localFileName [file join \
[::PackageRepository::getFileTempDirectory] [appendArgs \
pkg_key_ [::PackageRepository::getUniqueSuffix] .asc]]
::PackageDownloader::downloadAndSaveOpenPgpKeyFile \
$localFileName
::PackageRepository::probeForOpenPgpInstallation
::PackageRepository::openPgpMustBeInstalled
if {[::PackageRepository::importOpenPgpKeyFile $localFileName \
result]} then {
puts stdout $result
} else {
error [appendArgs \
|