92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
|
::PackageDownloader::downloadAndSaveOpenPgpKeyFile \
$localFileName
::PackageRepository::probeForOpenPgpInstallation
::PackageRepository::openPgpMustBeInstalled
if {[::PackageRepository::importOpenPgpKeyFile $localFileName \
result]} then {
puts stdout $result
} else {
error [appendArgs \
"could not import the package signing OpenPGP key(s): " \
$result]
}
} else {
usage
}
}
|
|
>
>
>
>
|
|
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
|
::PackageDownloader::downloadAndSaveOpenPgpKeyFile \
$localFileName
::PackageRepository::probeForOpenPgpInstallation
::PackageRepository::openPgpMustBeInstalled
set imported [::PackageRepository::importOpenPgpKeyFile \
$localFileName result]
catch {file delete $localFileName}
if {$imported} then {
puts stdout $result
} else {
error [appendArgs \
"could not import the package signing OpenPGP key(s): " \
$result]
}
} else {
usage
}
}
|