Subversion Repositories DevTools

Rev

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

Rev 121 Rev 127
Line 44... Line 44...
44 
%>
 44 
%>
45 
<%
 45 
<%
46 
'--------------------------------------------------------------------------------------------------------------------------
 46 
'--------------------------------------------------------------------------------------------------------------------------
47 
Sub GetFormDetails ( parRtagId, ByRef outobjDetails )
 47 
Sub GetFormDetails ( parRtagId, ByRef outobjDetails )
48 
  Dim rsQry, query
 48 
  Dim rsQry, query
49 
  OraDatabase.Parameters.Add "RTAG_ID",   parRtagId,    ORAPARM_INPUT, ORATYPE_NUMBER
49 
  OraDatabase.Parameters.Add "RTAG_ID",   parRtagId,    ORAPARM_INPUT, ORATYPE_NUMBER
50 
  query = _
 50 
  query = _
51 
  " SELECT * "&_
 51 
  " SELECT * "&_
52 
  "  FROM RELEASE_TAGS rt"&_
 52 
  "  FROM RELEASE_TAGS rt"&_
53 
  " WHERE rt.RTAG_ID = :RTAG_ID"
 53 
  " WHERE rt.RTAG_ID = :RTAG_ID"
54
54 
 
55 
  Set rsQry = OraDatabase.DbCreateDynaset( query, ORADYN_DEFAULT )
 55 
  Set rsQry = OraDatabase.DbCreateDynaset( query, ORADYN_DEFAULT )
56
56 
 
57 
  OraDatabase.Parameters.Remove "RTAG_ID"
 57 
  OraDatabase.Parameters.Remove "RTAG_ID"
58
58 
 
59 
  If rsQry.RecordCount > 0 Then
 59 
  If rsQry.RecordCount > 0 Then
60 
    outobjDetails.Item ("rtag_id") = rsQry("rtag_id")
 60 
    outobjDetails.Item ("rtag_id") = rsQry("rtag_id")
61 
    outobjDetails.Item ("rtag_name") = rsQry("rtag_name")
 61 
    outobjDetails.Item ("rtag_name") = rsQry("rtag_name")
62 
  Else
 62 
  Else
63 
    Err.Raise 8, "Sub GetFormDetails in "& ScriptName, "Empty record set returned. parRtagId="& parRtagId
 63 
    Err.Raise 8, "Sub GetFormDetails in "& ScriptName, "Empty record set returned. parRtagId="& parRtagId
64 
  End If
 64 
  End If
65
65 
 
66 
  rsQry.Close
 66 
  rsQry.Close
67 
  Set rsQry = Nothing
 67 
  Set rsQry = Nothing
68 
End Sub
 68 
End Sub
69 
'--------------------------------------------------------------------------------------------------------------------------
 69 
'--------------------------------------------------------------------------------------------------------------------------
70 
Sub RipplePackage (flag)
 70 
Sub RipplePackage (flag)
71
71 
 
72 
  On Error Resume Next
 72 
  On Error Resume Next
73 
  objEH.ErrorRedirect = TRUE
 73 
  objEH.ErrorRedirect = TRUE
74 
  OraDatabase.Parameters.Add "PV_ID_LIST",     Request("pv_id_list"),  ORAPARM_INPUT, ORATYPE_VARCHAR2
 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
75 
  OraDatabase.Parameters.Add "RTAG_ID",     parRtag_id,  ORAPARM_INPUT, ORATYPE_NUMBER
76 
  OraDatabase.Parameters.Add "USER_ID",     objAccessControl.UserId,  ORAPARM_INPUT, ORATYPE_NUMBER
76 
  OraDatabase.Parameters.Add "USER_ID",     objAccessControl.UserId,  ORAPARM_INPUT, ORATYPE_NUMBER
77 
 
 77 
 
78 
  objEH.TryORA ( OraSession )
 78 
  objEH.TryORA ( OraSession )
79
79 
 
80 
  If flag Then
 80 
  If flag Then
81 
    OraDatabase.ExecuteSQL _
 81 
    OraDatabase.ExecuteSQL _
