Subversion Repositories DevTools

Rev

Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
119 ghuddy 1 
<%@LANGUAGE="VBSCRIPT"%>
2 
<%
3 
'=====================================================
4 
'|                                                   |
121 hknight 5 
'|              Build Status Information             |
119 ghuddy 6 
'|                                                   |
7 
'=====================================================
8 
%>
9 
<%
10 
Option explicit
11 
' Good idea to set when using redirect
121 hknight 12 
Response.Expires = 0  ' always load the page, dont store
119 ghuddy 13 
%>
14 
<!--#include file="common/conf.asp"-->
15 
<!--#include file="common/globals.asp"-->
16 
<!--#include file="common/formating.asp"-->
17 
<!--#include file="common/qstr.asp"-->
18 
<!--#include file="common/common_subs.asp"-->
19 
<!--#include file="common/_form_window_common.asp"-->
20 
<!--#include file="_action_buttons.asp"-->
21 
<!--#include file="class/classActionButtonControl.asp"-->
22 
<%
23 
' Set rfile parameter. This is a return page after Login
24 
Call objPMod.StoreParameter ( "rfile", "rtree.asp" )
25 
objPMod.PersistInQryString("proj_id")
26 
'------------ ACCESS CONTROL ------------------
27 
%>
28 
<!--#include file="_access_control_general.asp"-->
29 
<%
30 
'------------ Variable Definition -------------
31 
Dim objSortHelper
32 
Dim rsQry
33 
Dim parRtagId
34 
Dim parSourceRtagId
35 
Dim query_string
36 
Dim objBtnControl
121 hknight 37 
Dim  rcon_id
119 ghuddy 38 
'------------ Constants Declaration -----------
39 
'------------ Variable Init -------------------
40 
parRtagId = Request("rtag_id")
41 
objPMod.PersistInQryString("rtag_id")
42 
Set objBtnControl = New ActionButtonControl
43 
'----------------------------------------------
44 
%>
45 
<%
46 
'--------------------------------------------------------------------------------------------------------------------------
47 
Sub GetFormDetails ( parRtagId, ByRef outobjDetails )
121 hknight 48 
  Dim rsQry, query
127 ghuddy 49 
  OraDatabase.Parameters.Add "RTAG_ID",   parRtagId,    ORAPARM_INPUT, ORATYPE_NUMBER
121 hknight 50 
  query = _
51 
  " SELECT * "&_
52 
  "  FROM RELEASE_TAGS rt"&_
53 
  " WHERE rt.RTAG_ID = :RTAG_ID"
127 ghuddy 54 
 
121 hknight 55 
  Set rsQry = OraDatabase.DbCreateDynaset( query, ORADYN_DEFAULT )
127 ghuddy 56 
 
121 hknight 57 
  OraDatabase.Parameters.Remove "RTAG_ID"
127 ghuddy 58 
 
121 hknight 59 
  If rsQry.RecordCount > 0 Then
60 
    outobjDetails.Item ("rtag_id") = rsQry("rtag_id")
61 
    outobjDetails.Item ("rtag_name") = rsQry("rtag_name")
62 
  Else
63 
    Err.Raise 8, "Sub GetFormDetails in "& ScriptName, "Empty record set returned. parRtagId="& parRtagId
64 
  End If
127 ghuddy 65 
 
121 hknight 66 
  rsQry.Close
67 
  Set rsQry = Nothing
119 ghuddy 68 
End Sub
69 
'--------------------------------------------------------------------------------------------------------------------------
70 
Sub RipplePackage (flag)
127 ghuddy 71 
 
119 ghuddy 72 
  On Error Resume Next
73 
  objEH.ErrorRedirect = TRUE
127 ghuddy 74 
  OraDatabase.Parameters.Add "PV_ID_LIST",  Request("pv_id_list"),  ORAPARM_INPUT, ORATYPE_VARCHAR2
