| Line 178... |
Line 178... |
| 178 |
End Function
|
178 |
End Function
|
| 179 |
'--------------------------------------------------------------------------------------------------------------------------
|
179 |
'--------------------------------------------------------------------------------------------------------------------------
|
| 180 |
Function GetLastBuildAge( rtagid)
|
180 |
Function GetLastBuildAge( rtagid)
|
| 181 |
Dim query_string, rsQry
|
181 |
Dim query_string, rsQry
|
| 182 |
query_string = "SELECT TRUNC (86400*(SYSDATE - rl.LAST_BUILD)) as delta," &_
|
182 |
query_string = "SELECT TRUNC (86400*(SYSDATE - rl.LAST_BUILD)) as delta," &_
|
| 183 |
" TO_CHAR(rl.LAST_BUILD, 'DD-MON-YYYY') as last_build," &_
|
183 |
" TO_CHAR(rl.LAST_BUILD, 'DD-Mon-YYYY') as last_build," &_
|
| 184 |
" TO_CHAR(rl.LAST_BUILD, 'HH:MM:SS PM') as last_build_hours," &_
|
184 |
" TO_CHAR(rl.LAST_BUILD, 'HH:MM:SS PM') as last_build_hours," &_
|
| 185 |
" TRUNC (SYSDATE - rl.LAST_BUILD) as last_build_days" &_
|
185 |
" TRUNC (SYSDATE - rl.LAST_BUILD) as last_build_days" &_
|
| 186 |
" FROM RELEASE_CONFIG rc, RUN_LEVEL rl, BUILD_MACHINE_CONFIG bm " &_
|
186 |
" FROM RELEASE_CONFIG rc, RUN_LEVEL rl, BUILD_MACHINE_CONFIG bm " &_
|
| 187 |
" WHERE rc.RTAG_ID =" &rtagid &_
|
187 |
" WHERE rc.RTAG_ID =" &rtagid &_
|
| 188 |
" AND rc.bmcon_id is not null" &_
|
188 |
" AND rc.bmcon_id is not null" &_
|
| Line 210... |
Line 210... |
| 210 |
Set rsQry = nothing
|
210 |
Set rsQry = nothing
|
| 211 |
|
211 |
|
| 212 |
End Function
|
212 |
End Function
|
| 213 |
|
213 |
|
| 214 |
'--------------------------------------------------------------------------------------------------------------------------
|
214 |
'--------------------------------------------------------------------------------------------------------------------------
|
| - |
|
215 |
Function GetModifiedSeqNo( rtagid)
|
| - |
|
216 |
Dim query_string, rsQry
|
| - |
|
217 |
query_string = "SELECT SEQNUM FROM RELEASE_MODIFIED WHERE RTAG_ID = " & rtagid
|
| - |
|
218 |
|
| - |
|
219 |
Set rsQry = OraDatabase.DbCreateDynaset( query_string, ORADYN_DEFAULT )
|
| - |
|
220 |
If (NOT rsQry.BOF) AND (NOT rsQry.EOF) Then
|
| - |
|
221 |
GetModifiedSeqNo = rsQry("SEQNUM")
|
| - |
|
222 |
Else
|
| - |
|
223 |
GetModifiedSeqNo = "-"
|
| - |
|
224 |
End If
|
| - |
|
225 |
rsQry.Close()
|
| - |
|
226 |
Set rsQry = nothing
|
| - |
|
227 |
|
| - |
|
228 |
End Function
|
| - |
|
229 |
|
| - |
|
230 |
'--------------------------------------------------------------------------------------------------------------------------
|
| 215 |
%>
|
231 |
%>
|
| 216 |
<%
|
232 |
<%
|
| 217 |
'------------ RUN BEFORE PAGE RENDER ----------
|
233 |
'------------ RUN BEFORE PAGE RENDER ----------
|
| 218 |
shref_base = "http://" & archive_server & "/devl/abtlog/"
|
234 |
shref_base = "http://" & archive_server & "/devl/abtlog/"
|
| 219 |
|
235 |
|
| Line 526... |
Line 542... |
| 526 |
<td nowrap class="form_ttl"><p> </p>
|
542 |
<td nowrap class="form_ttl"><p> </p>
|
| 527 |
<p>DAEMON STATUS INFORMATION</p>
|
543 |
<p>DAEMON STATUS INFORMATION</p>
|
| 528 |
</td>
|
544 |
</td>
|
| 529 |
<td valign="bottom" class="body_rowg">
|
545 |
<td valign="bottom" class="body_rowg">
|
| 530 |
Last Build: <%=GetLastBuildAge(parRtagId)%>
|
546 |
Last Build: <%=GetLastBuildAge(parRtagId)%>
|
| - |
|
547 |
[<%=GetModifiedSeqNo(parRtagId)%>]
|
| 531 |
</td>
|
548 |
</td>
|
| 532 |
<td align="right" valign="bottom">
|
549 |
<td align="right" valign="bottom">
|
| 533 |
<a class="txt_linked" href="build_status.asp?rtag_id=<%=parRtagId%>" title="Refresh Page">[Refresh]</a></td>
|
550 |
<a class="txt_linked" href="build_status.asp?rtag_id=<%=parRtagId%>" title="Refresh Page">[Refresh]</a></td>
|
| 534 |
</td>
|
551 |
</td>
|
| 535 |
</tr>
|
552 |
</tr>
|