580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
|
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
|
-
-
+
+
-
+
|
-binary true -type $contentType -query $formData]
set data [eval ::PackageRepository::getFileViaHttp \
[list $uri] [list 20] [list stdout] [list \
[expr {!$verboseMetadataSubmit}]] $options]
}
set code [::PackageRepository::getLookupCodeFromData $data]
set result [::PackageRepository::getLookupResultFromData $data]
set code [::PackageRepository::getResponseCodeFromRawData $data]
set result [::PackageRepository::getResponseResultFromData $data]
if {[::PackageRepository::isLookupCodeOk $code]} then {
if {[::PackageRepository::isResponseCodeOk $code]} then {
return $result
} else {
error [appendArgs \
"failed to submit package metadata: " $data]
}
}
|