Build Service Administration

<%@LANGUAGE="VBSCRIPT"%> <% '===================================================== '| | '| ADMIN Page | '| Build Service | '| | '===================================================== %> <% 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 Query_String Dim rsTemp Dim scheduled_id '------------ Constants Declaration ----------- '------------ Variable Init ------------------- Set objBtnControl = New ActionButtonControl '---------------------------------------------- %> <% Sub UpdateBuildInfo() On Error Resume Next OraDatabase.Parameters.Add "DATABASE_SERVER", Request("database server"), ORAPARM_INPUT, ORATYPE_VARCHAR2 OraDatabase.Parameters.Add "ARCHIVE_SERVER", Request("archive server"), ORAPARM_INPUT, ORATYPE_VARCHAR2 OraDatabase.Parameters.Add "MAIL_SERVER", Request("mail server"), ORAPARM_INPUT, ORATYPE_VARCHAR2 OraDatabase.Parameters.Add "BUILD_FAILURE_MAIL_SENDER", Request("build failure mail sender"), ORAPARM_INPUT, ORATYPE_VARCHAR2 OraDatabase.Parameters.Add "DISK_SPACE", Request("dpkg_archive disk space used"), ORAPARM_INPUT, ORATYPE_VARCHAR2 OraDatabase.Parameters.Add "SBOM_MANAGEMENT", Request("sbom management"), ORAPARM_INPUT, ORATYPE_VARCHAR2 objEH.TryORA ( OraSession ) OraDatabase.ExecuteSQL _ "BEGIN PK_BUILDAPI.Update_Build_Service_Info ( :DATABASE_SERVER, :ARCHIVE_SERVER, :MAIL_SERVER, :BUILD_FAILURE_MAIL_SENDER, :DISK_SPACE, :SBOM_MANAGEMENT ); END;" objEH.CatchORA ( OraSession ) OraDatabase.Parameters.Remove "DATABASE_SERVER" OraDatabase.Parameters.Remove "ARCHIVE_SERVER" OraDatabase.Parameters.Remove "MAIL_SERVER" OraDatabase.Parameters.Remove "BUILD_FAILURE_MAIL_SENDER" OraDatabase.Parameters.Remove "DISK_SPACE" End Sub %> <% If Request("action") = "true" Then Call UpdateBuildInfo() If objEH.Finally Then Response.Redirect("admin_build_service.asp") End If End If %> Build Service Administration

<% '-- FROM START --------------------------------------------------------------------------------------------------------- Dim bReadOnly: bReadOnly = NOT objAccessControl.IsActive("ConfigureBuildService") objFormComponent.FormName = "UpdateBuildServiceConfig" objFormComponent.Action = ScriptName objFormComponent.OnSubmit = "ShowProgress();" ' Page Access Condition If bReadOnly Then objFormComponent.IsReadonlyAction = enumDB_YES End If Call objFormComponent.FormStart() %>

<%=ProgressBar%>

<%If NOT objEH.Finally Then%> <%End If%> <% Dim rsQry, query query = "SELECT * FROM BUILD_SERVICE_CONFIG WHERE service NOT IN ('MUTEX','WEB SERVER')" Set rsQry = OraDatabase.DbCreateDynaset( query, ORADYN_DEFAULT ) While ((NOT rsQry.BOF) AND (NOT rsQry.EOF)) %> <% rsQry.MoveNext() Wend rsQry.Close() Set rsQry = Nothing %>

	<%objEH.DisplayMessage()%>
BUILD SERVICE	CONFIGURATION
<%=rsQry("service")%>	<%If Len(rsQry("config")) < 60 Then%> <%=objFormComponent.TextBox (rsQry("service"), rsQry("config"), "size='60' class='form_ivalue'" )%> <%Else%> <%=objFormComponent.TextArea (rsQry("service"), rsQry("config"), 5, 60, "class='form_ivalue'" )%> <%End If%>
	<%If bReadOnly Then%> <%Else%> <%End If%>

<%=objPMod.ComposeHiddenTags()%> <% Call objFormComponent.FormEnd() '-- FROM END ---------------------------------------------------------------------------------------------------------------- %>

<%=ProgressBar%>

<%If NOT objEH.Finally Then%> <%End If%>

<%objEH.DisplayMessage()%>

<%Else%> <%End If Else If infiniteValue = 0 Then %> <%Else%> <%End If End If rsInfinite.Close() Set rsInfinite = Nothing On Error Resume Next objEH.TryORA ( OraSession ) OraDatabase.ExecuteSQL _ "BEGIN PK_BUILDAPI.DELETE_OUT_OF_DATE_SCHEDULE; END;" objEH.CatchORA ( OraSession ) %>

<% If bReadOnly Then Call Action_Buttons ( "Add Schedule Disable" ) Else Call Action_Buttons ( "Add Schedule" ) End If %> <% Dim rsInfinite, infiniteValue Set rsInfinite = OraDatabase.DbCreateDynaset( "select * from run_level_schedule where indefinite_pause is not null", ORADYN_DEFAULT ) infiniteValue = rsInfinite.RecordCount If bReadOnly Then If infiniteValue = 0 Then %>

<%Call Action_Buttons ( "Indefinite Pause Disable" )%>

<%Call Action_Buttons ( "Resume Disable" )%>

<%Call Action_Buttons ( "Indefinite Pause" )%>

<%Call Action_Buttons ( "Resume" )%>

<% ' Load some action buttons Call objBtnControl.LoadActionButtons ( Array("btnDeleteSchedule"), OraDatabase ) objBtnControl.ButtonSpacer = 1 objBtnControl.ReadonlyActionBehaviour = enumABTNCTRL_ON_READONLY_DISABLE if bReadOnly Then objBtnControl.IsReadonlyAction = enumDB_YES %> <%If infiniteValue <> 0 Then %>

WARNING!!!Daemons Set To Indefinite Pause.

<%End If%> <%Set rsQry = OraDatabase.DbCreateDynaset( "select * from run_level_schedule", ORADYN_DEFAULT ) '--- Render rows --- Do While (NOT rsQry.BOF) AND (NOT rsQry.EOF) scheduled_id = rsQry("scheduled_id") If NOT IsNull(rsQry("scheduled_pause")) Then %> <% End If rsQry.MoveNext Loop rsQry.Close() Set rsQry = Nothing %>

SCHEDULED PAUSE	SCHEDULED RESUME	REPEAT

<%=rsQry("scheduled_pause")%>	<%=rsQry("scheduled_resume")%>	<%=rsQry("repeat")%>	<%Call objBtnControl.Render ( Array("btnDeleteSchedule"), objAccessControl )%>

<% Call Destroy_All_Objects %>