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

    if {[::PackageRepository::isLookupCodeOk $code]} then {
      return $result
    } else {
      error [appendArgs \
          "failed to submit package metadata: " $data]
    }
  }








|
|

|







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::getResponseCodeFromRawData $data]
    set result [::PackageRepository::getResponseResultFromData $data]

    if {[::PackageRepository::isResponseCodeOk $code]} then {
      return $result
    } else {
      error [appendArgs \
          "failed to submit package metadata: " $data]
    }
  }