<%@LANGUAGE="VBSCRIPT"%> <% '===================================================== ' admin_build_machine.asp '===================================================== %> <% Option explicit ' Good idea to set when using redirect Response.Expires = 0 ' always load the page, dont store %> <% '------------ ACCESS CONTROL ------------------ %> <% '------------ Variable Definition ------------- Dim objBtnControl Dim bCanEdit '------------ Constants Declaration ----------- '------------ Variable Init ------------------- Set objBtnControl = New ActionButtonControl bCanEdit = canActionControl("ConfigureBuildService") '---------------------------------------------- '------------------------------------------------- Sub InsertJavaScript %> <%End Sub '------------------------------------------------- %> Build Machine Administration <%Call InsertJavaScript %> <% '-- FROM START --------------------------------------------------------------------------------------------------------- objFormComponent.FormName = "BUILD_MACHINE" objFormComponent.Action = ScriptName objFormComponent.OnSubmit = "ShowProgress();" Call objFormComponent.FormStart() %>
<% Dim rsQry, query Dim gbe_id, gbe_value Dim bmcon_id Dim display_name Dim machine_hostname, description, active, activeChecked, platforms query = "SELECT" &_ " bm.bmcon_id," &_ " bm.display_name," &_ " bm.machine_hostname," &_ " bm.description," &_ " bm.gbe_id," &_ " bm.active," &_ " gb.gbe_value," &_ " LISTAGG(bp_name, ', ') WITHIN GROUP( ORDER BY bp_name ) AS platforms" &_ " FROM" &_ " build_machine_config bm," &_ " gbe_machtype gb," &_ " build_platforms bp," &_ " build_platforms_config2 bpc2" &_ " WHERE" &_ " bm.gbe_id = gb.gbe_id" &_ " AND bpc2.bmcon_id (+) = bm.bmcon_id" &_ " AND bp.bp_id (+) = bpc2.bp_id" &_ " GROUP BY" &_ " bm.bmcon_id," &_ " bm.display_name," &_ " bm.machine_hostname," &_ " bm.description," &_ " bm.gbe_id," &_ " bm.active," &_ " gb.gbe_value" &_ " ORDER BY" &_ " bm.display_name" Set rsQry = OraDatabase.DbCreateDynaset( query, ORADYN_DEFAULT ) While (NOT rsQry.BOF) AND (NOT rsQry.EOF) bmcon_id = rsQry("bmcon_id") display_name = rsQry("display_name") machine_hostname = rsQry("machine_hostname") active = rsQry("active") If active = "Y" Then activeChecked = "checked" Else activeChecked = "" description = rsQry("description") gbe_id = rsQry("gbe_id") gbe_value = rsQry("gbe_value") platforms = rsQry("platforms") %> <% rsQry.MoveNext() Wend rsQry.Close() Set rsQry = nothing %>
Current List of Build Machines
DISPLAY NAME MACHINE HOSTNAME GBE_MACHTYPE ALLOW USE DESCRIPTION PLATFORMS Edit
<%=display_name%> <%=machine_hostname%> <%=gbe_value%> > <%=description%> <%=platforms%> <% BuildJsButton bCanEdit, "btnEdit", "Edit basic machine properties", "src='icons/i_edit.gif'" BuildJsButton bCanEdit, "btnClone", "Clone platform", "src='icons/i_clone.gif'" BuildJsButton bCanEdit, "btnDel ", "Delete the build machine", "src='icons/i_remove.gif'" %>
<% BuildEditButtonRaw bCanEdit, "Add Build Machine", "Add New Build Machine",TRUE, _ "src='icons/btn_add.gif' width='13' height='13' align='absmiddle' border='0' hspace='3'", _ "MM_openVixIFrame('wAddBuildMachine.asp','Add Build Machine')"%>
<%=objPMod.ComposeHiddenTags()%> <%Call objFormComponent.FormEnd()%>