<%@LANGUAGE="VBSCRIPT"%> <% '===================================================== '| | '| wAddDaemon | '| | '===================================================== %> <% Option explicit Response.Expires = 0 %> <% '------------ ACCESS CONTROL ------------------ %> <% '------------ VARIABLE DEFINITION ------------- Dim rsQry, healthTag, cmdInterface, pkgOwner, isInterface, package, procDesc Dim sMessage Dim GBE_MACHTYPE Dim Query_String Dim RecordCount Dim daemon_hostname Dim bmcon_id Dim gbe_id Dim gbe_value Dim daemon_mode Dim gbe_buildfilter '------------ CONSTANTS DECLARATION ----------- Const LIMG_PRODUCT = "" Const LIMG_PRODUCT_UNPACKAGED = "" Const LIMG_PRODUCT_PATCH = "" '------------ VARIABLE INIT ------------------- sMessage = NULL parRtag_id = Request("rtag_id") Set objFormCollector = CreateObject("Scripting.Dictionary") '------------ CONDITIONS ---------------------- '---------------------------------------------- %> <% '-------------------------------------------------------------------------------------------------------------------------- Function GetMachHost (abmcon_id) Dim rsQry, query OraDatabase.Parameters.Add "bmcon_id", abmcon_id, ORAPARM_INPUT, ORATYPE_NUMBER query = "SELECT bm.bmcon_id,display_name, gbe_value, COALESCE(SUBSTR(description,1,INSTR(description,CHR(10),1,1)),description) as description, DECODE(:bmcon_id, bm.bmcon_id, 'selected', NULL) AS SELECTED" &_ " FROM build_machine_config bm, gbe_machtype gb WHERE bm.gbe_id = gb.gbe_id order by bm.display_name" 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 "display_name" End Function '-------------------------------------------------------------------------------------------------------------------------- %> <% '------------ RUN BEFORE PAGE RENDER ---------- If CBool(Request("action")) Then If Request("rcon_id") <> "" Then OraDatabase.Parameters.Add "RCON_ID", Request("rcon_id"), ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "BMCON_ID", Request("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.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", Request("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.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 '---------------------------------------------- %> <% '-- FROM START -------------------------------------------------------------------------------------------------------------- objFormComponent.FormName = "FormName" objFormComponent.Action = ScriptName objFormComponent.OnSubmit = "ShowProgress();" Call objFormComponent.FormStart() %> <%=objPMod.ComposeHiddenTags()%> <% Call objFormComponent.FormEnd() '-- FROM END ---------------------------------------------------------------------------------------------------------------- %>

Add/Update DAEMON Add a new DAEMON or edit an existing DAEMON.

<%=ProgressBar()%>

<%Call Messenger ( sMessage , 3, "100%" )%> <% 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 rsQry.Close() Set rsQry = Nothing %> <% If Request("rcon_id") <> "" Then %> "> <% Dim rsTemp Query_String = "SELECT * FROM RELEASE_CONFIG rc, build_machine_config bm, gbe_machtype gb WHERE rc.rcon_id = "& Request("rcon_id") & " AND rc.daemon_hostname = bm.machine_hostname AND bm.gbe_id = gb.gbe_id" Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0)) bmcon_id = rsTemp("bmcon_id") daemon_mode = rsTemp("daemon_mode") daemon_hostname = rsTemp("daemon_hostname") gbe_id = rsTemp("gbe_id") gbe_value = rsTemp("gbe_value") gbe_buildfilter = rsTemp("gbe_buildfilter") rsTemp.Close() Set rsTemp = Nothing else If RecordCount = 0 Then daemon_mode = "M" else daemon_mode = "S" End If End If %> Daemon Host <%=objFormComponent.Combo_Multi ( "bmcon_id", GetMachHost(bmcon_id), FALSE, "class='body_txt'",3,"20,20,50")%> Daemon Mode >MASTER >SLAVE GBE_BUILDFILTER

<% '------------ RUN AFTER PAGE RENDER ----------- Set objFormCollector = Nothing '---------------------------------------------- Call Destroy_All_Objects %>