82 
    "BEGIN  Ripple_Package( :PV_ID_LIST, :RTAG_ID, :USER_ID );  END;"
 82 
    "BEGIN  Ripple_Package( :PV_ID_LIST, :RTAG_ID, :USER_ID );  END;"
83 
  Else
 83 
  Else
84 
    OraDatabase.ExecuteSQL _
 84 
    OraDatabase.ExecuteSQL _
85 
    "BEGIN  UnRipple_Package( :PV_ID_LIST, :RTAG_ID, :USER_ID );  END;"
 85 
    "BEGIN  UnRipple_Package( :PV_ID_LIST, :RTAG_ID, :USER_ID );  END;"
86 
  End If
 86 
  End If
87
87 
 
88 
  objEH.CatchORA ( OraSession )
 88 
  objEH.CatchORA ( OraSession )
89
89 
 
90 
  OraDatabase.Parameters.Remove "PV_ID_LIST"
 90 
  OraDatabase.Parameters.Remove "PV_ID_LIST"
91 
  OraDatabase.Parameters.Remove "RTAG_ID"
 91 
  OraDatabase.Parameters.Remove "RTAG_ID"
92 
  OraDatabase.Parameters.Remove "USER_ID"
 92 
  OraDatabase.Parameters.Remove "USER_ID"
93 
 
 93 
 
94 
End Sub
 94 
End Sub
95 
'--------------------------------------------------------------------------------------------------------------------------
 95 
'--------------------------------------------------------------------------------------------------------------------------
96 
Function Get_Daemon_Mode( cMode )
 96 
Function Get_Daemon_Mode( cMode )
97 
 
 97 
 
98 
  If cMode = "S" Then
 98 
   If cMode = "S" Then
99 
    Get_Daemon_Mode = "Slave"
 99 
      Get_Daemon_Mode = "Slave"
100 
  ElseIf cMode = "M" Then
 100 
   ElseIf cMode = "M" Then
101 
    Get_Daemon_Mode = "Master"
 101 
      Get_Daemon_Mode = "Master"
102 
  End If
 102 
   End If
103
103 
 
104 
End Function
 104 
End Function
105 
'--------------------------------------------------------------------------------------------------------------------------
 105 
'--------------------------------------------------------------------------------------------------------------------------
106 
Function Get_Run_Level( nLevel )
 106 
Function Get_Run_Level( nLevel, indefinitePause )
107 
 
 107 
 
- 
 
 108 
   If indefinitePause Then
- 
 
 109 
      Get_Run_Level = "<span class='err_alert'>Stopped</span>"
- 
 
 110 
   Else
108 
  If nLevel <= 1 Then
 111 
      If nLevel <= 1 Then
109 
    Get_Run_Level = "Cannot Continue"
 112 
         Get_Run_Level = "Cannot Continue"
110 
  ElseIf nLevel = 2 Then
 113 
      ElseIf nLevel = 2 Then
111 
    Get_Run_Level = "Paused"
 114 
         Get_Run_Level = "Paused"
112 
  ElseIf nLevel = 3 Then
115 
      ElseIf nLevel = 3 Then
113 
    Get_Run_Level = "Actively engaged in a build"
 116 
         Get_Run_Level = "Actively engaged in a build"
114 
  ElseIf nLevel = 4 Then
 117 
      ElseIf nLevel = 4 Then
115 
    Get_Run_Level = "Idle"
 118 
         Get_Run_Level = "Idle"
116 
  ElseIf nLevel >= 5 Then
 119 
      ElseIf nLevel >= 5 Then
117 
    Get_Run_Level = "Waiting"
 120 
         Get_Run_Level = "Waiting"
118 
  Else
 121 
      Else
119 
    Get_Run_Level = "<span class='err_alert'>Unknown!</span>"
 122 
         Get_Run_Level = "<span class='err_alert'>Unknown!</span>"
- 
 
 123 
      End If
120 
  End If
 124 
   End If
121 
 
 125 
 
122 
End Function
 126 
End Function
123 
'--------------------------------------------------------------------------------------------------------------------------
 127 
'--------------------------------------------------------------------------------------------------------------------------
124 
Function Get_Package_Name( sPackageName )
 128 
