Subversion Repositories DevTools

Rev

Rev 6548 | Rev 6615 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
5357 dpurdie 1
<%@LANGUAGE="VBSCRIPT"%>
2
<%
3
'=====================================================
4
'|                                                   |
5
'|          Edit/View Build Configuration            |
6
'|                                                   |
7
'=====================================================
8
%>
9
<%
10
Option explicit
11
' Good idea to set when using redirect
12
Response.Expires = 0   ' always load the page, dont store
13
%>
14
<!--#include file="common/conf.asp"-->
15
<!--#include file="common/globals.asp"-->
16
<!--#include file="common/formating.asp"-->
17
<!--#include file="common/qstr.asp"-->
18
<!--#include file="common/common_subs.asp"-->
19
<!--#include file="common/_form_window_common.asp"-->
20
<!--#include file="_action_buttons.asp"-->
21
<!--#include file="class/classActionButtonControl.asp"-->
6175 dpurdie 22
<!--#include file="common/common_daemon.asp"-->
6052 dpurdie 23
<% objPMod.PersistInQryString("proj_id") %>
24
<% '------------ ACCESS CONTROL ------------------ %>
6181 dpurdie 25
<!--#include file="_access_control_login_optional.asp"-->
6070 dpurdie 26
<!--#include file="_access_control_general.asp"-->
6052 dpurdie 27
<!--#include file="_access_control_action_project.asp"-->
5357 dpurdie 28
<%
29
'------------ Variable Definition -------------
30
Dim objSortHelper
31
Dim rsQry
32
Dim parRtagId
33
Dim query_string
34
Dim objBtnControl
35
Dim rcon_id
6166 dpurdie 36
Dim masterCount
37
Dim toolsetWarning
38
 
5357 dpurdie 39
'------------ Constants Declaration -----------
40
'------------ Variable Init -------------------
41
parRtagId = Request("rtag_id")
42
objPMod.PersistInQryString("rtag_id")
43
Set objBtnControl = New ActionButtonControl
44
'----------------------------------------------
45
%>
46
<%
47
'--------------------------------------------------------------------------------------------------------------------------
48
Sub GetFormDetails ( parRtagId, ByRef outobjDetails )
49
   Dim rsQry, query
50
 
51
 
52
   OraDatabase.Parameters.Add "RTAG_ID",    parRtagId,      ORAPARM_INPUT, ORATYPE_NUMBER
53
 
54
   query = _
55
   " SELECT * "&_
56
   "  FROM RELEASE_TAGS rt"&_
57
   " WHERE rt.RTAG_ID = :RTAG_ID"
58
 
59
   Set rsQry = OraDatabase.DbCreateDynaset( query, ORADYN_DEFAULT )
60
 
61
   OraDatabase.Parameters.Remove "RTAG_ID"
62
 
63
 
64
 
65
   If rsQry.RecordCount > 0 Then
66
      outobjDetails.Item ("rtag_id") = rsQry("rtag_id")
67
      outobjDetails.Item ("rtag_name") = rsQry("rtag_name")
68
   Else
69
      Err.Raise 8, "Sub GetFormDetails in "& ScriptName, "Empty record set returned. parRtagId="& parRtagId
70
 
71
   End If
72
 
73
   rsQry.Close
74
   Set rsQry = Nothing
75
End Sub
76
'--------------------------------------------------------------------------------------------------------------------------
77
Sub DeleteDaemon(rcon_id_list)
78
 
79
   OraDatabase.Parameters.Add "RCON_ID_LIST",   rcon_id_list,    ORAPARM_INPUT, ORATYPE_VARCHAR2
80
 
81
   On Error Resume Next
82
   objEH.TryORA()
83
 
84
   OraDatabase.ExecuteSQL "BEGIN  PK_BUILDAPI.DELETE_DAEMON(:RCON_ID_LIST);  END;"
85
 
86
   objEH.CatchORA ( OraSession )
