Subversion Repositories DevTools

Rev

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