Subversion Repositories DevTools

Rev

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

Rev 6786 Rev 6878
Line 110... Line 110...
110 
<script language="JavaScript" src="images/common.js?ver=<%=VixVerNum%>"></script>
 110 
<script language="JavaScript" src="images/common.js?ver=<%=VixVerNum%>"></script>
111 
<!--#include file="_jquery_includes.asp"-->
 111 
<!--#include file="_jquery_includes.asp"-->
112 
<!-- DROPDOWN MENUS -->
 112 
<!-- DROPDOWN MENUS -->
113 
<!--#include file="_menu_def.asp"-->
 113 
<!--#include file="_menu_def.asp"-->
114 
<script language="JavaScript1.2" src="images/popup_menu.js?ver=<%=VixVerNum%>"></script>
 114 
<script language="JavaScript1.2" src="images/popup_menu.js?ver=<%=VixVerNum%>"></script>
115 
<!-- StyleSheet Extensions -->
 - 
 
116 
<style>
 - 
 
117 
.pagebody {margin-left:auto; margin-right:auto; width:50%;border-width: 0px;border-spacing: 2px; zbackground-color: rgb(255, 204, 0)}
 - 
 
118 
.rounded_table {
 - 
 
119 
border-style: solid;
 - 
 
120 
border-top-width: 5px;
 - 
 
121 
border-bottom-width: 5px;
 - 
 
122 
xborder-radius: 13px;
 - 
 
123 
border-color: #FFCC00;
 - 
 
124 
border-left-width: 5px;
 - 
 
125 
border-right-width: 5px;
 - 
 
126 
border-spacing: 2px;
 - 
 
127 
}
 - 
 
128 
 
 - 
 
129 
</style>
 - 
 
130 
 
 - 
 
131 
</head>
 115 
</head>
132 
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" >
 116 
<body>
133 
<!-- HEADER -->
 117 
<!-- HEADER -->
134 
<!--#include file="_header.asp"-->
 118 
<!--#include file="_header.asp"-->
135 
<!-- Body of the page -->
 119 
<!-- Body of the page -->
136 
<table class="pagebody">
 120 
<div class="bg_grey">
- 
 
 121 
<table style='margin-left: auto;margin-right: auto;'>
137 
   <%
 122 
   <%
138 
   '-- FROM START ---------------------------------------------------------------------------------------------------------
 123 
   '-- FROM START ---------------------------------------------------------------------------------------------------------
139 
   Dim bReadOnly: bReadOnly = NOT canActionControl("ConfigureBuildService")
 124 
   Dim bReadOnly: bReadOnly = NOT canActionControl("ConfigureBuildService")
140 
   objFormComponent.FormName = "UpdateBuildServiceConfig"
 125 
   objFormComponent.FormName = "UpdateBuildServiceConfig"
141 
   objFormComponent.Action = ScriptName
 126 
   objFormComponent.Action = ScriptName
Line 157... Line 142...
157 
         </table>
 142 
         </table>
158 
      </td>
 143 
      </td>
159 
   </tr>
 144 
   </tr>
160 
   <tr>
 145 
   <tr>
161 
      <td>
 146 
      <td>
162 
         <table width="100%" bgcolor="#FFCC00" class="embedded_table rounded_table">
 147 
         <table width="100%" border="0" cellspacing="1" cellpadding="2" class="rounded_box lhsGrey lhsGrey rounded_box_pad">
- 
 
 148 
             <caption>Build Service Configuration</caption>
163 
            <!-- MESSAGE +++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 149 
            <!-- MESSAGE +++++++++++++++++++++++++++++++++++++++++++++++++++ -->
164 
            <%If NOT objEH.Finally Then%>
 150 
            <%If NOT objEH.Finally Then%>
165 
               <tr>
 151 
               <tr>
166 
                  <td class="form_iname">&nbsp;</td>
 152 
                  <td class="form_iname">&nbsp;</td>
167 
                  <td>
 153 
                  <td>
Line 169... Line 155...
169 
                  </td>
 155 
                  </td>
170 
                  <td class="val_err"></td>
 156 
                  <td class="val_err"></td>
171 
               </tr>
 157 
               </tr>
172 
            <%End If%>
 158 
            <%End If%>
173 
            <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 159 
            <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
174 
            <tr>
 160 
            <thead>
175 
               <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">BUILD SERVICE</td>
 161 
               <th class='tleft' nowrap>Item</th>
176 
               <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">CONFIGURATION</td>
 162 
               <th class='tleft' nowrap>Value</th>
177 
            </tr>
 163 
            </thead>
178 
            <%
 164 
            <%
179 
 
 165 
 
180 
            Dim rsQry, query
 166 
            Dim rsQry, query
181 
 
 167 
 
182 
            query = "SELECT * FROM BUILD_SERVICE_CONFIG WHERE service NOT IN ('MUTEX','WEB SERVER')"
 168 
            query = "SELECT * FROM BUILD_SERVICE_CONFIG WHERE service NOT IN ('MUTEX','WEB SERVER')"
