| Line 6... |
Line 6... |
| 6 |
<!--#include file="../class/classTemplateManager.asp"-->
|
6 |
<!--#include file="../class/classTemplateManager.asp"-->
|
| 7 |
<!--#include file="../class/classTabControl.asp"-->
|
7 |
<!--#include file="../class/classTabControl.asp"-->
|
| 8 |
<!--#include file="../class/classActionButtonControl.asp"-->
|
8 |
<!--#include file="../class/classActionButtonControl.asp"-->
|
| 9 |
<!--#include file="daemon_instructions.asp"-->
|
9 |
<!--#include file="daemon_instructions.asp"-->
|
| 10 |
<!--#include file="daemon_status.asp"-->
|
10 |
<!--#include file="daemon_status.asp"-->
|
| - |
|
11 |
<!--#include file="../_pkg_action_buttons.asp"-->
|
| 11 |
<%
|
12 |
<%
|
| 12 |
'------------ VARIABLE DEFINITION -------------
|
13 |
'------------ VARIABLE DEFINITION -------------
|
| 13 |
Dim parPv_id
|
14 |
Dim parPv_id
|
| 14 |
Dim nEnvTab ' remember environment tab
|
15 |
Dim nEnvTab ' remember environment tab
|
| 15 |
Dim objBtnControl
|
16 |
Dim objBtnControl
|
| Line 164... |
Line 165... |
| 164 |
Response.write "<td>"
|
165 |
Response.write "<td>"
|
| 165 |
|
166 |
|
| 166 |
|
167 |
|
| 167 |
'build_type', and a value of 'M' = manual and 'A' = auto
|
168 |
'build_type', and a value of 'M' = manual and 'A' = auto
|
| 168 |
If pkgInfoHash.Item("build_type") = "M" Then
|
169 |
If pkgInfoHash.Item("build_type") = "M" Then
|
| 169 |
Response.write "<img src='icons/i_manual.gif' width='12' height='14' border='0' title='Manual package'>"
|
170 |
Response.write "<img src='icons/i_manual.gif' width='12' height='14' border='0' title='Manually versioned package'>"
|
| 170 |
End If
|
171 |
End If
|
| 171 |
Response.write "</td>"
|
172 |
Response.write "</td>"
|
| 172 |
Response.write "<td>"
|
173 |
Response.write "<td>"
|
| 173 |
|
174 |
|
| 174 |
' check if a daemon instruction exists for this package
|
175 |
' check if a daemon instruction exists for this package
|
| Line 180... |
Line 181... |
| 180 |
Response.write "</td>"
|
181 |
Response.write "</td>"
|
| 181 |
Response.write "<td>"
|
182 |
Response.write "<td>"
|
| 182 |
|
183 |
|
| 183 |
' check if this package has a build failure file
|
184 |
' check if this package has a build failure file
|
| 184 |
If pkgInfoHash("has_build_failure") Then
|
185 |
If pkgInfoHash("has_build_failure") Then
|
| 185 |
Response.write "<img src='icons/i_build_failure.gif' width='19' height='17' border='0' title='Package build failure" & " " & "Click to view details." &"' onClick=""location.href='build_status.asp?rtag_id=" & irtag_id & "';"" >"
|
186 |
Response.write "<img src='icons/i_build_failure.gif' width='19' height='17' border='0' title='Package build failure." & " " & "Click to view details." &"' onClick=""location.href='build_status.asp?rtag_id=" & irtag_id & "';"" >"
|
| 186 |
ElseIf pkgInfoHash("is_excluded") Then
|
187 |
ElseIf pkgInfoHash("is_excluded") Then
|
| 187 |
' check if this package has been excluded from the build
|
188 |
' check if this package has been excluded from the build
|
| 188 |
Response.write "<img src='icons/i_build_exclusion.gif' width='19' height='17' border='0' title='Package excluded from build" & " " & "Click to view details." &"' onClick=""location.href='build_status.asp?rtag_id=" & irtag_id & "';"" >"
|
189 |
Response.write "<img src='icons/i_build_exclusion.gif' width='19' height='17' border='0' title='Package excluded from build." & " " & "Click to view details." &"' onClick=""location.href='build_status.asp?rtag_id=" & irtag_id & "';"" >"
|
| 189 |
End If
|
190 |
End If
|
| 190 |
Response.write "</td>"
|
191 |
Response.write "</td>"
|
| 191 |
Response.write "<td>"
|
192 |
Response.write "<td>"
|
| 192 |
|
193 |
|
| 193 |
Response.write "</td>"
|
194 |
Response.write "</td>"
|
| Line 212... |
Line 213... |
| 212 |
'-----------------------------------------------------------------------------------------------------------------------------
|
213 |
'-----------------------------------------------------------------------------------------------------------------------------
|
| 213 |
Sub RenderStatus(irtag_id,ipv_id)
|
214 |
Sub RenderStatus(irtag_id,ipv_id)
|
| 214 |
%>
|
215 |
%>
|
| 215 |
<table width="100%" border="0" cellspacing="10" cellpadding="0">
|
216 |
<table width="100%" border="0" cellspacing="10" cellpadding="0">
|
| 216 |
<tr>
|
217 |
<tr>
|
| 217 |
<td width="50%">
|
218 |
<td width="100%">
|
| 218 |
<!-- PACKAGE PROPERTIES ---------------------------- -->
|
219 |
<!-- PACKAGE PROPERTIES ---------------------------- -->
|
| 219 |
<%
|
220 |
<%
|
| 220 |
If ipv_id <> "" Then
|
221 |
If ipv_id <> "" Then
|
| 221 |
Call RenderPackageProperties (irtag_id)
|
222 |
Call RenderPackageProperties (irtag_id)
|
| 222 |
End If
|
223 |
End If
|
| 223 |
%>
|
224 |
%>
|
| 224 |
</td>
|
225 |
</td>
|
| - |
|
226 |
</tr>
|
| - |
|
227 |
</table>
|
| - |
|
228 |
<%
|
| - |
|
229 |
End Sub
|
| - |
|
230 |
|
| - |
|
231 |
'-----------------------------------------------------------------------------------------------------------------------------
|
| - |
|
232 |
Sub RenderDaemonBar(irtag_id,ipv_id)
|
| - |
|
233 |
%>
|
| - |
|
234 |
<table width="100%" border="0" cellspacing="2" cellpadding="0">
|
| - |
|
235 |
<tr>
|
| 225 |
<td width="12%" valign=bottom>
|
236 |
<td valign=bottom>
|
| 226 |
<%
|
237 |
<%
|
| 227 |
If irtag_id<>"" Then
|
238 |
If irtag_id<>"" Then
|
| 228 |
Dim objDmSts: Set objDmSts = New DaemonStatus
|
239 |
Dim objDmSts: Set objDmSts = New DaemonStatus
|
| 229 |
%>
|
240 |
%>
|
| 230 |
<fieldset class="form_field">
|
241 |
<fieldset style="margin:0px;padding:0px;">
|
| 231 |
<legend class=="form_field" style="color:black"><b> Daemon Status</b></legend>
|
- |
|
| 232 |
<div style="background-color:'#f5f5f5'">
|
- |
|
| 233 |
<%Call objDmSts.RenderDaemonStatusForRelease(irtag_id,16)%>
|
242 |
<%Call objDmSts.RenderDaemonStatusForRelease(irtag_id,16)%>
|
| 234 |
</div>
|
- |
|
| 235 |
</fieldset>
|
243 |
</fieldset>
|
| 236 |
<%
|
244 |
<%
|
| 237 |
Set objDmSts = Nothing
|
245 |
Set objDmSts = Nothing
|
| 238 |
End If
|
246 |
End If
|
| 239 |
%>
|
247 |
%>
|
| 240 |
</td>
|
248 |
</td>
|
| 241 |
<td width="38%">
|
- |
|
| 242 |
</td>
|
- |
|
| 243 |
</tr>
|
249 |
</tr>
|
| 244 |
</table>
|
250 |
</table>
|
| 245 |
<%
|
251 |
<%
|
| 246 |
End Sub
|
252 |
End Sub
|
| 247 |
|
253 |
|
| 248 |
'-----------------------------------------------------------------------------------------------------------------------------
|
254 |
'-----------------------------------------------------------------------------------------------------------------------------
|
| - |
|
255 |
Sub RenderActionBar(irtag_id,ipv_id)
|
| - |
|
256 |
Response.write("<table border=0 cellpadding=0 cellspacing=0>")
|
| - |
|
257 |
Response.write(" <tr>")
|
| - |
|
258 |
Response.write(" <td width='50%'>")
|
| - |
|
259 |
If Not ((ipv_id = "") or (IsNull(ipv_id))) Then
|
| - |
|
260 |
Call RenderActionButtons
|
| - |
|
261 |
End If
|
| - |
|
262 |
Response.write(" </td>")
|
| - |
|
263 |
Response.write(" <td width='25%'>")
|
| - |
|
264 |
Response.write(" </td>")
|
| - |
|
265 |
Response.write(" <td width='1%'>")
|
| - |
|
266 |
Call RenderDaemonBar(irtag_id,ipv_id)
|
| - |
|
267 |
Response.write(" </td>")
|
| - |
|
268 |
Response.write(" <td width='24%'>")
|
| - |
|
269 |
Response.write(" </td>")
|
| - |
|
270 |
Response.write(" </tr>")
|
| - |
|
271 |
Response.write("</table>")
|
| - |
|
272 |
End Sub
|
| - |
|
273 |
'-----------------------------------------------------------------------------------------------------------------------------
|
| 249 |
%>
|
274 |
%>
|