<%@LANGUAGE="VBSCRIPT"%> <% '===================================================== '| | '| Edit/View Build Configuration | '| | '===================================================== %> <% Option explicit ' Good idea to set when using redirect Response.Expires = 0 ' always load the page, dont store %> <% objPMod.PersistInQryString("proj_id") '------------ ACCESS CONTROL ------------------ %> <% '------------ Variable Definition ------------- Dim objSortHelper Dim rsQry Dim parRtagId Dim parSourceRtagId Dim query_string Dim objBtnControl Dim rcon_id '------------ Constants Declaration ----------- '------------ Variable Init ------------------- parRtagId = Request("rtag_id") objPMod.PersistInQryString("rtag_id") Set objBtnControl = New ActionButtonControl '---------------------------------------------- %> <% '-------------------------------------------------------------------------------------------------------------------------- Sub GetFormDetails ( parRtagId, ByRef outobjDetails ) Dim rsQry, query OraDatabase.Parameters.Add "RTAG_ID", parRtagId, ORAPARM_INPUT, ORATYPE_NUMBER query = _ " SELECT * "&_ " FROM RELEASE_TAGS rt"&_ " WHERE rt.RTAG_ID = :RTAG_ID" Set rsQry = OraDatabase.DbCreateDynaset( query, ORADYN_DEFAULT ) OraDatabase.Parameters.Remove "RTAG_ID" If rsQry.RecordCount > 0 Then outobjDetails.Item ("rtag_id") = rsQry("rtag_id") outobjDetails.Item ("rtag_name") = rsQry("rtag_name") 'outobjDetails.Item ("description") = rsQry("description") 'outobjDetails.Item ("parent_rtag_id") = rsQry("parent_rtag_id") 'outobjDetails.Item ("config_spec_branch") = rsQry("config_spec_branch") 'outobjDetails.Item ("owner_email") = rsQry("owner_email") 'If rsQry("assoc_mass_ref") <> "" Then 'outobjDetails.Item ("massref_rtag_id") = rsQry("assoc_mass_ref") 'End If Else Err.Raise 8, "Sub GetFormDetails in "& ScriptName, "Empty record set returned. parRtagId="& parRtagId End If rsQry.Close Set rsQry = Nothing End Sub '-------------------------------------------------------------------------------------------------------------------------- Sub DeleteDaemon(rcon_id_list) OraDatabase.Parameters.Add "RCON_ID_LIST", rcon_id_list, ORAPARM_INPUT, ORATYPE_VARCHAR2 On Error Resume Next objEH.TryORA() OraDatabase.ExecuteSQL _ "BEGIN PK_BUILDAPI.DELETE_DAEMON(:RCON_ID_LIST); END;" objEH.CatchORA ( OraSession ) OraDatabase.Parameters.Remove "RCON_ID_LIST" End Sub '-------------------------------------------------------------------------------------------------------------------------- %> <% '------------ RUN BEFORE PAGE RENDER ---------- ' --- Get Form details from DB --- Call GetFormDetails ( Request("rtag_id"), objFormCollector ) ' --- Load Validation Rules --- 'Call objForm.LoadValidationRules ( Array("rtag_name","rtag_description", "config_spec_branch"), OraDatabase ) ' Load Validation Rules ' --- Enter Form Validation Rule Changes here... ---- '---------------------------------------------------- ' --- RUN onPostBack --- If Request("action") <> "" Then If objForm.IsValidOnPostBack Then If objAccessControl.IsVisible("ConfigureRelease") Then Call DeleteDaemon(Request("rcon_id_list")) End If If objEH.Finally Then Call OpenInWindow ( "release_config.asp?rtag_id="& parRtagId ) End If End If End If '---------------------------------------------- %> Release Manager <% '-- FROM START --------------------------------------------------------------------------------------------------------- objFormComponent.FormName = "FormName" objFormComponent.Action = ScriptName Call objFormComponent.FormStart() %> <% Call objFormComponent.FormEnd() '-- FROM END ---------------------------------------------------------------------------------------------------------------- %>

 

<%If objAccessControl.IsVisible("ConfigureRelease") Then%> ADMINISTER <%Else%> VIEW <%End If%> BUILD CONFIGURATION


<% If objAccessControl.IsVisible("ConfigureRelease") Then Call Action_Buttons ( "Add Daemon" ) End If ' Load some action buttons Call objBtnControl.LoadActionButtons ( Array("btnEditDaemon", "btnDeleteDaemon"), OraDatabase ) objBtnControl.ButtonSpacer = 1 %> <%If objAccessControl.IsVisible("ConfigureRelease") Then%> <%End If%> <% query_string = "select * from release_config rc, build_machine_config bm, gbe_machtype gbe "&_ " where rc.rtag_id = "& parRtagId &" and rc.daemon_hostname = bm.machine_hostname(+) 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 Dim cbtype cbtype = "hidden" If objAccessControl.IsVisible("ConfigureRelease") 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 rsQry("daemon_mode") = "M" Then daemon_mode = "MASTER" Else daemon_mode = "SLAVE" End If %> <%If rsQry("daemon_mode") = "M" AND rsQry.RecordCount <> 1 Then%> <%Else%> <%End If%> <%If objAccessControl.IsVisible("ConfigureRelease") Then%> <%End If%> <% rsQry.MoveNext Loop rsQry.Close() Set rsQry = nothing %>
DAEMON HOST GBE_MACHTYPE DAEMON MODE GBE_BUILDFILTERACTION
name="rcon_id_list" value="<%=rsQry("rcon_id")%>" disabled> name="rcon_id_list" value="<%=rsQry("rcon_id")%>"><%=rsQry("display_name")%> <%=rsQry("gbe_value")%> <%=daemon_mode%> <%=rsQry("gbe_buildfilter")%><%Call objBtnControl.Render ( Array("btnEditDaemon", "btnDeleteDaemon"), objAccessControl )%>
   
 
<%=objFormComponent.CancelButton ( "OK", "class='form_btn'", "dependencies.asp?rtag_id="& parRtagId )%> <%=objPMod.ComposeHiddenTags()%> <%If objAccessControl.IsVisible("ConfigureRelease") Then%> <%End If%> ">
<% Call Destroy_All_Objects %>