| Line 39... |
Line 39... |
| 39 |
'----------------------------------------------
|
39 |
'----------------------------------------------
|
| 40 |
%>
|
40 |
%>
|
| 41 |
|
41 |
|
| 42 |
<%
|
42 |
<%
|
| 43 |
Sub UpdateBuildInfo()
|
43 |
Sub UpdateBuildInfo()
|
| - |
|
44 |
Dim fList, regexp
|
| - |
|
45 |
Set regexp = new RegExp
|
| - |
|
46 |
regexp.Global = True
|
| - |
|
47 |
|
| - |
|
48 |
' Convert the 'fault email address list' into a Nice comma seperated list
|
| - |
|
49 |
regexp.Pattern = "[ ,:]+"
|
| - |
|
50 |
fList = regexp.Replace(Request("fault email address list"), ",")
|
| - |
|
51 |
regexp.Pattern = ",$"
|
| - |
|
52 |
fList = regexp.Replace(fList, "")
|
| - |
|
53 |
regexp.Pattern = "^,"
|
| - |
|
54 |
fList = regexp.Replace(fList, "")
|
| 44 |
|
55 |
|
| 45 |
On Error Resume Next
|
56 |
On Error Resume Next
|
| 46 |
OraDatabase.Parameters.Add "DATABASE_SERVER", Request("database server"), ORAPARM_INPUT, ORATYPE_VARCHAR2
|
57 |
OraDatabase.Parameters.Add "DATABASE_SERVER", Request("database server"), ORAPARM_INPUT, ORATYPE_VARCHAR2
|
| 47 |
OraDatabase.Parameters.Add "ARCHIVE_SERVER", Request("archive server"), ORAPARM_INPUT, ORATYPE_VARCHAR2
|
58 |
OraDatabase.Parameters.Add "ARCHIVE_SERVER", Request("archive server"), ORAPARM_INPUT, ORATYPE_VARCHAR2
|
| 48 |
OraDatabase.Parameters.Add "MAIL_SERVER", Request("mail server"), ORAPARM_INPUT, ORATYPE_VARCHAR2
|
59 |
OraDatabase.Parameters.Add "MAIL_SERVER", Request("mail server"), ORAPARM_INPUT, ORATYPE_VARCHAR2
|
| 49 |
OraDatabase.Parameters.Add "BUILD_FAILURE_MAIL_SENDER", Request("build failure mail sender"), ORAPARM_INPUT, ORATYPE_VARCHAR2
|
60 |
OraDatabase.Parameters.Add "BUILD_FAILURE_MAIL_SENDER", Request("build failure mail sender"), ORAPARM_INPUT, ORATYPE_VARCHAR2
|
| - |
|
61 |
OraDatabase.Parameters.Add "FAULT_EMAIL_ADDRESS_LIST", fList, ORAPARM_INPUT, ORATYPE_VARCHAR2
|
| 50 |
OraDatabase.Parameters.Add "DISK_SPACE", Request("dpkg_archive disk space used"), ORAPARM_INPUT, ORATYPE_VARCHAR2
|
62 |
OraDatabase.Parameters.Add "DISK_SPACE", Request("dpkg_archive disk space used"), ORAPARM_INPUT, ORATYPE_VARCHAR2
|
| 51 |
OraDatabase.Parameters.Add "SBOM_MANAGEMENT", Request("sbom management"), ORAPARM_INPUT, ORATYPE_VARCHAR2
|
63 |
OraDatabase.Parameters.Add "SBOM_MANAGEMENT", Request("sbom management"), ORAPARM_INPUT, ORATYPE_VARCHAR2
|
| 52 |
|
64 |
|
| 53 |
objEH.TryORA ( OraSession )
|
65 |
objEH.TryORA ( OraSession )
|
| 54 |
|
66 |
|
| 55 |
OraDatabase.ExecuteSQL _
|
67 |
OraDatabase.ExecuteSQL _
|
| 56 |
"BEGIN PK_BUILDAPI.Update_Build_Service_Info ( :DATABASE_SERVER, :ARCHIVE_SERVER, :MAIL_SERVER, :BUILD_FAILURE_MAIL_SENDER, :DISK_SPACE, :SBOM_MANAGEMENT ); END;"
|
68 |
"BEGIN PK_BUILDAPI.Update_Build_Service_Info ( " &_
|
| - |
|
69 |
":DATABASE_SERVER, " &_
|
| - |
|
70 |
":ARCHIVE_SERVER, " &_
|
| - |
|
71 |
":MAIL_SERVER, " &_
|
| - |
|
72 |
":BUILD_FAILURE_MAIL_SENDER, " &_
|
| - |
|
73 |
":FAULT_EMAIL_ADDRESS_LIST, " &_
|
| - |
|
74 |
":DISK_SPACE, " &_
|
| - |
|
75 |
":SBOM_MANAGEMENT ); END;"
|
| 57 |
|
76 |
|
| 58 |
objEH.CatchORA ( OraSession )
|
77 |
objEH.CatchORA ( OraSession )
|
| 59 |
|
78 |
|
| 60 |
OraDatabase.Parameters.Remove "DATABASE_SERVER"
|
79 |
OraDatabase.Parameters.Remove "DATABASE_SERVER"
|
| 61 |
OraDatabase.Parameters.Remove "ARCHIVE_SERVER"
|
80 |
OraDatabase.Parameters.Remove "ARCHIVE_SERVER"
|
| 62 |
OraDatabase.Parameters.Remove "MAIL_SERVER"
|
81 |
OraDatabase.Parameters.Remove "MAIL_SERVER"
|
| 63 |
OraDatabase.Parameters.Remove "BUILD_FAILURE_MAIL_SENDER"
|
82 |
OraDatabase.Parameters.Remove "BUILD_FAILURE_MAIL_SENDER"
|
| - |
|
83 |
OraDatabase.Parameters.Remove "FAULT_EMAIL_ADDRESS_LIST"
|
| 64 |
OraDatabase.Parameters.Remove "DISK_SPACE"
|
84 |
OraDatabase.Parameters.Remove "DISK_SPACE"
|
| - |
|
85 |
OraDatabase.Parameters.Remove "SBOM_MANAGEMENT"
|
| 65 |
End Sub
|
86 |
End Sub
|
| 66 |
%>
|
87 |
%>
|
| 67 |
<%
|
88 |
<%
|
| 68 |
If Request("action") = "true" Then
|
89 |
If Request("action") = "true" Then
|
| 69 |
Call UpdateBuildInfo()
|
90 |
Call UpdateBuildInfo()
|