75 
  OraDatabase.Parameters.Add "RTAG_ID",     parRtag_id,  ORAPARM_INPUT, ORATYPE_NUMBER
76 
  OraDatabase.Parameters.Add "USER_ID",     objAccessControl.UserId,  ORAPARM_INPUT, ORATYPE_NUMBER
119 ghuddy 77 
 
121 hknight 78 
  objEH.TryORA ( OraSession )
127 ghuddy 79 
 
121 hknight 80 
  If flag Then
81 
    OraDatabase.ExecuteSQL _
82 
    "BEGIN  Ripple_Package( :PV_ID_LIST, :RTAG_ID, :USER_ID );  END;"
83 
  Else
84 
    OraDatabase.ExecuteSQL _
85 
    "BEGIN  UnRipple_Package( :PV_ID_LIST, :RTAG_ID, :USER_ID );  END;"
86 
  End If
127 ghuddy 87 
 
121 hknight 88 
  objEH.CatchORA ( OraSession )
127 ghuddy 89 
 
121 hknight 90 
  OraDatabase.Parameters.Remove "PV_ID_LIST"
91 
  OraDatabase.Parameters.Remove "RTAG_ID"
92 
  OraDatabase.Parameters.Remove "USER_ID"
119 ghuddy 93 
 
94 
End Sub
95 
'--------------------------------------------------------------------------------------------------------------------------
96 
Function Get_Daemon_Mode( cMode )
97 
 
127 ghuddy 98 
   If cMode = "S" Then
99 
      Get_Daemon_Mode = "Slave"
100 
   ElseIf cMode = "M" Then
101 
      Get_Daemon_Mode = "Master"
102 
   End If
103 
 
119 ghuddy 104 
End Function
105 
'--------------------------------------------------------------------------------------------------------------------------
127 ghuddy 106 
Function Get_Run_Level( nLevel, indefinitePause )
119 ghuddy 107 
 
127 ghuddy 108 
   If indefinitePause Then
109 
      Get_Run_Level = "<span class='err_alert'>Stopped</span>"
110 
   Else
111 
      If nLevel <= 1 Then
112 
         Get_Run_Level = "Cannot Continue"
113 
      ElseIf nLevel = 2 Then
114 
         Get_Run_Level = "Paused"
115 
      ElseIf nLevel = 3 Then
116 
         Get_Run_Level = "Actively engaged in a build"
117 
      ElseIf nLevel = 4 Then
118 
         Get_Run_Level = "Idle"
119 
      ElseIf nLevel >= 5 Then
120 
         Get_Run_Level = "Waiting"
121 
      Else
122 
         Get_Run_Level = "<span class='err_alert'>Unknown!</span>"
123 
      End If
124 
   End If
119 ghuddy 125 
 
126 
End Function
127 
'--------------------------------------------------------------------------------------------------------------------------
128 
Function Get_Package_Name( sPackageName )
129 
 
121 hknight 130 
  If IsNull(sPackageName) Then
131 
    Get_Package_Name = "None"
132 
  Else
133 
    Get_Package_Name = sPackageName
134 
  End If
119 ghuddy 135 
 
136 
End Function
137 
'--------------------------------------------------------------------------------------------------------------------------
138 
%>
139 
<%
140 
'------------ RUN BEFORE PAGE RENDER ----------
141 
' --- Get Form details from DB ---
142 
Call GetFormDetails ( Request("rtag_id"), objFormCollector )
143 
 
144 
' --- Load Validation Rules ---
121 hknight 145 
'Call objForm.LoadValidationRules ( Array("rtag_name","rtag_description", "config_spec_branch"), OraDatabase )    ' Load Validation Rules
119 ghuddy 146 
 
147 
' --- Enter Form Validation Rule Changes here... ----
148 
'----------------------------------------------------
149 
 
150 
' --- RUN onPostBack ---
151 
If Request("action") <> "" Then
152 
 
121 hknight 153 
  If objEH.Finally Then