Function Get_Package_Name( sPackageName )
125 
 
 129 
 
Line 151... Line 155...
151 
      Call RipplePackage (True)
 155 
      Call RipplePackage (True)
152 
    Else
 156 
    Else
153 
      Call OpenInWindow ( "dependencies.asp?rtag_id="& parRtagId )
 157 
      Call OpenInWindow ( "dependencies.asp?rtag_id="& parRtagId )
154 
    End If
 158 
    End If
155 
  End If
 159 
  End If
156
160 
 
157 
End If
 161 
End If
158 
 
 162 
 
159 
'----------------------------------------------
 163 
'----------------------------------------------
160 
%>
 164 
%>
161 
<html>
 165 
<html>
162 
  <head>
 166 
   <head>
163 
    <title>Release Manager</title>
 167 
      <title>Release Manager</title>
164 
    <meta http-equiv="Pragma" content="no-cache">
 168 
      <meta http-equiv="Pragma" content="no-cache">
165 
    <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
 169 
      <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
166 
    <link rel="stylesheet" href="images/release_manager_style.css" type="text/css">
 170 
      <link rel="stylesheet" href="images/release_manager_style.css" type="text/css">
167 
    <link rel="stylesheet" href="images/navigation.css" type="text/css">
 171 
      <link rel="stylesheet" href="images/navigation.css" type="text/css">
168 
    <script language="JavaScript" src="images/common.js"></script>
 172 
      <script language="JavaScript" src="images/common.js"></script>
169 
    <!-- DROPDOWN MENUS -->
 173 
      <!-- DROPDOWN MENUS -->
170 
    <!--#include file="_menu_def.asp"-->
 174 
      <!--#include file="_menu_def.asp"-->
171 
    <script language="JavaScript1.2" src="images/popup_menu.js"></script>
 175 
      <script language="JavaScript1.2" src="images/popup_menu.js"></script>
172 
  </head>
 176 
   </head>
173 
  <body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" onload="isChecked('pv_id_list','submit');">
 177 
   <body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" onload="isChecked('pv_id_list','submit');">
174 
    <!-- MENU LAYERS -------------------------------------->
 178 
      <!-- MENU LAYERS -------------------------------------->
175 
    <div id="popmenu" class="menuskin" onmouseover="clearhidemenu();highlightmenu(event,'on')" onmouseout="highlightmenu(event,'off');dynamichide(event)"></div>
 179 
      <div id="popmenu" class="menuskin" onmouseover="clearhidemenu();highlightmenu(event,'on')" onmouseout="highlightmenu(event,'off');dynamichide(event)"></div>
176 
    <!-- TIPS LAYERS -------------------------------------->
 180 
      <!-- TIPS LAYERS -------------------------------------->
177 
    <div id="formTipsLayer" style="position: absolute; z-index: 1000; visibility: hidden; left:0; top: 0; width: 10">&nbsp;</div>
 181 
      <div id="formTipsLayer" style="position: absolute; z-index: 1000; visibility: hidden; left:0; top: 0; width: 10">&nbsp;</div>
178 
    <!----------------------------------------------------->
 182 
      <!----------------------------------------------------->
179 
    <!-- HEADER -->
 183 
      <!-- HEADER -->
180 
    <!--#include file="_header.asp"-->
 184 
      <!--#include file="_header.asp"-->
181 
    <!-- BODY ---->
 185 
      <!-- BODY ---->
182 
    <table width="100%" border="0" cellspacing="0" cellpadding="0">
 186 
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
183 
<%
 187 
         <%
184 
'-- FORM START ---------------------------------------------------------------------------------------------------------
 188 
         '-- FORM START ---------------------------------------------------------------------------------------------------------
185 
objFormComponent.FormName = "FormName"
 189 
         objFormComponent.FormName = "FormName"
186 
objFormComponent.Action = ScriptName &"?rtag_id="& parRtagId
 190 
         objFormComponent.Action = ScriptName &"?rtag_id="& parRtagId
187 
Call objFormComponent.FormStart()
 191 
         Call objFormComponent.FormStart()
188 
%>
 192 
         %>
189 
      <tr>
 193 
         <tr>
