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 

        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 =] 
          } 
        }] 

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

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

    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