273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
|
incr counter
}
}
}
#
# NOTE: This procedure attempts to check for the configured installation of
# OpenPGP. There are no arguments. Non-zero is returned if OpenPGP
# appears to be installed.
#
# <public>
proc probeForOpenPgpInstallation {} {
global env
variable openPgpInstalledDirectory
variable openPgpInstalledFileName
if {[catch {openPgpMustBeInstalled}] == 0} then {
return true
|
|
|
>
>
>
>
|
|
|
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
|
incr counter
}
}
}
#
# NOTE: This procedure attempts to check for an OpenPGP installation being
# installed at the default location. There are no arguments. If the
# OpenPGP installation is detected and is not yet present in the PATH,
# an attempt will be made to add it. Non-zero will be returned if the
# OpenPGP installation directory was successfully detected and added
# to the PATH -OR- detecting and adding it was not necessary because
# it already appeared to be available for use.
#
# <internal>
proc probeForOpenPgpInstallation {} {
global env
variable openPgpInstalledDirectory
variable openPgpInstalledFileName
if {[catch {openPgpMustBeInstalled}] == 0} then {
return true
|