336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
|
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
|
-
+
+
|
# NOTE: This procedure issues an HTTP request that should return metadata
# that can be used to load and/or provide the specified package.
# The apiKey argument is the API key to use -OR- an empty string if
# a public package is being looked up. The package argument is the
# name of the package, it cannot be an empty string. The version
# argument is the specific version being looked up -OR- an empty
# string for any available version. This procedure may raise script
# errors.
# errors. All line-endings are normalized to Unix-style; therefore,
# all script signatures must assume this.
#
proc getLookupData { apiKey package version } {
variable verboseUriDownload
set uri [getLookupUri $apiKey $package $version]
if {[string length $uri] == 0} then {
|
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
|
367
368
369
370
371
372
373
374
375
376
377
378
379
380
|
-
|
if {$verboseUriDownload} then {
pkgLog [appendArgs \
"raw response data is: " $data]
}
set data [string map [list <\; < >\; > "\; \" &\; &] $data]
set data [string map [list \r\n \n \r \n] $data]
set data [string map [list \n \r\n] $data]
set data [string trim $data]
return $data
}
#
# NOTE: This procedure attempts to extract the lookup code from the raw
|