154 
    If Request("action") = "include" Then
155 
      Call RipplePackage (True)
156 
    Else
157 
      Call OpenInWindow ( "dependencies.asp?rtag_id="& parRtagId )
158 
    End If
159 
  End If
127 ghuddy 160 
 
119 ghuddy 161 
End If
162 
 
163 
'----------------------------------------------
164 
%>
165 
<html>
127 ghuddy 166 
   <head>
167 
      <title>Release Manager</title>
168 
      <meta http-equiv="Pragma" content="no-cache">
169 
      <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
170 
      <link rel="stylesheet" href="images/release_manager_style.css" type="text/css">
171 
      <link rel="stylesheet" href="images/navigation.css" type="text/css">
172 
      <script language="JavaScript" src="images/common.js"></script>
173 
      <!-- DROPDOWN MENUS -->
174 
      <!--#include file="_menu_def.asp"-->
175 
      <script language="JavaScript1.2" src="images/popup_menu.js"></script>
176 
   </head>
177 
   <body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" onload="isChecked('pv_id_list','submit');">
178 
      <!-- MENU LAYERS -------------------------------------->
179 
      <div id="popmenu" class="menuskin" onmouseover="clearhidemenu();highlightmenu(event,'on')" onmouseout="highlightmenu(event,'off');dynamichide(event)"></div>
180 
      <!-- TIPS LAYERS -------------------------------------->
181 
      <div id="formTipsLayer" style="position: absolute; z-index: 1000; visibility: hidden; left:0; top: 0; width: 10">&nbsp;</div>
182 
      <!----------------------------------------------------->
183 
      <!-- HEADER -->
184 
      <!--#include file="_header.asp"-->
185 
      <!-- BODY ---->
186 
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
187 
         <%
188 
         '-- FORM START ---------------------------------------------------------------------------------------------------------
189 
         objFormComponent.FormName = "FormName"
190 
         objFormComponent.Action = ScriptName &"?rtag_id="& parRtagId
191 
         Call objFormComponent.FormStart()
192 
         %>
193 
         <tr>
194 
            <td width="1" background="images/bg_home_orange.gif" valign="top"></td>
195 
            <td width="100%" rowspan="1" align="center" valign="top" bgcolor="#EEEFEF">
196 
               <table width="10" border="0" cellspacing="0" cellpadding="0">
121 hknight 197 
                  <tr>
127 ghuddy 198 
                     <td width="1%"></td>
199 
                     <td width="100%">
200 
                        <table width="100%" border="0" cellspacing="0" cellpadding="0">
201 
                           <tr>
202 
                              <td nowrap class="body_txt"></td>
203 
                           </tr>
204 
                        </table>
205 
                        <table width="100%" border="0" cellspacing="0" cellpadding="0">
206 
                           <tr>
207 
                              <td nowrap class="form_ttl"><p>&nbsp;</p>
208 
                                 <p>BUILD STATUS INFORMATION</p>
209 
                              </td>
210 
                              <td align="right" valign="bottom"></td>
211 
                           </tr>
212 
                        </table>
213 
                     </td>
214 
                     <td width="1%"></td>
121 hknight 215 
                  </tr>
216 
                  <tr>
127 ghuddy 217 
                     <td align="left" valign="top" background="images/lbox_bg_blue.gif"><img src="images/lbox_tl_cnr_b.gif" width="13" height="13"></td>
218 
                     <td background="images/lbox_bg_blue.gif" class="lbox_ttl_w"><img src="images/h_trsp_dot.gif" width="600" height="15"></td>
219 
                     <td align="right" valign="top" background="images/lbox_bg_blue.gif"><img src="images/lbox_tr_cnr_b.gif" width="13" height="13"></td>
121 hknight 220 
                  </tr>
221 
                  <tr>
127 ghuddy 222 
                     <td bgcolor="#FFFFFF"><img src="images/h_trsp_dot.gif" width="10" height="100"></td>