190 
        <td width="1" background="images/bg_home_orange.gif" valign="top">
 194 
            <td width="1" background="images/bg_home_orange.gif" valign="top"></td>
191 
        </td>
 - 
 
192 
        <td width="100%" rowspan="1" align="center" valign="top" bgcolor="#EEEFEF">
 195 
            <td width="100%" rowspan="1" align="center" valign="top" bgcolor="#EEEFEF">
193 
          <table width="10" border="0" cellspacing="0" cellpadding="0">
 - 
 
194 
            <tr>
 - 
 
195 
              <td width="1%"></td>
 - 
 
196 
              <td width="100%">
 - 
 
197 
                <table width="100%" border="0" cellspacing="0" cellpadding="0">
 196 
               <table width="10" border="0" cellspacing="0" cellpadding="0">
198 
                  <tr>
 197 
                  <tr>
- 
 
 198 
                     <td width="1%"></td>
- 
 
 199 
                     <td width="100%">
- 
 
 200 
                        <table width="100%" border="0" cellspacing="0" cellpadding="0">
- 
 
 201 
                           <tr>
199 
                    <td nowrap class="body_txt">
 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>
200 
                    </td>
 213 
                     </td>
- 
 
 214 
                     <td width="1%"></td>
201 
                  </tr>
 215 
                  </tr>
202 
                </table>
 - 
 
203 
                <table width="100%" border="0" cellspacing="0" cellpadding="0">
 - 
 
204 
                  <tr>
 216 
                  <tr>
205 
                    <td nowrap class="form_ttl"><p>&nbsp;</p>
 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>
206 
                      <p>BUILD STATUS INFORMATION</p>
 218 
                     <td background="images/lbox_bg_blue.gif" class="lbox_ttl_w"><img src="images/h_trsp_dot.gif" width="600" height="15"></td>
207 
                    </td>
 - 
 
208 
                    <td align="right" valign="bottom"></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>
209 
                  </tr>
 220 
                  </tr>
210 
                </table>
 - 
 
211 
              </td>
 - 
 
212 
              <td width="1%"></td>
 - 
 
213 
            </tr>
 - 
 
214 
            <tr>
 - 
 
215 
              <td align="left" valign="top" background="images/lbox_bg_blue.gif"><img src="images/lbox_tl_cnr_b.gif" width="13" height="13"></td>
 - 
 
216 
              <td background="images/lbox_bg_blue.gif" class="lbox_ttl_w"><img src="images/h_trsp_dot.gif" width="600" height="15"></td>
 - 
 
217 
              <td align="right" valign="top" background="images/lbox_bg_blue.gif"><img src="images/lbox_tr_cnr_b.gif" width="13" height="13"></td>
 - 
 
218 
            </tr>
 - 
 
219 
            <tr>
 - 
 
220 
              <td bgcolor="#FFFFFF"><img src="images/h_trsp_dot.gif" width="10" height="100"></td>
 - 
 
221 
              <td bgcolor="#FFFFFF" valign="top">
 - 
 
222 
                <!-- MESSAGE +++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 - 
 
223 
                <!--#include file="messages/_msg_inline.asp"-->
 - 
 
224 
                <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 - 
 
225 
                <br>
 - 
 
226 
                <!-- BUTTONS CONTROL +++++++++++++++++++ -->
 - 
 
227 
                <!-- +++++++++++++++++++++++++++++++++++ -->
 - 
 
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>
 221 
                  <tr>
- 
 
 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>
 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>
 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>
 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>
 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>
237 
                  </tr>
 314 
                  </tr>
- 
 
 315 
                  <%If rsQry.RecordCount > 0 Then%>
238 
<%
 316 
                     <tr>
- 
 
 317 
                        <td background="images/bg_action_norm.gif"></td>
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 from do_not_ripple dnr, package_versions pv, packages pkg "&_
 318 
                        <td align="right" background="images/bg_action_norm.gif">
- 
 
 319 
                           <%
240 
" where dnr.rtag_id = "& parRtagId &" and pv.pv_id = dnr.pv_id and pkg.pkg_id = pv.pkg_id and dnr.root_pv_id is null order by pkg_name"
 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?"")'" ))
