Subversion Repositories DevTools

Sub ShowBuildConfig

    '-- FROM START ---------------------------------------------------------------------------------------------------------

    objFormComponent.FormName = "FormName"

    objFormComponent.Action = ScriptName

    Call objFormComponent.FormStart()

%>

    <table class="embedded_table" style="margin-bottom:20px" width="10">

        <tr>

            <td>

                <table width="95%" border="0" cellspacing="0" cellpadding="0" align="center">

                   <tr>

                      <td nowrap class="form_ttl">

                            <%If canActionControlInProject("BuildConfiguration") Then%>

                               ADMINISTER

                            <%Else%>

                               VIEW

                            <%End If%>

                            BUILD CONFIGURATION

                      </td>

                   </tr>

                </table>

            <tr>

                <td>

                    <table class="rounded_box embedded_table">

                        <tr>

                         <td bgcolor="#FFFFFF"><img src="images/h_trsp_dot.gif" width="10"></td>

                         <td bgcolor="#FFFFFF" valign="top">

                            <!-- MESSAGE +++++++++++++++++++++++++++++++++++++++++++++++++++ -->

                            <!--#include file="messages/_msg_inline.asp"-->

                            <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->

                            <!-- BUTTONS CONTROL +++++++++++++++++++ -->

                            <%

                            If canActionControlInProject("BuildConfiguration") Then

                               Call Action_Buttons ( "Add Daemon" )

                            End If

                            ' Load some action buttons

                            Call objBtnControl.LoadActionButtons ( Array("btnEditDaemon", "btnRemoveDaemon", "btnDeleteDaemon"), OraDatabase )

                            objBtnControl.ButtonSpacer = 1

                            %>

                            <!-- +++++++++++++++++++++++++++++++++++ -->

                            <table width="100%"  border="0" cellspacing="2" cellpadding="0">

                              <tr>

                                 <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col"></td>

                                 <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">DAEMON HOST</td>

                                 <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">GBE_MACHTYPE</td>

                                 <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">DAEMON MODE</td>

                                 <td valign="top"   wrap background="images/bg_table_col.gif" class="body_col">GBE_BUILDFILTER</td>

                                 <%If canActionControlInProject("BuildConfiguration") Then%>

                                    <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">ACTION</td>

                                 <%End If%>

                                 <td valign="top">

                              </tr>

                              <%

                              query_string = "select rcon_id, display_name, rc.bmcon_id, daemon_mode, gbe_value, gbe_buildfilter, NVL(active, 'U') as ACTIVE " &_

                                             " from release_manager.release_config rc," &_

                                             "      release_manager.build_machine_config bm," &_

                                             "      release_manager.gbe_machtype gbe" &_

                                             " where rc.rtag_id=" & parRtagId &_

                                             "      and rc.bmcon_id=bm.bmcon_id(+)" &_

                                             "      and rc.gbe_id=gbe.gbe_id" &_

                                             " order by daemon_mode, bm.display_name"

                              Set rsQry = OraDatabase.DbCreateDynaset( query_string, ORADYN_DEFAULT )

                              Dim daemon_mode, daemon, cbtype, bActive, bInactiveMachine, dClass

                              bInactiveMachine = false

                              cbtype = "hidden"

                              If canActionControlInProject("BuildConfiguration") Then

                                 cbtype = "checkbox"

                              End If

                              '--- Render rows ---

                              Do While (NOT rsQry.BOF) AND (NOT rsQry.EOF)

                                 rcon_id = rsQry("rcon_id")

                                 daemon  = rsQry("display_name")

                                 If IsNull(daemon) Then

                                     daemon = ""

                                 End If

                                 If rsQry("daemon_mode") = "M" Then

                                    daemon_mode = "MASTER"

                                 Else

                                    daemon_mode = "SLAVE"

                                 End If

                                 bActive = rsQry("active")

                                 dClass = ""

                                 If bActive = "N" Then

                                    bInactiveMachine = true

                                    dClass = " err_alert strike"

                                 End If

                                 %>

                                 <tr>

                                    <td colspan="5" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>

                                 </tr>

                                 <tr>

                                    <td valign="top" align="center"><input type=<%=cbtype%> name="rcon_id_list" value="<%=rsQry("rcon_id")%>"></td>

                                    <td valign="top"    nowrap class="body_rowg<%=dClass%>"><%=daemon%></td>

                                    <td valign="top"    nowrap class="body_rowg"><%=rsQry("gbe_value")%></td>

                                    <td valign="top"    nowrap class="body_rowg"><%=daemon_mode%></td>

                                    <td valign="top"      wrap class="body_rowg"><%=rsQry("gbe_buildfilter")%></td>

                                    <%If canActionControlInProject("BuildConfiguration") Then%>

                                       <td valign="top" nowrap class="body_rowg">

                                            <%Call objBtnControl.Render  ( Array("btnEditDaemon", "btnRemoveDaemon", "btnDeleteDaemon"), objAccessControl )%>

                                       </td>

                                    <%End If%>

                                 </tr>

                                 <%

                                 rsQry.MoveNext

                                  Loop

                                  rsQry.Close()

                                  Set rsQry = nothing

                                  %>

                            </table>

                        </td>

                        <td background="images/lbox_bgside_white.gif">&nbsp;</td>

                        </tr>

                        <%If masterCount <> 1 OR toolsetWarning OR bInactiveMachine 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 bInactiveMachine Then %>

                                 <tr>

                                    <td nowrap class="err_alert">Error

                                    <td class="body_rowg">One or more of the Build Machines have been deprecated and no longer available for use.

                                 </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()%>

                               <%If canActionControlInProject("BuildConfiguration") Then%>

                                  <input name="btn" type="submit" class="form_btn" value="Unlink">

                                  <input name="btn" type="submit" class="form_btn" value="Delete">

                               <%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>

                    </table>

                </tr>

    </table>

<%

Call objFormComponent.FormEnd()

'-- FROM END ----------------------------------------------------------------------------------------------------------------

End Sub

'---------------------------------------------------------------------