223 
                     <td bgcolor="#FFFFFF" valign="top">
224 
                        <!-- MESSAGE +++++++++++++++++++++++++++++++++++++++++++++++++++ -->
225 
                        <!--#include file="messages/_msg_inline.asp"-->
226 
                        <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
227 
                        <br>
228 
                        <table width="100%" border="0" cellspacing="2" cellpadding="0">
229 
                           <span class='err_alert'>
230 
                              <font size='2'><b>Packages Excluded From Build (Daemon Build Failure)</b></font>
231 
                           </span>
232 
                           <tr>
233 
                              <td background="images/bg_table_col.gif" class="err_alert"><b>Directly</b></td>
234 
                              <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">PACKAGE NAME</td>
235 
                              <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">PACKAGE VERSION</td>
236 
                              <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">ROOT CAUSE</td>
237 
                           </tr>
238 
                           <%
239 
                           query_string = " select pkg.pkg_name, pv.pkg_version, pv.pv_id, dnr.rtag_id, dnr.root_cause, dnr.root_file, pv.pv_description"&_
240 
                                          "   from do_not_ripple dnr, package_versions pv, packages pkg"&_
241 
                                          "  where dnr.rtag_id = "& parRtagId &_
242 
                                          "    and pv.pv_id    = dnr.pv_id"&_
243 
                                          "    and pkg.pkg_id  = pv.pkg_id"&_
244 
                                          "    and dnr.root_pv_id is null"&_
245 
                                          "  order by pkg_name"
246 
                           Set rsQry = OraDatabase.DbCreateDynaset( query_string, ORADYN_DEFAULT )
247 
                           '--- Render rows ---
248 
                           Do While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
249 
                           %>
250 
                              <tr>
251 
                                 <td colspan="5" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
252 
                              </tr>
253 
                              <tr>
254 
                                 <td nowrap width="1%">
255 
                                    <!-- The use of the isChecked() javascript function below, enables the submit button if any checkboxes are checked, -->
256 
                                    <!-- else it will disable the submit button. The function is badly named, but nevertheless, that is what it does.   -->
257 
                                    <input type="checkbox" value="<%=rsQry("pv_id")%>" name="pv_id_list" id="pv_id_list" onClick="isChecked('pv_id_list','submit');">
258 
                                 </td>
259 
                                 <td nowrap class="body_rowg"><a class="txt_linked" href="dependencies.asp?pv_id=<%=rsQry("pv_id")%>&rtag_id=<%=rsQry("rtag_id")%>" title="<%=rsQry("pv_description")%>"><%=rsQry("pkg_name")%></a></td>
260 
                                 <td nowrap class="body_rowg"><%=rsQry("pkg_version")%></td>
261 
                                 <%
262 
                                 ' root_file, if supplied, indicates a build failure log file exists
263 
                                 ' this should always prevail over the textual root_cause
264 
                                 If IsNull(rsQry("root_file")) Then%>
265 
                                    <td nowrap class="body_rowg"><%=rsQry("root_cause")%></td>
266 
                                 <%Else%>
267 
                                    <td nowrap class="body_rowg">
268 
                                       <a class="txt_linked" title="<%=rsQry("root_file")%> Log file may have expired." href="file://///auperaunx26/abtlog/<%=rsQry("root_file")%>">
269 
                                          Build Failure Log File
270 
                                       </a>
271 
                                    </td>
272 
                                 <%End If%>
273 
                              </tr>
274 
                              <%
275 
                              rsQry.MoveNext
276 
                           Loop%>
277 
                           <tr>
278 
                              <td background="images/bg_table_col.gif" class="err_alert"><b>Indirectly</b></td>
279 
                              <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">PACKAGE NAME</td>
280 
                              <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">PACKAGE VERSION</td>
281 
                              <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">ROOT CAUSE PACKAGE NAME</td>
282 
                           </tr>
283 
                           <%
