Subversion Repositories DevTools

<%@LANGUAGE="VBSCRIPT"%>
<%
'=====================================================
'|                                                   |
'|                   wAddDaemon                      |
'|                                                   |
'=====================================================
%>
<%
Option explicit
Response.Expires = 0
%>
<!--#include file="common/conf.asp"-->
<!--#include file="common/globals.asp"-->
<!--#include file="common/formating.asp"-->
<!--#include file="common/qstr.asp"-->
<!--#include file="common/common_subs.asp"-->
<!--#include file="common/_form_window_common.asp"-->
<%
'------------ ACCESS CONTROL ------------------
%>
<!--#include file="_access_control_general.asp"-->
<!--#include file="_access_control_login.asp"-->
<%
'------------ VARIABLE DEFINITION -------------
Dim rsQry, healthTag, cmdInterface, pkgOwner, isInterface, package, procDesc
Dim sMessage
Dim Query_String
Dim RecordCount
Dim bmcon_id
Dim daemon_mode
Dim gbe_buildfilter
Dim bShowEmpty
Dim bAdd
'------------ CONSTANTS DECLARATION -----------
'------------ VARIABLE INIT -------------------
sMessage = NULL

parRtag_id = Request("rtag_id")
bmcon_id = RequestDefault("bmcon_id",Request("base_bmcon_id"))
bAdd = (Request("rcon_id") = "")

Set objFormCollector = CreateObject("Scripting.Dictionary")
'------------ CONDITIONS ----------------------
'----------------------------------------------
%>
<%
'--------------------------------------------------------------------------------------------------------------------------
' Function:     GetData
' Description:  Determine the basic data for the edit session
Sub GetData

     '  Determine if any daemons have been configured in this release
     '  Will be used to determine if a new entry should be a MASTER or a SLAVE
     '
     Query_String = "select * " &_
                                " from release_config rc," &_
                                "      gbe_machtype gbe " &_
                                " where rc.rtag_id = "& parRtag_id &_
                                "   and gbe.gbe_id = rc.gbe_id"

     Set rsQry = OraDatabase.DbCreateDynaset( Query_String, cint(0))

     RecordCount = rsQry.RecordCount
     If RecordCount = 0 Then
        daemon_mode = "M"
     else   
        daemon_mode = "S"
     End If
     rsQry.Close()
     Set rsQry = Nothing


    ' Edit an existing entry
    '   May have a link into the build_machine_config - or it may not
    '   Check first
    bShowEmpty = TRUE

        If NOT bAdd Then
        Query_String = "SELECT * " &_
                       " FROM RELEASE_CONFIG rc," &_
                       "      gbe_machtype gb" &_
                       " WHERE rc.rcon_id = "& Request("rcon_id") &_
                       "   AND rc.gbe_id = gb.gbe_id"

        Set rsQry = OraDatabase.DbCreateDynaset( Query_String, cint(0))

        If rsQry.RecordCount > 0 Then
            bmcon_id        =  rsQry("bmcon_id")
            daemon_mode     =  rsQry("daemon_mode")
            gbe_buildfilter =  NiceCStr(rsQry("gbe_buildfilter"),"")
        End If

        rsQry.Close()
        Set rsQry = Nothing
    End If

    If NOT isNULL(bmcon_id) AND bmcon_id <> "" Then

        '   Extract information from the machine config
        Query_String = "SELECT * " &_
                                   " FROM build_machine_config bc, " &_
                                   "      gbe_machtype gb " &_
                                   "WHERE bc.bmcon_id = " & bmcon_id &_
                                   "  AND bc.gbe_id = gb.gbe_id"

        Set rsQry = OraDatabase.DbCreateDynaset( Query_String, cint(0))

        If rsQry.RecordCount > 0 Then
                bmcon_id        =  rsQry("bmcon_id")
                bShowEmpty      = FALSE
        End If

        rsQry.Close()
        Set rsQry = Nothing
    End If

        ' Cleanup gbe_buildfilter
    Dim regEx
    Set regEx = New RegExp
    regEx.Global = true
    regEx.IgnoreCase = True

    regEx.Pattern = "\s{2,}"

    gbe_buildfilter = Replace(gbe_buildfilter,","," ")
    gbe_buildfilter = Trim(regEx.Replace(gbe_buildfilter, " "))
End Sub