87
 
88
   OraDatabase.Parameters.Remove "RCON_ID_LIST"
89
End Sub
90
'--------------------------------------------------------------------------------------------------------------------------
91
Sub RemoveDaemon(rcon_id_list)
92
 
93
   OraDatabase.Parameters.Add "RCON_ID_LIST",   rcon_id_list,    ORAPARM_INPUT, ORATYPE_VARCHAR2
94
 
95
   On Error Resume Next
96
   objEH.TryORA()
97
 
98
   OraDatabase.ExecuteSQL "BEGIN  PK_BUILDAPI.REMOVE_DAEMON(:RCON_ID_LIST);  END;"
99
 
100
   objEH.CatchORA ( OraSession )
101
 
102
   OraDatabase.Parameters.Remove "RCON_ID_LIST"
103
End Sub
104
'--------------------------------------------------------------------------------------------------------------------------
6166 dpurdie 105
Sub CheckMasterConfig()
106
    Dim rsQry, query
107
    OraDatabase.Parameters.Add "RTAG_ID",    parRtagId,      ORAPARM_INPUT, ORATYPE_NUMBER
108
 
109
    '
110
    '   Check that there is exacly one master in the build set
111
    query = _
112
        "SELECT COUNT (rc.daemon_mode) as masterCount" &_
113
        " FROM release_manager.release_config rc, release_manager.run_level rl" &_
114
        " WHERE rc.rtag_id   = :RTAG_ID" &_
115
        " AND rl.RCON_ID = rc.RCON_ID" &_
116
        " AND   rc.bmcon_id is not NULL" &_
117
        " GROUP BY rc.daemon_mode" &_
118
        " HAVING rc.daemon_mode = 'M'"
119
 
120
    Set rsQry = OraDatabase.DbCreateDynaset( query, ORADYN_DEFAULT )
121
 
122
    If rsQry.RecordCount > 0 Then
123
       masterCount = rsQry("masterCount")
124
    End If
125
    rsQry.Close
126
    Set rsQry = Nothing
127
 
6183 dpurdie 128
    If bGetApplication("CheckToolset", TRUE) Then
129
        '
130
        '   Check that each GBE_MACHTYPE has exactly one instance where the BUILDFILTER contains
131
        '   a TOOLSET builder. The test is a bit sloppy
132
        query = _
133
            "SELECT * from ( " &_
134
            "SELECT GBE_ID, COUNT(hasToolset) as ToolsetCount " &_
135
            "FROM  " &_
136
            "  (SELECT bc.GBE_ID, " &_
137
            "    CASE " &_
138
            "      WHEN INSTR(rc.GBE_BUILDFILTER, 'TOOLSET') > 0 " &_
139
            "      THEN 1 " &_
140
            "      ELSE NULL " &_
141
            "    END AS hasToolset " &_
142
            "  FROM release_manager.release_config rc, " &_
143
            "    BUILD_MACHINE_CONFIG bc " &_
144
            "  WHERE rc.rtag_id = :RTAG_ID " &_
145
            "  AND rc.bmcon_id IS NOT NULL " &_
146
            "  AND bc.bmcon_id  = rc.bmcon_id " &_
147
            "  ) " &_
148
            "GROUP BY GBE_ID ) " &_
149
            "Where  ToolsetCount != 1 "
6166 dpurdie 150
 
6183 dpurdie 151
        Set rsQry = OraDatabase.DbCreateDynaset( query, ORADYN_DEFAULT )
6166 dpurdie 152
 
6183 dpurdie 153
        toolsetWarning =  rsQry.RecordCount > 0 
154
        rsQry.Close
155
        Set rsQry = Nothing
156
    End If
6166 dpurdie 157
 
158
    OraDatabase.Parameters.Remove "RTAG_ID"
159
 
