Overview
| Comment: | All packages are 'downloadable' when using Eagle. Enhance 'getFileViaHttp' to permit the forced HTTPS handling to be disabled. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
0071c6835af853d9e0a2fb4fd6312476 |
| User & Date: | mistachkin on 2016-09-17 18:31:15 |
| Other Links: | manifest | tags |
Context
|
2016-09-17
| ||
| 23:58 | Re-sign the 'client/1.0/pkgIndex.eagle.harpy.asc' file with GPG. check-in: da23537a44 user: mistachkin tags: trunk | |
| 18:31 | All packages are 'downloadable' when using Eagle. Enhance 'getFileViaHttp' to permit the forced HTTPS handling to be disabled. check-in: 0071c6835a user: mistachkin tags: trunk | |
| 01:27 | Make sure all uses of the native Tcl 'http' package are prefixed with '::'. check-in: 6943eb70a6 user: mistachkin tags: trunk | |
Changes
Modified client/1.0/pkgr.eagle from [7cf5ee6eba] to [2617b2dd5b].
| ︙ | ︙ | |||
1215 1216 1217 1218 1219 1220 1221 1222 1223 1224 1225 1226 1227 1228 |
#
# NOTE: This procedure returns non-zero if the specified package can be
# downloaded, i.e. because it is not required for the downloading
# process itself to be functional, etc. The package argument is
# the name of the package to check.
#
proc canDownloadPackage { package } {
#
# NOTE: Since the "http" and "tls" packages are required from within
# the custom [package unknown] itself, in order to locate and
# download the requested package, we must return false here to
# prevent needless recursion.
#
if {[lsearch -exact [list http tls] $package] != -1} then {
| > > > > > > > > > | 1215 1216 1217 1218 1219 1220 1221 1222 1223 1224 1225 1226 1227 1228 1229 1230 1231 1232 1233 1234 1235 1236 1237 |
#
# NOTE: This procedure returns non-zero if the specified package can be
# downloaded, i.e. because it is not required for the downloading
# process itself to be functional, etc. The package argument is
# the name of the package to check.
#
proc canDownloadPackage { package } {
#
# NOTE: Since all the functionality needed by this package is built-in
# to Eagle, there are no download restrictions when it is being
# used.
#
if {[isEagle]} then {
return true
}
#
# NOTE: Since the "http" and "tls" packages are required from within
# the custom [package unknown] itself, in order to locate and
# download the requested package, we must return false here to
# prevent needless recursion.
#
if {[lsearch -exact [list http tls] $package] != -1} then {
|
| ︙ | ︙ | |||
1456 1457 1458 1459 1460 1461 1462 1463 1464 1465 1466 1467 1468 1469 |
#
# NOTE: This procedure sets up the default values for all configuration
# parameters used by the package repository client. There are no
# arguments.
#
proc setupPackageUnknownVars {} {
#
# NOTE: Is this HTTP request processor allowed to use plain HTTP if/when
# the "tls" package is not available? This should only be changed
# if the "tls" package cannot be easily installed for use with the
# native Tcl interpreter in use. It should be noted here that the
# official package repository server reserves the right to refuse
# plain HTTP connections, which means that changing this setting
| > > > > > > > > > > > | 1465 1466 1467 1468 1469 1470 1471 1472 1473 1474 1475 1476 1477 1478 1479 1480 1481 1482 1483 1484 1485 1486 1487 1488 1489 |
#
# NOTE: This procedure sets up the default values for all configuration
# parameters used by the package repository client. There are no
# arguments.
#
proc setupPackageUnknownVars {} {
#
# NOTE: Should the HTTP request processor attempt to force the use of
# HTTPS for URIs that were originally HTTP? This setting is only
# applicable to native Tcl.
#
variable forceSecureHttps; # DEFAULT: true
if {![info exists forceSecureHttps]} then {
set forceSecureHttps true
}
#
# NOTE: Is this HTTP request processor allowed to use plain HTTP if/when
# the "tls" package is not available? This should only be changed
# if the "tls" package cannot be easily installed for use with the
# native Tcl interpreter in use. It should be noted here that the
# official package repository server reserves the right to refuse
# plain HTTP connections, which means that changing this setting
|
| ︙ | ︙ | |||
1693 1694 1695 1696 1697 1698 1699 1700 1701 1702 1703 1704 1705 1706 |
# designed to process a single HTTP request, including any HTTP
# 3XX redirects (up to the specified limit), and return the raw
# HTTP response data. It does not contain special code to handle
# HTTP status codes other than 3XX (e.g. 4XX, 5XX, etc).
#
# <public>
proc getFileViaHttp { uri redirectLimit channel quiet args } {
#
# NOTE: This variable is used to determine if plain HTTP is allowed if
# the "tls" package is not available.
#
variable allowInsecureHttp
#
| > > > > > > | 1713 1714 1715 1716 1717 1718 1719 1720 1721 1722 1723 1724 1725 1726 1727 1728 1729 1730 1731 1732 |
# designed to process a single HTTP request, including any HTTP
# 3XX redirects (up to the specified limit), and return the raw
# HTTP response data. It does not contain special code to handle
# HTTP status codes other than 3XX (e.g. 4XX, 5XX, etc).
#
# <public>
proc getFileViaHttp { uri redirectLimit channel quiet args } {
#
# NOTE: This variable is used to determine if plain HTTP URIs should be
# converted to HTTPS, if the "tls" package is available.
#
variable forceSecureHttps
#
# NOTE: This variable is used to determine if plain HTTP is allowed if
# the "tls" package is not available.
#
variable allowInsecureHttp
#
|
| ︙ | ︙ | |||
1718 1719 1720 1721 1722 1723 1724 |
#
# NOTE: If the 'tls' package is available, always attempt to use HTTPS;
# otherwise, only attempt to use HTTP if explicitly allowed.
#
if {[catch {package require tls}] == 0} then {
::http::register https 443 [list ::tls::socket -tls1 true]
| > | | > | 1744 1745 1746 1747 1748 1749 1750 1751 1752 1753 1754 1755 1756 1757 1758 1759 1760 1761 |
#
# NOTE: If the 'tls' package is available, always attempt to use HTTPS;
# otherwise, only attempt to use HTTP if explicitly allowed.
#
if {[catch {package require tls}] == 0} then {
::http::register https 443 [list ::tls::socket -tls1 true]
if {$forceSecureHttps} then {
if {[string range $uri 0 6] eq "http://"} then {
set uri [appendArgs https:// [string range $uri 7 end]]
}
}
} elseif {$allowInsecureHttp} then {
if {[string range $uri 0 7] eq "https://"} then {
set uri [appendArgs http:// [string range $uri 8 end]]
}
}
|
| ︙ | ︙ |
Modified client/1.0/pkgr.eagle.asc from [76398296ce] to [f042d36cae].
1 2 3 4 | -----BEGIN PGP SIGNATURE----- Version: GnuPG v2 Comment: Eagle Package Repository | | | | | | | | | | | | | | | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 | -----BEGIN PGP SIGNATURE----- Version: GnuPG v2 Comment: Eagle Package Repository iQIcBAABCAAGBQJX3YvNAAoJEFAslq9JXcLZcvQP+wdEnKvWgEB2LoaPuDe5DRLL 5XBk3wGY0nBhORXg9xa5TFD/ZQYu/I8ku5Hram6ujP+aU83MKUOzdf+/5S0Zsuuf dWmsG/wmrgRjFX0wbyIm5NIxCH8scXcFjl0aB8s4skYRpvtXGtssOToI2HY65r++ FbtkA8btny+8q6yIwOGITcRITM5ufdLV4CL2SX+PYYMmiw/xwKnR0sISPu6vuo/v jLB7Fz/cqcxtGw8Bcw72S21cnYNK21VRxLSIMMZFGMh+jqMHNbrxwh7bwVR9KSGy Te8moGAV3JVYCBUs1I8T0ptV1VUP8Y3LUJl4e+ovJ8GHdgzstjdjWzbeLt9ogrXq Itxh3Y5Hdtpon8fbNixhe2gzyWjVnJeBSTwMzMsF5mRpPliPA4ZcBK477MtY35jm tWiDz9DLptLha9/KLGeQ3kG7t0RHzInnwTIgGBlsIEghi2ZvWkrk+C5HqK8MXaGa e/yV/4bwMUeGKd05U1FIpvpa/Am1Sjw/ein7efRc54T3Xp85Lt6rawU7foFSoTbr 6AXY4dRoLhHwr3VKzwgpYYP4gOBYzkOIFiVz4eSBNrgzSlONPJEMLgtT/UZ7yarC bEPddm+rRs0aNoIhwznUVk96JnrmaMU2LPb3Au5tKpldumCrCitsnWhBt2w3VDc5 IY+SHdmhC1mvqXgYOrzn =Qhta -----END PGP SIGNATURE----- |
Modified client/1.0/pkgr.eagle.harpy from [a24d7447fc] to [dbc42f4ac7].
| ︙ | ︙ | |||
17 18 19 20 21 22 23 |
THE ASSOCIATED SOFTWARE MAY NOT WORK PROPERLY IF THIS FILE IS ALTERED.
-->
<Certificate xmlns="https://eagle.to/2011/harpy"
xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
xmlns:xsd="http://www.w3.org/2001/XMLSchema">
<Protocol>None</Protocol>
<Vendor>Mistachkin Systems</Vendor>
| | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 |
THE ASSOCIATED SOFTWARE MAY NOT WORK PROPERLY IF THIS FILE IS ALTERED.
-->
<Certificate xmlns="https://eagle.to/2011/harpy"
xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
xmlns:xsd="http://www.w3.org/2001/XMLSchema">
<Protocol>None</Protocol>
<Vendor>Mistachkin Systems</Vendor>
<Id>e4eb97a3-0d46-46e6-a2e8-250907a57841</Id>
<HashAlgorithm>SHA512</HashAlgorithm>
<EntityType>Script</EntityType>
<TimeStamp>2016-09-17T18:29:05.3652343Z</TimeStamp>
<Duration>-1.00:00:00</Duration>
<Key>0x9559f6017247e3e2</Key>
<Signature>
W63JbnJUgi1UYBuDyxwZJDloAT81KDbibdQP8abrH4u5aw59CbkC1BtwcoJ7QGZCwYbBDKwHcVvs
zs1Nf7ivKlJS2DqFgziJ3OvLRCY/56MFu2nTqM2vdiwd8I0PNn9+YcyXV87GyV92NeV3wh/V+Xa4
Z63bnuHaRMEYWl9wB6l9CaUXiN1mZoW5tt74a/2ugfO0l6rrcmpIOnwkrnJ/LPlt0cZ9Eb91M1m9
zskcDpbLPcJq1sOCUZ8gkSP5ghXoLsrR00NRPaLtS5RjDgHk+ksPc/scIqwRt4CcVlJe/H+OTgRx
1ttzF97Crz378hO/ZmkFGqXsauptpy5rJvdFLhats/B1mRUpUiiTAtkSBR0zceU2M6gcq7pZORNe
VkIgcPyoxYCmvb4tfDeKUyKOKIOo+7p2/bsVtN9faKva+xyJIwIaFbfs5Y7HCQBwsjJ8Dj+ErsaA
PP/NUIBo4yz5TzigzZghj52L1d3+8Om+CADFJ7/9uLB5GgGtCIH+OM3Gm1+Wn2zo+91yIiX/AHTa
cmFcclLWVrmOiUP9w4LPUeztzEwpAO5EiNR+OQmFV1+/Xig8rlhv4sbjY0xe19bGiMUXrKalX+JI
mwgQiN4zLlEQZHagMLklQhtiVW0beCjbMUc/3UOMpEZrGUXD6ELtsFScbZLsq2MywRsl/WHaUJ9+
XejotGqN2eYalagpKGV9/D5Kio8qHbZSJMDew5x9/JLqJ3oG+kIdkjUzbZkoAineUp63XTgzvq2r
c527fsm5kjRtNyGfnpbFc20oVaJM7dEGPG+7K4i+uc0lDdEFVd/PXSef7QWJbwaggAxnlmGx/aUF
vBNFL9SlY79uHu3O8hE6o0uatUxocRYB+rpXl3JCS6XrIfQcPL36WKBVmydcRwFaG7shUrTxSyU7
TOW7kF9vKQ5POnEdeREILlORC91pttgI7oy0HNv5xjvX90UQxZ00w65v01/i1CGkLGE+SCXSNlVb
VM02SsPYMAoE6CMkfnE2H2tfbA04FuRbUtU4FmXFWrR211LW6A6LQvQ0hwQWOBUlWdZvb4h0sf78
V+RSCnFf26uhEW2LfrIjVECFuDbyPT3/15wHYRcAecFg+ldt822Wzx8I1bS05unXet1c+3A30Nox
PhFVeqTACV2c52xT4ryoQ43d7Z3l55KjdTkBE22gTuY89aqLk7v4qq4k5iSyyYgZ5JZamCJnq2c7
CTXA1zvndKlZzwJROss4jpe6n1BtQVLA0H9t6neMsyqzTRw0Xc9yZABuUGzQ0adCGuFhmaMSWI2o
u8h4gZqoYxyrFqHk3JZyfD/HQw9amUln28v0TFiJFJZJIRmhZGbL0gEx1dZ9ME87T2MlwIUWij7R
ZCfvszph55jtxaKHrONBcUNnMr3hn/pTRzgikDSY6vyUKvjqiSNYpePtDy3XicMKsFOIhvS6gFnz
nOCI9JtlYvncRtpDvvHo0voSvT4Up/UI27H3MkXoUYeiq2eBWFzqjWNC/8PTFn17JMdBlWCztmv8
ogk77QTbhls0ksrjnzCFV2TMpfIPs8OXKn70frpeNa9l5wkMbTCbQx1P4qSQV1qWaCkNfckNvc4m
ZxCPbM+rzsurA8+UDfhVqEdmUQQwZlAtefyA/5u2AYd8XU5wqhvKuRJ1ztiUft9LuQtvw+pBKUzV
0fdHU8xw+HzkJae3E9sG3gBGEsaTaW+nzS83/djIResrS4y59YWhw337TmK4GcgWz7L5b/qRMfU/
blgNZAYXZSeYBAyAJuxl3gpgpBomNRfvPa42k2Asv3BDCtJY0A3zniBDiotbszM5fWKPOjTxRWIc
t78DI7CFHDEArTgpUXO4+LpmKLrbrDcPlGRY8V1J4nkiCPIz0sas4n+sOJR6/Z4s5QggJxC2pWiT
LWZ9A5IWNxMiUrVli71qQqcfeY0vSUeo4+7L1dLgDGuCd9KN/xWVapT/MjjLNyOR4oUo+5csKd6Z
tS77R4uJKhWaM1G3QxeZFgsPrCdf+VjtuZL+NslhELGoctcWBwPrVrxupzIfqz4UbV/WjxhdRYvC
Fk9OnNXvJ94jwP9Jyr2R/kUKgUzv0JKDNvdCJ2BjE44zyo4o96CHUfR8rj4vPHQd2qw/MLbsbz8+
NzHMGtEaEHCSK3VrCiUH+2dt8zPzvCz8X4w6Gb0T9gAyuEtBc+Ko4H+FLx+3ZO64470gkhIsT0d0
68dYub+bEh4qfk1gVxZ35CzZKzQLeqarT0LzE7ynL9zu2NaPkFwruz7L3HEM6mYKiWS9GY9xswi8
TVca4PWD8Tp98UccqvLR1/bAF6aku/O0eZ4dv33yDlWePR/ME9Amp+8JFZ2+viUY5Yf2G4k2xAqs
gCYUovELGEvoOrQ9bWFS1jofksq4pHq1xbOXDKOh2Dqp7YettT3VuYFQ3dbS+iKlucBiWlmDUi2P
nvrG/OlT90SQYb20t1PEN4Hg6dLFQNxGwTlxfUq5Z5ByjcojM0wo0gQdcZnTsLvMJSizAmgAy41o
f6psVksqFezSO76FsWK8Vz3cqxM7LOBNWDAG1Jzb1J9zfO1OgsHouIPtD18rteKHZMiSpB4upl1a
AhlBkL8DskT6TBt5IVtFqiPdMK5Lz0a6TLaftSppc2ShtrELbhYuW3zi8xnyBRh+9zsEEeUp66Nr
uj5f/pkGJw4oXdbdlQQ289GVtvzNGcUHJG/pEVztNBZipVc5iFlQfOvNWjQZHBUqhkM2rLA=
</Signature>
</Certificate>
|
Modified client/1.0/pkgr.eagle.harpy.asc from [1cae0909f4] to [c099261db1].
1 2 3 4 | -----BEGIN PGP SIGNATURE----- Version: GnuPG v2 Comment: Eagle Package Repository | | | | | | | | | | | | | | | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 | -----BEGIN PGP SIGNATURE----- Version: GnuPG v2 Comment: Eagle Package Repository iQIcBAABCAAGBQJX3YvPAAoJEFAslq9JXcLZtW4QALxApTX8zjqKtETnY32ZgJG3 TJ4riULFHC2hGXynu8IYGEsDx/gpCgJy/nOqlBc4XvlBzs8eyIId6f75sN6eX41d 7cRkPHs4qQMtywoZ0FeSKDuUA47+vMy2lb8PpSdYffJbJCtPLmxaaTwXkt1qG4aK aPHACZDWJ5DAUZO3TwVKWMPWq6J0gdWjkYLKQsvWDMaH3YFu+CjKb3El0ECUXBbB f1oEFPfvogbS56Y4ymNgvMMdHmaa5rUE7U3JTt73opvnzO1QbswkxP2dAEgiwuIm vPo8ngSvIoGFsxNEOZa4fi2aiM+kypuv+dfBLVAV2d6afJJFyxkNH4XvthI7oUSK J2n1S0o8F+USuSdLctk/uWnfIo7OTy4pJ1xQWezI0HxIA4GYRfPMW2RGbd/d2lCD eOo69svCsMTiF7o41e3d3kGCPG54HtL7BkGY3wGZDWSy8x01vfqfosy08VbfQebE PbeJjhm429bTYLlfTgjCdhi/2EZXr1vSP42NEKUu7+CWs+pzgZXCRlmLpx1IKTHh M/vBrHn7f6FUOAtXPl0mSTWGsLKMkGDPszEaU8c1BV24VaeztsXMstmBczPMaSXY VGRQNIyvJXjxQEd9kaIJRELAO9x985LDnOkUa3O9xOPXLiIYnxP424cmSLUcsX0r x14PRi6k4P+8FKrN9Ro6 =0QrJ -----END PGP SIGNATURE----- |