Check-in [f8dc7e6883]
Not logged in
Overview
Comment:Pickup the common HTTP package updates from upstream.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: f8dc7e6883e0ac8449800b8f3591ebe90ea32db5
User & Date: mistachkin on 2021-04-09 02:13:38
Other Links: manifest | tags
Context
2021-08-08
00:11
Pickup the Harpy script signing tooling changes from upstream. check-in: 7f8b164b2f user: mistachkin tags: trunk
2021-04-09
02:13
Pickup the common HTTP package updates from upstream. check-in: f8dc7e6883 user: mistachkin tags: trunk
2021-02-22
02:47
Updates for Eagle beta 46 from upstream. check-in: 3b5f60cc10 user: mistachkin tags: trunk
Changes

Modified client/1.0/neutral/common.tcl from [e31e1d5419] to [4a9eb76edf].

289
290
291
292
293
294
295
296
297

298
299
300
301
302
303
304
305
    #       which is typically included with the Tcl core distribution.
    #
    package require http 2.0

    #
    # NOTE: Tcl 8.6 added support for IPv6; however, on some machines this
    #       support can cause sockets to hang for a long time.  Therefore,
    #       for now, always force the use of IPv4.
    #

    if {[info exists tcl_version] && $tcl_version >= 8.6} then {
      namespace eval ::tcl::unsupported {}
      set ::tcl::unsupported::socketAF inet
    }

    #
    # NOTE: Setup lowercase URI scheme prefixes used within this procedure
    #       to detect and/or change the URI scheme used.  By default, this







|

>
|







289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
    #       which is typically included with the Tcl core distribution.
    #
    package require http 2.0

    #
    # NOTE: Tcl 8.6 added support for IPv6; however, on some machines this
    #       support can cause sockets to hang for a long time.  Therefore,
    #       for now, by default, always force the use of IPv4.
    #
    if {![info exists ::no(tclSocketAfInet)] && \
        [info exists tcl_version] && $tcl_version >= 8.6} then {
      namespace eval ::tcl::unsupported {}
      set ::tcl::unsupported::socketAF inet
    }

    #
    # NOTE: Setup lowercase URI scheme prefixes used within this procedure
    #       to detect and/or change the URI scheme used.  By default, this
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383