Sub InsertXrefData
        '
        '   Create a data structure (javascript) to map build machine (bmcon_id) to available platforms
        '
    Query_String = "SELECT bp.bp_name, bp.bp_id, bc2.bmcon_id" &_
            " FROM release_manager.build_platforms bp, release_manager.build_platforms_config2 bc2 " &_
            " WHERE bp.bp_id = bc2.bp_id " &_
            " ORDER BY upper(bp.bp_name)"

    Set rsQry = OraDatabase.DbCreateDynaset( Query_String, ORADYN_DEFAULT )
    While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
        Response.Write "AddXrefEntry('" & rsQry("bp_name") &"',"& rsQry("bmcon_id") & ");" & vbCrLf
       rsQry.MoveNext
    Wend
    rsQry.Close()
    Set rsQry = Nothing
End Sub


'-------------------------------------------------
' Function:     GetMachHost    
' Description:  Determine the current Display Host Information for a given BMCON_ID
'               Do not show build machines that are no longer 'allowed' unless
'               it is currently selected.
' Arguments:    abmcon_id   - A BMCON_ID
'
' Returns:      An array with 5 elements in it - to be used in creating a multicolum drop down list
'                   
Function GetMachHost (abmcon_id)
   Dim rsQry, query

   OraDatabase.Parameters.Add "bmcon_id", abmcon_id,            ORAPARM_INPUT, ORATYPE_NUMBER
   OraDatabase.Parameters.Add "rtag_id",  Request("rtag_id"),   ORAPARM_INPUT, ORATYPE_NUMBER

   query = ReadFile( rootPath & "queries\available_build_machines.sql" )

   Set rsQry = OraDatabase.DbCreateDynaset( query, ORADYN_DEFAULT )
   If (NOT rsQry.BOF) AND (NOT rsQry.EOF) Then
      GetMachHost = rsQry.GetRows()
   Else
      GetMachHost = NULL
   End If

   rsQry.Close()
   Set rsQry = Nothing

   OraDatabase.Parameters.Remove "bmcon_id"
   OraDatabase.Parameters.Remove "rtag_id"
End Function
'--------------------------------------------------------------------------------------------------------------------------
'------------ RUN BEFORE PAGE RENDER ----------

If CBool(Request("action")) Then

    If  bmcon_id = "" Then
        sMessage = "Select a Build Machine before updating the entry"
    Else

       '    Add or Update after the users edit session
       If Request("rcon_id") <> "" Then

          OraDatabase.Parameters.Add "RCON_ID",         Request("rcon_id"),         ORAPARM_INPUT, ORATYPE_NUMBER
          OraDatabase.Parameters.Add "BMCON_ID",        bmcon_id,                   ORAPARM_INPUT, ORATYPE_NUMBER
          OraDatabase.Parameters.Add "DAEMON_MODE",     Request("daemon_mode"),     ORAPARM_INPUT, ORATYPE_VARCHAR2
          OraDatabase.Parameters.Add "GBE_BUILDFILTER", Request("gbe_buildfilter"), ORAPARM_INPUT, ORATYPE_VARCHAR2

          objEH.ErrorRedirect = FALSE
          objEH.TryORA ( OraSession )
          On Error Resume Next

          OraDatabase.ExecuteSQL "BEGIN  PK_BUILDAPI.UPDATE_DAEMON_CONFIG(:RCON_ID, :BMCON_ID, :DAEMON_MODE, :GBE_BUILDFILTER);  END;"
          OraSession.CommitTrans

          objEH.CatchORA ( OraSession )

          OraDatabase.Parameters.Remove "RCON_ID"
          OraDatabase.Parameters.Remove "BMCON_ID"
          OraDatabase.Parameters.Remove "DAEMON_MODE"
          OraDatabase.Parameters.Remove "GBE_BUILDFILTER"

          If objEH.Finally Then
             Call OpenInParentWindow ("release_config.asp?rtag_id="&parRtag_id)
             Call CloseWindow()
          End If

          rsQry.Close
          Set rsQry = nothing

       Else
          OraDatabase.Parameters.Add "RTAG_ID",         Request("rtag_id"),         ORAPARM_INPUT, ORATYPE_NUMBER
          OraDatabase.Parameters.Add "BMCON_ID",        bmcon_id,                   ORAPARM_INPUT, ORATYPE_NUMBER
          OraDatabase.Parameters.Add "DAEMON_MODE",     Request("daemon_mode"),     ORAPARM_INPUT, ORATYPE_VARCHAR2
          OraDatabase.Parameters.Add "GBE_BUILDFILTER", Request("gbe_buildfilter"), ORAPARM_INPUT, ORATYPE_VARCHAR2

          objEH.ErrorRedirect = FALSE
          objEH.TryORA ( OraSession )
          On Error Resume Next

          OraDatabase.ExecuteSQL "BEGIN  PK_BUILDAPI.ADD_DAEMON_CONFIG(:RTAG_ID, :BMCON_ID, :DAEMON_MODE, :GBE_BUILDFILTER);  END;"

          objEH.CatchORA ( OraSession )

          OraDatabase.Parameters.Remove "RTAG_ID"
          OraDatabase.Parameters.Remove "BMCON_ID"
          OraDatabase.Parameters.Remove "DAEMON_MODE"
          OraDatabase.Parameters.Remove "GBE_BUILDFILTER"

          If objEH.Finally Then
             Call OpenInParentWindow ("release_config.asp?rtag_id="&parRtag_id)
             Call CloseWindow()
          End If

          rsQry.Close
          Set rsQry = nothing

       End If
    End If
