620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
|
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
|
-
-
+
+
|
set script [object create String {
if {[methodName ToString] eq "GetWebRequest"} then {
webRequest ContentType $contentType
}
}]
set data [uri upload \
-inline -raw -encoding identity -webclientdata \
$script -data $formData $uri]
-timeouttype network -inline -raw -encoding identity \
-webclientdata $script -data $formData $uri]
} else {
set options [list \
-binary true -type $contentType -query $formData]
set data [eval ::PackageRepository::getFileViaHttp \
[list $uri] [list 20] [list stdout] [list \
[expr {!$verboseMetadataSubmit}]] $options]
|