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