| ︙ | | |
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
|
554
555
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
587
588
|
-
+
-
+
+
+
+
+
+
+
+
+
+
+
|
set script [object create String {
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
# the root directory of the Fossil checkout cannot be determined.
#
|
| ︙ | | |
1081
1082
1083
1084
1085
1086
1087
1088
1089
1090
1091
1092
1093
1094
1095
1096
1097
|
1091
1092
1093
1094
1095
1096
1097
1098
1099
1100
1101
1102
1103
1104
1105
1106
1107
1108
1109
|
+
+
-
-
+
+
|
# args argument is not really used, it is a placeholder to make this
# procedure more portable between Tcl and Eagle. This procedure may
# 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)
set patchLevel $argumentData(patchLevel)
set language $argumentData(language)
|
| ︙ | | |
1130
1131
1132
1133
1134
1135
1136
1137
1138
1139
1140
1141
1142
1143
1144
1145
1146
|
1142
1143
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
1175
1176
|
-
+
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
|
error [appendArgs \
"cannot submit package metadata: OpenPGP signing of \"" \
$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"
}
}
#
|
| ︙ | | |
1316
1317
1318
1319
1320
1321
1322
1323
1324
1325
1326
1327
1328
1329
1330
|
1346
1347
1348
1349
1350
1351
1352
1353
1354
1355
1356
1357
1358
1359
1360
|
-
+
|
::argumentData(fileNames)]]]
###########################################################################
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
$widgets(16) Text Clear
$widgets(16) add_Click [namespace code [list clearEventHandler]]
|
| ︙ | | |
1459
1460
1461
1462
1463
1464
1465
1466
1467
1468
1469
1470
1471
1472
1473
|
1489
1490
1491
1492
1493
1494
1495
1496
1497
1498
1499
1500
1501
1502
1503
|
-
+
|
[namespace code [list listBoxEventHandler [appendArgs \
[namespace current] ::argumentData(fileNames)]]]
###########################################################################
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 \
[namespace code [list clearEventHandler]]]
|
| ︙ | | |
1559
1560
1561
1562
1563
1564
1565
1566
1567
1568
1569
1570
1571
1572
1573
1574
1575
|
1589
1590
1591
1592
1593
1594
1595
1596
1597
1598
1599
1600
1601
1602
1603
1604
1605
|
-
+
-
+
|
#
if {[haveArgumentData]} then {
#
# 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
# user interface, using Tk or WinForms. If any of the necessary
# arguments were supplied on the command line, they will be used to
|
| ︙ | | |