284 
                           query_string = " select pv.pv_id, pkg.pkg_name, pv.pkg_version, qkg.pkg_name, dnr.rtag_id, pv.pv_description"&_
285 
                                          "   from do_not_ripple dnr, package_versions pv, package_versions qv, packages pkg, packages qkg"&_
286 
                                          "  where dnr.rtag_id = "& parRtagId &_
287 
                                          "    and pv.pv_id    = dnr.pv_id"&_
288 
                                          "    and pkg.pkg_id  = pv.pkg_id"&_
289 
                                          "    and qv.pv_id    = dnr.root_pv_id"&_
290 
                                          "    and qkg.pkg_id  = qv.pkg_id"&_
291 
                                          "    and dnr.root_pv_id is not null"&_
292 
                                          "  order by pkg.pkg_name"
293 
                           Dim rsQry2
294 
                           Set rsQry2 = OraDatabase.DbCreateDynaset( query_string, ORADYN_DEFAULT )
295 
                           '--- Render rows ---
296 
                           Do While (NOT rsQry2.BOF) AND (NOT rsQry2.EOF)%>
297 
                              <tr>
298 
                                 <td colspan="5" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
299 
                              </tr>
300 
                              <tr>
301 
                                 <td nowrap width="1%">
302 
                                    <input type="checkbox" value=0 disabled=true name="notused" id="notused">
303 
                                 </td>
304 
                                 <td nowrap class="body_rowg"><a class="txt_linked" href="dependencies.asp?pv_id=<%=rsQry2(0)%>&rtag_id=<%=rsQry2(4)%>" title="<%=rsQry2(5)%>"><%=rsQry2(1)%></a></td>
305 
                                 <td nowrap class="body_rowg"><%=rsQry2(2)%></td>
306 
                                 <td nowrap class="body_rowg"><%=rsQry2(3)%></td>
307 
                              </tr>
308 
                              <%
309 
                              rsQry2.MoveNext
310 
                           Loop%>
311 
                        </table>
312 
                     </td>
313 
                     <td background="images/lbox_bgside_white.gif">&nbsp;</td>
121 hknight 314 
                  </tr>
127 ghuddy 315 
                  <%If rsQry.RecordCount > 0 Then%>
316 
                     <tr>
317 
                        <td background="images/bg_action_norm.gif"></td>
318 
                        <td align="right" background="images/bg_action_norm.gif">
319 
                           <%
320 
                           Response.Write(objFormComponent.SubmitButton ( "Include", "name='submit' id='submit' class='form_btn' disabled style='color:silver' onClick='return confirmAction(""Are you sure you want to include these packages for building?"")'" ))
321 
                           Response.Write(objPMod.ComposeHiddenTags())
322 
                           %>
323 
                        </td>
324 
                        <td background="images/bg_action_norm.gif"><img src="images/h_trsp_dot.gif" width="5" height="30"></td>
325 
                     </tr>
326 
                  <%End If%>
121 hknight 327 
                  <tr>
127 ghuddy 328 
                     <td background="images/lbox_bg_blue.gif" valign="bottom"><img src="images/lbox_bl_cnr_b.gif" width="13" height="13"></td>
329 
                     <td background="images/lbox_bg_blue.gif"></td>
330 
                     <td background="images/lbox_bg_blue.gif" valign="bottom" align="right"><img src="images/lbox_br_cnr_b.gif" width="13" height="13"></td>
121 hknight 331 
                  </tr>
127 ghuddy 332 
               </table>
333 
               <!-- ACTION BUTTONS ---------------------------------------------->
334 
               <input type="hidden" name="action" value="include">
335 
               <!-- ACTION BUTTONS END  ------------------------------------------>
336 
            </td>
337 
            <td width="1" valign="top"><img src="images/h_trsp_dot.gif" width="1" height="1"></td>
338 
         </tr>
339 
         <%
340 
         Call objFormComponent.FormEnd()
