Subversion Repositories DevTools

Rev

Rev 6070 | Rev 6181 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 6070 Rev 6077
Line 60... Line 60...
60 
   OraDatabase.Parameters.Add "MAIL_SERVER",               Request("mail server"),     ORAPARM_INPUT, ORATYPE_VARCHAR2
 60 
   OraDatabase.Parameters.Add "MAIL_SERVER",               Request("mail server"),     ORAPARM_INPUT, ORATYPE_VARCHAR2
61 
   OraDatabase.Parameters.Add "BUILD_FAILURE_MAIL_SENDER", Request("build failure mail sender"),    ORAPARM_INPUT, ORATYPE_VARCHAR2
 61 
   OraDatabase.Parameters.Add "BUILD_FAILURE_MAIL_SENDER", Request("build failure mail sender"),    ORAPARM_INPUT, ORATYPE_VARCHAR2
62 
   OraDatabase.Parameters.Add "FAULT_EMAIL_ADDRESS_LIST",  fList,    ORAPARM_INPUT, ORATYPE_VARCHAR2
 62 
   OraDatabase.Parameters.Add "FAULT_EMAIL_ADDRESS_LIST",  fList,    ORAPARM_INPUT, ORATYPE_VARCHAR2
63 
   OraDatabase.Parameters.Add "DISK_SPACE",                Request("dpkg_archive disk space used"), ORAPARM_INPUT, ORATYPE_VARCHAR2
 63 
   OraDatabase.Parameters.Add "DISK_SPACE",                Request("dpkg_archive disk space used"), ORAPARM_INPUT, ORATYPE_VARCHAR2
64 
   OraDatabase.Parameters.Add "SBOM_MANAGEMENT",           Request("sbom management"), ORAPARM_INPUT, ORATYPE_VARCHAR2
 64 
   OraDatabase.Parameters.Add "SBOM_MANAGEMENT",           Request("sbom management"), ORAPARM_INPUT, ORATYPE_VARCHAR2
- 
 
 65 
   OraDatabase.Parameters.Add "LXR_SERVER",                Request("lxr server"), ORAPARM_INPUT, ORATYPE_VARCHAR2
65 
 
 66 
 
66 
   objEH.TryORA ( OraSession )
 67 
   objEH.TryORA ( OraSession )
67 
 
 68 
 
68 
   OraDatabase.ExecuteSQL _
 69 
   OraDatabase.ExecuteSQL _
69 
   "BEGIN PK_BUILDAPI.Update_Build_Service_Info ( " &_
70 
   "BEGIN PK_BUILDAPI.Update_Build_Service_Info ( " &_
Line 71... Line 72...
71 
                ":ARCHIVE_SERVER, " &_
72 
                ":ARCHIVE_SERVER, " &_
72 
                ":MAIL_SERVER, " &_
 73 
                ":MAIL_SERVER, " &_
73 
                ":BUILD_FAILURE_MAIL_SENDER, " &_
74 
                ":BUILD_FAILURE_MAIL_SENDER, " &_
74 
                ":FAULT_EMAIL_ADDRESS_LIST, " &_
75 
                ":FAULT_EMAIL_ADDRESS_LIST, " &_
75 
                ":DISK_SPACE, " &_
76 
                ":DISK_SPACE, " &_
76 
                ":SBOM_MANAGEMENT ); END;"
 77 
                ":SBOM_MANAGEMENT, " &_
- 
 
 78 
                ":LXR_SERVER ); END;"
77 
 
 79 
 
78 
   objEH.CatchORA ( OraSession )
 80 
   objEH.CatchORA ( OraSession )
79 
 
 81 
 
80 
   OraDatabase.Parameters.Remove "DATABASE_SERVER"
 82 
   OraDatabase.Parameters.Remove "DATABASE_SERVER"
81 
   OraDatabase.Parameters.Remove "ARCHIVE_SERVER"
 83 
   OraDatabase.Parameters.Remove "ARCHIVE_SERVER"
82 
   OraDatabase.Parameters.Remove "MAIL_SERVER"
 84 
   OraDatabase.Parameters.Remove "MAIL_SERVER"
83 
   OraDatabase.Parameters.Remove "BUILD_FAILURE_MAIL_SENDER"
 85 
   OraDatabase.Parameters.Remove "BUILD_FAILURE_MAIL_SENDER"
84 
   OraDatabase.Parameters.Remove "FAULT_EMAIL_ADDRESS_LIST"
 86 
   OraDatabase.Parameters.Remove "FAULT_EMAIL_ADDRESS_LIST"
85 
   OraDatabase.Parameters.Remove "DISK_SPACE"
 87 
   OraDatabase.Parameters.Remove "DISK_SPACE"
86 
   OraDatabase.Parameters.Remove "SBOM_MANAGEMENT"
 88 
   OraDatabase.Parameters.Remove "SBOM_MANAGEMENT"
- 
 
 89 
   OraDatabase.Parameters.Remove "LXR_SERVER"
87 
End Sub
 90 
End Sub
88 
%>
 91 
%>
89 
<%
 92 
<%
90 
If Request("action") = "true" Then
 93 
If Request("action") = "true" Then
91 
   Call UpdateBuildInfo()
 94 
   Call UpdateBuildInfo()