Subversion Repositories DevTools

Rev

Rev 7417 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 7417 Rev 7468
Line 53... Line 53...
53 
    setDeployable
 53 
    setDeployable
54 
 
 54 
 
55 
ElseIf (parOpr = "clearAllDeployable") Then
 55 
ElseIf (parOpr = "clearAllDeployable") Then
56 
    clearAllDeployable
 56 
    clearAllDeployable
57 
 
 57 
 
58 
ElseIf (parOpr = "setS3Sync") Then
 58 
ElseIf (parOpr = "setInManifest") Then
59 
    setS3Sync
 59 
    setInManifest
60 
 
 60 
 
61 
ElseIf (parOpr = "clearAllS3Sync") Then
 61 
ElseIf (parOpr = "clearAllInManifest") Then
62 
	clearAllS3Sync
 62 
	clearAllInManifest
63 
 
 63 
 
64 
Else
 64 
Else
65 
    oJSON.data("error") = 1
 65 
    oJSON.data("error") = 1
66 
    oJSON.data("emsgSummary") = "Unknown JSON Operation"
 66 
    oJSON.data("emsgSummary") = "Unknown JSON Operation"
67 
    oJSON.data("emsgDetails") = "The Requested JSON operation is not supported: " & parOpr
 67 
    oJSON.data("emsgDetails") = "The Requested JSON operation is not supported: " & parOpr
Line 338... Line 338...
338 
    OraDatabase.Parameters.Remove "RTAG_ID"
 338 
    OraDatabase.Parameters.Remove "RTAG_ID"
339 
 
 339 
 
340 
End Sub
 340 
End Sub
341 
 
 341 
 
342 
'-------------------------------------------------
 342 
'-------------------------------------------------
343 
' Function:    setS3Sync
 343 
' Function:    setInManifest
344 
' Description: Set the state of the S3SYNC flag
 344 
' Description: Set the state of the InManifest flag
345 
'              Request Parameters
 345 
'              Request Parameters
346 
'					rtag_id
 346 
'                   rtag_id
347 
'                   pv_id
 347 
'                   pv_id
348 
'                   s3sync_state
 348 
'                   mfState
349 
'
 349 
'
350 
Sub setS3Sync
 350 
Sub setInManifest
351 
    OraDatabase.Parameters.Add "RTAG_ID",   	QStrPar("rtag_id"), ORAPARM_INPUT, ORATYPE_NUMBER
 351 
    OraDatabase.Parameters.Add "RTAG_ID",       QStrPar("rtag_id"), ORAPARM_INPUT, ORATYPE_NUMBER
352 
    OraDatabase.Parameters.Add "PV_ID",     	QStrPar("pv_id"), ORAPARM_INPUT, ORATYPE_NUMBER
 352 
    OraDatabase.Parameters.Add "PV_ID",         QStrPar("pv_id"), ORAPARM_INPUT, ORATYPE_NUMBER
353 
    OraDatabase.Parameters.Add "S3SYNC_STATE",  QStrPar("s3sync_state"), ORAPARM_INPUT, ORATYPE_CHAR
 353 
    OraDatabase.Parameters.Add "MFSTATE",       QStrPar("mfState"), ORAPARM_INPUT, ORATYPE_CHAR
354 
 
 354 
 
355 
        '   Set/Reset IS_DEPLOYABLE flag
 355 
        '   Set/Reset IS_DEPLOYABLE flag
356 
        SqlQry = _
 356 
        SqlQry = _
357 
            "UPDATE RELEASE_CONTENT " &_
 357 
            "UPDATE RELEASE_CONTENT " &_
358 
            "  SET S3SYNC = DECODE(:S3SYNC_STATE, 'Y', 'Y', NULL)" &_
 358 
            "  SET IN_MANIFEST = DECODE(:MFSTATE, 'Y', 'Y', NULL)" &_
359 
            "  WHERE PV_ID =  :PV_ID AND RTAG_ID = :RTAG_ID"
 359 
            "  WHERE PV_ID =  :PV_ID AND RTAG_ID = :RTAG_ID"
360 
        objEH.ErrorRedirect = FALSE
 360 
        objEH.ErrorRedirect = FALSE
361 
        objEH.TryORA ( OraSession )
 361 
        objEH.TryORA ( OraSession )
362 
        On Error Resume Next
 362 
        On Error Resume Next
363 
        OraDatabase.ExecuteSQL SqlQry
 363 
        OraDatabase.ExecuteSQL SqlQry
