WebSVN – DevTools – Diff – /ManagerSuite/Release_Manager/trunk/web/release_config.asp

 Dim rsQry
 Dim parRtagId
 Dim query_string
 Dim objBtnControl
 Dim rcon_id
+Dim masterCount
+Dim toolsetWarning
 '------------ Constants Declaration -----------
 '------------ Variable Init -------------------
 parRtagId = Request("rtag_id")
 objPMod.PersistInQryString("rtag_id")
 Set objBtnControl = New ActionButtonControl
    objEH.CatchORA ( OraSession )
    OraDatabase.Parameters.Remove "RCON_ID_LIST"
 End Sub
 '--------------------------------------------------------------------------------------------------------------------------
+Sub CheckMasterConfig()
+    Dim rsQry, query
+    OraDatabase.Parameters.Add "RTAG_ID",    parRtagId,      ORAPARM_INPUT, ORATYPE_NUMBER
+    '
+    '   Check that there is exacly one master in the build set
+    query = _
+        "SELECT COUNT (rc.daemon_mode) as masterCount" &_
+        " FROM release_manager.release_config rc, release_manager.run_level rl" &_
+        " WHERE rc.rtag_id   = :RTAG_ID" &_
+        " AND rl.RCON_ID = rc.RCON_ID" &_
+        " AND   rc.bmcon_id is not NULL" &_
+        " GROUP BY rc.daemon_mode" &_
+        " HAVING rc.daemon_mode = 'M'"
+    Set rsQry = OraDatabase.DbCreateDynaset( query, ORADYN_DEFAULT )
+    If rsQry.RecordCount > 0 Then
+       masterCount = rsQry("masterCount")
+    End If
+    rsQry.Close
+    Set rsQry = Nothing
+    '
+    '   Check that each GBE_MACHTYPE has exactly one insatnce where the BUILDFILTER contains
+    '   a TOOLSET builder. The test is a bit sloppy
+    query = _
+        "SELECT * from ( " &_
+        "SELECT GBE_ID, COUNT(hasToolset) as ToolsetCount " &_
+        "FROM  " &_
+        "  (SELECT bc.GBE_ID, " &_
+        "    CASE " &_
+        "      WHEN INSTR(rc.GBE_BUILDFILTER, 'TOOLSET') > 0 " &_
+        "      THEN 1 " &_
+        "      ELSE NULL " &_
+        "    END AS hasToolset " &_
+        "  FROM release_manager.release_config rc, " &_
+        "    BUILD_MACHINE_CONFIG bc " &_
+        "  WHERE rc.rtag_id = 6883 " &_
+        "  AND rc.bmcon_id IS NOT NULL " &_
+        "  AND bc.bmcon_id  = rc.bmcon_id " &_
+        "  ) " &_
+        "GROUP BY GBE_ID ) " &_
+        "Where  ToolsetCount != 1 "
+    Set rsQry = OraDatabase.DbCreateDynaset( query, ORADYN_DEFAULT )
+    toolsetWarning =  rsQry.RecordCount > 0
+    rsQry.Close
+    Set rsQry = Nothing
+    OraDatabase.Parameters.Remove "RTAG_ID"
+End Sub
 %>
 <%
 '------------ RUN BEFORE PAGE RENDER ----------
 ' --- Get Form details from DB ---
 Call GetFormDetails ( Request("rtag_id"), objFormCollector )
       End If
    End If
 End If
+Call CheckMasterConfig()
 '----------------------------------------------
 %>
 <html>
    <head>
                      rsQry.MoveNext
                   Loop
                   rsQry.Close()
                   Set rsQry = nothing
                   %>
-                  <tr>
-                     <td class="form_iname">&nbsp;</td>
-                     <td>&nbsp;</td>
-                     <td class="val_err"></td>
-                  </tr>
                </table>
             </td>
             <td background="images/lbox_bgside_white.gif">&nbsp;</td>
          </tr>
+        <%If masterCount <> 1 OR toolsetWarning Then %>
+          <tr class="form_error form_btn">
+            <td></td>
+            <td style="padding: 10px;">
+            <table class="full_table form_error">
+                <%If masterCount <> 1 Then %>
+                 <tr>
+                    <td nowrap class="err_alert">Error
+                    <td class="body_rowg"> The set of Build Machines must have exactly one Master.
+                 </tr>
+                <%End If%>
+                <%If toolsetWarning Then %>
+                 <tr>
+                    <td nowrap class="err_alert">Warning
+                    <td class="body_rowg">There should be one TOOLSET builder within each set of machines with the same GBE_MACHTYPE.
+                 </tr>
+                <%End If%>
+                </tr>
+            </table>
+         </td>
+            <td></td>
+         </tr>
+        <%End If%>
          <tr>
+            <!-- ACTION BUTTONS ---------------------------------------------->
             <td background="images/bg_action_norm.gif" ></td>
             <td align="right" background="images/bg_action_norm.gif" >
                <%=objFormComponent.CancelButton ( "OK", "class='form_btn'", "build_status.asp?rtag_id="& parRtagId )%>
                <%=objPMod.ComposeHiddenTags()%>
                <%End If%>
                <input type="hidden" name="rcon_id_list" value="<%=Request("rcon_id_list")%>">
                <input type="hidden" name="action" value="true">
             </td>
             <td background="images/bg_action_norm.gif" ><img src="images/h_trsp_dot.gif" width="5" height="30"></td>
+         <!-- ACTION BUTTONS END  ------------------------------------------></td>
          </tr>
          <tr>
             <td background="images/lbox_bg_blue.gif" valign="bottom"><img src="images/lbox_bl_cnr_b.gif" width="13" height="13"></td>
             <td background="images/lbox_bg_blue.gif"></td>
             <td background="images/lbox_bg_blue.gif" valign="bottom" align="right"><img src="images/lbox_br_cnr_b.gif" width="13" height="13"></td>
          </tr>
       </table>
-      <!-- ACTION BUTTONS ---------------------------------------------->
-      <!-- ACTION BUTTONS END  ------------------------------------------></td>
       <td width="1" valign="top"><img src="images/h_trsp_dot.gif" width="1" height="1"></td>
   </tr>
   <tr>
     <td valign="bottom" align="center" background="images/bg_home_orange.gif"><img src="images/img_vtree.gif" width="86" height="99" vspace="20" hspace="30"></td>
     <td background="images/bg_lght_gray.gif" valign="top"><img src="images/h_trsp_dot.gif" width="1" height="500"></td>

Subversion Repositories DevTools

(root)/ManagerSuite/Release_Manager/trunk/web/release_config.asp – Rev 6070 → 6166