Subversion Repositories DevTools

Rev

Rev 129 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 129 Rev 177
Line 37... Line 37...
37 
'------------ Variable Init -------------------
 37 
'------------ Variable Init -------------------
38 
Set objBtnControl = New ActionButtonControl
 38 
Set objBtnControl = New ActionButtonControl
39 
'----------------------------------------------
 39 
'----------------------------------------------
40 
%>
 40 
%>
41 
 
 41 
 
42 
 
 - 
 
43 
 
 - 
 
44 
<%
 - 
 
45 
' Page Access Condition
 - 
 
46 
If NOT objAccessControl.IsActive("ConfigureBuildService") Then
 - 
 
47 
   Response.Redirect("message.asp?msg=401-9")
 - 
 
48 
End If
 - 
 
49 
%>
 - 
 
50 
<%
 42 
<%
51 
Sub UpdateBuildInfo()
 43 
Sub UpdateBuildInfo()
52 
 
 44 
 
53 
   On Error Resume Next
 45 
   On Error Resume Next
54 
   OraDatabase.Parameters.Add "DATABASE_SERVER",           Request("database server"), ORAPARM_INPUT, ORATYPE_VARCHAR2
 46 
   OraDatabase.Parameters.Add "DATABASE_SERVER",           Request("database server"), ORAPARM_INPUT, ORATYPE_VARCHAR2
55 
   OraDatabase.Parameters.Add "WEB_SERVER",                Request("web server"),      ORAPARM_INPUT, ORATYPE_VARCHAR2
 47 
   OraDatabase.Parameters.Add "ARCHIVE_SERVER",            Request("archive server"),  ORAPARM_INPUT, ORATYPE_VARCHAR2
56 
   OraDatabase.Parameters.Add "MAIL_SERVER",               Request("mail server"),     ORAPARM_INPUT, ORATYPE_VARCHAR2
 48 
   OraDatabase.Parameters.Add "MAIL_SERVER",               Request("mail server"),     ORAPARM_INPUT, ORATYPE_VARCHAR2
57 
   OraDatabase.Parameters.Add "BUILD_FAILURE_MAIL_SENDER", Request("build failure mail sender"),    ORAPARM_INPUT, ORATYPE_VARCHAR2
 49 
   OraDatabase.Parameters.Add "BUILD_FAILURE_MAIL_SENDER", Request("build failure mail sender"),    ORAPARM_INPUT, ORATYPE_VARCHAR2
58 
   OraDatabase.Parameters.Add "DISK_SPACE",                Request("dpkg_archive disk space used"), ORAPARM_INPUT, ORATYPE_VARCHAR2
 50 
   OraDatabase.Parameters.Add "DISK_SPACE",                Request("dpkg_archive disk space used"), ORAPARM_INPUT, ORATYPE_VARCHAR2
59 
   OraDatabase.Parameters.Add "SBOM_MANAGEMENT",           Request("sbom management"), ORAPARM_INPUT, ORATYPE_VARCHAR2
 51 
   OraDatabase.Parameters.Add "SBOM_MANAGEMENT",           Request("sbom management"), ORAPARM_INPUT, ORATYPE_VARCHAR2
60 
 
 52 
 
61 
   objEH.TryORA ( OraSession )
 53 
   objEH.TryORA ( OraSession )
62 
 
 54 
 
63 
   OraDatabase.ExecuteSQL _
 55 
   OraDatabase.ExecuteSQL _
64 
   "BEGIN PK_BUILDAPI.Update_Build_Service ( :DATABASE_SERVER, :WEB_SERVER, :MAIL_SERVER, :BUILD_FAILURE_MAIL_SENDER, :DISK_SPACE, :SBOM_MANAGEMENT ); END;"
 56 
   "BEGIN PK_BUILDAPI.Update_Build_Service_Info ( :DATABASE_SERVER, :ARCHIVE_SERVER, :MAIL_SERVER, :BUILD_FAILURE_MAIL_SENDER, :DISK_SPACE, :SBOM_MANAGEMENT ); END;"
65 
 
 57 
 
66 
   objEH.CatchORA ( OraSession )
 58 
   objEH.CatchORA ( OraSession )
67 
 
 59 
 
68 
   OraDatabase.Parameters.Remove "DATABASE_SERVER"
 60 
   OraDatabase.Parameters.Remove "DATABASE_SERVER"
69 
   OraDatabase.Parameters.Remove "WEB_SERVER"
 61 
   OraDatabase.Parameters.Remove "ARCHIVE_SERVER"