384
385
386
387
388
389
390
    # NOTE: All downloads are handled synchronously, which is not ideal;
    #       however, it is simple.  Keep going as long as there are less
    #       than X redirects.
    #
    set redirectCount 0

    while {1} {
      #
      # NOTE: Issue the HTTP request now, grabbing the resulting token.
      #
      if {$verboseGetUrl} then {
        #
        # NOTE: Emit important diagnostic information related to this
        #       HTTP request here.  This may be enhanced in the future.
        #
        pageLog [appendArgs \
            "attempting to download URL \"" $uri \"...]
      }

      #
      # NOTE: Build the (optional?) list of options for the HTTP call.
      #
      set localArgs [list]

      if {$timeoutGetUrl != 0} then {
        lappend localArgs -timeout $timeoutGetUrl; # milliseconds
      }

      if {[llength $args] > 0} then {
        eval lappend localArgs $args
      }














      #
      # NOTE: Attempt to perform the actual HTTP request.  This can fail
      #       in an almost unlimited number of ways, which is fun.
      #
      set token [eval ::http::geturl [list $uri] $localArgs]








<
<
<
<
<
<
<
<
<
<
<
<












>
>
>
>
>
>
>
>
>
>
>
>
>







354
355
356
357
358
359
360












361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
    # NOTE: All downloads are handled synchronously, which is not ideal;
    #       however, it is simple.  Keep going as long as there are less
    #       than X redirects.
    #
    set redirectCount 0

    while {1} {












      #
      # NOTE: Build the (optional?) list of options for the HTTP call.
      #
      set localArgs [list]

      if {$timeoutGetUrl != 0} then {
        lappend localArgs -timeout $timeoutGetUrl; # milliseconds
      }

      if {[llength $args] > 0} then {
        eval lappend localArgs $args
      }

      #
      # NOTE: Issue the HTTP request now, grabbing the resulting token.
      #
      if {$verboseGetUrl} then {
        #
        # NOTE: Emit important diagnostic information related to this
        #       HTTP request here.  This may be enhanced in the future.
        #
        pageLog [appendArgs \
            "attempting to download URL \"" $uri "\" with arguments \"" \
            $localArgs \"...]
      }

      #
      # NOTE: Attempt to perform the actual HTTP request.  This can fail
      #       in an almost unlimited number of ways, which is fun.
      #
      set token [eval ::http::geturl [list $uri] $localArgs]

Modified client/1.0/neutral/common.tcl.asc from [c58fc1fd11] to [652f221118].

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

iQIcBAABCAAGBQJfl2SjAAoJEFAslq9JXcLZBIAQAJtAKkFq8derj6+2T+hAXLMD
RmLmTwx1C96tYdYNRjo5cguWPiAVdumV+rML9MBQU+zuuf5BC4lVQcWOMAuGktk0
tjOOslgC3zHKRnMl0IZXgsIpTevobdTqTNiwnB13yvn6Crhicr86247uomSQd6Vz
3SypUWnJ8bXEpYb9QWHeOsW8ZuvM9m9wjnA5eXEbtEOyuT9D7GWf6xSPT0b3TR5E
K2yWBo2+O5X/SMQclh1IbzOr849fQuyqzT2WljfxWBnc5kmZhRJ3aJI2MRaWiicN
LNtRGr1Oz4Pkjmg9S+bGDF/sgI1EOaBPzaYUU1G92G5HOLSu3uAU3Iujj4S6RSVu
1N6qLIGKaJtFea7UBB/9i5o07YJzfdYwIJPBg+PBQbKSXycaYNcT5UEMJhsbfsA4
8cYuI+1QPi7OC/GQlS5GQ0JYj6RrYTP9vh1TJyiiDvSYKjrNMmZ514ALe7ETk31c
dnVmgiBTFe2NHKOj9+XhVKglAOr1Ujsu84YQaAuLczjoLf0BHXdXfkC7oUmQw270
yqegS3izJlcOsRWT4s9RjTASuocJuL6fhcySqxVuto4hGhqWRM0eN/eApOFmcxBg
FC9V/Y8ZFrYibhkVM1ZbuFZq/30J1hqamEBZ/9G/EUK4l47I2g1n9pIKkFXVC2hY
QIA8sqOFCDt/3cGh04WZ
=a0du
-----END PGP SIGNATURE-----




|
|
|
|
|
|
|
|
|
|
|
|
|

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

iQIcBAABCAAGBQJgb7gpAAoJEFAslq9JXcLZyhAP/1P+iaqtoOHt+t0FIElTfWqD
NuZzWXa/pjwUSnwYATrYk2e9mmz9WVtpf8QTFO6aHyCyMrxY0Ufb6VRZosRwXZsb
dFO2K0gFRvM4gH3ZfIbPgrvDl2MycFOnAqHSQ+ELQ0iDKWKo9PV/iPls42HyWuPH
fKD3QHcm9V+4o5s+BRCTmLoFQIFG06YTszJ6wva9oo9GAZOkNJbCup/cVPZhLIPt
S5o3c1TEi+b2exYlaklmpqn+EvJguXW2wri2To/Wd9f9pWpmfBkzzVSCmWfgq/8u
LmCcsmU5qBl1iMpC+KNFgS8a4GHb7B7KPe7iJlUzNzMe7KFgXUqnquYqB3iWUO/7
QXBV/CEJIK6GgHcIBfFxSU2idduETGd6e3D7+/shqj2Bhds/XKL6lQza1xLPqraO
Lze6yrAk+mE+WPLrvqKvLJMQ0NiAg5qN2QLopTXjGn9OUommKB9LxrGu724LU5EO
0Koq0QEQwg75Z3XC4FGcIl6iRIUBDEMch6Lj6sF53KGHV1QiwQHK7ziOkKcaRb2N
GUNdgQXG9WUJDmgRhaKAHd5LBZ1drH1Mkv0xQ1l0DttJOwX3PMNk4DTZmZZ81kYg
v1DmhyDzsX5DSxa/k9AVe8XXc6uJj3IbZKoq3ROO4v6bhuI/1soP9VPVW1kify9i
Y6aqNCwhaHRaK+6FnWhO
=qbqB
-----END PGP SIGNATURE-----