Subversion Repositories DevTools

Rev

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

Rev 119 Rev 129
Line 1... Line 1...
1 
<%@LANGUAGE="VBSCRIPT"%>
 1 
<%@LANGUAGE="VBSCRIPT"%>
2 
<%
 2 
<%
3 
'=====================================================
 3 
'=====================================================
4 
'|                                                   |
 4 
'|                                                   |
5 
'|				    ADMIN Page			        	 |
 5 
'|                ADMIN Page                         |
6 
'|                  Build	Service                  |
 6 
'|               Build Service                       |
7 
'|                                      			 |
 7 
'|                                                   |
8 
'=====================================================
 8 
'=====================================================
9 
%>
 9 
%>
10 
<%
 10 
<%
11 
Option explicit
 11 
Option explicit
12 
' Good idea to set when using redirect
 12 
' Good idea to set when using redirect
13 
Response.Expires = 0	' always load the page, dont store
 13 
Response.Expires = 0   ' always load the page, dont store
14 
%>
 14 
%>
15 
<!--#include file="common/conf.asp"-->
 15 
<!--#include file="common/conf.asp"-->
16 
<!--#include file="common/globals.asp"-->
 16 
<!--#include file="common/globals.asp"-->
17 
<!--#include file="common/formating.asp"-->
 17 
<!--#include file="common/formating.asp"-->
18 
<!--#include file="common/qstr.asp"-->
 18 
<!--#include file="common/qstr.asp"-->
Line 42... Line 42...
42 
 
 42 
 
43 
 
 43 
 
44 
<%
 44 
<%
45 
' Page Access Condition
 45 
' Page Access Condition
46 
If NOT objAccessControl.IsActive("ConfigureBuildService") Then
 46 
If NOT objAccessControl.IsActive("ConfigureBuildService") Then
47 
	Response.Redirect("message.asp?msg=401-9")
 47 
   Response.Redirect("message.asp?msg=401-9")
48 
End If
 48 
End If
49 
%>
 49 
%>
50 
<%
 50 
<%
51 
Sub UpdateBuildInfo()
 51 
Sub UpdateBuildInfo()
52 
 
 52 
 
53 
	On Error Resume Next
 53 
   On Error Resume Next
54 
	OraDatabase.Parameters.Add "DATABASE_SERVER", 			Request("database server"), 	ORAPARM_INPUT, ORATYPE_VARCHAR2
54 
   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
55 
   OraDatabase.Parameters.Add "WEB_SERVER",                Request("web server"),      ORAPARM_INPUT, ORATYPE_VARCHAR2
56 
	OraDatabase.Parameters.Add "MAIL_SERVER", 				Request("mail server"), 	ORAPARM_INPUT, ORATYPE_VARCHAR2
 56 
   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
57 
   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
58 
   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
59 
   OraDatabase.Parameters.Add "SBOM_MANAGEMENT",           Request("sbom management"), ORAPARM_INPUT, ORATYPE_VARCHAR2
60 
 
 60 
 
61 
	objEH.TryORA ( OraSession )
 61 
   objEH.TryORA ( OraSession )
62
62 
 
63 
	OraDatabase.ExecuteSQL _
 63 
   OraDatabase.ExecuteSQL _
64 
	"BEGIN PK_BUILDAPI.Update_Build_Service ( :DATABASE_SERVER, :WEB_SERVER, :MAIL_SERVER, :BUILD_FAILURE_MAIL_SENDER, :DISK_SPACE, :SBOM_MANAGEMENT ); END;"
64 
   "BEGIN PK_BUILDAPI.Update_Build_Service ( :DATABASE_SERVER, :WEB_SERVER, :MAIL_SERVER, :BUILD_FAILURE_MAIL_SENDER, :DISK_SPACE, :SBOM_MANAGEMENT ); END;"
65
65 
 
66 
	objEH.CatchORA ( OraSession )
 66 
   objEH.CatchORA ( OraSession )