Line 184... Line 170...
184 
            Set rsQry = OraDatabase.DbCreateDynaset( query, ORADYN_DEFAULT )
 170 
            Set rsQry = OraDatabase.DbCreateDynaset( query, ORADYN_DEFAULT )
185 
 
 171 
 
186 
            While ((NOT rsQry.BOF) AND (NOT rsQry.EOF))
 172 
            While ((NOT rsQry.BOF) AND (NOT rsQry.EOF))
187 
            %>
 173 
            %>
188 
               <tr>
 174 
               <tr>
189 
                  <td nowrap class="form_iname" valign="top"><%=rsQry("service")%></td>
 175 
                  <td nowrap valign="top"><%=rsQry("service")%></td>
190 
                  <td nowrap valign="top">
 176 
                  <td nowrap valign="top" >
191 
                     <%If Len(rsQry("config")) < 60 Then%>
 177 
                     <%If Len(rsQry("config")) < 60 Then%>
192 
                        <%=objFormComponent.TextBox (rsQry("service"), rsQry("config"), "size='60' class='form_ivalue'" )%>
 178 
                        <%=objFormComponent.TextBox (rsQry("service"), rsQry("config"), "size='60'" )%>
193 
                     <%Else%>
 179 
                     <%Else%>
194 
                        <%=objFormComponent.TextArea (rsQry("service"), rsQry("config"), 5, 60, "class='form_ivalue'" )%>
 180 
                        <%=objFormComponent.TextArea (rsQry("service"), rsQry("config"), 5, 60, "" )%>
195 
                     <%End If%>
 181 
                     <%End If%>
196 
                  </td>
 182 
                  </td>
197 
               </tr>
 183 
               </tr>
198 
               <%
 184 
               <%
199 
               rsQry.MoveNext()
 185 
               rsQry.MoveNext()
Line 201... Line 187...
201 
 
 187 
 
202 
            rsQry.Close()
 188 
            rsQry.Close()
203 
            Set rsQry = Nothing
 189 
            Set rsQry = Nothing
204 
            %>
 190 
            %>
205 
            <tr>
 191 
            <tr>
206 
               <td nowrap class="form_iname">&nbsp;</td>
 192 
               <td nowrap>&nbsp;</td>
207 
               <td nowrap class="val_err">
 193 
               <td nowrap class="val_err hdr">
208 
               <%If bReadOnly Then%>
 194 
               <%If bReadOnly Then%>
209 
                  <input name="btn" type="submit" class="form_btn" value="Update" disabled>
 195 
                  <input name="btn" type="submit" class="form_btn" value="Update" disabled>
210 
               <%Else%>
 196 
               <%Else%>
211 
                  <input name="btn" type="submit" class="form_btn" value="Update">
 197 
                  <input name="btn" type="submit" class="form_btn" value="Update">
212 
               <%End If%>
 198 
               <%End If%>
Line 221... Line 207...
221 
  Call objFormComponent.FormEnd()
 207 
  Call objFormComponent.FormEnd()
222 
  '-- FROM END ----------------------------------------------------------------------------------------------------------------
 208 
  '-- FROM END ----------------------------------------------------------------------------------------------------------------
223 
   %>
 209 
   %>
224 
    <tr>
 210 
    <tr>
225 
        <td style="padding-top: 20px;">
 211 
        <td style="padding-top: 20px;">
226 
         <table width="100%" bgcolor="#FFCC00" class="embedded_table rounded_table">
 212 
         <table width="100%" bgcolor="#FFCC00" class="embedded_table rounded_box">
227 
 
 - 
 
- 
 
 213 
         <caption>Build Daemon Control</caption>
228 
   <form name="run_level_schedule">
 214 
   <form name="run_level_schedule">
229 
      <tr>
 215 
      <tr>
230 
         <td>
 216 
         <td>
231 
          <%
 217 
          <%
232 
          Dim rsInfinite, infiniteValue
 218 
          Dim rsInfinite, infiniteValue
Line 237... Line 223...
237 
          <legend class="body_txt">Build Daemon Control
 223 
          <legend class="body_txt">Build Daemon Control
238 
          <%If infiniteValue <> 0 Then%>
 224 
          <%If infiniteValue <> 0 Then%>
239 
            <b><span class='err_alert'>WARNING!!! </span>Daemons Set To Indefinite Pause.</b>
 225 
            <b><span class='err_alert'>WARNING!!! </span>Daemons Set To Indefinite Pause.</b>
240 
          <%End If%>
 226 
          <%End If%>
241 
          </legend>
 227 
          </legend>
242 
            <table width="100%"  class="embedded_table">
 228 
            <table width="100%"  class="embedded_table" >
243 
               <!-- BUTTONS CONTROL +++++++++++++++++++ -->
 229 
               <!-- BUTTONS CONTROL +++++++++++++++++++ -->
244 
               <tr>
 230 
               <tr>
245 
                  <td>
 231 
                  <td>
246 
                  <%
 232 
                  <%
247 
                  If infiniteValue = 0 Then
 233 
                  If infiniteValue = 0 Then
