Subversion Repositories DevTools

Rev

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

Rev 6269 Rev 7063
Line 12... Line 12...
12 
 
 12 
 
13 
'----------------------------------------------------------------------------------------------------------------------------------------------
 13 
'----------------------------------------------------------------------------------------------------------------------------------------------
14 
' Constructor
 14 
' Constructor
15 
Private Sub Class_Initialize()
 15 
Private Sub Class_Initialize()
16 
  Set m_rsQryDS = Nothing
 16 
  Set m_rsQryDS = Nothing
17 
  m_bIndefinitelyPaused = False
 17 
  m_bIndefinitelyPaused = IndefPause
18 
End Sub
 18 
End Sub
19 
 
 19 
 
20 
'----------------------------------------------------------------------------------------------------------------------------------------------
 20 
'----------------------------------------------------------------------------------------------------------------------------------------------
21 
' Queries the daemons status for all releases of a specified project
 21 
' Queries the daemons status for all releases of a specified project
22 
' Parameters:
 22 
' Parameters:
23 
'   iProjId is the specified project
 23 
'   iProjId is the specified project
24 
Sub GetDaemonStatus(iProjId)
 24 
Sub GetDaemonStatus(iProjId)
25 
  OraDatabase.Parameters.Add "PROJ_ID",  iProjId,  ORAPARM_INPUT, ORATYPE_NUMBER
 25 
  OraDatabase.Parameters.Add "PROJ_ID",  iProjId,  ORAPARM_INPUT, ORATYPE_NUMBER
26 
  Set m_rsQryDS = OraDatabase.DbCreateDynaset( GetQuery ("ReleaseDaemonStatus.sql"), ORADYN_DEFAULT )
 26 
  Set m_rsQryDS = OraDatabase.DbCreateDynaset( GetQuery ("ReleaseDaemonStatus.sql"), ORADYN_DEFAULT )
27 
  OraDatabase.Parameters.Remove "PROJ_ID"
 27 
  OraDatabase.Parameters.Remove "PROJ_ID"
28
- 
 
29 
  'Check if build daemons are all stopped"
 - 
 
30 
  Call GetIndefinitePause
 - 
 
31 
End Sub
 28 
End Sub
32 
 
 29 
 
33 
'----------------------------------------------------------------------------------------------------------------------------------------------
 30 
'----------------------------------------------------------------------------------------------------------------------------------------------
34 
' Queries the daemons status for a specified release
 31 
' Queries the daemons status for a specified release
35 
' Parameters:
 32 
' Parameters:
36 
'   iRtagId is the specified release
 33 
'   iRtagId is the specified release
37 
Sub GetDaemonStatusForRelease(iRtagId)
 34 
Sub GetDaemonStatusForRelease(iRtagId)
38 
  OraDatabase.Parameters.Add "RTAG_ID",  iRtagId,  ORAPARM_INPUT, ORATYPE_NUMBER
 35 
  OraDatabase.Parameters.Add "RTAG_ID",  iRtagId,  ORAPARM_INPUT, ORATYPE_NUMBER
39 
  Set m_rsQryDS = OraDatabase.DbCreateDynaset( GetQuery ("ReleaseDaemonStatusForRelease.sql"), ORADYN_DEFAULT )
 36 
  Set m_rsQryDS = OraDatabase.DbCreateDynaset( GetQuery ("ReleaseDaemonStatusForRelease.sql"), ORADYN_DEFAULT )
40 
  OraDatabase.Parameters.Remove "RTAG_ID"
 37 
  OraDatabase.Parameters.Remove "RTAG_ID"
41
- 
 
42 
  'Check if build daemons are all stopped"
 - 
 
43 
  Call GetIndefinitePause
 - 
 
44 
End Sub
 - 
 
45 
 
 - 
 
46 
'----------------------------------------------------------------------------------------------------------------------------------------------
 - 
 
47 
' Queries to check if build daemons are all indefinitly paused
 - 
 
48 
Private Sub GetIndefinitePause
 - 
 
49 
  'Check if build daemons are all indefinitly paused
 - 
 
50 
  Dim rsQryRL
 - 
 
51 
  Set rsQryRL = OraDatabase.DbCreateDynaset(" select * from run_level_schedule rls where rls.indefinite_pause = 'P'", ORADYN_DEFAULT)
 - 
 
52 
  m_bIndefinitelyPaused = rsQryRL.RecordCount > 0
 - 
 
53 
  rsQryRL.Close
 - 
 
54 
  Set rsQryRL = Nothing
 - 
 
55 
End Sub
 38 
End Sub
56 
 
 39 
 
57 
'----------------------------------------------------------------------------------------------------------------------------------------------
 40 
'----------------------------------------------------------------------------------------------------------------------------------------------
58 
' Renders a bar chart to show the daemon status for a specified release
 41 
' Renders a bar chart to show the daemon status for a specified release
59 
'   irtag_id: the specified release
 42 
'   irtag_id: the specified release