67 
 
 67 
 
68 
	OraDatabase.Parameters.Remove "DATABASE_SERVER"
 68 
   OraDatabase.Parameters.Remove "DATABASE_SERVER"
69 
	OraDatabase.Parameters.Remove "WEB_SERVER"
 69 
   OraDatabase.Parameters.Remove "WEB_SERVER"
70 
	OraDatabase.Parameters.Remove "MAIL_SERVER"
 70 
   OraDatabase.Parameters.Remove "MAIL_SERVER"
71 
	OraDatabase.Parameters.Remove "BUILD_FAILURE_MAIL_SENDER"
 71 
   OraDatabase.Parameters.Remove "BUILD_FAILURE_MAIL_SENDER"
72 
	OraDatabase.Parameters.Remove "DISK_SPACE"
 72 
   OraDatabase.Parameters.Remove "DISK_SPACE"
73 
End Sub
 73 
End Sub
74 
%>
 74 
%>
75 
<%
 75 
<%
76 
If Request("action") = "true" Then
 76 
If Request("action") = "true" Then
77 
	Call UpdateBuildInfo()
 77 
   Call UpdateBuildInfo()
78 
	If objEH.Finally Then
 78 
   If objEH.Finally Then
79 
		Response.Redirect("admin_build_service.asp")
 79 
      Response.Redirect("admin_build_service.asp")
80 
	End If
 80 
   End If
81 
End If
 81 
End If
82 
%>
 82 
%>
83 
<html>
 83 
<html>
84 
<head>
 84 
<head>
85 
 
 85 
 
Line 94... Line 94...
94 
<!--#include file="_menu_def.asp"-->
 94 
<!--#include file="_menu_def.asp"-->
95 
<script language="JavaScript1.2" src="images/popup_menu.js"></script>
 95 
<script language="JavaScript1.2" src="images/popup_menu.js"></script>
96 
</head>
 96 
</head>
97 
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" >
 97 
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" >
98 
<!-- MENU LAYERS -------------------------------------->
 98 
<!-- MENU LAYERS -------------------------------------->
99 
<div id="popmenu" class="menuskin" onMouseover="clearhidemenu();highlightmenu(event,'on')" onMouseout="highlightmenu(event,'off');dynamichide(event)">
99 
<div id="popmenu" class="menuskin" onMouseover="clearhidemenu();highlightmenu(event,'on')" onMouseout="highlightmenu(event,'off');dynamichide(event)">
100 
</div>
 100 
</div>
101 
<!-- TIPS LAYERS -------------------------------------->
 101 
<!-- TIPS LAYERS -------------------------------------->
102 
<div id="formTipsLayer" style="position: absolute; z-index: 1000; visibility: hidden; left:0; top: 0; width: 10">&nbsp;</div>
 102 
<div id="formTipsLayer" style="position: absolute; z-index: 1000; visibility: hidden; left:0; top: 0; width: 10">&nbsp;</div>
103 
<!-- HEADER -->
 103 
<!-- HEADER -->
104 
<!--#include file="_header.asp"-->
 104 
<!--#include file="_header.asp"-->
105 
 
 105 
 
106 
  <%
 106 
   <%
107 
  '-- FROM START ---------------------------------------------------------------------------------------------------------
 107 
   '-- FROM START ---------------------------------------------------------------------------------------------------------
108 
  objFormComponent.FormName = "UpdateBuildServiceConfig"
 108 
   objFormComponent.FormName = "UpdateBuildServiceConfig"
109 
  objFormComponent.Action = ScriptName
 109 
   objFormComponent.Action = ScriptName
110 
  objFormComponent.OnSubmit = "ShowProgress();"
 110 
   objFormComponent.OnSubmit = "ShowProgress();"
111 
  Call objFormComponent.FormStart()
 111 
   Call objFormComponent.FormStart()
112 
  %>
112 
   %>
