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

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

'   Gnerate a table of build machine information

Sub DisplayBuildMachines

   Dim rsQry, query

    Response.Write "<table id='daemonHost' class='comboBox' width='100%'>"

    OraDatabase.Parameters.Add "bmcon_id", bmcon_id,        ORAPARM_INPUT, ORATYPE_NUMBER

    OraDatabase.Parameters.Add "rtag_id",  parRtag_id,      ORAPARM_INPUT, ORATYPE_NUMBER

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

    Set rsQry = OraDatabase.DbCreateDynaset( query, ORADYN_DEFAULT )

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

        Response.Write "<tr class='"& rsQry("state") & "' data-bmconid="& rsQry("bmcon_id") &">"

        Response.Write "<td>" & rsQry("display_name") & "</td>"

        Response.Write "<td>" & rsQry("gbe_value") & "</td>"

        Response.Write "<td style='max-width:300px'>" & rsQry("description") & "</td>"

        Response.Write "</tr>"

        rsQry.MoveNext

    Wend

    rsQry.Close()

    Set rsQry = Nothing

    OraDatabase.Parameters.Remove "bmcon_id"

    OraDatabase.Parameters.Remove "rtag_id"

    Response.Write "</table>"

End Sub

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

'------------ 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');

        // Init the Daemon Host Combo

		setDaemonHost();

        // Initial config of visible PLATFORMS

        setbmConId();

        // Initial Focus

		$("#daemonHostDiv").focus();

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

        {

            var bmConId = $('#bmcon_id').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 curFilterArray = getBuildFilter();

            for ( i = 0; i < curFilterArray.length; i++ ) {

				curFilter[curFilterArray[i]] = 1;

			}

            // 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'));

                }

            });

            setBuildFilter();

        }

        // 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(togglePlatforms);

            if ( platform == 'NONE' ) {

				item.attr('id', 'check_none');

            }

            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 togglePlatforms(){

			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 = getBuildFilter()

            gbeFilter = gbeFilter.filter(e => e !== platform);

            if ( state ) {

                gbeFilter.push(platform);

            }

            setBuildFilter(gbeFilter);

        }

        //

        //  Get the current gbe_buildfilter and return an array

        //

        function getBuildFilter() {

            var uniq = [ ...new Set($('#gbe_buildfilter').val().replace(/,/g, ' ').trim().toUpperCase().split(/\s+/)) ];

			return uniq;

        }

        // Handle the special NONE case

        //      Remove NONE - if there are others

        //      Insert NONE if there are no others

        // Pretty up the GBE_BUIDLFILTER

        //      Sort the list

        //      Force upper case    

        //

        function setBuildFilter(gbeFilter) {

			var hasNone = false;

			var hasOthers = false;

            if ( !gbeFilter ) {

                gbeFilter = getBuildFilter();

            }

            gbeFilter.forEach (platform => {

                if (platform.length <= 0) {

                } else if ( platform == 'NONE' ) {

					hasNone = true;

                } else if ( platform != 'TOOLSET' ) {

					hasOthers = true;

                }

            });

            // Insert NONE, if there are no others

            if ( !hasNone && !hasOthers ) {

				gbeFilter.push('NONE');

                gbeFilter = gbeFilter.sort();

                $('#check_none').prop('checked', true);

            }

            // Remove NONE, if there are others

            if ( hasNone && hasOthers ) {

				var idx = gbeFilter.indexOf('NONE');

                if ( idx >= 0 ) {

                    gbeFilter.splice(idx, 1);

                }

                $('#check_none').prop('checked', false);

            }

            //  Pretty up the display

            $('#gbe_buildfilter').val(gbeFilter.sort().join(' '));

        }

        //  Multicolumn combo box handling

        //

        $('.comboParent').on('keydown',function(e) {

            if(e.which == 13) {

                openComboBox(e, this);

            }

		});

		$('.comboParent').click(openComboBox);

		$('.comboBox tr').click(function(){

            if ( $(this).hasClass('available') )

            {

                var elp = $(this).closest('.comboContainer').hide();

                $("#daemonHostDiv").focus();

                event.stopImmediatePropagation();

                // Capture the data and store it in the parent element

                elp.find('.selected').removeClass('selected');

                $(this).addClass('selected');

                var $clone = $(this).clone();

                $('.comboParent table').first().html($clone);

                // Update the field that will be submitted

				var bmconid = $(this).data('bmconid');

				$('#bmcon_id').val(bmconid);

                setbmConId();

            }

        });

        //  Show the combo box

        //

        function openComboBox(e, that) {

            if ( that == undefined ) {

				that = this;

            }

            var el = $(that).find('.comboContainer:first').show();

            event.stopImmediatePropagation();

            $(document).on('click', function(){

				var elp = $(that).closest('.comboContainer');

                if ( elp.size() <= 0 ) {

                    $('.comboContainer').hide();

                    $("#daemonHostDiv").focus();

                    $(document).off('click');

                    event.stopImmediatePropagation();

                }

            });

        }

        //  Init the Deamon Host display.

        //  Select the required data from the tables

        function setDaemonHost() {

			var el = $("#daemonHost").find('.selected');

            if ( el.size() > 0 ) {

                var $clone = el.clone();

                $('#daemonHostDiv table').first().html($clone)

            }

        }

    });

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

<style>

.comboBox {}

.comboParent { position:relative; background:white;}

.comboParent table {border-collapse:collapse;}

.comboParent table td {border:1px solid darkgrey; padding-right: 10px;white-space: nowrap;overflow-x: hidden;}

.comboParent table {color:#000000;font:11px tahoma,sans-serif;text-decoration:none;}

.comboContainer{position:absolute;overflow-y:scroll;background:white; border: 1px solid darkgrey;display:none;top:0px;right:0px;left:0px;}

table.comboBox {border-collapse:collapse;}

table.comboBox  td {border:1px solid darkgrey;padding-right: 10px;white-space: normal}

table.comboBox tr.available:hover {background: #1e90ff;}

table.comboBox tr.selected {background: #d5e8fb;}

table.comboBox tr.disabled {color:grey;}

.icon-down:before {content: "\25BC"; position:absolute;top:2;right:2;font-size:11px}

</style>

</head>

<body background="images/bg_bage_0.gif" leftmargin="0" topmargin="0" >

<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 border="0" width='700px'>

            <tr>

               <td width=1%><span class="body_txt">Daemon Host</span></td>

               <td>

			     <div id='daemonHostDiv' class='comboParent icon-down' tabindex=0 >

					 <table width=100%>

					     <tr>

						 <td>Select Deamon Host</td>

						 </tr>

					 </table>

				 <div class=comboContainer style="height:10em;">

					  <%DisplayBuildMachines%>

				</div>

					 </div>

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

   <input type="hidden" id=bmcon_id name="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

%>