88
89
90
91
92
93
94
95
96
97
98
99
100
101
|
if {![info exists ::argv] || [llength $::argv] == 0} then {
set localFileName [file join \
[::PackageRepository::getFileTempDirectory] [appendArgs \
pkg_key_ [::PackageRepository::getUniqueSuffix] .asc]]
::PackageDownloader::downloadAndSaveOpenPgpKeyFile \
$localFileName
if {[::PackageRepository::importOpenPgpKeyFile $localFileName \
result]} then {
puts stdout $result
} else {
error [appendArgs \
"could not import the package signing OpenPGP key(s): " \
|
>
>
|
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
|
if {![info exists ::argv] || [llength $::argv] == 0} then {
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 \
"could not import the package signing OpenPGP key(s): " \
|