| ︙ | | |
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
|
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
|
-
+
-
+
+
+
+
+
+
+
+
+
+
+
|
if {[methodName ToString] eq "GetWebRequest"} then {
webRequest ContentType $contentType
}
}]
return [uri upload \
set data [uri upload \
-inline -raw -encoding identity -webclientdata \
$script -data $formData $uri]
} else {
set options [list \
-binary true -type $contentType -query $formData]
return [eval ::PackageRepository::getFileViaHttp \
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: " $result]
}
}
#
# NOTE: This procedure attempts to query the root directory of the Fossil
# checkout. There are no arguments. An empty string is returned if
|
| ︙ | | |
1083
1084
1085
1086
1087
1088
1089
1090
1091
1092
1093
1094
1095
|
1093
1094
1095
1096
1097
1098
1099
1100
1101
1102
1103
1104
1105
1106
1107
|
+
+
-
-
+
+
|
# raise script errors.
#
proc submitEventHandler { args } {
variable argumentData
set batchMode [lindex $args 0]
if {[isEagle]} then {
set sender [lindex $args 0]; # NOTE: Disposal.
set e [lindex $args 1]; # NOTE: Disposal.
set sender [lindex $args 1]; # NOTE: Disposal.
set e [lindex $args 2]; # NOTE: Disposal.
}
if {[haveArgumentData]} then {
set apiKey $argumentData(apiKey)
set package $argumentData(package)
|
| ︙ | | |
1132
1133
1134
1135
1136
1137
1138
1139
1140
1141
1142
1143
1144
|
1144
1145
1146
1147
1148
1149
1150
1151
1152
1153
1154
1155
1156
1157
1158
1159
1160
1161
1162
1163
1164
1165
1166
1167
1168
1169
1170
1171
1172
1173
1174
|
-
+
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
|
$scriptFileName "\" failed"]
}
set certificate [readFile [appendArgs $scriptFileName .asc]]
submitPackageMetadata \
set result [submitPackageMetadata \
$apiKey $package $patchLevel [string totitle $language] \
$script $certificate
$script $certificate]
if {!$batchMode} then {
set title [appendArgs \
"Package Uploader Client: " [lindex [info level 0] 0]]
set message [appendArgs \
"Package was submitted successfully: " $result]
if {[isEagle]} then {
catch {
object invoke MessageBox Show $message $title
}
} else {
catch {
tk_messageBox -type ok -message $message -title $title
}
}
}
}
} else {
error "cannot initiate package submission: one or more fields missing"
}
}
|
| ︙ | | |
1318
1319
1320
1321
1322
1323
1324
1325
1326
1327
1328
|
1348
1349
1350
1351
1352
1353
1354
1355
1356
1357
1358
|
-
+
|
###########################################################################
set widgets(15) [object create -alias Button]
$widgets(15) Name btnSubmit
$widgets(15) Text Submit
$widgets(15) add_Click [namespace code [list submitEventHandler]]
$widgets(15) add_Click [namespace code [list submitEventHandler false]]
###########################################################################
set widgets(16) [object create -alias Button]
$widgets(16) Name btnClear
|
| ︙ | | |
1461
1462
1463
1464
1465
1466
1467
1468
1469
1470
1471
|
1491
1492
1493
1494
1495
1496
1497
1498
1499
1500
1501
|
-
+
|
###########################################################################
set widgets(button,submit) [button \
[appendArgs $toplevel .b_submit] -text Submit -command \
[namespace code [list submitEventHandler]]]
[namespace code [list submitEventHandler false]]]
###########################################################################
set widgets(button,clear) [button \
[appendArgs $toplevel .b_clear] -text Clear -command \
|
| ︙ | | |
1561
1562
1563
1564
1565
1566
1567
1568
1569
1570
1571
1572
1573
|
1591
1592
1593
1594
1595
1596
1597
1598
1599
1600
1601
1602
1603
|
-
+
-
+
|
#
# NOTE: All necessary arguments were supplied on the command line, use
# batch mode.
#
if {[isEagle]} then {
submitEventHandler null null
submitEventHandler true null null
} else {
submitEventHandler
submitEventHandler true
}
} else {
#
# NOTE: One or more of the necessary arguments were not supplied on the
# command line, use interactive mode. This will create a graphical
|
| ︙ | | |