113 
  <tr>
 113 
   <tr>
- 
 
 114 
      <td background="images/bg_login.gif">
114 
    <td background="images/bg_login.gif"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
 115 
         <table width="100%"  border="0" cellspacing="0" cellpadding="0">
115 
      <tr>
 116 
            <tr>
116 
        <td><%=ProgressBar%></td>
 117 
               <td><%=ProgressBar%></td>
117 
        <td align="right">&nbsp;          </td>
 118 
               <td align="right">&nbsp;          </td>
118 
      </tr>
 119 
            </tr>
- 
 
 120 
         </table>
119 
    </table></td>
 121 
      </td>
120 
  </tr>
 122 
   </tr>
121 
  <tr>
 123 
   <tr>
- 
 
 124 
      <td>
122 
    <td><table width="50%"  border="0" cellpadding="0" cellspacing="2" bgcolor="#FFCC00">
 125 
         <table width="50%"  border="0" cellpadding="0" cellspacing="2" bgcolor="#FFCC00">
123 
	  <!-- MESSAGE +++++++++++++++++++++++++++++++++++++++++++++++++++ -->
126 
            <!-- MESSAGE +++++++++++++++++++++++++++++++++++++++++++++++++++ -->
124 
	  <%If NOT objEH.Finally Then%>
 127 
            <%If NOT objEH.Finally Then%>
125 
      <tr>
 128 
               <tr>
126 
        <td class="form_iname">&nbsp;</td>
 129 
                  <td class="form_iname">&nbsp;</td>
127 
        <td>
 130 
                  <td>
128 
		 <%objEH.DisplayMessage()%>
 131 
                     <%objEH.DisplayMessage()%>
129 
		</td>
 132 
                  </td>
130 
        <td class="val_err"></td>
 133 
                  <td class="val_err"></td>
131 
      </tr>
 134 
               </tr>
132 
	  <%End If%>
 135 
            <%End If%>
133 
	  <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 136 
            <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
134 
      <tr>
 137 
            <tr>
135 
        <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">BUILD SERVICE</td>
 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">CONFIGURATION</td>
 139 
               <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">CONFIGURATION</td>
137 
      </tr>
 140 
            </tr>
138 
	  <%
 141 
            <%
139 
	  Dim rsQry, query
 142 
            Dim rsQry, query
140
143 
 
141 
	  query = "SELECT * FROM BUILD_SERVICE_CONFIG"
 144 
            query = "SELECT * FROM BUILD_SERVICE_CONFIG"
142 
 
 145 
 
143 
	  Set rsQry = OraDatabase.DbCreateDynaset( query, ORADYN_DEFAULT )
 146 
            Set rsQry = OraDatabase.DbCreateDynaset( query, ORADYN_DEFAULT )
144
- 
 
145
- 
 
146
147 
 
147 
	 While ((NOT rsQry.BOF) AND (NOT rsQry.EOF))
 148 
            While ((NOT rsQry.BOF) AND (NOT rsQry.EOF))
148 
	 %>
 149 
            %>
149 
	<tr>
 150 
               <tr>
150 
		<td nowrap class="form_iname" valign="top"><%=rsQry("service")%></td>
 151 
                  <td nowrap class="form_iname" valign="top"><%=rsQry("service")%></td>
151 
		<td nowrap valign="top">
 152 
                  <td nowrap valign="top">
152
- 
 
153 
		<%If Len(rsQry("config")) < 60 Then%>
 153 
                     <%If Len(rsQry("config")) < 60 Then%>
154 
			<%=objFormComponent.TextBox (rsQry("service"), rsQry("config"), "size='60' class='form_ivalue'" )%>
 154 
                        <%=objFormComponent.TextBox (rsQry("service"), rsQry("config"), "size='60' class='form_ivalue'" )%>
155 
		<%Else%>
 155 
                     <%Else%>
