#       future use, it should be an empty list.
  #
  proc createRepositoryScript {
          serverId versionId language version platform fileNames options } {
    ::PackageRepository::verifyServerId $serverId
    ::PackageDownloader::verifyVersionId $versionId
    ::PackageDownloader::verifyLanguageAndVersion $language $version isClient
    ::PackageDownloader::verifyPlatform $platform platform

    set prologue ""

    if {[string length $serverId] > 0} then {
      append prologue "  ::PackageDownloader::useServerId " $serverId \n
    }

  #       argument is the certificate associated with the script, which may be
  #       an OpenPGP signature or a Harpy script certificate.
  #
  proc submitPackageMetadata {
          apiKey package patchLevel language script certificate } {
    variable verboseMetadataSubmit

    ::PackageDownloader::verifyPackageName $package
    ::PackageDownloader::verifyPackagePatchLevel $patchLevel

    #
    # NOTE: Fetch the submission URI for the package repository server.  If
    #       it is not available for some reason, raise a script error.
    #
    set uri [getSubmitUri]

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

    if {[string length $language] == 0} then {
      set language [expr {[isEagle] ? "Eagle" : "Tcl"}]
    }

    ::PackageRepository::verifyMetadataLanguage $language

    if {[isEagle]} then {
      set boundary [string map \
          [list + "" / "" = ""] [base64 encode [expr {randstr(50)}]]]
    } else {
      set boundary [::PackageRepository::getUniqueSuffix]
    }

    variable checkoutDirectory
    variable fossilAddCommand
    variable fossilFileNameOnly

    ::PackageDownloader::verifyLanguageAndVersion $language $version isClient

    if {$isClient} then {
      error "cannot stage package files for client"
    }

    ::PackageDownloader::verifyPlatform $platform platform
    verifyCheckoutDirectory

    if {![verifyThereAreNoChanges]} then {
      error "cannot stage files: there are pending changes"

  #       caller that will receive the resulting Fossil check-in identifier.
  #
  proc commitPackageFiles { package patchLevel language version varName } {
    variable checkoutDirectory
    variable fossilCommitCommand
    variable fossilCommitPattern
    variable fossilFileNameOnly

    ::PackageDownloader::verifyPackageName $package
    ::PackageDownloader::verifyPackagePatchLevel $patchLevel
    ::PackageDownloader::verifyLanguageAndVersion $language $version isClient

    if {$isClient} then {
      error "cannot commit package files for client"
    }

    fossilMustBeInstalled
    verifyCheckoutDirectory

    set branch [appendArgs pkg_ $package _ $patchLevel]

    set comment [appendArgs \