160
End Sub
5357 dpurdie 161
%>
162
<%
163
'------------ RUN BEFORE PAGE RENDER ----------
164
' --- Get Form details from DB ---
165
Call GetFormDetails ( Request("rtag_id"), objFormCollector )
166
 
167
' --- Enter Form Validation Rule Changes here... ----
168
'----------------------------------------------------
169
 
170
' --- RUN onPostBack ---
171
If Request("action") <> "" AND objAccessControl.UserLogedIn Then
172
   If objForm.IsValidOnPostBack Then
173
      If canActionControlInProject("BuildConfiguration") Then
174
         If Request("btn") = "Delete" Then
175
             Call DeleteDaemon(Request("rcon_id_list"))
176
         ElseIf Request("btn") = "Unlink" Then
177
             Call RemoveDaemon(Request("rcon_id_list"))
178
        End If
179
      End If
180
 
181
      If objEH.Finally Then
182
         Call OpenInWindow ( "release_config.asp?rtag_id="& parRtagId )
183
      End If
184
 
185
   End If
186
 
187
End If
6166 dpurdie 188
Call CheckMasterConfig()
5357 dpurdie 189
'----------------------------------------------
6548 dpurdie 190
Sub ShowBuildConfig
191
    '-- FROM START ---------------------------------------------------------------------------------------------------------
192
    objFormComponent.FormName = "FormName"
193
    objFormComponent.Action = ScriptName
194
    Call objFormComponent.FormStart()
5357 dpurdie 195
%>
6548 dpurdie 196
    <table class="embedded_table" style="margin-bottom:20px" width="10">
197
        <tr>
198
            <td>
199
                <table width="95%" border="0" cellspacing="0" cellpadding="0" align="center">
200
                   <tr>
201
                      <td nowrap class="form_ttl">
202
                            <%If canActionControlInProject("BuildConfiguration") Then%>
203
                               ADMINISTER
204
                            <%Else%>
205
                               VIEW
206
                            <%End If%>
207
                            BUILD CONFIGURATION
208
                      </td>
209
                   </tr>
210
                </table>
211
            <tr>
212
                <td>
213
                    <table class="rounded_box embedded_table">
214
                        <tr>
215
                         <td bgcolor="#FFFFFF"><img src="images/h_trsp_dot.gif" width="10"></td>
216
                         <td bgcolor="#FFFFFF" valign="top">
217
                            <!-- MESSAGE +++++++++++++++++++++++++++++++++++++++++++++++++++ -->
218
                            <!--#include file="messages/_msg_inline.asp"-->
219
                            <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
220
                            <!-- BUTTONS CONTROL +++++++++++++++++++ -->
221
                            <%
222
                            If canActionControlInProject("BuildConfiguration") Then
223
                               Call Action_Buttons ( "Add Daemon" )
224
                            End If
5357 dpurdie 225
 
6548 dpurdie 226
                            ' Load some action buttons
227
                            Call objBtnControl.LoadActionButtons ( Array("btnEditDaemon", "btnRemoveDaemon", "btnDeleteDaemon"), OraDatabase )
228
                            objBtnControl.ButtonSpacer = 1
229
 
230
                            %>
231
                            <!-- +++++++++++++++++++++++++++++++++++ -->
232
                            <table width="100%"  border="0" cellspacing="2" cellpadding="0">
233
                              <tr>
234
                                 <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col"></td>
235
                                 <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">DAEMON HOST</td>
236
                                 <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">GBE_MACHTYPE</td>
237
                                 <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">DAEMON MODE</td>
238
                                 <td valign="top"   wrap background="images/bg_table_col.gif" class="body_col">GBE_BUILDFILTER</td>
239
                                 <%If canActionControlInProject("BuildConfiguration") Then%>
240
                                    <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">ACTION</td>
241
                                 <%End If%>
242
                                 <td valign="top">
243
                              </tr>
244
                              <%
245
                              query_string = "select rcon_id, display_name, rc.bmcon_id, daemon_mode, gbe_value, gbe_buildfilter, NVL(active, 'U') as ACTIVE " &_