Line 272... Line 258...
272 
            %>
 258 
            %>
273 
 
 259 
 
274 
            <fieldset>
 260 
            <fieldset>
275 
            <legend class="body_txt">Scheduled Outages</legend>
 261 
            <legend class="body_txt">Scheduled Outages</legend>
276 
 
 262 
 
277 
            <table width="100%"  class="embedded_table" bgcolor="#FFCC00">
 263 
            <table width="100%"  class="embedded_table stdGrey" border="0" cellspacing="1" cellpadding="2">
278 
               <tr>
 264 
               <thead>
279 
                  <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">SCHEDULED PAUSE</td>
 265 
                  <th>Scheduled Pause</th>
280 
                  <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">SCHEDULED RESUME</td>
 - 
 
281 
                  <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">REPEAT</td>
 266 
                  <th>Scheduled Resume</th>
282 
                  <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">OPR</td>
 267 
                  <th>Repeat</th>
283 
 
 - 
 
284 
                  <td valign="top"></td>
 268 
                  <th>Opr</th>
285 
               </tr>
 269 
               </thead>
286 
 
 270 
 
287 
               <%Set rsQry = OraDatabase.DbCreateDynaset( "select rs.*," &_
 271 
               <%Set rsQry = OraDatabase.DbCreateDynaset( "select rs.*," &_
288 
                        " TO_CHAR(SCHEDULED_PAUSE ,'Dy DD-Mon-YY HH:MI:SS AM') as fmt_pause," &_
 272 
                        " TO_CHAR(SCHEDULED_PAUSE ,'Dy DD-Mon-YY HH:MI:SS AM') as fmt_pause," &_
289 
                        " TO_CHAR(SCHEDULED_RESUME ,'Dy DD-Mon-YY HH:MI:SS AM') as fmt_resume," &_
 273 
                        " TO_CHAR(SCHEDULED_RESUME ,'Dy DD-Mon-YY HH:MI:SS AM') as fmt_resume," &_
290 
                        " TO_CHAR(SCHEDULED_PAUSE ,'HH:MI:SS AM') as fmt_pause_time," &_
 274 
                        " TO_CHAR(SCHEDULED_PAUSE ,'HH:MI:SS AM') as fmt_pause_time," &_
Line 317... Line 301...
317 
                        tresume = rsQry("fmt_resume")
 301 
                        tresume = rsQry("fmt_resume")
318 
                        trepeat = rsQry("repeat")
 302 
                        trepeat = rsQry("repeat")
319 
                    End If
 303 
                    End If
320 
                  %>
 304 
                  %>
321 
 
 305 
 
322 
                     <tr>
 - 
 
323 
                        <td colspan="5" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
 - 
 
324 
                     </tr>
 - 
 
325 
                     <tr>
 306 
                     <tr class=lined>
326 
                        <td nowrap class="body_rowg"><%=tpause%></td>
 307 
                        <td nowrap><%=tpause%></td>
327 
                        <td nowrap class="body_rowg"><%=tresume%></td>
 308 
                        <td nowrap><%=tresume%></td>
328 
                        <td nowrap class="body_rowg"><%=trepeat%></td>
 309 
                        <td nowrap><%=trepeat%></td>
329 
                        <td nowrap class="body_rowg"><%Call objBtnControl.Render  ( Array("btnDeleteSchedule"), objAccessControl )%></td>
 310 
                        <td nowrap><%Call objBtnControl.Render  ( Array("btnDeleteSchedule"), objAccessControl )%></td>
330 
                     </tr>
 311 
                     </tr>
331 
                  <%
 312 
                  <%
332 
                  End If
 313 
                  End If
333 
                  rsQry.MoveNext
 314 
                  rsQry.MoveNext
334 
               Loop
 315 
               Loop
335 
 
 316 
 
336 
               rsQry.Close()
 317 
               rsQry.Close()
337 
               Set rsQry = Nothing
 318 
               Set rsQry = Nothing
338 
               %>
 319 
               %>
- 
 
 320 
                <tr>
339 
            <tr><td colspan=4><hr><tr>
 321 
                    <td colspan=4><hr></td>
- 
 
 322 
                </tr>
- 
 
 323 
                <tr>
340 
                <% Call Action_Buttons_State ( "Add Schedule", NOT bReadOnly )%>
 324 
                    <% Call Action_Buttons_State ( "Add Schedule", NOT bReadOnly )%>
341 
            </tr>
 325 
                </tr>
342 
            </table>
 326 
            </table>
343 
            </fieldset>
 327 
            </fieldset>
344 
         </td>
 328 
         </td>
345 
      </tr>
 329 
      </tr>
346 
   </form>
 330 
   </form>
347 
</table>
 331 
</table>
348 
</table>
 332 
</table>
- 
 
 333 
</div>
349 
<!-- FOOTER -->
 334 
<!-- FOOTER -->
350 
<!--#include file="_footer.asp"-->
 335 
<!--#include file="_footer.asp"-->
351 
</body>
 336 
</body>
352 
</html>
 337 
</html>