156 
			<%=objFormComponent.TextArea (rsQry("service"), rsQry("config"), 5, 60, "class='form_ivalue'" )%>
 156 
                        <%=objFormComponent.TextArea (rsQry("service"), rsQry("config"), 5, 60, "class='form_ivalue'" )%>
157 
 
 - 
 
158 
		<%End If%>
 157 
                     <%End If%>
159
- 
 
160
- 
 
161 
		</td>
 158 
                  </td>
162 
    </tr>
 159 
               </tr>
163 
	<%
 160 
               <%
164 
	 	rsQry.MoveNext()
161 
               rsQry.MoveNext()
165 
	 Wend
 162 
            Wend
166 
 
 163 
 
167 
	 rsQry.Close()
 164 
            rsQry.Close()
168 
 
 - 
 
169 
	 Set rsQry = Nothing
165 
            Set rsQry = Nothing
170 
 
 - 
 
171 
	  %>
 166 
            %>
172 
      <tr>
 167 
            <tr>
173 
        <td nowrap class="form_iname">&nbsp;</td>
 168 
               <td nowrap class="form_iname">&nbsp;</td>
- 
 
 169 
               <td nowrap class="val_err">
174 
        <td nowrap class="val_err"><input name="btn" type="submit" class="form_btn" value="Update">
 170 
                  <input name="btn" type="submit" class="form_btn" value="Update">
- 
 
 171 
               </td>
175 
      </tr>
 172 
            </tr>
- 
 
 173 
         </table>
176 
    </table></td>
 174 
      </td>
177 
  </tr>
 175 
  </tr>
178 
  <%=objPMod.ComposeHiddenTags()%>
 176 
  <%=objPMod.ComposeHiddenTags()%>
179 
    <input type="hidden" name="action" value="true">
 177 
  <input type="hidden" name="action" value="true">
180 
    <%
 178 
  <%
181 
  Call objFormComponent.FormEnd()
 179 
  Call objFormComponent.FormEnd()
182 
  '-- FROM END ----------------------------------------------------------------------------------------------------------------
 180 
  '-- FROM END ----------------------------------------------------------------------------------------------------------------
183 
%>
 181 
   %>
184 
 
 182 
 
185 
<form name="run_level_schedule">
 183 
   <form name="run_level_schedule">
186 
  <tr>
 - 
 
187 
    <td background="images/bg_login.gif"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
 - 
 
188 
      <tr>
 184 
      <tr>
- 
 
 185 
         <td background="images/bg_login.gif">
- 
 
 186 
            <table width="100%"  border="0" cellspacing="0" cellpadding="0">
- 
 
 187 
               <tr>
189 
        <td><%=ProgressBar%></td>
 188 
                  <td><%=ProgressBar%></td>
190 
        <td align="right">&nbsp;          </td>
 189 
                  <td align="right">&nbsp;          </td>
- 
 
 190 
               </tr>
- 
 
 191 
            </table>
- 
 
 192 
         </td>
191 
      </tr>
 193 
      </tr>
192 
    </table></td>
 - 
 
193 
  </tr>
 - 
 
194 
  <tr>
 - 
 
195 
    <td><table width="50%"  border="0" cellpadding="0" cellspacing="2" bgcolor="#FFCC00">
 - 
 
196 
	  <!-- MESSAGE +++++++++++++++++++++++++++++++++++++++++++++++++++ -->
- 
 
197 
	  <%If NOT objEH.Finally Then%>
 - 
 
198 
      <tr>
 194 
      <tr>
- 
 
 195 
         <td>
- 
 
 196 
            <table width="50%"  border="0" cellpadding="0" cellspacing="2" bgcolor="#FFCC00">
- 
 
 197 
               <!-- MESSAGE +++++++++++++++++++++++++++++++++++++++++++++++++++ -->
- 
 
 198 
               <%If NOT objEH.Finally Then%>
- 
 
 199 
                  <tr>
