Subversion Repositories DevTools

Rev

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

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