2194
2195
2196
2197
2198
2199
2200
2201
2202
2203
2204
2205
2206
2207
|
if {[file exists $fileName] && [file isfile $fileName]} then {
uplevel 1 [list source $fileName]
}
}
}
#
# NOTE: This procedure sets up the default values for all configuration
# parameters used to interact with the OpenPGP implementation.
# There are no arguments.
#
proc setupRepositoryOpenPgpVars {} {
#
|
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
|
2194
2195
2196
2197
2198
2199
2200
2201
2202
2203
2204
2205
2206
2207
2208
2209
2210
2211
2212
2213
2214
2215
2216
2217
2218
2219
2220
2221
2222
2223
2224
2225
2226
2227
2228
2229
2230
2231
|
if {[file exists $fileName] && [file isfile $fileName]} then {
uplevel 1 [list source $fileName]
}
}
}
#
# NOTE: This procedure evaluates a package repository client API keys
# script file, if it has been configured -AND- actually exists.
# Any script errors raised are not masked. The evaluated script
# file should (normally) modify the "::pkgr_api_keys" variable
# in order to add API keys for use with the package repository
# client.
#
proc maybeReadApiKeysFile {} {
global env
if {[info exists env(PKGR_NO_API_KEYS_FILE)]} then {
return
}
if {[info exists env(PKGR_API_KEYS_FILE)]} then {
set fileName $env(PKGR_API_KEYS_FILE)
if {[file exists $fileName] && [file isfile $fileName]} then {
uplevel 1 [list source $fileName]
}
}
}
#
# NOTE: This procedure sets up the default values for all configuration
# parameters used to interact with the OpenPGP implementation.
# There are no arguments.
#
proc setupRepositoryOpenPgpVars {} {
#
|
2521
2522
2523
2524
2525
2526
2527
2528
2529
2530
2531
2532
2533
2534
|
#
# NOTE: Attempt to read optional settings file now. This may override
# one or more of the variable setup in the next step.
#
maybeReadSettingsFile [info script]
#
# NOTE: Setup the server and URI variables, in this namespace, that are
# used by this script.
#
setupRepositoryServerVars false
setupRepositoryUriVars false
|
>
>
>
>
>
>
|
2545
2546
2547
2548
2549
2550
2551
2552
2553
2554
2555
2556
2557
2558
2559
2560
2561
2562
2563
2564
|
#
# NOTE: Attempt to read optional settings file now. This may override
# one or more of the variable setup in the next step.
#
maybeReadSettingsFile [info script]
#
# NOTE: Attempt to read optional API keys file now. This may add API
# keys for use by this script.
#
maybeReadApiKeysFile
#
# NOTE: Setup the server and URI variables, in this namespace, that are
# used by this script.
#
setupRepositoryServerVars false
setupRepositoryUriVars false
|