# NOTE: This procedure adds a directory to the auto-path of the specified
  #       language (i.e. native Tcl or Eagle).  The directory will not be
  #       added if it is already present.  The language argument must be the
  #       literal string "eagle" or the literal string "tcl".  The directory
  #       argument is the fully qualified path for the directory to add to
  #       the auto-path.
  #
  # <public>
  proc addToAutoPath { language directory } {
    #
    # NOTE: Add the specified directory to the auto-path if not already
    #       present.
    #
    if {[string length $language] == 0 || $language eq "eagle"} then {
      if {[isEagle]} then {

  #       literal string "tcl".  The version argument must be the literal
  #       string "8.4", "8.5", or "8.6" when the language is "tcl" -OR-
  #       the literal string "1.0" when the language is "eagle".  The
  #       fileNames argument must be a well-formed list of file names to
  #       download, each one relative to the language/version-specific
  #       directory on the package file server.  The persistent argument
  #       should be non-zero if the downloaded files should be saved to
  #       permanent storage for subsequent use.  The usePgp argument
  #       should be non-zero when an OpenPGP signature file needs to be
  #       downloaded and verified for each downloaded file.  The
  #       useAutoPath argument should be non-zero to modify the auto-path
  #       to include the temporary or persistent directories containing
  #       the downloaded files.
  #
  # <public>
  proc downloadFiles {
          language version fileNames persistent usePgp useAutoPath } {
    variable baseUri
    variable downloadUri
    variable persistentDirectory
    variable quiet

    if {[string length $language] == 0 || $language eq "eagle"} then {
      if {$version ne "1.0"} then {
        error "unsupported Eagle version"
      }
    } elseif {$language eq "tcl"} then {
      if {$version ne "8.4" && $version ne "8.5" && $version ne "8.6"} then {
        error "unsupported Tcl version"
      }
    } else {
      error "unsupported language"
    }

    if {$persistent} then {
      set downloadRootDirectory $persistentDirectory
    } else {
      set directoryNameOnly [appendArgs \
          pkgd_ [string trim [pid] -] _ [string trim [clock seconds] -]]

      global env

      if {[info exists env(PKGD_TEMP)]} then {
        set downloadRootDirectory $env(PKGD_TEMP)
      } elseif {[info exists env(TEMP)]} then {
        set downloadRootDirectory $env(TEMP)
      } elseif {[info exists env(TMP)]} then {
        set downloadRootDirectory $env(TMP)
      } else {
        error "please set PKGD_TEMP (via environment) to temporary directory"
      }

      set downloadRootDirectory [file join \
          $downloadRootDirectory $directoryNameOnly]
    }

    set downloadDirectories [list]

    foreach fileName $fileNames {
      if {[string length $fileName] == 0 || \
          [file pathtype $fileName] ne "relative"} then {
        error [appendArgs \
            "bad file name \"" $fileName "\", not relative"]
      }

      set directoryParts [file split [file dirname $fileName]]

      if {[llength $directoryParts] == 0} then {
        error [appendArgs \
            "bad file name \"" $fileName "\", no directory parts"]
      }

      set downloadDirectory [file normalize [eval file join \
          [list $downloadRootDirectory] $directoryParts]]

      set downloadFileName [file normalize [file join \
          $downloadDirectory [file tail $fileName]]]

      if {!$persistent} then {
        catch {file delete $downloadFileName}
      }

      file mkdir [file dirname $downloadFileName]

      set savedFileName $fileName
      set fileName [file join $language $version $fileName]
      set uri [subst $downloadUri]
      set fileName $savedFileName

      if {[isEagle]} then {
        writeFile $downloadFileName \
            [interp readorgetscriptfile -- "" $uri]
      } else {
        writeFile $downloadFileName \
            [::PackageRepository::getFileViaHttp $uri 10 stdout $quiet]
      }

      if {$usePgp} then {
        set downloadSignatureFileName [appendArgs $downloadFileName .asc]

        set savedFileName $fileName
        set fileName [file join \
            $language $version [appendArgs $fileName .asc]]

        set uri [subst $downloadUri]
        set fileName $savedFileName

        if {[isEagle]} then {
          writeFile $downloadSignatureFileName \
              [interp readorgetscriptfile -- "" $uri]
        } else {
          writeFile $downloadSignatureFileName \
              [::PackageRepository::getFileViaHttp $uri 10 stdout $quiet]
        }

        if {![::PackageRepository::verifyPgpSignature \
            $downloadSignatureFileName]} then {
          error [appendArgs \
              "bad PGP signature \"" $downloadSignatureFileName \"]
        }
      }

      lappend downloadDirectories $downloadDirectory
    }

    set downloadDirectories [lsort -unique $downloadDirectories]

    if {$useAutoPath} then {
      foreach downloadDirectory $downloadDirectories {
        addToAutoPath $language $downloadDirectory
      }
    }

    return $downloadDirectories
  }

  #
  # NOTE: Setup the variables, within this namespace, used by this script.
  #
  setupDownloadVars

    THE ASSOCIATED SOFTWARE MAY NOT WORK PROPERLY IF THIS FILE IS ALTERED.
-->
<Certificate xmlns="https://eagle.to/2011/harpy"
             xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
             xmlns:xsd="http://www.w3.org/2001/XMLSchema">
  <Protocol>None</Protocol>
  <Vendor>Mistachkin Systems</Vendor>
  <Id>df73bc96-0ad4-43ed-9653-7f8f36169967</Id>
  <HashAlgorithm>SHA512</HashAlgorithm>
  <EntityType>Script</EntityType>
  <TimeStamp>2016-08-19T01:42:14.2969219Z</TimeStamp>
  <Duration>-1.00:00:00</Duration>
  <Key>0x2c322765603b5278</Key>
  <Signature>
    HLVs2RAHtGtCJb426Z0djUive8FjN5aJqUzEYpTGK+kN4+52xgIxtD4bJLVzrrAc154LZ7DgETCz
    IidyNrXm5++28w3ni716sjJnBQ++old4BGDuowZpk425OUmuMzJ881cCN5gsLGzdSf73IMZ6zdXq
    ycllYae6dzoW1iyNGfI4K+MQAJ+WuPhqbsWQUvgaaZQrvrIpVPQVfE2xRCGDEdMl+GY6xU/dkxLa
    RKpAlgN3e1DC1kvOjRqXlqv6b4m94SbYlDa8/7cxIkob5iclSFCjl7oXRNWDMYORJOAQUXtB4Sw9
    TXKKUtWDXdk/iA9WEoXpYckLLXWhcWH8n4lQ+k3iXpm5hxqB/+7GXXMJD1vq/B1hzEyVe4Rr5sBD
    iGcxAn74f9bvmUA1I/B66gFrH1DaQWlV+DMUxYq0If++wRurOKzaWP7VyWekqVlSjyitIADe47QB
    BugnOq3zpFZwn/p+EJxAzKXfbsdcF9fW+RtIVsyXXlnZqkqv3i8pBwSw6e7pe4XNBePcRkEYDUAY
    TE3phGEH8AsNwgTl5/NvUrSSOuPCWtpLtULB/Tlq+ITsISejWHPnz5rAW4GPQ5tU3kVSFBNpOm/e
    kUTnH+88Uqq2l7b8RMh+gvVkBqn9tPJkRcZIDlr8ImBJmPtBXdV6ep5x6xBlCVap9UaDMNa4Gwmo
    s2qEAqCYvEx6W8Y3cv2m741cg5zRcOCxrmo6fuR3e1BwCtBbJCK9K/1FDBdbsEGdFfmxev+Nyt32
    oYBOlSeDW570GH4HQjFPMYF3L0Z2lL/9tcLXAUo4omNIrArdrV715vsH4qY7pa4qTYHLoMZq3JCi
    +8+UUgIvle0wbwdPeLNlMS0w0oJObWT8dbehCK2gQHLxsQFW1LaxsZOTwr8nWqw8arKixIE96ZeK
    wJgNa4V/yKv6SnVDcCJIK05T2CtgeuTYbXxnjZhwtAbQ/DlKtpKEFf7dXsnhsJ2EJW1L2jZDdfYg
    JFd4UQ+lyXC2mlc9rECGibntK2QLsj5aoUCcOXbmKG1HiF5CLQdzUvqmDxGuTZKz3ZNZdw0W5zf/
    h1o8dJYNH17AVrmGho0+eg2O9YmWHFOo7jyqdqMmzhGobfc+D9FAR56r3G8p0gusaSuCvHRRBljT
    0FO3rLcMasKVEUx/CPAYNOyUx8imVn/X1sCIfOGtvds+kPmQtZNPkJtcnVketficBbMFy+KXjaua
    3MIAGcyQN8kKV+CSlbNhq95QIXhEykixp1ZN8rxWc+U4YEvDYNe8yDVsF2/KLgW47CkFEHkqN2BW
    3idMRO41jZD1jO60qwET6eaNq7o6RCU/RvzsiJ00Df+5T8d8mnm8eiciAFdPzNAqWbhgqIijkw==
  </Signature>
</Certificate>

  # NOTE: This procedure issues an HTTP request that should return metadata
  #       that can be used to load and/or provide the specified package.
  #       The apiKey argument is the API key to use -OR- an empty string if
  #       a public package is being looked up.  The package argument is the
  #       name of the package, it cannot be an empty string.  The version
  #       argument is the specific version being looked up -OR- an empty
  #       string for any available version.  This procedure may raise script
  #       errors.  All line-endings are normalized to Unix-style; therefore,
  #       all script signatures must assume this.
  #
  proc getLookupData { apiKey package version } {
    variable verboseUriDownload

    set uri [getLookupUri $apiKey $package $version]

    if {[string length $uri] == 0} then {

    if {$verboseUriDownload} then {
      pkgLog [appendArgs \
          "raw response data is: " $data]
    }

    set data [string map [list &lt\; < &gt\; > &quot\; \" &amp\; &] $data]
    set data [string map [list \r\n \n \r \n] $data]

    set data [string trim $data]

    return $data
  }

  #
  # NOTE: This procedure attempts to extract the lookup code from the raw

    THE ASSOCIATED SOFTWARE MAY NOT WORK PROPERLY IF THIS FILE IS ALTERED.
-->
<Certificate xmlns="https://eagle.to/2011/harpy"
             xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
             xmlns:xsd="http://www.w3.org/2001/XMLSchema">
  <Protocol>None</Protocol>
  <Vendor>Mistachkin Systems</Vendor>
  <Id>4e5a63d2-af93-4521-9477-bd723121aa3a</Id>
  <HashAlgorithm>SHA512</HashAlgorithm>
  <EntityType>Script</EntityType>
  <TimeStamp>2016-08-19T01:36:23.6406719Z</TimeStamp>
  <Duration>-1.00:00:00</Duration>
  <Key>0x2c322765603b5278</Key>
  <Signature>
    l5ZPkxTFQLfOcDb2621qaSQGrIVw0S/wyplhWpPEtUmGN68Ik3frACol542j1s6ZfJJ86hAyItuK
    KcQ5S3FiuX41IqMj3ZbeefGdeGNwxiE2oOpXy45NmkOmlk+z2XXxiLivX6TCEsPUcLWvOfLzDAxV
    HKew9JiDbf5fEQ1GLZX2/8QnV/yO2gaKiSAieUTFRyiptZBFKRNeW/2A+TsjN6L9UIxG3hDh1DL9
    oQ27IZdLqyzTdM8XMiSKec+4ODa+irEbv7T4M4f36V0RQ3oOsGFYS9BVekbzoFAM2VCefSV9an/O
    2difN18JZui+X7xN3j11Oa2tgLOIj7oJwlhNfE/d4kbiHpMQ+h1lIl1CwuwOoz8SxVdps+GrE8vn
    wo4fCkC1I0vLiCj8D8/4/Tro7X8YQgR2QhonSH7JNjynf0ue/p3PDHYJO2cM68evaOG1FdYgKPra
    +rodzUuEPCP7J0IPu009uP2OBPeOzJTVcFcYmj5/lBNY2WTN5/jdeNYhEBCJVzdcX+xvzgZndcf5
    6qUCzeW01EK0EvcEwOe0dxxOL6rgxKgx0Dg7YJDEm8k1lLcaqprkzBiy6ePYrAfGBaqwGmtGseTs
    PWrziCd/ECzAM1UsJM4l3BfClx++GMEeeQC9XE6DyYfQ9tKc2LL5/9qaZLiyvg7r1OxU8RjDBEEA
    tDDPNdYL4RdP7+iA8DJQ33+yVlP5/dNJXoW+L6mpZoaLAeetdT4N19gLRTqbIolOY75+O8wWByR/
    9P3kwBOMNS/2Y8Rv56Nkv91xhpKX2dmD8Nc9ctLLb5kI/GQeFSwOAucOV8vPnfRl5c5X13IMwZpC
    arK2FUguZlS+vKWxsGiff7OBB3GCjKagMYA9E/9+4iO391Pc2h1Q2ZdVgWW1Oo0RHFmrIkOu7Cwg
    AxwPiO7JcPSZFsbt0ahfBd43/m/SG0fTskYb+tUlLDqRQe/boj5YwiLQeFoc6Cj+lrh4sMvl42xc
    rAoKBbuLbWBam2hExpxFtVNpERFcSiFSU27LHPVmj+5MvmSGEGmznuGbMmmqi1g4xeADQDChFvMU
    pc6OUpHIkT0EMIPXFj1RWNhjkwv1dK/pO6Ewgf7PltpHdkP1ohPA2yTxkB0a7NRzX69SeY6EPxyM
    LXUcLH+PR7UywOnU0UJfHIJQDbvjGhfDAN7pXc1nESuDvae/D/Phearf9M2gd9rGl/GIKoZYh+iu
    FQxAydBWAQOdQ03Hwy3igLHaShP/ApNzHNyPF1m1FHsFSb+kNeEhmf0xZwWWxq7qAo6cwvY+fiNF
    NrRL6GlDah8g/+tj/YZH3VZ45Hnsa3JB+uqbGdfh+iC462NI2G6BFwbbRDeQxKD1tJq9wXcgqw==
  </Signature>
</Certificate>