End If
call GetData
'----------------------------------------------
Sub InsertJavaScript %>
<script type="text/javascript" charset="utf-8">
    var platformXref = {};
    $(document).ready(function(){

        // Function to init Platform CrossRef Data
        // Create a two dimensional associative array
        //      First level - Platform Name
        //      Second Level - BMCONID
        //
        function AddXrefEntry(platform, bmconid){
            platform = platform.toUpperCase();
            if ( ! platformXref[platform] ) {
                platformXref[platform] = {};
            }
            platformXref[platform][bmconid] = 1;
        };
        //  Function calls generated by the ASP code to create a data structure
        <%Call InsertXrefData%>

        //  Add in two special platforms. NONE and TOOLSET
        AddXrefEntry('TOOLSET', 'ALL');
        AddXrefEntry('NONE', 'ALL');

        // Initial config of visible PLATFORMS
        setbmConId();

        // Wire up the MachType selector to modify the available PLATFORMS
        $('#selBmConId').change( setbmConId );

        // Wire up the GBE_BUILDFILTER so that user changes are represented
        $('#gbe_buildfilter').change( setbmConId );

        // Update the available platforms when the user changes the GBE_MACHTYPE
        // Sanitise the value of GBE_BUILDFILTER
        // Operation relies on the fact that
        //      Hidden items will not be submitted as a part of the form
        //      Platforms supported on multiple machines will appear multiple times
        function setbmConId(  )
        {
                        console.log("Doing stuff");
            var bmConId = $('#selBmConId').children("option:selected").val();
            var table = $('#selPlat');
                        table.empty();

                        //  Parse the existing GBE_BUILDFILTER so that we can determine any platforms that are not
            //  supported on the selected build machine
            //  Convert the GBE_BUILDFILTER into an object for easy processing
                        var curFilter = {};
                        var tmpStr = $('#gbe_buildfilter').val().trim().replace(/,/g, ' ').toUpperCase();
            if ( tmpStr.length <= 0 ) {
                                tmpStr = 'NONE';
            }
                        var curFilterArray = tmpStr.split(/\s+/);
            for ( i = 0; i < curFilterArray.length; i++ ) {
                                curFilter[curFilterArray[i]] = 1;
                        }
            $('#gbe_buildfilter').val(Object.keys(curFilter).sort().join(' '));

            // Insert platforms supported on selected machine
            Object.keys(platformXref).sort().forEach(platform => {
                if ( platformXref[platform][bmConId] ||  platformXref[platform]['ALL'] ){
                    table.append(createPlatformRow(platform, curFilter[platform], undefined));
                                        delete curFilter[platform]; 
                }
            });

            // Insert platforms NOT supported on selected machine
            // Prepend in reverse order
            Object.keys(curFilter).sort().reverse().forEach(platform => {
                if ( platform ) {
                    table.prepend(createPlatformRow(platform, true, 'err_alert'));
                }
            });
        }

        // Local function to create a platform row, with checkbox
        //
        function createPlatformRow(platform, state, eClass){
            var row = $("<tr/>").addClass('body_txt selPlat').addClass(eClass);
            var td = $("<td/>");
            var item = $("<input/>").attr('type', 'checkbox').css('margin','0px 3px').prop('checked', state).change(updateGbeFilter);
            var itemText = $("<span/>").text(platform);
            if ( eClass ) {
                itemText.append(' - Not available');
            }
            td.append(item);
            td.append(itemText);
            row.append(td);
            return row;
        }

        // Update GBE_BUILDFILTER as the user selects and deselects platforms
        function updateGbeFilter(){
                        var state = this.checked;
                        var platform = $(this).parent().text().trim();
                        var idx = platform.indexOf(' - ');
            if ( idx >= 0 )
                platform = platform.substring(0, idx );

            // Add or remove item
            //  Split the string into an array
            //  Always remove the item
            //  Append the platform - if adding
            //  Sort and reform a space-seperated string
            //
                        var gbeFilter = $('#gbe_buildfilter').val().trim().split(/\s+/);
            gbeFilter = gbeFilter.filter(e => e !== platform);
            if ( state ) {
                gbeFilter.push(platform);
            }
            
            gbeFilter = gbeFilter.sort();
            $('#gbe_buildfilter').val(gbeFilter.join(' '));
        }
    });