241 
Set rsQry = OraDatabase.DbCreateDynaset( query_string, ORADYN_DEFAULT )
 321 
                           Response.Write(objPMod.ComposeHiddenTags())
242 
'--- Render rows ---
 322 
                           %>
243 
Do While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
 323 
                        </td>
- 
 
 324 
                        <td background="images/bg_action_norm.gif"><img src="images/h_trsp_dot.gif" width="5" height="30"></td>
- 
 
 325 
                     </tr>
244 
%>
 326 
                  <%End If%>
245 
                  <tr>
 327 
                  <tr>
246 
                    <td colspan="5" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
 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>
247 
                  </tr>
 331 
                  </tr>
- 
 
 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">
248 
                  <tr>
 351 
                  <tr>
- 
 
 352 
                     <td width="1%"></td>
249 
                    <td nowrap width="1%">
 353 
                     <td width="100%">
250 
                      <input type="checkbox" value="<%=rsQry("pv_id")%>" name="pv_id_list" id="pv_id_list" onClick="isChecked('pv_id_list','submit');">
 354 
                        <table width="100%" border="0" cellspacing="0" cellpadding="0">
251 
                    </td>
 355 
                           <tr>
252 
                    <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>
 356 
                              <td nowrap class="form_ttl"><p>&nbsp;</p>
253 
                    <td nowrap class="body_rowg"><%=rsQry("pkg_version")%></td>
 357 
                                 <p>DAEMON STATUS INFORMATION</p>
254 
<%
 - 
 
- 
 
 358 
                              </td>
255 
' root_file, if supplied, indicates a build failure log file exists
 359 
                              <td align="right" valign="bottom"></td>
256 
' this should always prevail over the textual root_cause
 360 
                           </tr>
257 
If IsNull(rsQry("root_file")) Then
 361 
                        </table>
258 
%>
 362 
                     </td>
259 
                    <td nowrap class="body_rowg"><%=rsQry("root_cause")%></td>
 363 
                     <td width="1%"></td>
260 
<%
 - 
 
261 
Else
 - 
 
262 
%>
 - 
 
263 
                    <td nowrap class="body_rowg"><a class="txt_linked" title="<%=rsQry("root_file")%> Log file may have expired." href="file://///auperaunx26/abtlog/<%=rsQry("root_file")%>">Build Failure Log File</a></td>
 - 
 
264 
<%
 - 
 
265 
End If
 - 
 
266 
%>
 - 
 
267 
                  </tr>
 364 
                  </tr>
268 
<%
 - 
 
269 
  rsQry.MoveNext
 - 
 
270 
  Loop
 - 
 
271 
%>
 - 
 
272 
                  <tr>
 365 
                  <tr>
273 
                    <td background="images/bg_table_col.gif" class="err_alert"><b>Indirectly</b></td>
 - 
 
274 
                    <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">PACKAGE NAME</td>
 - 
 
275 
                    <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">PACKAGE VERSION</td>
 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>
276 
                    <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">ROOT CAUSE PACKAGE NAME</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>
277 
                  </tr>
 - 
 
278 
<%
 - 
 
279 
query_string = "select pv.pv_id, pkg.pkg_name, pv.pkg_version, qkg.pkg_name, dnr.rtag_id, pv.pv_description from do_not_ripple dnr, package_versions pv, package_versions qv, packages pkg, packages qkg "&_
 - 
 
280 
" where dnr.rtag_id = "& parRtagId &" and pv.pv_id = dnr.pv_id and pkg.pkg_id = pv.pkg_id and dnr.root_pv_id is not null and qv.pv_id=dnr.root_pv_id and qkg.pkg_id=qv.pkg_id order by pkg.pkg_name"
 - 
 
281 
Dim rsQry2
 - 
 
282 
Set rsQry2 = OraDatabase.DbCreateDynaset( query_string, ORADYN_DEFAULT )
 - 
 
283 
'--- Render rows ---
 - 
 
284 
Do While (NOT rsQry2.BOF) AND (NOT rsQry2.EOF)
 - 
 
285 
%>
 - 
 
286 
                  <tr>
 - 
 
287 
                    <td colspan="5" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></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>