341 
         rsQry.Close()
342 
         Set rsQry = nothing
343 
         rsQry2.Close()
344 
         Set rsQry2 = nothing
345 
         '-- FORM END ----------------------------------------------------------------------------------------------------------------
346 
         %>
347 
         <tr>
348 
            <td width="1" background="images/bg_home_orange.gif" valign="top"></td>
349 
            <td width="100%" rowspan="2" align="center" valign="top" bgcolor="#EEEFEF">
350 
               <table width="10" border="0" cellspacing="0" cellpadding="0">
121 hknight 351 
                  <tr>
127 ghuddy 352 
                     <td width="1%"></td>
353 
                     <td width="100%">
354 
                        <table width="100%" border="0" cellspacing="0" cellpadding="0">
355 
                           <tr>
356 
                              <td nowrap class="form_ttl"><p>&nbsp;</p>
357 
                                 <p>DAEMON STATUS INFORMATION</p>
358 
                              </td>
359 
                              <td align="right" valign="bottom"></td>
360 
                           </tr>
361 
                        </table>
362 
                     </td>
363 
                     <td width="1%"></td>
121 hknight 364 
                  </tr>
365 
                  <tr>
127 ghuddy 366 
                     <td align="left" valign="top" background="images/lbox_bg_blue.gif"><img src="images/lbox_tl_cnr_b.gif" width="13" height="13"></td>
367 
                     <td background="images/lbox_bg_blue.gif" class="lbox_ttl_w"><img src="images/h_trsp_dot.gif" width="600" height="15"></td>
368 
                     <td align="right" valign="top" background="images/lbox_bg_blue.gif"><img src="images/lbox_tr_cnr_b.gif" width="13" height="13"></td>
121 hknight 369 
                  </tr>
370 
                  <tr>
127 ghuddy 371 
                     <td bgcolor="#FFFFFF"><img src="images/h_trsp_dot.gif" width="10" height="100"></td>
372 
                     <td bgcolor="#FFFFFF" valign="top">
373 
                        <!-- MESSAGE +++++++++++++++++++++++++++++++++++++++++++++++++++ -->
374 
                        <!--#include file="messages/_msg_inline.asp"-->
375 
                        <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
376 
                        <br>
377 
                        <table width="100%" border="0" cellspacing="2" cellpadding="0">
378 
                           <%
379 
                           Dim indefinitelyPaused
380 
                           indefinitelyPaused = FALSE
381 
                           ' Insert a warning into the page if the build daemons are indefintely paused.
382 
                           query_string = " select * from run_level_schedule rls where rls.indefinite_pause = 'P'"
383 
 
384 
                           Set rsQry = OraDatabase.DbCreateDynaset( query_string, ORADYN_DEFAULT )
385 
                           If rsQry.RecordCount > 0 Then
386 
                              indefinitelyPaused = TRUE %>
387 
                              <tr>
388 
                                 <span class='err_alert'>
389 
                                    <font size='2'><b>WARNING: Build Daemons are all stopped - please contact an administrator</b></font>
390 
                                 </span>
391 
                              </tr>
392 
                           <%End If
393 
 
394 
                           rsQry.Close()
395 
                           Set rsQry = nothing
396 
                           %>
397 
                           <td width="9%" valign="top"></td>
398 
                           <tr>
399 
                              <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">Hostname</td>
400 
                              <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">GBE Machtype</td>
401 
                              <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">Mode</td>
402 
                              <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">Run Level</td>
403 
                              <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">Current Package</td>
404 
                              <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">Switch State</td>
405 
                           </tr>
406 
                           <%
407 
                           query_string = " select * from release_config rc, run_level rl, packages pkg, gbe_machtype gm"&_
408 
                                          "  where rc.rtag_id = "& parRtagId &_
409 
                                          "    and rc.rcon_id = rl.rcon_id(+)"&_
