#       URI that was HTTPS?  Otherwise, a script error will result.
    #
    variable allowInsecureRedirect; # DEFAULT: false

    if {![info exists allowInsecureRedirect]} then {
      set allowInsecureRedirect false
    }

    #
    # NOTE: How long should we wait for the HTTP request to complete?  This
    #       value is the number of milliseconds.
    #
    variable timeoutGetUrl; # DEFAULT: 0

    if {![info exists timeoutGetUrl]} then {
      set timeoutGetUrl 0
    }
  }

  #
  # NOTE: This procedure was stolen from the "common.tcl" script.  It is
  #       designed to emit a message to the console.  The channel argument
  #       is the channel where the message should be written.  The string
  #       argument is the content of the message to emit.  If the channel

    #
    # 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: This procedure requires the modern version of the HTTP package,
    #       which is typically included with the Tcl core distribution.
    #
    package require http 2.0

    #

        # 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] $args]
      set token [eval ::http::geturl [list $uri] $localArgs]

      #
      # NOTE: Grab the HTTP status.  It must be "ok" in order to proceed.
      #
      set status [::http::status $token]

      if {$status ne "ok"} then {
        error [appendArgs \
            "bad HTTP status \"" $status "\" is not \"ok\""]
      }

      #
      # 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]

-----BEGIN PGP SIGNATURE-----
Version: GnuPG v2
Comment: Eagle Package Repository

iQIzBAABCAAdFiEEw8dROIPu3TrtH+QlUCyWr0ldwtkFAl871kkACgkQUCyWr0ld
iQIcBAABCAAGBQJfl2SjAAoJEFAslq9JXcLZBIAQAJtAKkFq8derj6+2T+hAXLMD
wtmbaw/+Jl0fkoSSMnANI+p22u/iBlmKxuWbz7FGl02TY+ztxbQW5DQo5yH/jvcJ
7Q6Rpq8qw8miGL/b+5a7cX+cEF6CHN6q2p/qgZBFSoZfdGlY55UqTi4VH26nb6NT
MXRhluzUERUK9WH717K4NBc4zE3D/rZiPNsZMHD0mV6058NE1YBdl/W+y3YHrXr+
snU2OWQgvq4sNKzz/u3GNuAsRG8iXpsoPJuTwayGfNBI5kegkOxQDlvqaxu+UeXz
HUFSMgKeEdNS5BQF4jW5vPWmmNf3IgMpnDGBzf06g5bYDc3To+b5gJ2+eUblrSri
pWg6yAXQoLeN3Agpb9ciZ4XwuyWO4g/AHJDH4K1bPO5yxC64f4f8Zo4OTPVTZk5R
wTpSyJw4kJpy3JddWfyBqLbvLxK2DqVd7KQ78/QOy/cKhiDSYaLmJ7+AEpXGBc3s
rVpuxnBt6O7D0k4ukIXlcL9vakz2fag/2mMn095Ot/j0sTS0F3GQtBSeTxqfcn4R
cvD81mbXorQ1nh3KEWR6RniABUHXTuZIBrXMF2IlV+vAfkBC2xwD2OPe9viHqLy4
nHJfHBVxAm2tdVhOD8v6E5SEJ0nGrHEn9yRiY2w82zvHAq/PEXEwYsJSdePJLAxN
EbMJMeY6SU8GxcfEPD7u8f6a9JOuU1yijdvqflOteEqnmZzPeNg=
=KgNy
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-----