error "cannot stage files: still on wrong branch"
      }
    }

    set newFileNames [list]

    foreach fileName $fileNames {
      if {![createOpenPgpSignature $fileName]} then {
      if {![::PackageRepository::createOpenPgpSignature $fileName]} then {
        error [appendArgs \
            "cannot stage file \"" $fileName "\": OpenPGP signing failed"]
      }

      lappend newFileNames $fileName
      lappend newFileNames [appendArgs $fileName .asc]
    }

        set scriptFileName [file join \
            [::PackageRepository::getFileTempDirectory PKGR_UPLOAD_TEMP] \
            [appendArgs pkgr_upload_ [::PackageRepository::getUniqueSuffix]]]

        writeFile $scriptFileName $script

        if {![::PackageRepository::createOpenPgpSignature \
        if {![createOpenPgpSignature $scriptFileName]} then {
            $scriptFileName]} then {
          error [appendArgs \
              "cannot submit package metadata: OpenPGP signing of \"" \
              $scriptFileName "\" failed"]
        }

        set certificate [readFile [appendArgs $scriptFileName .asc]]

  #       requirements of this tool.
  #
  if {[haveArgumentData]} then {
    #
    # NOTE: All necessary arguments were supplied on the command line, use
    #       batch mode.
    #
    if {[isEagle]} then {
      submitEventHandler null null
    } else {
      submitEventHandler
    }
  } else {
    #
    # NOTE: One or more of the necessary arguments were not supplied on the
    #       command line, use interactive mode.  This will create a graphical
    #       user interface, using Tk or WinForms.  If any of the necessary
    #       arguments were supplied on the command line, they will be used to
    #       populate those fields on the graphical user interface.