288 
                  </tr>
 369 
                  </tr>
289 
                  <tr>
 370 
                  <tr>
- 
 
 371 
                     <td bgcolor="#FFFFFF"><img src="images/h_trsp_dot.gif" width="10" height="100"></td>
290 
                    <td nowrap width="1%">
 372 
                     <td bgcolor="#FFFFFF" valign="top">
- 
 
 373 
                        <!-- MESSAGE +++++++++++++++++++++++++++++++++++++++++++++++++++ -->
- 
 
 374 
                        <!--#include file="messages/_msg_inline.asp"-->
- 
 
 375 
                        <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
- 
 
 376 
                        <br>
291 
                      <input type="checkbox" value=0 disabled=true name="notused" id="notused">
 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>
292 
                    </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>
293 
                    <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>
 419 
                                 <td colspan="6" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
- 
 
 420 
                              </tr>
- 
 
 421 
                              <tr>
294 
                    <td nowrap class="body_rowg"><%=rsQry2(2)%></td>
 422 
                                 <td nowrap class="body_rowg"><%=rsQry("daemon_hostname")%></td>
295 
                    <td nowrap class="body_rowg"><%=rsQry2(3)%></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>
296 
                  </tr>
 458 
                  </tr>
297 
<%
 - 
 
298 
  rsQry2.MoveNext
 - 
 
299 
  Loop
 - 
 
300 
%>
 - 
 
301 
                </table>
 - 
 
302 
              </td>
 - 
 
303 
              <td background="images/lbox_bgside_white.gif">&nbsp;</td>
 - 
 
304 
            </tr>
 - 
 
305 
<%
 - 
 
306 
If rsQry.RecordCount > 0 Then
 - 
 
307 
%>
 - 
 
308 
            <tr>
 - 
 
309 
              <td background="images/bg_action_norm.gif"></td>
 - 
 
310 
              <td align="right" background="images/bg_action_norm.gif">
 - 
 
311 
<%
 - 
 
312 
  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?"")'" ))
 - 
 
313 
  Response.Write(objPMod.ComposeHiddenTags())
 - 
 
314 
%>
 - 
 
315 
              </td>
 - 
 
316 
              <td background="images/bg_action_norm.gif"><img src="images/h_trsp_dot.gif" width="5" height="30"></td>
 - 
 
317 
            </tr>
 - 
 
318 
<%
 - 
 
319 
End If
 - 
 
320 
%>
 - 
 
321 
            <tr>
 - 
 
322 
              <td background="images/lbox_bg_blue.gif" valign="bottom"><img src="images/lbox_bl_cnr_b.gif" width="13" height="13"></td>
 - 
 
323 
              <td background="images/lbox_bg_blue.gif"></td>
 - 
 
324 
              <td background="images/lbox_bg_blue.gif" valign="bottom" align="right"><img src="images/lbox_br_cnr_b.gif" width="13" height="13"></td>
 - 
 
325 
            </tr>
 - 
 
326 
          </table>
 - 
 
327 
    <!-- ACTION BUTTONS ---------------------------------------------->
 - 
 
328 
          <input type="hidden" name="action" value="include">
- 
 
329 
    <!-- ACTION BUTTONS END  ------------------------------------------>
 - 
 
330 
        </td>
 - 
 
331 
        <td width="1" valign="top"><img src="images/h_trsp_dot.gif" width="1" height="1"></td>
 - 
 
332 
      </tr>
 - 
 
333 
  <%
 - 
 
334 
  Call objFormComponent.FormEnd()
 - 
 
335 
  rsQry.Close()
 - 
 
336 
  Set rsQry = nothing
- 
 
337 
  rsQry2.Close()
 - 
 
338 
  Set rsQry2 = nothing
- 
 
339 
  '-- FORM END ----------------------------------------------------------------------------------------------------------------
 - 
 
340 
  %>
 - 
 
341 
      <tr>
 - 
 
342 
        <td width="1" background="images/bg_home_orange.gif" valign="top">
 - 
 
343 
        </td>
 - 
 
344 
        <td width="100%" rowspan="2" align="center" valign="top" bgcolor="#EEEFEF">
 - 
 
