}
      default {
        error "unsupported package platform"
      }
    }
  }

  #
  # NOTE: This procedure checks the current login cookie to make sure that
  #       it exists -AND- conforms to the correct format.
  #
  proc haveValidLoginCookie {} {
    variable loginCookie

    if {![info exists loginCookie]} then {
      return false
    }

    if {[isEagle] || \
        ([info exists tcl_version] && $tcl_version >= 8.5)} then {
      if {[string is list -strict $loginCookie]} then {
        return false
      }
    }

    if {[llength $loginCookie] != 2} then {
      return false
    }

    return true
  }

  #
  # NOTE: This procedure issues a request to an HTTP(S) server.  It returns
  #       the raw response data verbatim.  It may raise a script error.  It
  #       will always use the currently configured HTTP(S) login cookie, if
  #       any; therefore, it should really only be used for requests to the
  #       package file server.  The uri argument is the fully qualified URI
  #       to request.  The allowHtml argument should be non-zero if raw HTML

            TestSetScriptNewWebClientCallback "" true true error]

        if {$code ne "Ok"} then {
          error [getStringFromObjectHandle $error]
        }
      }

      if {[info exists loginCookie] && [llength $loginCookie] == 2} then {
      if {[haveValidLoginCookie]} then {
        set script [object create String {
          if {[methodName ToString] eq "GetWebRequest"} then {
            webRequest Headers.Add Cookie [join $loginCookie =]
          }
        }]

        set data [uri download \
            -timeouttype network -inline \
            -webclientdata $script -- $uri]
      } else {
        set data [uri download \
            -timeouttype network -inline -- $uri]
      }
    } else {
      set options [list -binary true]

      if {[info exists loginCookie] && [llength $loginCookie] == 2} then {
      if {[haveValidLoginCookie]} then {
        lappend options -headers [list Cookie [join $loginCookie =]]
      }

      set data [eval ::PackageRepository::getFileViaHttp \
          [list $uri] [list 20] [list stdout] [list $quiet] $options]
    }

  proc maybeResetCookieAndLoginSimple {} {
    variable loginCookie

    #
    # NOTE: Attempt to verify that we are currently logged in.  If so, do
    #       nothing; otherwise, attempt to login.
    #
    if {![info exists loginCookie] || [llength $loginCookie] != 2} then {
    if {![haveValidLoginCookie]} then {
      resetCookieAndLoginSimple
    }
  }

  #
  # NOTE: This procedure resets the currently configured login cookie, if
  #       any, and then attempts to login using the specified user name and

    variable loginCookie
    variable logoutUri
    variable logoutUrn

    #
    # NOTE: Attempt to verify that we are currently logged in.
    #
    if {![info exists loginCookie] || [llength $loginCookie] != 2} then {
    if {![haveValidLoginCookie]} then {
      error "missing or invalid login cookie"
    }

    #
    # NOTE: Build the full URI for the logout request, performing any
    #       applicable substitutions in the URI prior to using it as
    #       the basis for logging out of the repository.