| 6166 |
dpurdie |
1 |
<%
|
|
|
2 |
'=====================================================
|
|
|
3 |
' common_daemon.asp
|
|
|
4 |
' Subroutines and functions commonthe the build daemon displays
|
|
|
5 |
'=====================================================
|
|
|
6 |
'
|
|
|
7 |
%>
|
|
|
8 |
<%
|
|
|
9 |
'------------ Constants Declaration -----------
|
|
|
10 |
Const Max_Delta = 600 ' Seconds
|
|
|
11 |
|
|
|
12 |
'--------------------------------------------------------------------------------------------------------------------------
|
|
|
13 |
Function PrettyDelta( delta, daemonState,pkgId )
|
|
|
14 |
Dim style
|
|
|
15 |
style = ""
|
|
|
16 |
|
|
|
17 |
If (delta > Max_Delta) AND (IsNull(pkgId) OR pkgId = "") Then
|
|
|
18 |
style = "style=color:Red"
|
|
|
19 |
If (delta > 86400 ) Then
|
|
|
20 |
Dim bdate, dd,mm,yy
|
|
|
21 |
bdate = DateAdd("s", - delta,Now())
|
|
|
22 |
dd = Day(bdate)
|
|
|
23 |
mm = MonthName(Month(bdate),1)
|
|
|
24 |
yy = Year( bdate)
|
|
|
25 |
delta = dd & "-" & mm & "-" & yy
|
|
|
26 |
If ( daemonState >= 2 ) Then
|
|
|
27 |
style = ""
|
|
|
28 |
End If
|
|
|
29 |
ElseIf ( delta > 60*60 ) Then
|
|
|
30 |
'Dim bdate, hh, mins, ss
|
|
|
31 |
bdate = DateAdd("s", - delta,Now())
|
|
|
32 |
delta = TimeValue( bdate)
|
|
|
33 |
'delta = hh & ":" & mins & ":" & ss
|
|
|
34 |
End If
|
|
|
35 |
End If
|
|
|
36 |
|
|
|
37 |
If style <> "" Then
|
|
|
38 |
delta = "<span " & style & ">" & delta & "</span>"
|
|
|
39 |
End If
|
|
|
40 |
PrettyDelta = delta
|
|
|
41 |
End Function
|
|
|
42 |
|
|
|
43 |
'--------------------------------------------------------------------------------------------------------------------------
|
|
|
44 |
' Convert daemon mode into a meaningful string
|
|
|
45 |
Function Get_Daemon_Mode( nMode )
|
|
|
46 |
If nMode = "M" Then
|
|
|
47 |
Get_Daemon_Mode = "Master"
|
|
|
48 |
ElseIf nMode = "S" Then
|
|
|
49 |
Get_Daemon_Mode = "Slave"
|
|
|
50 |
Else
|
|
|
51 |
Get_Daemon_Mode = "?"
|
|
|
52 |
End If
|
|
|
53 |
End Function
|
|
|
54 |
|
|
|
55 |
'--------------------------------------------------------------------------------------------------------------------------
|
|
|
56 |
Function Get_Run_Level( nLevel, indefinitePause, astate)
|
|
|
57 |
|
|
|
58 |
If indefinitePause Then
|
|
|
59 |
Get_Run_Level = "<span class='err_alert'>Stopped</span>"
|
|
|
60 |
ElseIf astate = 1 Then ' if build daemon paused
|
|
|
61 |
Get_Run_Level = "Paused"
|
|
|
62 |
ElseIf astate = 2 Then ' if build daemon disabled
|
|
|
63 |
Get_Run_Level = "Disabled"
|
|
|
64 |
ElseIf astate = 0 Then ' if build daemon enabled
|
|
|
65 |
If nLevel = 1 Then
|
|
|
66 |
Get_Run_Level = "Cannot Continue"
|
|
|
67 |
ElseIf nLevel = 2 Then
|
|
|
68 |
Get_Run_Level = "Paused"
|
|
|
69 |
ElseIf nLevel = 3 Then
|
|
|
70 |
Get_Run_Level = "Building"
|
|
|
71 |
ElseIf nLevel = 4 Then
|
|
|
72 |
Get_Run_Level = "Idle"
|
|
|
73 |
ElseIf nLevel = 5 Then
|
|
|
74 |
Get_Run_Level = "Waiting"
|
|
|
75 |
ElseIf nLevel = 6 Then
|
|
|
76 |
Get_Run_Level = "Publishing"
|
|
|
77 |
Else
|
|
|
78 |
Get_Run_Level = "<span class='err_alert'>Unknown!</span>"
|
|
|
79 |
End If
|
|
|
80 |
End If
|
|
|
81 |
|
|
|
82 |
End Function
|
|
|
83 |
|
|
|
84 |
'--------------------------------------------------------------------------------------------------------------------------
|
|
|
85 |
Function Get_Package_Name( sPackageName,nRtagId,nPkgPvid )
|
|
|
86 |
|
|
|
87 |
If IsNull(sPackageName) Then
|
|
|
88 |
Get_Package_Name = "None"
|
|
|
89 |
ElseIf IsNull(nPkgPvid) or nPkgPvid <= 0 Then
|
|
|
90 |
Get_Package_Name = sPackageName
|
|
|
91 |
Else
|
|
|
92 |
Get_Package_Name = "<a class=""txt_linked"" href=""dependencies.asp?pv_id=" + nPkgPvid + "&rtag_id=" + nRtagId + """>" + sPackageName + "</a>"
|
|
|
93 |
End If
|
|
|
94 |
|
|
|
95 |
End Function
|
|
|
96 |
'--------------------------------------------------------------------------------------------------------------------------
|
|
|
97 |
Function GetLastBuildAge( rtagid)
|
|
|
98 |
Dim query_string, rsQry
|
|
|
99 |
query_string = "SELECT TRUNC (86400*(SYSDATE - rl.LAST_BUILD)) as delta," &_
|
|
|
100 |
" TO_CHAR(rl.LAST_BUILD, 'DD-Mon-YYYY') as last_build," &_
|
|
|
101 |
" TO_CHAR(rl.LAST_BUILD, 'HH:MI:SS PM') as last_build_hours," &_
|
|
|
102 |
" TRUNC (SYSDATE - rl.LAST_BUILD) as last_build_days" &_
|
|
|
103 |
" FROM RELEASE_CONFIG rc, RUN_LEVEL rl, BUILD_MACHINE_CONFIG bm " &_
|
|
|
104 |
" WHERE rc.RTAG_ID =" &rtagid &_
|
|
|
105 |
" AND rc.bmcon_id is not null" &_
|
|
|
106 |
" AND rl.RCON_ID = rc.RCON_ID" &_
|
|
|
107 |
" AND rc.bmcon_id = bm.bmcon_id(+)"
|
|
|
108 |
|
|
|
109 |
Set rsQry = OraDatabase.DbCreateDynaset( query_string, ORADYN_DEFAULT )
|
|
|
110 |
If (NOT rsQry.BOF) AND (NOT rsQry.EOF) Then
|
|
|
111 |
Dim delta, last_build, last_build_time, last_build_days
|
|
|
112 |
If IsNull(rsQry("delta")) Then
|
|
|
113 |
delta = 0
|
|
|
114 |
Else
|
|
|
115 |
delta = CLng(rsQry("delta"))
|
|
|
116 |
End If
|
|
|
117 |
last_build = rsQry("last_build")
|
|
|
118 |
last_build_time = rsQry("last_build_hours")
|
|
|
119 |
last_build_days = rsQry("last_build_days")
|
|
|
120 |
If delta < (60*60*24) Then
|
|
|
121 |
GetLastBuildAge = last_build_time
|
|
|
122 |
Else
|
|
|
123 |
GetLastBuildAge = last_build
|
|
|
124 |
End If
|
|
|
125 |
End If
|
|
|
126 |
rsQry.Close()
|
|
|
127 |
Set rsQry = nothing
|
|
|
128 |
|
|
|
129 |
End Function
|
|
|
130 |
|
|
|
131 |
'--------------------------------------------------------------------------------------------------------------------------
|
|
|
132 |
Function GetModifiedSeqNo( rtagid)
|
|
|
133 |
Dim query_string, rsQry
|
|
|
134 |
query_string = "SELECT SEQNUM FROM RELEASE_MODIFIED WHERE RTAG_ID = " & rtagid
|
|
|
135 |
|
|
|
136 |
Set rsQry = OraDatabase.DbCreateDynaset( query_string, ORADYN_DEFAULT )
|
|
|
137 |
If (NOT rsQry.BOF) AND (NOT rsQry.EOF) Then
|
|
|
138 |
GetModifiedSeqNo = rsQry("SEQNUM")
|
|
|
139 |
Else
|
|
|
140 |
GetModifiedSeqNo = "-"
|
|
|
141 |
End If
|
|
|
142 |
rsQry.Close()
|
|
|
143 |
Set rsQry = nothing
|
|
|
144 |
|
|
|
145 |
End Function
|
|
|
146 |
'--------------------------------------------------------------------------------------------------------------------------
|
|
|
147 |
Function CheckConfigErrors (rtagId)
|
|
|
148 |
|
|
|
149 |
Dim rsQry, query
|
|
|
150 |
CheckConfigErrors = false
|
|
|
151 |
|
|
|
152 |
OraDatabase.Parameters.Add "RTAG_ID", rtagId, ORAPARM_INPUT, ORATYPE_NUMBER
|
|
|
153 |
|
|
|
154 |
'
|
|
|
155 |
' Check that there is exacly one master in the build set
|
|
|
156 |
query = _
|
|
|
157 |
"SELECT COUNT (rc.daemon_mode) as masterCount" &_
|
|
|
158 |
" FROM release_manager.release_config rc, release_manager.run_level rl" &_
|
|
|
159 |
" WHERE rc.rtag_id = :RTAG_ID" &_
|
|
|
160 |
" AND rl.RCON_ID = rc.RCON_ID" &_
|
|
|
161 |
" AND rc.bmcon_id is not NULL" &_
|
|
|
162 |
" GROUP BY rc.daemon_mode" &_
|
|
|
163 |
" HAVING rc.daemon_mode = 'M'"
|
|
|
164 |
|
|
|
165 |
Set rsQry = OraDatabase.DbCreateDynaset( query, ORADYN_DEFAULT )
|
|
|
166 |
|
|
|
167 |
If rsQry.RecordCount > 0 Then
|
|
|
168 |
If rsQry("masterCount") <> 1 Then
|
|
|
169 |
CheckConfigErrors = true
|
|
|
170 |
End If
|
|
|
171 |
End If
|
|
|
172 |
rsQry.Close
|
|
|
173 |
Set rsQry = Nothing
|
|
|
174 |
|
|
|
175 |
If NOT CheckConfigErrors Then
|
|
|
176 |
|
|
|
177 |
'
|
|
|
178 |
' Check that each GBE_MACHTYPE has exactly one insatnce where the BUILDFILTER contains
|
|
|
179 |
' a TOOLSET builder. The test is a bit sloppy
|
|
|
180 |
query = _
|
|
|
181 |
"SELECT * from ( " &_
|
|
|
182 |
"SELECT GBE_ID, COUNT(hasToolset) as ToolsetCount " &_
|
|
|
183 |
"FROM " &_
|
|
|
184 |
" (SELECT bc.GBE_ID, " &_
|
|
|
185 |
" CASE " &_
|
|
|
186 |
" WHEN INSTR(rc.GBE_BUILDFILTER, 'TOOLSET') > 0 " &_
|
|
|
187 |
" THEN 1 " &_
|
|
|
188 |
" ELSE NULL " &_
|
|
|
189 |
" END AS hasToolset " &_
|
|
|
190 |
" FROM release_manager.release_config rc, " &_
|
|
|
191 |
" BUILD_MACHINE_CONFIG bc " &_
|
| 6175 |
dpurdie |
192 |
" WHERE rc.rtag_id = :RTAG_ID " &_
|
| 6166 |
dpurdie |
193 |
" AND rc.bmcon_id IS NOT NULL " &_
|
|
|
194 |
" AND bc.bmcon_id = rc.bmcon_id " &_
|
|
|
195 |
" ) " &_
|
|
|
196 |
"GROUP BY GBE_ID ) " &_
|
|
|
197 |
"Where ToolsetCount != 1 "
|
|
|
198 |
|
|
|
199 |
Set rsQry = OraDatabase.DbCreateDynaset( query, ORADYN_DEFAULT )
|
|
|
200 |
|
|
|
201 |
If rsQry.RecordCount > 0 Then
|
|
|
202 |
CheckConfigErrors = true
|
|
|
203 |
End If
|
|
|
204 |
|
|
|
205 |
rsQry.Close
|
|
|
206 |
Set rsQry = Nothing
|
|
|
207 |
|
|
|
208 |
End If
|
|
|
209 |
|
|
|
210 |
OraDatabase.Parameters.Remove "RTAG_ID"
|
|
|
211 |
|
|
|
212 |
End Function
|
|
|
213 |
|
|
|
214 |
'--------------------------------------------------------------------------------------------------------------------------
|
|
|
215 |
Function Indefinitely_Paused()
|
|
|
216 |
Dim rsQry2
|
|
|
217 |
Dim query_string2
|
|
|
218 |
|
|
|
219 |
Indefinitely_Paused = False
|
|
|
220 |
|
|
|
221 |
query_string2 = " select * from run_level_schedule rls where rls.indefinite_pause = 'P'"
|
|
|
222 |
|
|
|
223 |
Set rsQry2 = OraDatabase.DbCreateDynaset( query_string2, ORADYN_DEFAULT )
|
|
|
224 |
If rsQry2.RecordCount > 0 Then
|
|
|
225 |
Indefinitely_Paused = True
|
|
|
226 |
End If
|
|
|
227 |
End Function
|
| 6175 |
dpurdie |
228 |
'--------------------------------------------------------------------------------------------------------------------------
|
|
|
229 |
Sub BuildMenuPane
|
|
|
230 |
If parRtagId <> 0 Then %>
|
|
|
231 |
<fieldset class=body_rowg>
|
|
|
232 |
<legend class="body_scol">Build Menu</legend>
|
|
|
233 |
<div style="margin:3px"><a href="release_config.asp?rtag_id=<%=parRtagId%>" class="body_rowg">Configuration</a></div>
|
|
|
234 |
<div style="margin:3px"><a href="build_status.asp?rtag_id=<%=parRtagId%>" class="body_rowg">Build Status</a></div>
|
|
|
235 |
<div style="margin:3px"><a href="build_plan.asp?rtag_id=<%=parRtagId%>" class="body_rowg">Build Plan</a></div>
|
|
|
236 |
<div style="margin:3px"><a href="build_release_log.asp?rtag_id=<%=parRtagId%>" class="body_rowg">Build Log</a></div>
|
|
|
237 |
</fieldset>
|
|
|
238 |
<%
|
|
|
239 |
End If
|
|
|
240 |
End Sub
|
| 6166 |
dpurdie |
241 |
%>
|
|
|
242 |
|