70 
   OraDatabase.Parameters.Remove "MAIL_SERVER"
 62 
   OraDatabase.Parameters.Remove "MAIL_SERVER"
71 
   OraDatabase.Parameters.Remove "BUILD_FAILURE_MAIL_SENDER"
 63 
   OraDatabase.Parameters.Remove "BUILD_FAILURE_MAIL_SENDER"
72 
   OraDatabase.Parameters.Remove "DISK_SPACE"
 64 
   OraDatabase.Parameters.Remove "DISK_SPACE"
73 
End Sub
 65 
End Sub
74 
%>
 66 
%>
Line 103... Line 95...
103 
<!-- HEADER -->
 95 
<!-- HEADER -->
104 
<!--#include file="_header.asp"-->
 96 
<!--#include file="_header.asp"-->
105 
 
 97 
 
106 
   <%
 98 
   <%
107 
   '-- FROM START ---------------------------------------------------------------------------------------------------------
 99 
   '-- FROM START ---------------------------------------------------------------------------------------------------------
- 
 
 100 
   Dim bReadOnly: bReadOnly = NOT objAccessControl.IsActive("ConfigureBuildService")
108 
   objFormComponent.FormName = "UpdateBuildServiceConfig"
 101 
   objFormComponent.FormName = "UpdateBuildServiceConfig"
109 
   objFormComponent.Action = ScriptName
 102 
   objFormComponent.Action = ScriptName
110 
   objFormComponent.OnSubmit = "ShowProgress();"
 103 
   objFormComponent.OnSubmit = "ShowProgress();"
- 
 
 104 
   ' Page Access Condition
- 
 
 105 
   If bReadOnly Then
- 
 
 106 
     objFormComponent.IsReadonlyAction = enumDB_YES
- 
 
 107 
   End If
- 
 
 108 
 
111 
   Call objFormComponent.FormStart()
 109 
   Call objFormComponent.FormStart()
112 
   %>
 110 
   %>
113 
   <tr>
 111 
   <tr>
114 
      <td background="images/bg_login.gif">
 112 
      <td background="images/bg_login.gif">
115 
         <table width="100%"  border="0" cellspacing="0" cellpadding="0">
 113 
         <table width="100%"  border="0" cellspacing="0" cellpadding="0">
Line 137... Line 135...
137 
            <tr>
 135 
            <tr>
138 
               <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">BUILD SERVICE</td>
 136 
               <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">BUILD SERVICE</td>
139 
               <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">CONFIGURATION</td>
 137 
               <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">CONFIGURATION</td>
140 
            </tr>
 138 
            </tr>
141 
            <%
 139 
            <%
- 
 
 140 
 
142 
            Dim rsQry, query
 141 
            Dim rsQry, query
143 
 
 142 
 
144 
            query = "SELECT * FROM BUILD_SERVICE_CONFIG"
 143 
            query = "SELECT * FROM BUILD_SERVICE_CONFIG WHERE service NOT IN ('MUTEX','WEB SERVER')"
145 
 
 144 
 
146 
            Set rsQry = OraDatabase.DbCreateDynaset( query, ORADYN_DEFAULT )
 145 
            Set rsQry = OraDatabase.DbCreateDynaset( query, ORADYN_DEFAULT )
147 
 
 146 
 
148 
            While ((NOT rsQry.BOF) AND (NOT rsQry.EOF))
 147 
            While ((NOT rsQry.BOF) AND (NOT rsQry.EOF))
149 
            %>
 148 
            %>
Line 165... Line 164...
165 
            Set rsQry = Nothing
 164 
            Set rsQry = Nothing
166 
            %>
 165 
            %>
167 
            <tr>
 166 
            <tr>
168 
               <td nowrap class="form_iname">&nbsp;</td>
 167 
               <td nowrap class="form_iname">&nbsp;</td>
169 
               <td nowrap class="val_err">
 168 
               <td nowrap class="val_err">
- 
 
 169 
               <%If bReadOnly Then%>
- 
 
 170 
                  <input name="btn" type="submit" class="form_btn" value="Update" disabled>
- 
 
 171 
               <%Else%>
170 
                  <input name="btn" type="submit" class="form_btn" value="Update">
 172 
                  <input name="btn" type="submit" class="form_btn" value="Update">
- 
 
 173 
               <%End If%>
171 
               </td>
 174 
               </td>
172 
            </tr>
 175 
            </tr>
173 
         </table>
 176 
         </table>
174 
      </td>
 177 
      </td>
175 
  </tr>
 178 
  </tr>
Line 207... Line 210...
207 
               <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 210 
               <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
208 
            </table>
 211 
            </table>
