<%@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 gbe_id 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 GetMachType ( ngbe_id ) Dim rsQry, query OraDatabase.Parameters.Add "gbe_id", ngbe_id, ORAPARM_INPUT, ORATYPE_NUMBER query = GetQuery ("GBE_MACHTYPECombo.sql") Set rsQry = OraDatabase.DbCreateDynaset( query, ORADYN_DEFAULT ) If (NOT rsQry.BOF) AND (NOT rsQry.EOF) Then GetMachType = rsQry.GetRows() Else GetMachType = NULL End If rsQry.Close() Set rsQry = Nothing OraDatabase.Parameters.Remove "gbe_id" End Function '-------------------------------------------------------------------------------------------------------------------------- %> <% '------------ RUN BEFORE PAGE RENDER ---------- If CBool(Request("action")) Then If Request("rcon_id") <> "" Then OraDatabase.Parameters.Add "DAEMON_HOSTNAME", Request("daemon_hostname"), ORAPARM_INPUT, ORATYPE_VARCHAR2 OraDatabase.Parameters.Add "RCON_ID", Request("rcon_id"), ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "GBE_ID", Request("gbe_id"), ORAPARM_INPUT, ORATYPE_NUMBER 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(:DAEMON_HOSTNAME, :RCON_ID, :GBE_ID, :GBE_BUILDFILTER); END;" OraSession.CommitTrans objEH.CatchORA ( OraSession ) OraDatabase.Parameters.Remove "DAEMON_HOSTNAME" OraDatabase.Parameters.Remove "RCON_ID" OraDatabase.Parameters.Remove "GBE_ID" 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 "DAEMON_HOSTNAME", Request("daemon_hostname"), ORAPARM_INPUT, ORATYPE_VARCHAR2 OraDatabase.Parameters.Add "RTAG_ID", Request("rtag_id"), ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "GBE_ID", Request("gbe_id"), ORAPARM_INPUT, ORATYPE_NUMBER 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(:DAEMON_HOSTNAME, :RTAG_ID, :GBE_ID, :GBE_BUILDFILTER); END;" objEH.CatchORA ( OraSession ) OraDatabase.Parameters.Remove "DAEMON_HOSTNAME" OraDatabase.Parameters.Remove "RTAG_ID" OraDatabase.Parameters.Remove "GBE_ID" 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 WHERE RCON_ID = "& Request("rcon_id") Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0)) daemon_mode = rsTemp("daemon_mode") daemon_hostname = rsTemp("daemon_hostname") gbe_id = rsTemp("gbe_id") gbe_buildfilter = rsTemp("gbe_buildfilter") rsTemp.Close() Set rsTemp = Nothing End If %> <%If RecordCount = 0 OR daemon_mode = "M" Then%> <%Else%> <%End If%> Daemon HostName Daemon Mode GBE_MACHTYPE <%=objFormComponent.Combo ( "gbe_id", GetMachtype( gbe_id ), FALSE, "class='body_txt'" )%> GBE_BUILDFILTER

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