| Line 32... |
Line 32... |
| 32 |
Dim param_refreshPeriod
|
32 |
Dim param_refreshPeriod
|
| 33 |
Dim param_refreshEnabled
|
33 |
Dim param_refreshEnabled
|
| 34 |
Dim bIndefinitelyPaused
|
34 |
Dim bIndefinitelyPaused
|
| 35 |
'------------ Constants Declaration -----------
|
35 |
'------------ Constants Declaration -----------
|
| 36 |
Const Min_Refresh_Time = 10
|
36 |
Const Min_Refresh_Time = 10
|
| - |
|
37 |
Const Max_Delta = 600
|
| 37 |
'------------ Variable Init -------------------
|
38 |
'------------ Variable Init -------------------
|
| 38 |
|
39 |
|
| 39 |
styleAlt1="class='body_rowg1'"
|
40 |
styleAlt1="class='body_rowg1'"
|
| 40 |
styleAlt2="class='body_rowg2'"
|
41 |
styleAlt2="class='body_rowg2'"
|
| 41 |
styleNow = styleAlt1
|
42 |
styleNow = styleAlt1
|
| Line 84... |
Line 85... |
| 84 |
End Function
|
85 |
End Function
|
| 85 |
|
86 |
|
| 86 |
'--------------------------------------------------------------------------------------------------------------------------
|
87 |
'--------------------------------------------------------------------------------------------------------------------------
|
| 87 |
' Convert run level into a meaningful filter state as a string
|
88 |
' Convert run level into a meaningful filter state as a string
|
| 88 |
' Will be one of: active, idle, paused, disabled, problem, unknown
|
89 |
' Will be one of: active, idle, paused, disabled, problem, unknown
|
| 89 |
Function Classify_Run_Level( nLevel, indefinitePause, astate, overTime)
|
90 |
Function Classify_Run_Level( nLevel, indefinitePause, astate, nDelta, pkgId)
|
| 90 |
|
91 |
|
| 91 |
If indefinitePause Then
|
92 |
If indefinitePause Then
|
| 92 |
Classify_Run_Level = "problem"
|
93 |
Classify_Run_Level = "problem"
|
| 93 |
ElseIf astate = 1 Then ' if build daemon paused
|
94 |
ElseIf astate = 1 Then ' if build daemon paused
|
| 94 |
Classify_Run_Level = "paused"
|
95 |
Classify_Run_Level = "paused"
|
| 95 |
ElseIf astate = 2 Then ' if build daemon disabled
|
96 |
ElseIf astate = 2 Then ' if build daemon disabled
|
| 96 |
Classify_Run_Level = "disabled"
|
97 |
Classify_Run_Level = "disabled"
|
| 97 |
ElseIf overTime Then
|
98 |
ElseIf Int(nDelta) > Max_Delta Then
|
| 98 |
Classify_Run_Level = "problem"
|
99 |
Classify_Run_Level = "problem"
|
| - |
|
100 |
ElseIf (IsNull(pkgId)) OR (pkgId = "") Then
|
| - |
|
101 |
Classify_Run_Level = "idle"
|
| 99 |
ElseIf astate = 0 Then ' if build daemon enabled
|
102 |
ElseIf astate = 0 Then ' if build daemon enabled
|
| 100 |
If nLevel = 1 Then
|
103 |
If nLevel = 1 Then
|
| 101 |
Classify_Run_Level = "problem"
|
104 |
Classify_Run_Level = "problem"
|
| 102 |
ElseIf nLevel = 2 Then
|
105 |
ElseIf nLevel = 2 Then
|
| 103 |
Classify_Run_Level = "paused"
|
106 |
Classify_Run_Level = "paused"
|
| Line 114... |
Line 117... |
| 114 |
End If
|
117 |
End If
|
| 115 |
End If
|
118 |
End If
|
| 116 |
End Function
|
119 |
End Function
|
| 117 |
|
120 |
|
| 118 |
'--------------------------------------------------------------------------------------------------------------------------
|
121 |
'--------------------------------------------------------------------------------------------------------------------------
|
| 119 |
' Is a build occurring for this dataset/row ?
|
- |
|
| 120 |
Function Is_Actively_Building( nPkgId )
|
- |
|
| 121 |
Is_Actively_Building = False
|
- |
|
| 122 |
If (NOT IsNull(nPkgId)) AND (nPkgId <> "") Then
|
- |
|
| 123 |
Is_Actively_Building = True
|
- |
|
| 124 |
End If
|
- |
|
| 125 |
End Function
|
- |
|
| 126 |
'--------------------------------------------------------------------------------------------------------------------------
|
- |
|
| 127 |
' Return True if the paramter values represent a possibly hung daemon
|
- |
|
| 128 |
Function Daemon_Delta_Threshold_Exceeded( nDelta )
|
- |
|
| 129 |
Daemon_Delta_Threshold_Exceeded = False
|
- |
|
| 130 |
If (nDelta > 600) Then
|
- |
|
| 131 |
Daemon_Delta_Threshold_Exceeded = True
|
- |
|
| 132 |
End If
|
- |
|
| 133 |
End Function
|
- |
|
| 134 |
|
- |
|
| 135 |
'--------------------------------------------------------------------------------------------------------------------------
|
- |
|
| 136 |
' Return True if the paramter values represent a paused daemon
|
- |
|
| 137 |
Function Is_Paused( nLevel, indefinitePause )
|
- |
|
| 138 |
If indefinitePause Then
|
- |
|
| 139 |
Is_Paused = True
|
- |
|
| 140 |
Else
|
- |
|
| 141 |
If nLevel = 2 Then
|
- |
|
| 142 |
Is_Paused = True
|
- |
|
| 143 |
Else
|
- |
|
| 144 |
Is_Paused = False
|
- |
|
| 145 |
End If
|
- |
|
| 146 |
End If
|
- |
|
| 147 |
End Function
|
- |
|
| 148 |
|
- |
|
| 149 |
'--------------------------------------------------------------------------------------------------------------------------
|
- |
|
| 150 |
' Return True if the paramter values represent a disabled or paused daemon
|
- |
|
| 151 |
Function Is_Disabled( astate)
|
- |
|
| 152 |
If astate = 1 Then ' if build daemon paused
|
- |
|
| 153 |
Is_Disabled = True
|
- |
|
| 154 |
ElseIf astate = 2 Then ' if build daemon disabled
|
- |
|
| 155 |
Is_Disabled = True
|
- |
|
| 156 |
Else
|
- |
|
| 157 |
Is_Disabled = False
|
- |
|
| 158 |
End If
|
- |
|
| 159 |
End Function
|
- |
|
| 160 |
|
- |
|
| 161 |
'--------------------------------------------------------------------------------------------------------------------------
|
- |
|
| 162 |
' Convert daemon mode into a meaningful string
|
122 |
' Convert daemon mode into a meaningful string
|
| 163 |
Function Get_Daemon_Mode( nMode )
|
123 |
Function Get_Daemon_Mode( nMode )
|
| 164 |
If nMode = "M" Then
|
124 |
If nMode = "M" Then
|
| 165 |
Get_Daemon_Mode = "Master"
|
125 |
Get_Daemon_Mode = "Master"
|
| 166 |
ElseIf nMode = "S" Then
|
126 |
ElseIf nMode = "S" Then
|
| Line 295... |
Line 255... |
| 295 |
Indefinitely_Paused = True
|
255 |
Indefinitely_Paused = True
|
| 296 |
End If
|
256 |
End If
|
| 297 |
End Function
|
257 |
End Function
|
| 298 |
'--------------------------------------------------------------------------------------------------------------------------
|
258 |
'--------------------------------------------------------------------------------------------------------------------------
|
| 299 |
Function PrettyDelta( delta, daemonState,pkgId )
|
259 |
Function PrettyDelta( delta, daemonState,pkgId )
|
| 300 |
Dim style
|
260 |
Dim style,nDelta
|
| 301 |
style = ""
|
261 |
style = ""
|
| 302 |
|
262 |
|
| - |
|
263 |
If delta = "" Then delta = 0
|
| - |
|
264 |
delta = Int(delta)
|
| - |
|
265 |
nDelta = delta
|
| - |
|
266 |
|
| 303 |
If (delta > 600) AND (IsNull(pkgId) OR pkgId = "") Then
|
267 |
If (delta > Max_Delta) AND (IsNull(pkgId) OR pkgId = "") Then
|
| 304 |
style = "style=color:Red"
|
268 |
style = "style=color:Red"
|
| 305 |
If (delta > 86400 ) Then
|
269 |
If (delta > 86400 ) Then
|
| 306 |
Dim bdate, dd,mm,yy
|
270 |
Dim bdate, dd,mm,yy
|
| 307 |
bdate = DateAdd("s", - delta,Now())
|
271 |
bdate = DateAdd("s", - delta,Now())
|
| 308 |
dd = Day(bdate)
|
272 |
dd = Day(bdate)
|
| Line 321... |
Line 285... |
| 321 |
End If
|
285 |
End If
|
| 322 |
|
286 |
|
| 323 |
If style <> "" Then
|
287 |
If style <> "" Then
|
| 324 |
delta = "<span " & style & ">" & delta & "</span>"
|
288 |
delta = "<span " & style & ">" & delta & "</span>"
|
| 325 |
End If
|
289 |
End If
|
| 326 |
PrettyDelta = delta
|
290 |
PrettyDelta = delta
|
| 327 |
End Function
|
291 |
End Function
|
| 328 |
|
292 |
|
| 329 |
'--------------------------------------------------------------------------------------------------------------------------
|
293 |
'--------------------------------------------------------------------------------------------------------------------------
|
| 330 |
|
294 |
|
| 331 |
%>
|
295 |
%>
|
| Line 888... |
Line 852... |
| 888 |
' Initial default value is to not show the entire daemon set
|
852 |
' Initial default value is to not show the entire daemon set
|
| 889 |
bDisplay_whole_set = False
|
853 |
bDisplay_whole_set = False
|
| 890 |
|
854 |
|
| 891 |
' Classify the state of the daemon as one of: active, idle, paused, disabled, problem, unknown
|
855 |
' Classify the state of the daemon as one of: active, idle, paused, disabled, problem, unknown
|
| 892 |
If bShowProblemDaemonSets Then
|
856 |
If bShowProblemDaemonSets Then
|
| 893 |
dState = Classify_Run_Level(rsQry("current_run_level"),bIndefinitelyPaused,daemonState, Daemon_Delta_Threshold_Exceeded(rsQry("delta")))
|
857 |
dState = Classify_Run_Level(rsQry("current_run_level"),bIndefinitelyPaused,daemonState, rsQry("delta") ,pkgId)
|
| 894 |
If dState = "active" Then
|
858 |
If dState = "active" Then
|
| 895 |
ElseIf dState = "idle" Then
|
859 |
ElseIf dState = "idle" Then
|
| 896 |
ElseIf dState = "paused" Then
|
860 |
ElseIf dState = "paused" Then
|
| 897 |
ElseIf dState = "disabled" Then
|
861 |
ElseIf dState = "disabled" Then
|
| 898 |
ElseIf dState = "problem" Then
|
862 |
ElseIf dState = "problem" Then
|
| Line 914... |
Line 878... |
| 914 |
|
878 |
|
| 915 |
rsQry.MoveNext
|
879 |
rsQry.MoveNext
|
| 916 |
Do While (NOT rsQry.BOF) AND (NOT rsQry.EOF) AND rsQry("rtag_id") = thisRtagId
|
880 |
Do While (NOT rsQry.BOF) AND (NOT rsQry.EOF) AND rsQry("rtag_id") = thisRtagId
|
| 917 |
rtag_id_set_count = rtag_id_set_count + 1
|
881 |
rtag_id_set_count = rtag_id_set_count + 1
|
| 918 |
|
882 |
|
| 919 |
dState = Classify_Run_Level(rsQry("current_run_level"),bIndefinitelyPaused,daemonState, Daemon_Delta_Threshold_Exceeded(rsQry("delta")))
|
883 |
dState = Classify_Run_Level(rsQry("current_run_level"),bIndefinitelyPaused,daemonState, rsQry("delta"),pkgId)
|
| 920 |
If dState = "active" Then
|
884 |
If dState = "active" Then
|
| 921 |
ElseIf dState = "idle" Then
|
885 |
ElseIf dState = "idle" Then
|
| 922 |
ElseIf dState = "paused" Then
|
886 |
ElseIf dState = "paused" Then
|
| 923 |
ElseIf dState = "disabled" Then
|
887 |
ElseIf dState = "disabled" Then
|
| 924 |
ElseIf dState = "problem" Then
|
888 |
ElseIf dState = "problem" Then
|
| Line 936... |
Line 900... |
| 936 |
|
900 |
|
| 937 |
|
901 |
|
| 938 |
' Now figure out if this row of data is to be displayed or not
|
902 |
' Now figure out if this row of data is to be displayed or not
|
| 939 |
bRow_displayed = bDisplay_whole_set
|
903 |
bRow_displayed = bDisplay_whole_set
|
| 940 |
If NOT bRow_displayed Then
|
904 |
If NOT bRow_displayed Then
|
| 941 |
dState = Classify_Run_Level(rsQry("current_run_level"),bIndefinitelyPaused,daemonState, Daemon_Delta_Threshold_Exceeded(rsQry("delta")))
|
905 |
dState = Classify_Run_Level(rsQry("current_run_level"),bIndefinitelyPaused,daemonState, rsQry("delta"),pkgId)
|
| 942 |
If dState = "active" Then
|
906 |
If dState = "active" Then
|
| 943 |
If bShowActiveBuilds Then bRow_displayed = true
|
907 |
If bShowActiveBuilds Then bRow_displayed = true
|
| 944 |
ElseIf dState = "idle" Then
|
908 |
ElseIf dState = "idle" Then
|
| 945 |
If bShowIdleBuilds Then bRow_displayed = true
|
909 |
If bShowIdleBuilds Then bRow_displayed = true
|
| 946 |
ElseIf dState = "paused" Then
|
910 |
ElseIf dState = "paused" Then
|