</script>
<%End Sub
'-------------------------------------------------
%>
<html>
<head>
<title>Release Manager</title>
<link rel="shortcut icon" href="<%=FavIcon%>"/>
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link href="images/release_manager_style.css?ver=<%=VixVerNum%>" rel="stylesheet" type="text/css">
<script language="JavaScript" src="scripts/common.js?ver=<%=VixVerNum%>"></script>
<!--#include file="_jquery_includes.asp"-->
<%Call InsertJavaScript %>
</head>

<body background="images/bg_bage_0.gif" leftmargin="0" topmargin="0" onLoad="self.focus();FormName.bmcon_id.focus();">
<table width="100%"  border="0" cellspacing="0" cellpadding="10">
   <tr>
      <td bgcolor="#FFFFFF" class="body_txt">
                <%If bAdd Then%>
         Add a new DAEMON
                <%Else%>
         Edit an existing DAEMON
                <%End If%>
      </td>
   </tr>

   <%
   '-- FROM START --------------------------------------------------------------------------------------------------------------
   objFormComponent.FormName = "FormName"
   objFormComponent.FormClass = "form_tight"
   objFormComponent.Action = ScriptName
   objFormComponent.OnSubmit = "ShowProgress();"
   Call objFormComponent.FormStart()
   %>
   <tr>
      <td>
         <!-- LOCAL ERROR +++++++++++++++++++++++++++++++++++++++++++++++ -->
         <%Call Messenger ( sMessage , 3, "100%" )%>
         <!-- MESSAGE +++++++++++++++++++++++++++++++++++++++++++++++++++ -->
         <!--#include file="messages/_msg_inline.asp"-->
         <table width="50%" border="0">
            <tr>
               <td><span class="body_txt">Daemon Host</span></td>
               <td>
                  <%=objFormComponent.Combo_Multi ( "bmcon_id", GetMachHost(bmcon_id), bShowEmpty, "id=selBmConId class='body_txt'",3,"20,20,50")%>
               </td>
            </tr>
            <tr>
               <td><span class="body_txt">Daemon Mode</span></td>
               <td>
                 <select name="daemon_mode" class='body_txt'>
                   <option value=M <%=iif(daemon_mode="M","selected","")%>>Master</option>
                   <option value=S <%=iif(daemon_mode="S","selected","")%>>Slave</option>
                 </select>
               </td>
            </tr>
            <tr>
               <tr>
                  <td><span class="body_txt">GBE_BUILDFILTER</span></td>
                  <td><input id=gbe_buildfilter name="gbe_buildfilter" type="text" class="body_txt" size="120" spellcheck="false" value="<%=gbe_buildfilter%>"></td>
               </tr>
            </tr>
            <tr>
               <td><span class="body_txt nowrap">Platforms</span></td>
               <td style="border: darkgrey 1px solid">
                                <div style="overflow-y: scroll;height: 20em;">
                                        <table id=selPlat></table>
                                </div>
               </td>
            </tr>
         </table>
      </td>
   </tr>
   <tr>
      <td bgcolor=#FFFFFF>
         <table class="full_table">
            <tr>
               <td><%=ProgressBar()%></td>
               <td align="right">
                  <input name="btn" type="submit" class="form_btn" value="Add/Update">
                  <input name="btn" type="reset" class="form_btn" value="Cancel" onclick="parent.closeIFrame();">
               </td>
            </tr>
         </table>
      </td>
   </tr>
   <%=objPMod.ComposeHiddenTags()%>
   <input type="hidden" name="action" value="true">
   <input type="hidden" name="base_bmcon_id" value="<%=bmcon_id%>">
 <%If NOT bAdd Then%>
         <input type="hidden" name="rcon_id" value="<%=Request("rcon_id")%>">
 <% End If %>
   <%
   Call objFormComponent.FormEnd()
   '-- FROM END ----------------------------------------------------------------------------------------------------------------
   %>
</table>
</body>
</html>
<%
'------------ RUN AFTER PAGE RENDER -----------
Set objFormCollector = Nothing
'----------------------------------------------
Call Destroy_All_Objects
%>