} 
 
    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 

            [::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"] 
        } 
 

  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