345 
          <table width="10" border="0" cellspacing="0" cellpadding="0">
 - 
 
346 
            <tr>
 - 
 
347 
              <td width="1%"></td>
 - 
 
348 
              <td width="100%">
 - 
 
349 
                <table width="100%" border="0" cellspacing="0" cellpadding="0">
 - 
 
350 
                  <tr>
 459 
                  <tr>
351 
                    <td nowrap class="form_ttl"><p>&nbsp;</p>
 460 
                     <input type="hidden" name="action" value="true">
352 
                      <p>DAEMON STATUS INFORMATION
 461 
                     <%=objPMod.ComposeHiddenTags()%>
353 
                      </p>
 462 
                     <td background="images/lbox_bg_blue.gif" valign="bottom"><img src="images/lbox_bl_cnr_b.gif" width="13" height="13"></td>
354 
                    </td>
 463 
                     <td background="images/lbox_bg_blue.gif"></td>
355 
                    <td align="right" valign="bottom"></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>
356 
                  </tr>
 465 
                  </tr>
357 
                </table>
 466 
               </table>
358 
              </td>
 - 
 
359 
              <td width="1%"></td>
 - 
 
360 
            </tr>
 - 
 
361 
            <tr>
 - 
 
362 
              <td align="left" valign="top" background="images/lbox_bg_blue.gif"><img src="images/lbox_tl_cnr_b.gif" width="13" height="13"></td>
 - 
 
363 
              <td background="images/lbox_bg_blue.gif" class="lbox_ttl_w"><img src="images/h_trsp_dot.gif" width="600" height="15"></td>
 - 
 
364 
              <td align="right" valign="top" background="images/lbox_bg_blue.gif"><img src="images/lbox_tr_cnr_b.gif" width="13" height="13"></td>
 - 
 
365 
            </tr>
 467 
            </td>
366 
            <tr>
 - 
 
367 
              <td bgcolor="#FFFFFF"><img src="images/h_trsp_dot.gif" width="10" height="100"></td>
 468 
            <td width="1" valign="top"><img src="images/h_trsp_dot.gif" width="1" height="1"></td>
368 
              <td bgcolor="#FFFFFF" valign="top">
 - 
 
369 
                <!-- MESSAGE +++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 - 
 
370 
                <!--#include file="messages/_msg_inline.asp"-->
 - 
 
371 
                <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 - 
 
372 
                <br>
 - 
 
373 
                <!-- BUTTONS CONTROL +++++++++++++++++++ -->
 - 
 
374 
                <!-- +++++++++++++++++++++++++++++++++++ -->
 - 
 
375 
                <table width="100%" border="0" cellspacing="2" cellpadding="0">
 - 
 
376 
              </td>
 - 
 
377 
              <td width="9%" valign="top"></td>
 - 
 
378 
            </tr>
 - 
 
379 
            <tr>
 - 
 
380 
              <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">Hostname</td>
 - 
 
381 
              <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">GBE Machtype</td>
 - 
 
382 
              <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">Mode</td>
 - 
 
383 
              <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">Run Level</td>
 - 
 
384 
              <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">Current Package</td>
 - 
 
385 
              <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">Switch State</td>
 - 
 
386 
            </tr>
 - 
 
387 
<%
 - 
 
388 
query_string = "select * from release_config rc, run_level rl, packages pkg, gbe_machtype gm "&_
 - 
 
389 
" where rc.rtag_id = "& parRtagId &" and rc.rcon_id = rl.rcon_id(+) and "&_
 - 
 
390 
" pkg.pkg_id(+) = rl.current_pkg_id_being_built and gm.gbe_id = rc.gbe_id order by rc.daemon_hostname"
 - 
 
391 
Set rsQry = OraDatabase.DbCreateDynaset( query_string, ORADYN_DEFAULT )
 - 
 
392 
'--- Render rows ---
 - 
 
393 
Do While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
 - 
 
394 
  rcon_id = rsQry("rcon_id")
 - 
 
395 
%>
 - 
 
396 
            <tr>
 - 
 
397 
              <td colspan="6" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
 - 
 
398 
            </tr>
 - 
 
399 
            <tr>
 - 
 