246
                                             " from release_manager.release_config rc," &_
247
                                             "      release_manager.build_machine_config bm," &_
248
                                             "      release_manager.gbe_machtype gbe" &_
249
                                             " where rc.rtag_id=" & parRtagId &_
250
                                             "      and rc.bmcon_id=bm.bmcon_id(+)" &_
251
                                             "      and rc.gbe_id=gbe.gbe_id" &_
252
                                             " order by daemon_mode, bm.display_name"
253
                              Set rsQry = OraDatabase.DbCreateDynaset( query_string, ORADYN_DEFAULT )
254
                              Dim daemon_mode, daemon, cbtype, bActive, bInactiveMachine, dClass
255
                              bInactiveMachine = false
256
 
257
                              cbtype = "hidden"
258
                              If canActionControlInProject("BuildConfiguration") Then
259
                                 cbtype = "checkbox"
260
                              End If
261
 
262
                              '--- Render rows ---
263
                              Do While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
264
                                 rcon_id = rsQry("rcon_id")
265
                                 daemon  = rsQry("display_name")
266
                                 If IsNull(daemon) Then
267
                                     daemon = ""
268
                                 End If
269
 
270
                                 If rsQry("daemon_mode") = "M" Then
271
                                    daemon_mode = "MASTER"
272
                                 Else
273
                                    daemon_mode = "SLAVE"
274
                                 End If
275
 
276
                                 bActive = rsQry("active")
277
                                 dClass = ""
278
                                 If bActive = "N" Then
279
                                    bInactiveMachine = true
280
                                    dClass = " err_alert strike"
281
                                 End If
282
 
283
                                 %>
284
                                 <tr>
285
                                    <td colspan="5" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
286
                                 </tr>
287
                                 <tr>
288
                                    <td valign="top" align="center"><input type=<%=cbtype%> name="rcon_id_list" value="<%=rsQry("rcon_id")%>"></td>
289
                                    <td valign="top"    nowrap class="body_rowg<%=dClass%>"><%=daemon%></td>
290
                                    <td valign="top"    nowrap class="body_rowg"><%=rsQry("gbe_value")%></td>
291
                                    <td valign="top"    nowrap class="body_rowg"><%=daemon_mode%></td>
292
                                    <td valign="top"      wrap class="body_rowg"><%=rsQry("gbe_buildfilter")%></td>
293
                                    <%If canActionControlInProject("BuildConfiguration") Then%>
294
                                       <td valign="top" nowrap class="body_rowg">
295
                                            <%Call objBtnControl.Render  ( Array("btnEditDaemon", "btnRemoveDaemon", "btnDeleteDaemon"), objAccessControl )%>
296
                                       </td>
297
                                    <%End If%>
298
                                 </tr>
299
                                 <%
300
                                 rsQry.MoveNext
301
                                  Loop
302
                                  rsQry.Close()
303
                                  Set rsQry = nothing
304
                                  %>
305
                            </table>
306
                        </td>
307
                        <td background="images/lbox_bgside_white.gif">&nbsp;</td>
308
                        </tr>
309
                        <%If masterCount <> 1 OR toolsetWarning OR bInactiveMachine Then %>
310
                          <tr class="form_error form_btn">
311
                            <td></td>
312
                            <td style="padding: 10px;">
313
                            <table class="full_table form_error">
314
                                <%If masterCount <> 1 Then %>
315
                                 <tr>
316
                                    <td nowrap class="err_alert">Error
317
                                    <td class="body_rowg"> The set of Build Machines must have exactly one Master.
318
                                 </tr>
319
                                <%End If%>
320
                                <%If bInactiveMachine Then %>
321
                                 <tr>
322
                                    <td nowrap class="err_alert">Error
323
                                    <td class="body_rowg">One or more of the Build Machines have been deprecated and no longer available for use.
