| Line 73... |
Line 73... |
| 73 |
" rl.CURRENT_RUN_LEVEL, "&_
|
73 |
" rl.CURRENT_RUN_LEVEL, "&_
|
| 74 |
" NVL(rl.PAUSE,0) as PAUSE, " &_
|
74 |
" NVL(rl.PAUSE,0) as PAUSE, " &_
|
| 75 |
" TRUNC (86400*(SYSDATE - rl.KEEP_ALIVE)) as delta," &_
|
75 |
" TRUNC (86400*(SYSDATE - rl.KEEP_ALIVE)) as delta," &_
|
| 76 |
" TO_CHAR(rl.LAST_BUILD, 'DD-MON-YYYY') as last_build," &_
|
76 |
" TO_CHAR(rl.LAST_BUILD, 'DD-MON-YYYY') as last_build," &_
|
| 77 |
" TRUNC (SYSDATE - rl.LAST_BUILD) as last_build_days," &_
|
77 |
" TRUNC (SYSDATE - rl.LAST_BUILD) as last_build_days," &_
|
| 78 |
" pkg.PKG_NAME" &_
|
78 |
" pkg.PKG_NAME, NVL(ACTIVE, 'U') as ACTIVE" &_
|
| 79 |
" FROM RELEASE_CONFIG rc, RELEASE_TAGS rt, PROJECTS p, RUN_LEVEL rl, BUILD_MACHINE_CONFIG bm, PACKAGES pkg " &_
|
79 |
" FROM RELEASE_CONFIG rc, RELEASE_TAGS rt, PROJECTS p, RUN_LEVEL rl, BUILD_MACHINE_CONFIG bm, PACKAGES pkg " &_
|
| 80 |
" WHERE rt.RTAG_ID = rc.RTAG_ID " &_
|
80 |
" WHERE rt.RTAG_ID = rc.RTAG_ID " &_
|
| 81 |
" AND rc.bmcon_id is not null" &_
|
81 |
" AND rc.bmcon_id is not null" &_
|
| 82 |
" AND rt.PROJ_ID = p.PROJ_ID " &_
|
82 |
" AND rt.PROJ_ID = p.PROJ_ID " &_
|
| 83 |
" AND rt.OFFICIAL in ( 'N', 'R', 'C')" &_
|
83 |
" AND rt.OFFICIAL in ( 'N', 'R', 'C')" &_
|
| Line 105... |
Line 105... |
| 105 |
bms.Item("PAUSE") = CInt(rsQry("PAUSE"))
|
105 |
bms.Item("PAUSE") = CInt(rsQry("PAUSE"))
|
| 106 |
bms.Item("delta") = rsQry("delta")
|
106 |
bms.Item("delta") = rsQry("delta")
|
| 107 |
bms.Item("last_build") = rsQry("last_build")
|
107 |
bms.Item("last_build") = rsQry("last_build")
|
| 108 |
bms.Item("last_build_days") = NiceInt(rsQry("last_build_days"), 100)
|
108 |
bms.Item("last_build_days") = NiceInt(rsQry("last_build_days"), 100)
|
| 109 |
bms.Item("PKG_NAME") = rsQry("PKG_NAME")
|
109 |
bms.Item("PKG_NAME") = rsQry("PKG_NAME")
|
| - |
|
110 |
bms.Item("ACTIVE") = rsQry("ACTIVE")
|
| 110 |
|
111 |
|
| 111 |
' Calculate some values
|
112 |
' Calculate some values
|
| 112 |
bms.Item("dState") = Classify_Run_Level(bms.Item("CURRENT_RUN_LEVEL"),_
|
113 |
bms.Item("dState") = Classify_Run_Level(bms.Item("CURRENT_RUN_LEVEL"),_
|
| 113 |
bIndefinitelyPaused,_
|
114 |
bIndefinitelyPaused,_
|
| 114 |
bms.Item("PAUSE"), _
|
115 |
bms.Item("PAUSE"), _
|
| 115 |
bms.Item("delta") ,_
|
116 |
bms.Item("delta") ,_
|
| 116 |
bms.Item("CURRENT_PKG_ID_BEING_BUILT"))
|
117 |
bms.Item("CURRENT_PKG_ID_BEING_BUILT"),_
|
| - |
|
118 |
bms.Item("ACTIVE"))
|
| 117 |
|
119 |
|
| 118 |
bms.Item("dStateText") = Get_Run_Level(bms.Item("CURRENT_RUN_LEVEL"),_
|
120 |
bms.Item("dStateText") = Get_Run_Level(bms.Item("CURRENT_RUN_LEVEL"),_
|
| 119 |
bIndefinitelyPaused,_
|
121 |
bIndefinitelyPaused,_
|
| 120 |
bms.Item("PAUSE"))
|
122 |
bms.Item("PAUSE"),_
|
| - |
|
123 |
bms.Item("ACTIVE"))
|
| 121 |
|
124 |
|
| 122 |
' Kill package name on disabled daemons
|
125 |
' Kill package name on disabled daemons
|
| 123 |
If bms.Item("PAUSE") = 2 Then bms.Item("PKG_NAME") = Null
|
126 |
If bms.Item("PAUSE") = 2 Then bms.Item("PKG_NAME") = Null
|
| 124 |
|
127 |
|
| 125 |
|
128 |
|
| Line 218... |
Line 221... |
| 218 |
End If
|
221 |
End If
|
| 219 |
End Sub
|
222 |
End Sub
|
| 220 |
'--------------------------------------------------------------------------------------------------------------------------
|
223 |
'--------------------------------------------------------------------------------------------------------------------------
|
| 221 |
' Convert run level into a meaningful filter state as a string
|
224 |
' Convert run level into a meaningful filter state as a string
|
| 222 |
' Will be one of: active, idle, paused, disabled, problem, unknown
|
225 |
' Will be one of: active, idle, paused, disabled, problem, unknown
|
| 223 |
Function Classify_Run_Level( nLevel, indefinitePause, astate, nDelta, pkgId)
|
226 |
Function Classify_Run_Level( nLevel, indefinitePause, astate, nDelta, pkgId, bActive)
|
| 224 |
|
227 |
|
| - |
|
228 |
If bActive = "N" Then
|
| - |
|
229 |
Classify_Run_Level = "problem"
|
| 225 |
If indefinitePause Then
|
230 |
ElseIf indefinitePause Then
|
| 226 |
Classify_Run_Level = "problem"
|
231 |
Classify_Run_Level = "problem"
|
| 227 |
ElseIf astate = 1 Then ' if build daemon paused
|
232 |
ElseIf astate = 1 Then ' if build daemon paused
|
| 228 |
Classify_Run_Level = "paused"
|
233 |
Classify_Run_Level = "paused"
|
| 229 |
ElseIf astate = 2 Then ' if build daemon disabled
|
234 |
ElseIf astate = 2 Then ' if build daemon disabled
|
| 230 |
Classify_Run_Level = "disabled"
|
235 |
Classify_Run_Level = "disabled"
|