Line 365... Line 365...
365 
 
 365 
 
366 
        If NOT objEH.LastOraFailed Then
 366 
        If NOT objEH.LastOraFailed Then
367 
            objEH.TryORA ( OraSession )
 367 
            objEH.TryORA ( OraSession )
368 
            OraDatabase.ExecuteSQL ("BEGIN PK_RELEASE.SET_RELEASE_MODIFIED(:RTAG_ID); END; ")
 368 
            OraDatabase.ExecuteSQL ("BEGIN PK_RELEASE.SET_RELEASE_MODIFIED(:RTAG_ID); END; ")
369 
            objEH.CatchORA ( OraSession )
 369 
            objEH.CatchORA ( OraSession )
370 
		End If
 370 
        End If
371 
 
 371 
 
372 
        On Error GoTo 0
 372 
        On Error GoTo 0
373 
        result = 0
 373 
        result = 0
374 
 
 374 
 
375 
    OraDatabase.Parameters.Remove "RTAG_ID"
 375 
    OraDatabase.Parameters.Remove "RTAG_ID"
376 
    OraDatabase.Parameters.Remove "PV_ID"
 376 
    OraDatabase.Parameters.Remove "PV_ID"
377 
    OraDatabase.Parameters.Remove "S3SYNC_STATE"
 377 
    OraDatabase.Parameters.Remove "MFSTATE"
378 
 
 378 
 
379 
End Sub
 379 
End Sub
380 
 
 380 
 
381 
'-------------------------------------------------
 381 
'-------------------------------------------------
382 
' Function:    clearAllS3Sync
 382 
' Function:    clearAllInManifest
383 
' Description: Clear the S3SYNC flag on all packages in the Release
 383 
' Description: Clear the InManifest flag on all packages in the Release
384 
'              Request Parameters
 384 
'              Request Parameters
385 
'                   rtag_id
 385 
'                   rtag_id
386 
'
 386 
'
387 
Sub clearAllS3Sync
 387 
Sub clearAllInManifest
388 
    OraDatabase.Parameters.Add "RTAG_ID", QStrPar("rtag_id"), ORAPARM_INPUT, ORATYPE_NUMBER
 388 
    OraDatabase.Parameters.Add "RTAG_ID", QStrPar("rtag_id"), ORAPARM_INPUT, ORATYPE_NUMBER
389 
 
 389 
 
390 
        '   Reset S3SYNC flag
 390 
        '   Reset InManifest flag
391 
        SqlQry = _
 391 
        SqlQry = _
392 
            "update release_content rc " &_
 392 
            "update release_content rc " &_
393 
            " set rc.S3SYNC = null" &_
 393 
            " set rc.IN_MANIFEST = null" &_
394 
            " WHERE rc.rtag_id = :RTAG_ID" &_
 394 
            " WHERE rc.rtag_id = :RTAG_ID" &_
395 
            "   AND rc.S3SYNC is not null"
 395 
            "   AND rc.IN_MANIFEST is not null"
396 
 
 396 
 
397 
        objEH.ErrorRedirect = FALSE
 397 
        objEH.ErrorRedirect = FALSE
398 
        objEH.TryORA ( OraSession )
 398 
        objEH.TryORA ( OraSession )
399 
        On Error Resume Next
 399 
        On Error Resume Next
400 
        OraDatabase.ExecuteSQL SqlQry
 400 
        OraDatabase.ExecuteSQL SqlQry
Line 402... Line 402...
402 
 
 402 
 
403 
        If NOT objEH.LastOraFailed Then
 403 
        If NOT objEH.LastOraFailed Then
404 
            objEH.TryORA ( OraSession )
 404 
            objEH.TryORA ( OraSession )
405 
            OraDatabase.ExecuteSQL ("BEGIN PK_RELEASE.SET_RELEASE_MODIFIED(:RTAG_ID); END; ")
 405 
            OraDatabase.ExecuteSQL ("BEGIN PK_RELEASE.SET_RELEASE_MODIFIED(:RTAG_ID); END; ")
406 
            objEH.CatchORA ( OraSession )
 406 
            objEH.CatchORA ( OraSession )
407 
		End If
 407 
        End If
408 
 
 - 
 
409 
 
 408 
 
410 
        On Error GoTo 0
 409 
        On Error GoTo 0
411 
        result = 0
 410 
        result = 0
412 
 
 411 
 
413 
    OraDatabase.Parameters.Remove "RTAG_ID"
 412 
    OraDatabase.Parameters.Remove "RTAG_ID"