324
                                 </tr>
325
                                <%End If%>
326
                                <%If toolsetWarning Then %>
327
                                 <tr>
328
                                    <td nowrap class="err_alert">Warning
329
                                    <td class="body_rowg">There should be one TOOLSET builder within each set of machines with the same GBE_MACHTYPE.
330
                                 </tr>
331
                                <%End If%>
332
                                </tr>
333
                            </table>
334
                         </td>
335
                            <td></td>
336
                         </tr>
337
                        <%End If%>
338
                         <tr>
339
                            <!-- ACTION BUTTONS ---------------------------------------------->
340
                            <td background="images/bg_action_norm.gif" ></td>
341
                            <td align="right" background="images/bg_action_norm.gif" >
342
 
343
                               <%=objFormComponent.CancelButton ( "OK", "class='form_btn'", "build_status.asp?rtag_id="& parRtagId )%>
344
                               <%=objPMod.ComposeHiddenTags()%>
345
                               <%If canActionControlInProject("BuildConfiguration") Then%>
346
                                  <input name="btn" type="submit" class="form_btn" value="Unlink">
347
                                  <input name="btn" type="submit" class="form_btn" value="Delete">
348
                               <%End If%>
349
                               <input type="hidden" name="rcon_id_list" value="<%=Request("rcon_id_list")%>">
350
                               <input type="hidden" name="action" value="true">
351
                            </td>
352
                            <td background="images/bg_action_norm.gif" ><img src="images/h_trsp_dot.gif" width="5" height="30"></td>
353
                         <!-- ACTION BUTTONS END  ------------------------------------------></td>
354
                         </tr>
355
                    </table>
356
                </tr>
357
    </table>
358
<%
359
Call objFormComponent.FormEnd()
360
'-- FROM END ----------------------------------------------------------------------------------------------------------------
361
End Sub
362
'---------------------------------------------------------------------
363
%>
5357 dpurdie 364
<html>
365
   <head>
366
      <title>Release Manager</title>
367
      <link rel="shortcut icon" href="<%=FavIcon%>"/>
368
      <meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
369
      <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
6579 dpurdie 370
      <link rel="stylesheet" href="images/release_manager_style.css?ver=<%=VixVerNum%>" type="text/css">
371
      <link rel="stylesheet" href="images/navigation.css?ver=<%=VixVerNum%>" type="text/css">
372
      <script language="JavaScript" src="images/common.js?ver=<%=VixVerNum%>"></script>
5357 dpurdie 373
      <!--#include file="_jquery_includes.asp"-->
374
      <!-- DROPDOWN MENUS -->
375
      <!--#include file="_menu_def.asp"-->
6579 dpurdie 376
      <script language="JavaScript1.2" src="images/popup_menu.js?ver=<%=VixVerNum%>"></script>
5357 dpurdie 377
   </head>
378
   <body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0">
379
      <!-- HEADER -->
380
      <!--#include file="_header.asp"-->
381
      <!-- BODY ---->
6548 dpurdie 382
      <table class="full_table">
5357 dpurdie 383
         <tr>
6548 dpurdie 384
            <td width="146px" class="panel_bg" valign="top">
385
                <%Call BuildMenuPane%>
386
            </td>
5357 dpurdie 387
            <td width="100%" rowspan="2" align="center" valign="top" bgcolor="#EEEFEF">
6548 dpurdie 388
                <%Call ShowBuildConfig%>
5357 dpurdie 389
            </td>
390
         </tr>
391
         <tr>
6548 dpurdie 392
            <td class="panel_bg" valign="bottom" align="center" height="350">
393
                <img src="images/img_gears.png" vspace="20" hspace="30"></td>
5357 dpurdie 394
         </tr>
395
      </table>
6548 dpurdie 396
      <!-- FOOTER -->
397
      <!--#include file="_footer.asp"-->
398
   </body>
5357 dpurdie 399
</html>