Diff
Not logged in

Differences From Artifact [f077ef5b97]:

To Artifact [d2ea2c6921]:


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]
    }
  }