catch {
        tclLog [appendArgs \
            [pid] " : " [clock seconds] " : http : " $string]
      }
    }
  }

  #
  # NOTE: This procedure was stolen from the "common.tcl" script.  It is
  #       designed to setup the pending progress indicator callback and
  #       save its working state.
  #
  proc setupPageProgress { channel type milliseconds } {
    #
    # NOTE: This variable is used to keep track of the currently scheduled
    #       (i.e. pending) [after] event.
    #
    variable afterForPageProgress

    #
    # NOTE: Scheduled the necessary [after] event, using the [pageProgress]
    #       procedure, which is defined further down in this file.
    #
    set afterForPageProgress [after $milliseconds [namespace code \
        [list pageProgress $channel $type $milliseconds]]]
  }

  #
  # NOTE: This procedure was stolen from the "common.tcl" script.  It is
  #       designed to cancel the pending progress indicator callback and
  #       cleanup its working state.
  #
  proc cancelPageProgress {} {
    #
    # NOTE: This variable is used to keep track of the currently scheduled
    #       (i.e. pending) [after] event.
    #
    variable afterForPageProgress

    #
    # NOTE: If there is a currently scheduled [after] event, cancel it.
    #
    if {[info exists afterForPageProgress]} then {
      catch {after cancel $afterForPageProgress}
      unset -nocomplain afterForPageProgress
    }
  }

  #
  # NOTE: This procedure was stolen from the "common.tcl" script.  It is
  #       designed to emit a progress indicator while an HTTP request is
  #       being processed.  The channel argument is the Tcl channel where
  #       the progress indicator should be emitted.  The type argument is
  #       the single-character progress indicator.  The milliseconds
  #       argument is the number of milliseconds to wait until the next
  #       periodic progress indicator should be emitted.  This procedure
  #       reschedules its own execution.
  #
  proc pageProgress { channel type milliseconds } {
    #
    # NOTE: This variable is used to keep track of the currently scheduled
    #       (i.e. pending) [after] event.
    #
    variable afterForPageProgress

    #
    # NOTE: Show that something is happening...
    #
    pageOut $channel $type

    #
    # NOTE: Make sure that we are scheduled to run again, if requested.
    # NOTE: Make sure that we are scheduled to run again, if requested;
    #       also, before doing that, make sure there is not already an
    #       associated [after] event pending.
    #
    cancelPageProgress

    if {$milliseconds > 0} then {
      set afterForPageProgress [after $milliseconds \
          [namespace code [list pageProgress $channel $type \
      setupPageProgress $channel $type $milliseconds
          $milliseconds]]]
    } else {
      unset -nocomplain afterForPageProgress
    }
  }

  #
  # NOTE: This procedure was stolen from the "common.tcl" script.  It is
  #       designed to process a single HTTP request, including any HTTP
  #       3XX redirects (up to the specified limit), and return the raw

    #
    # NOTE: This variable is used to determine if plain HTTP is allowed if
    #       an HTTP redirect response contains an HTTP URI and the original
    #       URI was HTTPS.
    #
    variable allowInsecureRedirect

    #
    # NOTE: This variable is used to keep track of the currently scheduled
    #       (i.e. pending) [after] event.
    #
    variable afterForPageProgress

    #
    # NOTE: This variable is used to determine the timeout milliseconds for
    #       HTTP requests.
    #
    variable timeoutGetUrl

    #

        }
      }
    }

    #
    # NOTE: If there is a currently scheduled [after] event, cancel it.
    #
    if {[info exists afterForPageProgress]} then {
      catch {after cancel $afterForPageProgress}
      unset -nocomplain afterForPageProgress
    cancelPageProgress
    }

    #
    # NOTE: If progress messages were emitted, start a fresh line.
    #
    if {!$quiet} then {
      pageOut $channel [appendArgs " " $uri \n]
    }

-----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
iQIcBAABCAAGBQJjS2ocAAoJEFAslq9JXcLZ7CEQALSp5UqGJZRxri01Wcka/OeS
6cgvSyQpaJGQxgLQB8v/5D+Vo7SiCW056TGGIdTAifjnfaMauGzUDpCaD59uNhHD
VF2Yc31ZWg4j9PR1wAJLWv94PvUBOi8hm4+IsVOeSuL0wwOKjoSQ88hualrGQm4c
yBfwx3yOkgyqsXmBym4+MwL5WlOXhwDPQxFvN3bN4z3MdaGErJS2MtK+VJ0L4Rda
QjZS4gPK6rXl4ROafYhZhxDB09dXtdPi1kYEc1HC5vl+H1eRjW03fR9xO/nBBQDH
0yPlE87Ll5z7cL2XP1R7o0Yspflt/qkq+kTnvRZ67ZuxIwq/4ta2CQSL8pjSjNhw
AHuhqn/BoYAQUfsGhf32waa873ca0Ql3tzSiGR+fNoJ5v+W4OnAQ9U61avsrU1AG
ncRGHvA6UvwBnhuARBq7zKWX85o3Z4gPwUF+bfwnu0BGj5bOr/g4JMPrwbauDG3o
kvVcD44L8fk53nuVwOU0yeGsrZGcVl6g8I50a64cFnlmgGWR2R0dWQHhvrkVxbPD
R6sW1f6RVW1FW121a4WuJJpXHRdE4P+hhRxbm/pE/FY6jnvm5BuU89HRFv9O2n+S
m+OnrfGqq/3e4hSN3OTA7LcbjmuXx3pAt6PjUp5lSR5/lhMaed+dU9/twvIzlUCr
AGa9Qx6B250kh9y446cV
=yv6d
-----END PGP SIGNATURE-----