<%@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()
Dim fList, regexp
Set regexp = new RegExp
regexp.Global = True
' Convert the 'fault email address list' into a Nice comma seperated list
regexp.Pattern = "[ ,:]+"
fList = regexp.Replace(Request("fault email address list"), ",")
regexp.Pattern = ",$"
fList = regexp.Replace(fList, "")
regexp.Pattern = "^,"
fList = regexp.Replace(fList, "")
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 "FAULT_EMAIL_ADDRESS_LIST", fList, 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
OraDatabase.Parameters.Add "LXR_SERVER", Request("lxr server"), 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, " &_
":FAULT_EMAIL_ADDRESS_LIST, " &_
":DISK_SPACE, " &_
":SBOM_MANAGEMENT, " &_
":LXR_SERVER ); 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 "FAULT_EMAIL_ADDRESS_LIST"
OraDatabase.Parameters.Remove "DISK_SPACE"
OraDatabase.Parameters.Remove "SBOM_MANAGEMENT"
OraDatabase.Parameters.Remove "LXR_SERVER"
End Sub
%>
<%
If Request("action") = "true" Then
Call UpdateBuildInfo()
If objEH.Finally Then
Call Destroy_All_Objects
Response.Redirect("admin_build_service.asp")
End If
End If
%>
Build Service Administration
<%
'-- FROM START ---------------------------------------------------------------------------------------------------------
Dim bReadOnly: bReadOnly = NOT canActionControl("ConfigureBuildService")
objFormComponent.FormName = "UpdateBuildServiceConfig"
objFormComponent.Action = ScriptName
objFormComponent.OnSubmit = "showGlobalProgress();"
' Page Access Condition
If bReadOnly Then
objFormComponent.IsReadonlyAction = enumDB_YES
End If
Call objFormComponent.FormStart()
%>
Build Service Configuration
<%If NOT objEH.Finally Then%>
<%objEH.DisplayMessage()%>
<%End If%>
Item
Value
<%
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
%>
<%If bReadOnly Then%>
<%Else%>
<%End If%>
<%=objPMod.ComposeHiddenTags()%>
<%
Call objFormComponent.FormEnd()
'-- FROM END ----------------------------------------------------------------------------------------------------------------
%>