Diff
Not logged in

Differences From Artifact [965d609d81]:

To Artifact [bf297ce503]:


1102
1103
1104
1105
1106
1107
1108
1109

1110
1111

1112
1113
1114
1115
1116

1117
1118
1119
1120
1121
1122
1123
1124
1125
1126
1127
1128
1129
1130
1131
1132
1133
1134
1135

1136
1137
1138
1139
1140
1141
1142
      ::PackageRepository::probeForOpenPgpInstallation
      ::PackageRepository::openPgpMustBeInstalled

      #
      # NOTE: THIS BLOCK REFERS TO SEVERAL UNTESTED PROCEDURES.
      #
      if {0} then {
        stagePackageFiles $language $version $platform $fileNames


        if {![commitPackageFiles \

            $package $patchLevel $language $version checkin]} then {
          error "failed to commit package files"
        }

        set script [createRepositoryScript \

            "" $checkin $language $version $platform $fileNames [list]]

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

        writeFile $scriptFileName $script

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

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

        submitPackageMetadata \
            $apiKey $package $patchLevel $language $script $certificate

      }
    } else {
      error "cannot initiate package submission: one or more fields missing"
    }
  }

  #







|
>


>
|




>
|

















|
>







1102
1103
1104
1105
1106
1107
1108
1109
1110
1111
1112
1113
1114
1115
1116
1117
1118
1119
1120
1121
1122
1123
1124
1125
1126
1127
1128
1129
1130
1131
1132
1133
1134
1135
1136
1137
1138
1139
1140
1141
1142
1143
1144
1145
1146
      ::PackageRepository::probeForOpenPgpInstallation
      ::PackageRepository::openPgpMustBeInstalled

      #
      # NOTE: THIS BLOCK REFERS TO SEVERAL UNTESTED PROCEDURES.
      #
      if {0} then {
        stagePackageFiles \
            [string tolower $language] $version $platform $fileNames

        if {![commitPackageFiles \
            $package $patchLevel [string totitle $language] $version \
            checkin]} then {
          error "failed to commit package files"
        }

        set script [createRepositoryScript \
            "" $checkin [string tolower $language] $version $platform \
            $fileNames [list]]

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

        writeFile $scriptFileName $script

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

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

        submitPackageMetadata \
            $apiKey $package $patchLevel [string totitle $language] \
            $script $certificate
      }
    } else {
      error "cannot initiate package submission: one or more fields missing"
    }
  }

  #