199 
        <td class="form_iname">&nbsp;</td>
 200 
                     <td class="form_iname">&nbsp;</td>
200 
        <td>
 201 
                     <td>
201 
		 <%objEH.DisplayMessage()%>
 202 
                        <%objEH.DisplayMessage()%>
202 
		</td>
 203 
                     </td>
203 
        <td class="val_err"></td>
 204 
                     <td class="val_err"></td>
- 
 
 205 
                  </tr>
- 
 
 206 
               <%End If%>
- 
 
 207 
               <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
- 
 
 208 
            </table>
- 
 
 209 
            <table width="25%"  border="0" cellpadding="0">
- 
 
 210 
               <!-- BUTTONS CONTROL +++++++++++++++++++ -->
- 
 
 211 
               <tr>
- 
 
 212 
                  <td><%Call Action_Buttons ( "Add Schedule" )%></td>
- 
 
 213 
 
- 
 
 214 
                  <%
- 
 
 215 
                  Dim rsInfinite, infiniteValue
- 
 
 216 
 
- 
 
 217 
                  Set rsInfinite = OraDatabase.DbCreateDynaset( "select * from run_level_schedule where indefinite_pause is not null", ORADYN_DEFAULT )
- 
 
 218 
 
- 
 
 219 
                  infiniteValue = rsInfinite.RecordCount
- 
 
 220 
 
- 
 
 221 
                  If infiniteValue = 0 Then
- 
 
 222 
                  %>
- 
 
 223 
                     <td><%Call Action_Buttons ( "Indefinite Pause" )%></td>
- 
 
 224 
                  <%Else%>
- 
 
 225 
                     <td><%Call Action_Buttons ( "Resume" )%></td>
- 
 
 226 
                  <%End If
- 
 
 227 
 
- 
 
 228 
                  rsInfinite.Close()
- 
 
 229 
                  Set rsInfinite = Nothing
- 
 
 230 
 
- 
 
 231 
                  On Error Resume Next
- 
 
 232 
                  objEH.TryORA ( OraSession )
- 
 
 233 
 
- 
 
 234 
                  OraDatabase.ExecuteSQL _
- 
 
 235 
                  "BEGIN PK_BUILDAPI.DELETE_OUT_OF_DATE_SCHEDULE;   END;"
- 
 
 236 
 
- 
 
 237 
                  objEH.CatchORA ( OraSession )
- 
 
 238 
 
- 
 
 239 
                  %>
- 
 
 240 
               </tr>
- 
 
 241 
            </table>
- 
 
 242 
            <%
- 
 
 243 
            ' Load some action buttons
- 
 
 244 
            Call objBtnControl.LoadActionButtons ( Array("btnDeleteSchedule"), OraDatabase )
- 
 
 245 
            objBtnControl.ButtonSpacer = 1
- 
 
 246 
 
- 
 
 247 
            %>
- 
 
 248 
            <%If infiniteValue <> 0 Then %>
- 
 
 249 
               <table width="50%"  border="0" cellpadding="0" cellspacing="2" bgcolor="#FFCC00">
- 
 
 250 
                  <tr>
- 
 
 251 
                     <td nowrap class="body_rowg"><b><span class='err_alert'>WARNING!!!</span>Daemons Set To Indefinite Pause.<b></td>
- 
 
 252 
                  </tr>
- 
 
 253 
               </table>
- 
 
 254 
            <%End If%>
- 
 
 255 
 
- 
 
 256 
            <!-- +++++++++++++++++++++++++++++++++++ -->
- 
 
 257 
            <table width="50%"  border="0" cellpadding="0" cellspacing="2" bgcolor="#FFCC00">
- 
 
 258 
               <tr>
- 
 
 259 
                  <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">SCHEDULED PAUSE</td>
- 
 
 260 
                  <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">SCHEDULED RESUME</td>
- 
 
 261 
                  <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">REPEAT</td>
- 
 
 262 
 
