338
339
340
341
342
343
344
345
346
347
348
|
338
339
340
341
342
343
344
345
346
347
348
349
|
-
+
+
|
# 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]
|
368
369
370
371
372
373
374
375
376
377
378
|
369
370
371
372
373
374
375
376
377
378
|
-
|
"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
}
|