| ︙ | | |
1048
1049
1050
1051
1052
1053
1054
1055
1056
1057
1058
1059
1060
1061
|
1048
1049
1050
1051
1052
1053
1054
1055
1056
1057
1058
1059
1060
1061
1062
1063
1064
1065
|
+
+
+
+
|
# NOTE: This procedure initializes the array containing data derived from
# the command line arguments, if any. The argv argument should be
# the list of command line arguments.
#
# <internal>
proc setupArgumentData { argv } {
variable argumentData
if {![info exists argumentData(serverId)]} then {
set argumentData(serverId) ""
}
if {![info exists argumentData(apiKey)]} then {
set argumentData(apiKey) ""
}
if {![info exists argumentData(package)]} then {
set argumentData(package) ""
|
| ︙ | | |
1078
1079
1080
1081
1082
1083
1084
1085
1086
1087
1088
1089
1090
1091
1092
1093
1094
1095
1096
1097
1098
1099
1100
1101
1102
1103
1104
1105
1106
1107
1108
1109
1110
1111
1112
1113
1114
1115
1116
1117
1118
1119
1120
1121
1122
1123
1124
1125
1126
1127
1128
|
1082
1083
1084
1085
1086
1087
1088
1089
1090
1091
1092
1093
1094
1095
1096
1097
1098
1099
1100
1101
1102
1103
1104
1105
1106
1107
1108
1109
1110
1111
1112
1113
1114
1115
1116
1117
1118
1119
1120
1121
1122
1123
1124
1125
1126
1127
1128
1129
1130
1131
1132
1133
1134
1135
1136
1137
1138
1139
1140
1141
1142
1143
1144
1145
1146
1147
1148
|
-
+
-
+
-
+
-
+
-
+
-
+
+
+
+
+
-
+
+
+
+
+
+
+
+
+
+
+
+
+
|
}
if {![info exists argumentData(fileNames)]} then {
set argumentData(fileNames) [list]
}
if {[llength $argv] >= 1} then {
set argumentData(apiKey) [lindex $argv 0]
set argumentData(serverId) [lindex $argv 1]
}
if {[llength $argv] >= 2} then {
set argumentData(package) [lindex $argv 1]
set argumentData(apiKey) [lindex $argv 1]
}
if {[llength $argv] >= 3} then {
set argumentData(patchLevel) [lindex $argv 2]
set argumentData(package) [lindex $argv 2]
}
if {[llength $argv] >= 4} then {
set argumentData(language) [lindex $argv 3]
set argumentData(patchLevel) [lindex $argv 3]
}
if {[llength $argv] >= 5} then {
set argumentData(version) [lindex $argv 4]
set argumentData(language) [lindex $argv 4]
}
if {[llength $argv] >= 6} then {
set argumentData(platform) [lindex $argv 5]
set argumentData(version) [lindex $argv 5]
}
if {[llength $argv] >= 7} then {
set argumentData(platform) [lindex $argv 6]
}
if {[llength $argv] >= 8} then {
set argumentData(fileNames) [lrange $argv 6 end]
set argumentData(fileNames) [lrange $argv 7 end]
}
}
#
# NOTE: This procedure is used to determine if all the package submission
# data is available. There are no arguments. Non-zero is returned
# if all the package submission data is available. This procedure
# should not raise script errors.
#
# <internal>
proc haveArgumentData {} {
variable argumentData
if {![info exists argumentData(serverId)]} then {
return false
}
#
# NOTE: *HACK* Actually, this *is* allowed. It means that the
# default server is being used.
#
# if {[string length $argumentData(serverId)] == 0} then {
# return false
# }
if {![info exists argumentData(apiKey)]} then {
return false
}
if {[string length $argumentData(apiKey)] == 0} then {
return false
|
| ︙ | | |
1261
1262
1263
1264
1265
1266
1267
1268
1269
1270
1271
1272
1273
1274
|
1281
1282
1283
1284
1285
1286
1287
1288
1289
1290
1291
1292
1293
1294
1295
|
+
|
if {[isEagle]} then {
set sender [lindex $args 1]; # NOTE: Disposal.
set e [lindex $args 2]; # NOTE: Disposal.
}
if {[haveArgumentData]} then {
set serverId $argumentData(serverId)
set apiKey $argumentData(apiKey)
set package $argumentData(package)
set patchLevel $argumentData(patchLevel)
set language $argumentData(language)
set version $argumentData(version)
set platform $argumentData(platform)
set fileNames $argumentData(fileNames)
|
| ︙ | | |
1294
1295
1296
1297
1298
1299
1300
1301
1302
1303
1304
1305
1306
1307
1308
1309
|
1315
1316
1317
1318
1319
1320
1321
1322
1323
1324
1325
1326
1327
1328
1329
1330
|
-
-
+
+
|
$platform eq [::PackageDownloader::getPlatform]} then {
set scriptPlatform ""
} else {
set scriptPlatform $platform
}
set script [createRepositoryScript \
"" $checkin [string tolower $language] $version $scriptPlatform \
$fileNames [list]]
$serverId $checkin [string tolower $language] $version \
$scriptPlatform $fileNames [list]]
set scriptFileName [file join \
[::PackageRepository::getFileTempDirectory PKGR_UPLOAD_TEMP] \
[appendArgs pkgr_upload_ [::PackageRepository::getUniqueSuffix]]]
writeFile $scriptFileName $script
|
| ︙ | | |
1365
1366
1367
1368
1369
1370
1371
1372
1373
1374
1375
1376
1377
1378
1379
1380
|
1386
1387
1388
1389
1390
1391
1392
1393
1394
1395
1396
1397
1398
1399
1400
1401
1402
1403
|
-
+
+
+
|
$widgets(2) Text ""
$widgets(4) Text ""
$widgets(6) Text ""
$widgets(8) Text ""
$widgets(10) Text ""
$widgets(12) Text ""
$widgets(14) Items.Clear
$widgets(14) Text ""
$widgets(16) Items.Clear
} else {
set argumentData(serverId) ""
set argumentData(apiKey) ""
set argumentData(package) ""
set argumentData(patchLevel) ""
set argumentData(language) ""
set argumentData(version) ""
set argumentData(platform) ""
}
|
| ︙ | | |
1407
1408
1409
1410
1411
1412
1413
1414
1415
1416
1417
1418
1419
1420
1421
1422
1423
1424
1425
1426
1427
1428
1429
1430
1431
1432
|
1430
1431
1432
1433
1434
1435
1436
1437
1438
1439
1440
1441
1442
1443
1444
1445
1446
1447
1448
1449
1450
1451
1452
1453
1454
1455
1456
1457
1458
1459
1460
1461
1462
1463
1464
1465
1466
1467
1468
1469
1470
1471
1472
|
-
-
+
+
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
|
$form MaximizeBox false
$form AutoSize true
$form add_Closed [namespace code [list handleFormClosedEvent]]
###########################################################################
set widgets(1) [object create -alias Label]
$widgets(1) Name lblApiKey
$widgets(1) Text "API Key"
$widgets(1) Name lblServerId
$widgets(1) Text "Server ID (normally blank)"
###########################################################################
set widgets(2) [object create -alias TextBox]
$widgets(2) Name txtApiKey
$widgets(2) Text $argumentData(apiKey)
$widgets(2) Name txtServerId
$widgets(2) Text $argumentData(serverId)
$widgets(2) add_TextChanged [namespace code \
[list textBoxEventHandler [appendArgs [namespace current] \
::argumentData(serverId)]]]
###########################################################################
set widgets(3) [object create -alias Label]
$widgets(3) Name lblApiKey
$widgets(3) Text "API Key (40 hexadecimal digits)"
###########################################################################
set widgets(4) [object create -alias TextBox]
$widgets(4) Name txtApiKey
$widgets(4) Text $argumentData(apiKey)
$widgets(4) add_TextChanged [namespace code \
[list textBoxEventHandler [appendArgs [namespace current] \
::argumentData(apiKey)]]]
###########################################################################
set widgets(3) [object create -alias Label]
$widgets(3) Name lblPackage
$widgets(3) Text "Package Name"
|
| ︙ | | |
1590
1591
1592
1593
1594
1595
1596
1597
1598
1599
1600
1601
1602
1603
1604
1605
|
1630
1631
1632
1633
1634
1635
1636
1637
1638
1639
1640
1641
1642
1643
1644
1645
1646
1647
1648
1649
1650
1651
1652
1653
1654
1655
1656
|
+
+
+
+
+
+
+
+
+
+
+
-
+
|
wm minsize $toplevel 250 0
wm protocol $toplevel WM_DELETE_WINDOW \
[namespace code [list handleFormClosedEvent]]
###########################################################################
set widgets(label,serverId) [label [appendArgs \
$toplevel .la_serverId] -text "Server ID (normally blank)"]
###########################################################################
set widgets(entry,serverId) [entry [appendArgs \
$toplevel .e_serverId] -textvariable [appendArgs \
[namespace current] ::argumentData(serverId)]]
###########################################################################
set widgets(label,apiKey) [label [appendArgs \
$toplevel .la_apiKey] -text "API Key"]
$toplevel .la_apiKey] -text "API Key (40 hexadecimal digits)"]
###########################################################################
set widgets(entry,apiKey) [entry [appendArgs \
$toplevel .e_apiKey] -textvariable [appendArgs \
[namespace current] ::argumentData(apiKey)]]
|
| ︙ | | |
1683
1684
1685
1686
1687
1688
1689
1690
1691
1692
1693
1694
1695
1696
1697
|
1734
1735
1736
1737
1738
1739
1740
1741
1742
1743
1744
1745
1746
1747
1748
1749
|
+
-
+
|
set widgets(button,clear) [button \
[appendArgs $toplevel .b_clear] -text Clear -command \
[namespace code [list clearEventHandler]]]
###########################################################################
pack $widgets(label,serverId) $widgets(entry,serverId) \
pack $widgets(label,apiKey) $widgets(entry,apiKey) \
$widgets(label,apiKey) $widgets(entry,apiKey) \
$widgets(label,package) $widgets(entry,package) \
$widgets(label,patchLevel) $widgets(entry,patchLevel) \
$widgets(label,language) $widgets(entry,language) \
$widgets(label,version) $widgets(entry,version) \
$widgets(label,platform) $widgets(entry,platform) \
$widgets(label,fileNames) $widgets(listbox,fileNames) \
$widgets(button,submit) $widgets(button,clear) \
|
| ︙ | | |