Subversion Repositories DevTools

Rev

Rev 5061 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 5061 Rev 5097
Line 165... Line 165...
165 
' This function came from _make_released.asp and is very similar to the PRIVATE_NotifyInterestAutoBuild, except the subject/body
 165 
' This function came from _make_released.asp and is very similar to the PRIVATE_NotifyInterestAutoBuild, except the subject/body
166 
' text is different. Unlike its auto-build counterpart, this one is called during the process of making a manual build release
 166 
' text is different. Unlike its auto-build counterpart, this one is called during the process of making a manual build release
167 
' official.
 167 
' official.
168 
' One question arises... can we not harmonize the email notification code somewhat, between manual and autobuild releases?
 168 
' One question arises... can we not harmonize the email notification code somewhat, between manual and autobuild releases?
169 
'
 169 
'
170 
' Currently, the function is called internally as part of the bulk release operation, and from _generate_release_notes.asp,
 170 
' Currently, the function is called internally as part of the bulk release operation,
171 
' loaded by _make_released.asp which in turn is loaded when a user presses the btnMakeReleased action button for manual
 171 
' loaded by _make_released.asp which in turn is loaded when a user presses the btnMakeReleased action button for manual
172 
' built pending versions.
 172 
' built pending versions.
173 
Sub PUBLIC_NotifyInterestManualBuild( NNrtag_id, NNpv_id )
 173 
Sub PUBLIC_NotifyInterestManualBuild( NNrtag_id, NNpv_id )
174 
   Err.Clear
 174 
   Err.Clear
175 
   On Error Resume Next
 175 
   On Error Resume Next
Line 202... Line 202...
202 
   rsQry.Close()
 202 
   rsQry.Close()
203 
   set rsQry = nothing
 203 
   set rsQry = nothing
204 
End Sub
 204 
End Sub
205 
 
 205 
 
206 
'----------------------------------------------------------------------------------------------------------------------------------------
 206 
'----------------------------------------------------------------------------------------------------------------------------------------
207 
' Currently, this function is called internally as part of the bulk release operation, and from _generate_release_notes.asp,
 207 
' Currently, this function is called internally as part of the bulk release operation,
208 
' loaded by _make_released.asp which in turn is loaded when a user presses the btnMakeReleased action button for manual
 208 
' loaded by _make_released.asp which in turn is loaded when a user presses the btnMakeReleased action button for manual
209 
' built pending versions. It initiates the execution of the windows script file that performs additional database updates
 209 
' built pending versions. It initiates the execution of the windows script file that performs additional database updates
210 
' that are needed to make official a package version that has already been built and published into dpkg_archive. This includes
 210 
' that are needed to make official a package version that has already been built and published into dpkg_archive. This includes
211 
' collecting info on all files that were published to dpkg_archive, and inserting that info into the RELEASED_COMPONENTS table.
 211 
' collecting info on all files that were published to dpkg_archive, and inserting that info into the RELEASED_COMPONENTS table.
212 
Function PUBLIC_Run_onMakeOfficial ( nRtag_id, nPv_id )
 212 
Function PUBLIC_Run_onMakeOfficial ( nRtag_id, nPv_id )
Line 225... Line 225...
225 
 
 225 
 
226 
   objEH.CatchORA ( OraSession )
 226 
   objEH.CatchORA ( OraSession )
227 
 
 227 
 
228 
   If objEH.LastOraFailed = FALSE Then
 228 
   If objEH.LastOraFailed = FALSE Then
229 
 
 229 
 
230 
      Set objWSH = Server.CreateObject("WScript.Shell")
 230 
'     Set objWSH = Server.CreateObject("WScript.Shell")
231 
      'Used for getting the package name and package version
 231 
'     'Used for getting the package name and package version
232 
      OraDatabase.Parameters.Add "RTAG_ID", nRtag_id, ORAPARM_INPUT, ORATYPE_NUMBER
 232 
'     OraDatabase.Parameters.Add "RTAG_ID", nRtag_id, ORAPARM_INPUT, ORATYPE_NUMBER
233 
 
 233 
'
234 
      Set Qry = OraDatabase.DbCreateDynaset( "SELECT * FROM RELEASE_TAGS WHERE RTAG_ID = :RTAG_ID", 0 )
 234 
'     Set Qry = OraDatabase.DbCreateDynaset( "SELECT * FROM RELEASE_TAGS WHERE RTAG_ID = :RTAG_ID", 0 )
235 
 
 235 
'
236 
      proj_id = Qry("proj_id")
 236 
'     proj_id = Qry("proj_id")
237 
      sRtagName = UCase( Qry("rtag_name") )
 237 
'     sRtagName = UCase( Qry("rtag_name") )
238 
 
 238 
'
239 
      Qry.Close()
 239 
'     Qry.Close()
240 
      Set Qry = Nothing
 240 
'     Set Qry = Nothing
241 
 
 241 
'
242 
      OraDatabase.Parameters.Remove "RTAG_ID"
 242 
'     OraDatabase.Parameters.Remove "RTAG_ID"
243 
 
 243 
'
244 
      ' Wait for the script to complete
 244 
'     ' Wait for the script to complete
245 
      '     - Improves reliability of RN Generation
 245 
'     '     - Improves reliability of RN Generation
246 
         objWSH.Run   "cmd.exe /c cscript.exe //B //NoLogo "& rootPath & SCRIPTS_FOLDER &"\on_Make_Official.wsf //job:GetComponents //job:GenerateReleaseNotes //job:PostRun "&_
 246 
'        objWSH.Run   "cmd.exe /c cscript.exe //B //NoLogo "& rootPath & SCRIPTS_FOLDER &"\on_Make_Official.wsf //job:GetComponents //job:GenerateReleaseNotes //job:PostRun "&_
247 
                     "/pv_id:"& nPv_id & " /proj_id:"& proj_id &" /rtag_name:"""&sRtagName&"", _
 247 
'                    "/pv_id:"& nPv_id & " /proj_id:"& proj_id &" /rtag_name:"""&sRtagName&"", _
248 
                     0, True
 248 
'                    0, True
249 
 
 249 
'
250 
      Set objWSH = nothing
 250 
'     Set objWSH = nothing
251 
 
 251 
 
252 
      PUBLIC_Run_onMakeOfficial = TRUE
 252 
      PUBLIC_Run_onMakeOfficial = TRUE
253 
   End If
 253 
   End If
254 
 
 254 
 
255 
End Function
 255 
End Function