| Line 76... |
Line 76... |
| 76 |
Sub DeleteDaemon(rcon_id_list)
|
76 |
Sub DeleteDaemon(rcon_id_list)
|
| 77 |
|
77 |
|
| 78 |
OraDatabase.Parameters.Add "RCON_ID_LIST", rcon_id_list, ORAPARM_INPUT, ORATYPE_VARCHAR2
|
78 |
OraDatabase.Parameters.Add "RCON_ID_LIST", rcon_id_list, ORAPARM_INPUT, ORATYPE_VARCHAR2
|
| 79 |
|
79 |
|
| 80 |
On Error Resume Next
|
80 |
On Error Resume Next
|
| - |
|
81 |
objEH.ErrorRedirect = FALSE
|
| 81 |
objEH.TryORA()
|
82 |
objEH.TryORA()
|
| 82 |
|
83 |
|
| 83 |
OraDatabase.ExecuteSQL "BEGIN PK_BUILDAPI.DELETE_DAEMON(:RCON_ID_LIST); END;"
|
84 |
OraDatabase.ExecuteSQL "BEGIN PK_BUILDAPI.DELETE_DAEMON(:RCON_ID_LIST); END;"
|
| 84 |
|
85 |
|
| 85 |
objEH.CatchORA ( OraSession )
|
86 |
objEH.CatchORA ( OraSession )
|
| Line 90... |
Line 91... |
| 90 |
Sub RemoveDaemon(rcon_id_list)
|
91 |
Sub RemoveDaemon(rcon_id_list)
|
| 91 |
|
92 |
|
| 92 |
OraDatabase.Parameters.Add "RCON_ID_LIST", rcon_id_list, ORAPARM_INPUT, ORATYPE_VARCHAR2
|
93 |
OraDatabase.Parameters.Add "RCON_ID_LIST", rcon_id_list, ORAPARM_INPUT, ORATYPE_VARCHAR2
|
| 93 |
|
94 |
|
| 94 |
On Error Resume Next
|
95 |
On Error Resume Next
|
| - |
|
96 |
objEH.ErrorRedirect = FALSE
|
| 95 |
objEH.TryORA()
|
97 |
objEH.TryORA()
|
| 96 |
|
98 |
|
| 97 |
OraDatabase.ExecuteSQL "BEGIN PK_BUILDAPI.REMOVE_DAEMON(:RCON_ID_LIST); END;"
|
99 |
OraDatabase.ExecuteSQL "BEGIN PK_BUILDAPI.REMOVE_DAEMON(:RCON_ID_LIST); END;"
|
| 98 |
|
100 |
|
| 99 |
objEH.CatchORA ( OraSession )
|
101 |
objEH.CatchORA ( OraSession )
|
| Line 109... |
Line 111... |
| 109 |
' Check that there is exacly one master in the build set
|
111 |
' Check that there is exacly one master in the build set
|
| 110 |
query = _
|
112 |
query = _
|
| 111 |
"SELECT COUNT (rc.daemon_mode) as masterCount" &_
|
113 |
"SELECT COUNT (rc.daemon_mode) as masterCount" &_
|
| 112 |
" FROM release_manager.release_config rc, release_manager.run_level rl" &_
|
114 |
" FROM release_manager.release_config rc, release_manager.run_level rl" &_
|
| 113 |
" WHERE rc.rtag_id = :RTAG_ID" &_
|
115 |
" WHERE rc.rtag_id = :RTAG_ID" &_
|
| 114 |
" AND rl.RCON_ID = rc.RCON_ID" &_
|
116 |
" AND rl.RCON_ID(+) = rc.RCON_ID" &_
|
| 115 |
" AND rc.bmcon_id is not NULL" &_
|
117 |
" AND rc.bmcon_id is not NULL" &_
|
| 116 |
" GROUP BY rc.daemon_mode" &_
|
118 |
" GROUP BY rc.daemon_mode" &_
|
| 117 |
" HAVING rc.daemon_mode = 'M'"
|
119 |
" HAVING rc.daemon_mode = 'M'"
|
| 118 |
|
120 |
|
| 119 |
Set rsQry = OraDatabase.DbCreateDynaset( query, ORADYN_DEFAULT )
|
121 |
Set rsQry = OraDatabase.DbCreateDynaset( query, ORADYN_DEFAULT )
|
| Line 193... |
Line 195... |
| 193 |
Call objFormComponent.FormStart()
|
195 |
Call objFormComponent.FormStart()
|
| 194 |
%>
|
196 |
%>
|
| 195 |
<table class="embedded_table" style="margin-bottom:20px" width="10">
|
197 |
<table class="embedded_table" style="margin-bottom:20px" width="10">
|
| 196 |
<tr>
|
198 |
<tr>
|
| 197 |
<td>
|
199 |
<td>
|
| 198 |
<table width="95%" border="0" cellspacing="0" cellpadding="0" align="center">
|
- |
|
| 199 |
<tr>
|
- |
|
| 200 |
<td nowrap class="form_ttl">
|
- |
|
| 201 |
<%If canActionControlInProject("BuildConfiguration") Then%>
|
- |
|
| 202 |
ADMINISTER
|
- |
|
| 203 |
<%Else%>
|
- |
|
| 204 |
VIEW
|
- |
|
| 205 |
<%End If%>
|
- |
|
| 206 |
BUILD CONFIGURATION
|
- |
|
| 207 |
</td>
|
- |
|
| 208 |
</tr>
|
- |
|
| 209 |
</table>
|
- |
|
| 210 |
<tr>
|
200 |
<tr>
|
| 211 |
<td>
|
201 |
<td>
|
| 212 |
<table class="rounded_box embedded_table">
|
202 |
<table class="rounded_box embedded_table">
|
| - |
|
203 |
<caption>
|
| - |
|
204 |
<%=IIf( canActionControlInProject("BuildConfiguration"),"ADMINISTER","VIEW")%> BUILD CONFIGURATION
|
| - |
|
205 |
</caption>
|
| 213 |
<tr>
|
206 |
<tr>
|
| 214 |
<td bgcolor="#FFFFFF"><img src="images/h_trsp_dot.gif" width="10"></td>
|
- |
|
| 215 |
<td bgcolor="#FFFFFF" valign="top">
|
207 |
<td class='controlPanel'>
|
| 216 |
<!-- MESSAGE +++++++++++++++++++++++++++++++++++++++++++++++++++ -->
|
208 |
<!-- MESSAGE +++++++++++++++++++++++++++++++++++++++++++++++++++ -->
|
| 217 |
<!--#include file="messages/_msg_inline.asp"-->
|
209 |
<!--#include file="messages/_msg_inline.asp"-->
|
| 218 |
<!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
|
210 |
<!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
|
| 219 |
<!-- BUTTONS CONTROL +++++++++++++++++++ -->
|
211 |
<!-- BUTTONS CONTROL +++++++++++++++++++ -->
|
| 220 |
<%
|
212 |
<%
|
| Line 225... |
Line 217... |
| 225 |
' Load some action buttons
|
217 |
' Load some action buttons
|
| 226 |
Call objBtnControl.LoadActionButtons ( Array("btnEditDaemon", "btnRemoveDaemon", "btnDeleteDaemon"), OraDatabase )
|
218 |
Call objBtnControl.LoadActionButtons ( Array("btnEditDaemon", "btnRemoveDaemon", "btnDeleteDaemon"), OraDatabase )
|
| 227 |
objBtnControl.ButtonSpacer = 1
|
219 |
objBtnControl.ButtonSpacer = 1
|
| 228 |
|
220 |
|
| 229 |
%>
|
221 |
%>
|
| - |
|
222 |
</td>
|
| - |
|
223 |
</tr>
|
| - |
|
224 |
<tr>
|
| - |
|
225 |
<td class=listPanel>
|
| 230 |
<!-- +++++++++++++++++++++++++++++++++++ -->
|
226 |
<!-- +++++++++++++++++++++++++++++++++++ -->
|
| 231 |
<table width="100%" border="0" cellspacing="2" cellpadding="0">
|
227 |
<table class=embedded_table>
|
| 232 |
<tr>
|
228 |
<thead>
|
| 233 |
<td valign="top" nowrap background="images/bg_table_col.gif" class="body_col"></td>
|
229 |
<th></th>
|
| 234 |
<td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">DAEMON HOST</td>
|
230 |
<th>DAEMON HOST</th>
|
| 235 |
<td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">GBE_MACHTYPE</td>
|
231 |
<th>GBE_MACHTYPE</th>
|
| 236 |
<td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">DAEMON MODE</td>
|
232 |
<th>DAEMON MODE</th>
|
| 237 |
<td valign="top" wrap background="images/bg_table_col.gif" class="body_col">GBE_BUILDFILTER</td>
|
233 |
<th>GBE_BUILDFILTER</th>
|
| 238 |
<%If canActionControlInProject("BuildConfiguration") Then%>
|
234 |
<%If canActionControlInProject("BuildConfiguration") Then%>
|
| 239 |
<td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">ACTION</td>
|
- |
|
| 240 |
<%End If%>
|
235 |
<th>ACTION</th>
|
| 241 |
<td valign="top">
|
236 |
<%End If%>
|
| 242 |
</tr>
|
237 |
</thead>
|
| 243 |
<%
|
238 |
<%
|
| 244 |
query_string = "select rcon_id, display_name, rc.bmcon_id, daemon_mode, gbe_value, gbe_buildfilter, NVL(active, 'U') as ACTIVE " &_
|
239 |
query_string = "select rcon_id, display_name, rc.bmcon_id, daemon_mode, gbe_value, gbe_buildfilter, NVL(active, 'U') as ACTIVE " &_
|
| 245 |
" from release_manager.release_config rc," &_
|
240 |
" from release_manager.release_config rc," &_
|
| 246 |
" release_manager.build_machine_config bm," &_
|
241 |
" release_manager.build_machine_config bm," &_
|
| 247 |
" release_manager.gbe_machtype gbe" &_
|
242 |
" release_manager.gbe_machtype gbe" &_
|
| Line 278... |
Line 273... |
| 278 |
bInactiveMachine = true
|
273 |
bInactiveMachine = true
|
| 279 |
dClass = " err_alert strike"
|
274 |
dClass = " err_alert strike"
|
| 280 |
End If
|
275 |
End If
|
| 281 |
|
276 |
|
| 282 |
%>
|
277 |
%>
|
| 283 |
<tr>
|
- |
|
| 284 |
<td colspan="5" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
|
- |
|
| 285 |
</tr>
|
- |
|
| 286 |
<tr>
|
278 |
<tr class=border>
|
| 287 |
<td valign="top" align="center"><input type=<%=cbtype%> name="rcon_id_list" value="<%=rsQry("rcon_id")%>"></td>
|
279 |
<td class=center><input type=<%=cbtype%> name="rcon_id_list" value="<%=rsQry("rcon_id")%>"></td>
|
| 288 |
<td valign="top" nowrap class="body_rowg<%=dClass%>"><%=daemon%></td>
|
280 |
<td <%=dClass%>"><%=daemon%></td>
|
| 289 |
<td valign="top" nowrap class="body_rowg"><%=rsQry("gbe_value")%></td>
|
281 |
<td><%=rsQry("gbe_value")%></td>
|
| 290 |
<td valign="top" nowrap class="body_rowg"><%=daemon_mode%></td>
|
282 |
<td><%=daemon_mode%></td>
|
| 291 |
<td valign="top" wrap class="body_rowg"><%=rsQry("gbe_buildfilter")%></td>
|
283 |
<td class=wrap><%=rsQry("gbe_buildfilter")%></td>
|
| 292 |
<%If canActionControlInProject("BuildConfiguration") Then%>
|
284 |
<%If canActionControlInProject("BuildConfiguration") Then%>
|
| 293 |
<td valign="top" nowrap class="body_rowg">
|
285 |
<td>
|
| 294 |
<%Call objBtnControl.Render ( Array("btnEditDaemon", "btnRemoveDaemon", "btnDeleteDaemon"), objAccessControl )%>
|
286 |
<%Call objBtnControl.Render ( Array("btnEditDaemon", "btnRemoveDaemon", "btnDeleteDaemon"), objAccessControl )%>
|
| 295 |
</td>
|
287 |
</td>
|
| 296 |
<%End If%>
|
288 |
<%End If%>
|
| 297 |
</tr>
|
289 |
</tr>
|
| 298 |
<%
|
290 |
<%
|
| Line 301... |
Line 293... |
| 301 |
rsQry.Close()
|
293 |
rsQry.Close()
|
| 302 |
Set rsQry = nothing
|
294 |
Set rsQry = nothing
|
| 303 |
%>
|
295 |
%>
|
| 304 |
</table>
|
296 |
</table>
|
| 305 |
</td>
|
297 |
</td>
|
| 306 |
<td background="images/lbox_bgside_white.gif"> </td>
|
- |
|
| 307 |
</tr>
|
298 |
</tr>
|
| 308 |
<%If masterCount <> 1 OR toolsetWarning OR bInactiveMachine Then %>
|
299 |
<%If masterCount <> 1 OR toolsetWarning OR bInactiveMachine Then %>
|
| 309 |
<tr class="form_error form_btn">
|
- |
|
| 310 |
<td></td>
|
300 |
<tr>
|
| 311 |
<td style="padding: 10px;">
|
301 |
<td class='errorPanel'>
|
| 312 |
<table class="full_table form_error">
|
302 |
<table class="full_table">
|
| 313 |
<%If masterCount <> 1 Then %>
|
303 |
<%If masterCount <> 1 Then %>
|
| 314 |
<tr>
|
304 |
<tr>
|
| 315 |
<td nowrap class="err_alert">Error
|
305 |
<td nowrap class="err_alert">Error
|
| 316 |
<td class="body_rowg"> The set of Build Machines must have exactly one Master.
|
306 |
<td> The set of Build Machines must have exactly one Master.
|
| 317 |
</tr>
|
307 |
</tr>
|
| 318 |
<%End If%>
|
308 |
<%End If%>
|
| 319 |
<%If bInactiveMachine Then %>
|
309 |
<%If bInactiveMachine Then %>
|
| 320 |
<tr>
|
310 |
<tr>
|
| 321 |
<td nowrap class="err_alert">Error
|
311 |
<td nowrap class="err_alert">Error
|
| 322 |
<td class="body_rowg">One or more of the Build Machines have been deprecated and no longer available for use.
|
312 |
<td>One or more of the Build Machines have been deprecated and no longer available for use.
|
| 323 |
</tr>
|
313 |
</tr>
|
| 324 |
<%End If%>
|
314 |
<%End If%>
|
| 325 |
<%If toolsetWarning Then %>
|
315 |
<%If toolsetWarning Then %>
|
| 326 |
<tr>
|
316 |
<tr>
|
| 327 |
<td nowrap class="err_alert">Warning
|
317 |
<td nowrap class="err_alert">Warning
|
| 328 |
<td class="body_rowg">There should be one TOOLSET builder within each set of machines with the same GBE_MACHTYPE.
|
318 |
<td>There should be one TOOLSET builder within each set of machines with the same GBE_MACHTYPE.
|
| 329 |
</tr>
|
319 |
</tr>
|
| 330 |
<%End If%>
|
320 |
<%End If%>
|
| 331 |
</tr>
|
321 |
</tr>
|
| 332 |
</table>
|
322 |
</table>
|
| 333 |
</td>
|
323 |
</td>
|
| 334 |
<td></td>
|
- |
|
| 335 |
</tr>
|
324 |
</tr>
|
| 336 |
<%End If%>
|
325 |
<%End If%>
|
| 337 |
<tr>
|
326 |
<tr>
|
| 338 |
<!-- ACTION BUTTONS ---------------------------------------------->
|
327 |
<!-- ACTION BUTTONS ---------------------------------------------->
|
| 339 |
<td background="images/bg_action_norm.gif" ></td>
|
328 |
<td class='buttonPanel'>
|
| 340 |
<td align="right" background="images/bg_action_norm.gif" >
|
- |
|
| 341 |
|
329 |
|
| 342 |
<%=objFormComponent.CancelButton ( "OK", "class='form_btn'", "build_status.asp?rtag_id="& parRtagId )%>
|
330 |
<%=objFormComponent.CancelButton ( "OK", "", "build_status.asp?rtag_id="& parRtagId )%>
|
| 343 |
<%=objPMod.ComposeHiddenTags()%>
|
331 |
<%=objPMod.ComposeHiddenTags()%>
|
| 344 |
<%If canActionControlInProject("BuildConfiguration") Then%>
|
332 |
<%If canActionControlInProject("BuildConfiguration") Then%>
|
| 345 |
<input name="btn" type="submit" class="form_btn" value="Unlink">
|
333 |
<input name="btn" type="submit" value="Unlink">
|
| 346 |
<input name="btn" type="submit" class="form_btn" value="Delete">
|
334 |
<input name="btn" type="submit" value="Delete">
|
| 347 |
<%End If%>
|
335 |
<%End If%>
|
| 348 |
<input type="hidden" name="rcon_id_list" value="<%=Request("rcon_id_list")%>">
|
336 |
<input type="hidden" name="rcon_id_list" value="<%=Request("rcon_id_list")%>">
|
| 349 |
<input type="hidden" name="action" value="true">
|
337 |
<input type="hidden" name="action" value="true">
|
| 350 |
</td>
|
338 |
</td>
|
| 351 |
<td background="images/bg_action_norm.gif" ><img src="images/h_trsp_dot.gif" width="5" height="30"></td>
|
- |
|
| 352 |
<!-- ACTION BUTTONS END ------------------------------------------></td>
|
339 |
<!-- ACTION BUTTONS END ------------------------------------------></td>
|
| 353 |
</tr>
|
340 |
</tr>
|
| 354 |
</table>
|
341 |
</table>
|
| 355 |
</tr>
|
342 |
</tr>
|
| 356 |
</table>
|
343 |
</table>
|
| Line 359... |
Line 346... |
| 359 |
'-- FROM END ----------------------------------------------------------------------------------------------------------------
|
346 |
'-- FROM END ----------------------------------------------------------------------------------------------------------------
|
| 360 |
End Sub
|
347 |
End Sub
|
| 361 |
'---------------------------------------------------------------------
|
348 |
'---------------------------------------------------------------------
|
| 362 |
%>
|
349 |
%>
|
| 363 |
<html>
|
350 |
<html>
|
| - |
|
351 |
<!-- StyleSheet Extensions -->
|
| 364 |
<head>
|
352 |
<head>
|
| 365 |
<title>Release Manager</title>
|
353 |
<title>Release Manager</title>
|
| 366 |
<link rel="shortcut icon" href="<%=FavIcon%>"/>
|
354 |
<link rel="shortcut icon" href="<%=FavIcon%>"/>
|
| 367 |
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
|
355 |
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
|
| 368 |
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
|
356 |
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
|