400 
              <td nowrap class="body_rowg"><%=rsQry("daemon_hostname")%></td>
 - 
 
401 
              <td nowrap class="body_rowg"><%=rsQry("gbe_value")%></td>
 - 
 
402 
              <td nowrap class="body_rowg"><%=Get_Daemon_Mode(rsQry("daemon_mode"))%></td>
 - 
 
403 
              <td nowrap class="body_rowg"><%=Get_Run_Level(rsQry("current_run_level"))%></td>
 - 
 
404 
              <td nowrap class="body_rowg"><%=Get_Package_Name(rsQry("pkg_name"))%></td>
 - 
 
405 
              <td nowrap class="body_rowg">
 - 
 
406 
<%
 - 
 
407 
  If NOT IsNull(rsQry("current_run_level")) Then
 - 
 
408 
    If objAccessControl.UserLogedIn Then
 - 
 
409 
      If IsNull(rsQry("pause")) Then
 - 
 
410 
        Call Action_Buttons ( "Daemon Pause" )
 - 
 
411 
      Else
 - 
 
412 
        Call Action_Buttons ( "Daemon Resume" )
 - 
 
413 
      End If
 - 
 
414 
    Else
 - 
 
415 
      If IsNull(rsQry("pause")) Then
 - 
 
416 
        Call Action_Buttons ( "Daemon Pause Disabled" )
 - 
 
417 
      Else
 - 
 
418 
        Call Action_Buttons ( "Daemon Resume Disabled" )
 - 
 
419 
      End If
 - 
 
420 
    End If
 - 
 
421 
  Else
 - 
 
422 
%>Unavailable<%
 - 
 
423 
  End If
 - 
 
424 
%>
 - 
 
425 
              </td>
 - 
 
426 
            </tr>
 - 
 
427 
<%
 - 
 
428 
  rsQry.MoveNext
 - 
 
429 
  Loop
- 
 
430 
rsQry.Close()
 - 
 
431 
Set rsQry = nothing
- 
 
432 
%>
 - 
 
433 
          </table>
 - 
 
434 
        </td>
 469 
         </tr>
435 
        <td background="images/lbox_bgside_white.gif">&nbsp;</td>
 - 
 
436 
      </tr>
 - 
 
437 
      <tr>
 470 
         <tr>
438 
        <input type="hidden" name="action" value="true">
 - 
 
439 
        <%=objPMod.ComposeHiddenTags()%>
 - 
 
440 
        <td background="images/lbox_bg_blue.gif" valign="bottom"><img src="images/lbox_bl_cnr_b.gif" width="13" height="13"></td>
 - 
 
441 
        <td background="images/lbox_bg_blue.gif"></td>
 - 
 
442 
        <td background="images/lbox_bg_blue.gif" valign="bottom" align="right"><img src="images/lbox_br_cnr_b.gif" width="13" height="13"></td>
 - 
 
443 
      </tr>
 - 
 
444 
    </table>
- 
 
445 
    <!-- ACTION BUTTONS ---------------------------------------------->
 - 
 
446 
    <!-- ACTION BUTTONS END  ------------------------------------------> </td>
 - 
 
447 
    <td width="1" valign="top"><img src="images/h_trsp_dot.gif" width="1" height="1"></td>
 - 
 
448 
    </tr>
 - 
 
449 
    <tr>
 - 
 
450 
      <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>
 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>
451 
      <td background="images/bg_lght_gray.gif" valign="top"><img src="images/h_trsp_dot.gif" width="1" height="350"></td>
 472 
            <td background="images/bg_lght_gray.gif" valign="top"><img src="images/h_trsp_dot.gif" width="1" height="350"></td>
452 
    </tr>
 473 
         </tr>
453 
    </table>
474 
      </table>
454 
    <!-- FOOTER -->
 475 
      <!-- FOOTER -->
455 
    <!--#include file="_footer.asp"-->
 476 
      <!--#include file="_footer.asp"-->
456 
  </body>
 477 
   </body>
457 
</html>
 478 
</html>
458 
<%
 479 
<%
459 
Call Destroy_All_Objects
 480 
Call Destroy_All_Objects
460 
%>
 481 
%>