410 
                                          "    and pkg.pkg_id(+) = rl.current_pkg_id_being_built"&_
411 
                                          "    and gm.gbe_id = rc.gbe_id"&_
412 
                                          "  order by rc.daemon_hostname"
413 
                           Set rsQry = OraDatabase.DbCreateDynaset( query_string, ORADYN_DEFAULT )
414 
                           '--- Render rows ---
415 
                           Do While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
416 
                              rcon_id = rsQry("rcon_id")
417 
                              %>
418 
                              <tr>
419 
                                 <td colspan="6" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
420 
                              </tr>
421 
                              <tr>
422 
                                 <td nowrap class="body_rowg"><%=rsQry("daemon_hostname")%></td>
423 
                                 <td nowrap class="body_rowg"><%=rsQry("gbe_value")%></td>
424 
                                 <td nowrap class="body_rowg"><%=Get_Daemon_Mode(rsQry("daemon_mode"))%></td>
425 
                                 <td nowrap class="body_rowg"><%=Get_Run_Level(rsQry("current_run_level"), indefinitelyPaused)%></td>
426 
                                 <td nowrap class="body_rowg"><%=Get_Package_Name(rsQry("pkg_name"))%></td>
427 
                                 <td nowrap class="body_rowg">
428 
                                    <%
429 
                                    If NOT IsNull(rsQry("current_run_level")) AND NOT indefinitelyPaused  Then
430 
                                       If objAccessControl.UserLogedIn Then
431 
                                          If IsNull(rsQry("pause")) Then
432 
                                             Call Action_Buttons ( "Daemon Pause" )
433 
                                          Else
434 
                                             Call Action_Buttons ( "Daemon Resume" )
435 
                                          End If
436 
                                       Else
437 
                                          If IsNull(rsQry("pause")) Then
438 
                                             Call Action_Buttons ( "Daemon Pause Disabled" )
439 
                                          Else
440 
                                             Call Action_Buttons ( "Daemon Resume Disabled" )
441 
                                          End If
442 
                                       End If
443 
                                    Else
444 
                                       %>Unavailable<%
445 
                                    End If
446 
                                    %>
447 
                                 </td>
448 
                              </tr>
449 
                              <%
450 
                              rsQry.MoveNext
451 
                           Loop
452 
                           rsQry.Close()
453 
                           Set rsQry = nothing
454 
                           %>
455 
                        </table>
456 
                     </td>
457 
                     <td background="images/lbox_bgside_white.gif">&nbsp;</td>
121 hknight 458 
                  </tr>
459 
                  <tr>
127 ghuddy 460 
                     <input type="hidden" name="action" value="true">
461 
                     <%=objPMod.ComposeHiddenTags()%>
462 
                     <td background="images/lbox_bg_blue.gif" valign="bottom"><img src="images/lbox_bl_cnr_b.gif" width="13" height="13"></td>
463 
                     <td background="images/lbox_bg_blue.gif"></td>
464 
                     <td background="images/lbox_bg_blue.gif" valign="bottom" align="right"><img src="images/lbox_br_cnr_b.gif" width="13" height="13"></td>
121 hknight 465 
                  </tr>
127 ghuddy 466 
               </table>
467 
            </td>
468 
            <td width="1" valign="top"><img src="images/h_trsp_dot.gif" width="1" height="1"></td>
469 
         </tr>
470 
         <tr>
471 
            <td valign="bottom" align="center" background="images/bg_home_orange.gif"><img src="images/img_vtree.gif" width="86" height="99" vspace="20" hspace="30"></td>
472 
            <td background="images/bg_lght_gray.gif" valign="top"><img src="images/h_trsp_dot.gif" width="1" height="350"></td>
473 
         </tr>
474 
      </table>
475 
      <!-- FOOTER -->
476 
      <!--#include file="_footer.asp"-->
477 
   </body>
119 ghuddy 478 
</html>
479 
<%
480 
Call Destroy_All_Objects
481 
%>