- 
 
 263 
                  <td valign="top"></td>
- 
 
 264 
               </tr>
- 
 
 265 
 
- 
 
 266 
               <%Set rsQry = OraDatabase.DbCreateDynaset( "select * from run_level_schedule", ORADYN_DEFAULT )
- 
 
 267 
 
- 
 
 268 
               '--- Render rows ---
- 
 
 269 
               Do While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
- 
 
 270 
                  scheduled_id = rsQry("scheduled_id")
- 
 
 271 
 
- 
 
 272 
                  If NOT IsNull(rsQry("scheduled_pause")) Then
- 
 
 273 
                  %>
- 
 
 274 
 
- 
 
 275 
                     <tr>
- 
 
 276 
                        <td colspan="5" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
- 
 
 277 
                     </tr>
- 
 
 278 
                     <tr>
- 
 
 279 
                        <td nowrap class="body_rowg"><%=rsQry("scheduled_pause")%></td>
- 
 
 280 
                        <td nowrap class="body_rowg"><%=rsQry("scheduled_resume")%></td>
- 
 
 281 
                        <td nowrap class="body_rowg"><%=rsQry("repeat")%></td>
- 
 
 282 
                        <td nowrap class="body_rowg"><%Call objBtnControl.Render  ( Array("btnDeleteSchedule"), objAccessControl )%></td>
- 
 
 283 
                     </tr>
- 
 
 284 
                  <%
- 
 
 285 
                  End If
- 
 
 286 
                  rsQry.MoveNext
- 
 
 287 
               Loop
- 
 
 288 
 
- 
 
 289 
               rsQry.Close()
- 
 
 290 
               Set rsQry = Nothing
- 
 
 291 
               %>
- 
 
 292 
            </table>
- 
 
 293 
         </td>
204 
      </tr>
 294 
      </tr>
205 
	  <%End If%>
 - 
 
206 
	  <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 - 
 
207 
		</table>
 - 
 
208 
		<table width="25%"  border="0" cellpadding="0">
 - 
 
209 
		<!-- BUTTONS CONTROL +++++++++++++++++++ -->
 - 
 
210 
		<tr>
 - 
 
211 
		<td><%Call Action_Buttons ( "Add Schedule" )%></td>
 - 
 
212 
 
 - 
 
213 
		<%
 - 
 
214 
		Dim rsInfinite, infiniteValue
 - 
 
215 
 
 - 
 
216 
		Set rsInfinite = OraDatabase.DbCreateDynaset( "select * from run_level_schedule where indefinite_pause is not null", ORADYN_DEFAULT )
 - 
 
217
- 
 
218 
		infiniteValue = rsInfinite.RecordCount
 - 
 
219 
 
 - 
 
220 
		If infiniteValue = 0 Then
 - 
 
221 
		%>
 - 
 
222 
			<td><%Call Action_Buttons ( "Indefinite Pause" )%></td>
 - 
 
223 
		<%Else%>
 - 
 
224 
			<td><%Call Action_Buttons ( "Resume" )%></td>
 - 
 
225 
 
 - 
 
226 
		<%End If
 - 
 
227
- 
 
228 
		rsInfinite.Close()
 - 
 
229 
		Set rsInfinite = Nothing
 - 
 
230
- 
 
231 
 
 - 
 
232 
		objEH.TryORA ( OraSession )
 - 
 
233 
 
 - 
 
234 
		OraDatabase.ExecuteSQL _
 - 
 
235 
		"BEGIN PK_BUILDAPI.DELETE_OUT_OF_DATE_SCHEDULE;   END;"
 - 
 
236
- 
 
237 
		objEH.CatchORA ( OraSession )
 - 
 
238 
 
 - 
 
239 
		%>
 - 
 
240 
		</tr>
 - 
 
241 
		</table>
 - 
 
242 
		<%
 - 
 
243 
		 ' Load some action buttons
 - 
 
