# 
      # NOTE: THIS BLOCK REFERS TO SEVERAL UNTESTED PROCEDURES. 
      # 
      if {0} then { 
        stagePackageFiles $language $version $platform $fileNames 
        stagePackageFiles \ 
            [string tolower $language] $version $platform $fileNames 
 
        if {![commitPackageFiles \ 
            $package $patchLevel [string totitle $language] $version \ 
            $package $patchLevel $language $version checkin]} then { 
            checkin]} then { 
          error "failed to commit package files" 
        } 
 
        set script [createRepositoryScript \ 
            "" $checkin [string tolower $language] $version $platform \ 
            "" $checkin $language $version $platform $fileNames [list]] 
            $fileNames [list]] 
 
        set scriptFileName [file join \ 
            [::PackageRepository::getFileTempDirectory PKGR_UPLOAD_TEMP] \ 
            [appendArgs pkgr_upload_ [::PackageRepository::getUniqueSuffix]]] 
 

        } 
 
        set certificate [readFile [appendArgs $scriptFileName .asc]] 
 
        submitPackageMetadata \ 
            $apiKey $package $patchLevel $language $script $certificate 
            $apiKey $package $patchLevel [string totitle $language] \ 
            $script $certificate 
      } 
    } else { 
      error "cannot initiate package submission: one or more fields missing" 
    } 
  }