Subversion Repositories DevTools

Dim bAdd

bAdd = (Request("rcon_id") = "")

' 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

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

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

<!--#include file="_jquery_includes.asp"-->

<%Call InsertJavaScript %>

		<%If bAdd Then%>

         Add a new DAEMON

		<%Else%>

		<%End If%>

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

 <%If NOT bAdd Then%>

	 <input type="hidden" name="rcon_id" value="<%=Request("rcon_id")%>">