Check-in [0cacadaddc]
Not logged in
Overview
Comment:Pickup upstream changes to the Eagle Common Tools Package.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 0cacadaddc34ee823878a8f3d536a2bd315b6951
User & Date: mistachkin on 2017-06-28 03:21:01
Other Links: manifest | tags
Context
2017-06-29
21:38
Make downloading the Package Signing Keys more robust by adding support for mirror URIs. check-in: 4736fe9200 user: mistachkin tags: trunk
2017-06-28
03:21
Pickup upstream changes to the Eagle Common Tools Package. check-in: 0cacadaddc user: mistachkin tags: trunk
2017-06-16
17:56
Add 'common.tcl' file to the deployment tool. check-in: 0fdd81ab35 user: mistachkin tags: trunk
Changes

Modified client/1.0/neutral/common.tcl from [5730b66350] to [3398d77383].

160
161
162
163
164
165
166

167
168
169
170
171
172
173
174
  #       designed to emit a message to the HTTP client log.  The string
  #       argument is the content of the message to emit.  If the string
  #       argument is an empty string, nothing is written.
  #
  proc pageLog { string } {
    if {[string length $string] > 0} then {
      catch {

        tclLog [appendArgs [pid] " : " [clock seconds] " : http : " $string]
      }
    }
  }

  #
  # NOTE: This procedure was stolen from the "getEagle.tcl" script.  It is
  #       designed to emit a progress indicator while an HTTP request is







>
|







160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
  #       designed to emit a message to the HTTP client log.  The string
  #       argument is the content of the message to emit.  If the string
  #       argument is an empty string, nothing is written.
  #
  proc pageLog { string } {
    if {[string length $string] > 0} then {
      catch {
        tclLog [appendArgs \
            [pid] " : " [clock seconds] " : http : " $string]
      }
    }
  }

  #
  # NOTE: This procedure was stolen from the "getEagle.tcl" script.  It is
  #       designed to emit a progress indicator while an HTTP request is
314
315
316
317
318
319
320













321
322
323
324
325
326
327
      set token [eval ::http::geturl [list $uri] $args]

      #
      # NOTE: Grab the HTTP response code and data now as they are needed
      #       in almost all cases.
      #
      set code [::http::ncode $token]; set data [::http::data $token]














      #
      # NOTE: Check the HTTP response code, in order to follow any HTTP
      #       redirect responses.
      #
      switch -glob -- $code {
        100 -







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







315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
      set token [eval ::http::geturl [list $uri] $args]

      #
      # NOTE: Grab the HTTP response code and data now as they are needed
      #       in almost all cases.
      #
      set code [::http::ncode $token]; set data [::http::data $token]

      #
      # NOTE: If the HTTP response code is an empty string that may
      #       indicate a serious bug in the tls (or http) package for
      #       this platform.  So far, this issue has only been seen
      #       with the tls 1.6.1 package that shipped with macOS.
      #
      if {[string length $code] == 0} then {
        error [appendArgs \
            "received empty HTTP response code for URL \"" $uri \
            "\", the \"tls\" (and/or \"http\") package(s) may be " \
            "broken for this platform"]
      }

      #
      # NOTE: Check the HTTP response code, in order to follow any HTTP
      #       redirect responses.
      #
      switch -glob -- $code {
        100 -

Modified client/1.0/neutral/common.tcl.asc from [1a0afd7481] to [89e1456290].

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

iQIcBAABCAAGBQJYnQBMAAoJEFAslq9JXcLZOawP/1t6T49Li8NuoysrqQyYNlpf
RvZvCIE7X9TaiFY01GFin/XXPyDbUFUL3WXfhtweitg2giGG0gai/5x4AQpVgd0l
WxoKfY9iTxiqEjz9SP6QuYuOPjw1ePzUWVOeSEJ5FYL3wAiq95NfiiEiRyfc9i8d
fF7B+hewtuLxhjsR2NpwYGa749SH4bcvgLTKEsqiIyFtx5iL34U+We7Afs/SC4jp
m9vzP5a3mUScrPIabm1epsHh/FKtEkExkCZjVZ7vxRer0/Ol/Vlj3Ce6AhHwmsTC
lNQDneLDNHl4Rr6OIkcTxGxhEEswcDx0Rtx8qrr+x6rtUxw8rxzDPpeuvFmx4gcO
WafktaRsaQHyDwm7LV33M/1s/kMYoL5aoP2IVuaurbIrlvGRL1krV+j6Gb4pv+1s
Cn7bjKmIDQUOHw4AfnMv/HedwVknplNRm1JtVkfVpqWRTXpFp/u2fVzEUMCsPhKB
3ZYnF+ScNcNLau+ujk8cs3jiyc4UGrEfOwFerzWegYMYPtFWH47Rh8UteHtVvO/Y
Awj0uL2b5+Yo54EXVBfUdcB5NtvMDOMJYOCoDZ87sDMugIy5OJWUNS+H9BRwYdXS
EgkBfuHMNA/lYNm+newYA4oUoxbkEUQv5ZD8hnnpn5/fDqjkwvr85vjYGSsSusHl
KeX1RwEd6TQd+i2+2oQ3
=2FFk
-----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

iQIcBAABCAAGBQJZUyBQAAoJEFAslq9JXcLZ4I8QAJpIEuvMdWeYrQlXutuLmLmW
DmhQUs7XvpCDkXm2ldyU+6X7LvH3M/QzqcvAfbBvRYhLtLqsD0Vo8g9km7PNkz8w
pBaVtI0af7C3Fa92vfJT9qnxVrHmhNIS4kQq7FWdEh/HOajsP9umXbD2dr/sLqfm
UZCKOi7kCS2JdbPTLw2AC3Sb5x/Jl5LTptjxjCrTj+fRyHTzg6xIxGgrN0/sdq7S
ATH14YuGfI4R11sTqWpoMI31wPn1XNkrXTbDSrgfAIlCGApauElWIjfGTRrsFZpA
buzgpwWwcWcRvE0AzeLONW6HVryXgKt6caAVQG2j/KnTCPeQ5Xo/g5yeEl+sU+96
MzGZweSHIG7N8BpZlqH1BQo6GNu+pQo90pPJlR0s2XT5NTIYPORKQBbAJs9+BWf7
SdJ7Fbzuh9sgN2ZbcHFo5ScHMPZJGrjbX2pSsuqVIZ+PCSHRp5NYzDZNMTwK/jFP
/Ln2taIKHwDpZYA2pH0zHMgyez8H9/guNMUmaRfZAF0A+gVfLNMTvUDE77ebeVQ1
uSMUxduqI9iwEwMC/bCZ0r6JRzC2AttGmxPgAdC4D/YgZhGGQs2a0cuyyJyESuYK
KmGR/uKs2pkeGGUPE4TF5rzchEL0aoZckzvqx5+vfFzefarDN9zs8ruEj3pLwquv
YaWsC2SK6589k/87lFY+
=9Nm0
-----END PGP SIGNATURE-----