581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
|
set data [eval ::PackageRepository::getFileViaHttp \
[list $uri] [list 20] [list stdout] [list \
[expr {!$verboseMetadataSubmit}]] $options]
}
set code [::PackageRepository::getResponseCodeFromRawData $data]
set result [::PackageRepository::getResponseResultFromData $data]
if {[::PackageRepository::isResponseCodeOk $code]} then {
return $result
} else {
error [appendArgs \
"failed to submit package metadata: " $data]
}
|
|
|
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
|
set data [eval ::PackageRepository::getFileViaHttp \
[list $uri] [list 20] [list stdout] [list \
[expr {!$verboseMetadataSubmit}]] $options]
}
set code [::PackageRepository::getResponseCodeFromRawData $data]
set result [::PackageRepository::getResponseResultFromRawData $data]
if {[::PackageRepository::isResponseCodeOk $code]} then {
return $result
} else {
error [appendArgs \
"failed to submit package metadata: " $data]
}
|