244 
		 Call objBtnControl.LoadActionButtons ( Array("btnDeleteSchedule"), OraDatabase )
 - 
 
245 
		 objBtnControl.ButtonSpacer = 1
 - 
 
246
- 
 
247 
		%>
 - 
 
248 
		<%If infiniteValue <> 0 Then %>
 - 
 
249 
			<table width="50%"  border="0" cellpadding="0" cellspacing="2" bgcolor="#FFCC00">
 - 
 
250 
			<tr>
 - 
 
251 
			<td nowrap class="body_rowg"><b><span class='err_alert'>WARNING!!!</span>Daemons Set To Indefinite Pause.<b></td>
 - 
 
252 
			</tr>
 - 
 
253 
			</table>
 - 
 
254 
		<%End If%>
- 
 
255 
 
 - 
 
256 
		<!-- +++++++++++++++++++++++++++++++++++ -->
- 
 
257 
		<table width="50%"  border="0" cellpadding="0" cellspacing="2" bgcolor="#FFCC00">
 - 
 
258 
		  <tr>
 - 
 
259 
			<td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">SCHEDULED PAUSE</td>
 - 
 
260 
			<td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">SCHEDULED RESUME</td>
 - 
 
261 
			<td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">REPEAT</td>
 - 
 
262
- 
 
263 
			<td valign="top"></td>
 - 
 
264 
		  </tr>
 - 
 
265 
 
 - 
 
266
- 
 
267
- 
 
268 
			<%Set rsQry = OraDatabase.DbCreateDynaset( "select * from run_level_schedule", ORADYN_DEFAULT )
 - 
 
269 
 
 - 
 
270 
 
 - 
 
271 
			'--- Render rows ---
 - 
 
272 
			Do While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
 - 
 
273 
			scheduled_id = rsQry("scheduled_id")
- 
 
274
- 
 
275 
			If NOT IsNull(rsQry("scheduled_pause")) Then
 - 
 
276
- 
 
277
- 
 
278 
			%>
 - 
 
279
- 
 
280 
			  <tr>
 - 
 
281 
				<td colspan="5" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
 - 
 
282 
			  </tr>
- 
 
283 
				 <tr>
 - 
 
284 
				 <td nowrap class="body_rowg"><%=rsQry("scheduled_pause")%></td>
 - 
 
285 
				 <td nowrap class="body_rowg"><%=rsQry("scheduled_resume")%></td>
 - 
 
286 
				 <td nowrap class="body_rowg"><%=rsQry("repeat")%></td>
- 
 
287 
				 <td nowrap class="body_rowg"><%Call objBtnControl.Render  ( Array("btnDeleteSchedule"), objAccessControl )%></td>
 - 
 
288 
				 </tr>
 - 
 
289 
				 <%
 - 
 
290 
 
 - 
 
291 
			End If
 - 
 
292 
			rsQry.MoveNext
 - 
 
293 
			Loop
- 
 
294 
 
 - 
 
295 
 
 - 
 
296 
			rsQry.Close()
 - 
 
297 
			Set rsQry = Nothing
 - 
 
298 
			%>
 - 
 
299 
 
 - 
 
300
- 
 
301 
		</table>
 - 
 
302
- 
 
303 
 
 - 
 
304 
</form>
 295 
   </form>
305 
 
 - 
 
306 
 
 - 
 
307 
 
 - 
 
308 
 
 - 
 
309 
 
 - 
 
310 
 
 296 
 
311 
</body>
 297 
</body>
312 
</html>
 298 
</html>
313 
<!-- FOOTER -->
 299 
<!-- FOOTER -->
314 
<!--#include file="_footer.asp"-->
 300 
<!--#include file="_footer.asp"-->
315 
<%
 301 
<%
316 
Call Destroy_All_Objects
 302 
Call Destroy_All_Objects
317 
%>
 - 
 
318 

            303
            
%>

          

          

            -
            
 

            304