209 
            <table width="25%"  border="0" cellpadding="0">
 212 
            <table width="25%"  border="0" cellpadding="0">
210 
               <!-- BUTTONS CONTROL +++++++++++++++++++ -->
 213 
               <!-- BUTTONS CONTROL +++++++++++++++++++ -->
211 
               <tr>
 214 
               <tr>
- 
 
 215 
                  <td>
- 
 
 216 
                  <%
- 
 
 217 
                  If bReadOnly Then
- 
 
 218 
                    Call Action_Buttons ( "Add Schedule Disable" )
- 
 
 219 
                  Else
212 
                  <td><%Call Action_Buttons ( "Add Schedule" )%></td>
 220 
                    Call Action_Buttons ( "Add Schedule" )
- 
 
 221 
                  End If
- 
 
 222 
                  %>
213 
 
 223 
 
214 
                  <%
 224 
                  <%
215 
                  Dim rsInfinite, infiniteValue
 225 
                  Dim rsInfinite, infiniteValue
216 
 
 226 
 
217 
                  Set rsInfinite = OraDatabase.DbCreateDynaset( "select * from run_level_schedule where indefinite_pause is not null", ORADYN_DEFAULT )
 227 
                  Set rsInfinite = OraDatabase.DbCreateDynaset( "select * from run_level_schedule where indefinite_pause is not null", ORADYN_DEFAULT )
218 
 
 228 
 
219 
                  infiniteValue = rsInfinite.RecordCount
 229 
                  infiniteValue = rsInfinite.RecordCount
220 
 
 230 
 
- 
 
 231 
                  If bReadOnly Then
221 
                  If infiniteValue = 0 Then
 232 
                    If infiniteValue = 0 Then
- 
 
 233 
                  %>
- 
 
 234 
                     <td><%Call Action_Buttons ( "Indefinite Pause Disable" )%></td>
- 
 
 235 
                  <%Else%>
- 
 
 236 
                     <td><%Call Action_Buttons ( "Resume Disable" )%></td>
- 
 
 237 
                  <%End If
- 
 
 238 
                  Else
- 
 
 239 
                    If infiniteValue = 0 Then
222 
                  %>
 240 
                  %>
223 
                     <td><%Call Action_Buttons ( "Indefinite Pause" )%></td>
 241 
                     <td><%Call Action_Buttons ( "Indefinite Pause" )%></td>
224 
                  <%Else%>
 242 
                  <%Else%>
225 
                     <td><%Call Action_Buttons ( "Resume" )%></td>
 243 
                     <td><%Call Action_Buttons ( "Resume" )%></td>
226 
                  <%End If
 244 
                  <%End If
- 
 
 245 
                  End If
227 
 
 246 
 
228 
                  rsInfinite.Close()
 247 
                  rsInfinite.Close()
229 
                  Set rsInfinite = Nothing
 248 
                  Set rsInfinite = Nothing
230 
 
 249 
 
231 
                  On Error Resume Next
 250 
                  On Error Resume Next
Line 241... Line 260...
241 
            </table>
 260 
            </table>
242 
            <%
 261 
            <%
243 
            ' Load some action buttons
 262 
            ' Load some action buttons
244 
            Call objBtnControl.LoadActionButtons ( Array("btnDeleteSchedule"), OraDatabase )
 263 
            Call objBtnControl.LoadActionButtons ( Array("btnDeleteSchedule"), OraDatabase )
245 
            objBtnControl.ButtonSpacer = 1
 264 
            objBtnControl.ButtonSpacer = 1
246 
 
 - 
 
- 
 
 265 
            objBtnControl.ReadonlyActionBehaviour = enumABTNCTRL_ON_READONLY_DISABLE
- 
 
 266 
            if bReadOnly Then objBtnControl.IsReadonlyAction = enumDB_YES
247 
            %>
 267 
            %>
248 
            <%If infiniteValue <> 0 Then %>
 268 
            <%If infiniteValue <> 0 Then %>
249 
               <table width="50%"  border="0" cellpadding="0" cellspacing="2" bgcolor="#FFCC00">
 269 
               <table width="50%"  border="0" cellpadding="0" cellspacing="2" bgcolor="#FFCC00">
250 
                  <tr>
 270 
                  <tr>
251 
                     <td nowrap class="body_rowg"><b><span class='err_alert'>WARNING!!!</span>Daemons Set To Indefinite Pause.<b></td>
 271 
                     <td nowrap class="body_rowg"><b><span class='err_alert'>WARNING!!!</span>Daemons Set To Indefinite Pause.<b></td>