| Line 1... |
Line 1... |
| 1 |
<%@LANGUAGE="VBSCRIPT"%>
|
1 |
<% @LANGUAGE = VBScript %>
|
| 2 |
<%
|
2 |
<%
|
| 3 |
'=====================================================
|
3 |
'=====================================================
|
| 4 |
'
|
4 |
'
|
| 5 |
' Build Status and Plan Information
|
5 |
' Build Status and Plan Information
|
| 6 |
'
|
6 |
'
|
| Line 130... |
Line 130... |
| 130 |
'--------------------------------------------------------------------------------------------------------------------------
|
130 |
'--------------------------------------------------------------------------------------------------------------------------
|
| 131 |
Function GetLastBuildAge( rtagid)
|
131 |
Function GetLastBuildAge( rtagid)
|
| 132 |
Dim query_string, rsQry
|
132 |
Dim query_string, rsQry
|
| 133 |
query_string = "SELECT TRUNC (86400*(SYSDATE - rl.LAST_BUILD)) as delta," &_
|
133 |
query_string = "SELECT TRUNC (86400*(SYSDATE - rl.LAST_BUILD)) as delta," &_
|
| 134 |
" TO_CHAR(rl.LAST_BUILD, 'DD-Mon-YYYY') as last_build," &_
|
134 |
" TO_CHAR(rl.LAST_BUILD, 'DD-Mon-YYYY') as last_build," &_
|
| 135 |
" TO_CHAR(rl.LAST_BUILD, 'HH:MM:SS PM') as last_build_hours," &_
|
135 |
" TO_CHAR(rl.LAST_BUILD, 'HH:MI:SS PM') as last_build_hours," &_
|
| 136 |
" TRUNC (SYSDATE - rl.LAST_BUILD) as last_build_days" &_
|
136 |
" TRUNC (SYSDATE - rl.LAST_BUILD) as last_build_days" &_
|
| 137 |
" FROM RELEASE_CONFIG rc, RUN_LEVEL rl, BUILD_MACHINE_CONFIG bm " &_
|
137 |
" FROM RELEASE_CONFIG rc, RUN_LEVEL rl, BUILD_MACHINE_CONFIG bm " &_
|
| 138 |
" WHERE rc.RTAG_ID =" &rtagid &_
|
138 |
" WHERE rc.RTAG_ID =" &rtagid &_
|
| 139 |
" AND rc.bmcon_id is not null" &_
|
139 |
" AND rc.bmcon_id is not null" &_
|
| 140 |
" AND rl.RCON_ID = rc.RCON_ID" &_
|
140 |
" AND rl.RCON_ID = rc.RCON_ID" &_
|
| Line 197... |
Line 197... |
| 197 |
<script language="JavaScript" type="text/JavaScript">
|
197 |
<script language="JavaScript" type="text/JavaScript">
|
| 198 |
formTips.tips.h_buildplan = stdTip(300, 'Build Plan', 'The build plan is a guess as to the order in which packages will be built.' +
|
198 |
formTips.tips.h_buildplan = stdTip(300, 'Build Plan', 'The build plan is a guess as to the order in which packages will be built.' +
|
| 199 |
'<p>It will be recalculated before each build.' +
|
199 |
'<p>It will be recalculated before each build.' +
|
| 200 |
'<p>The plan includes test builds, new builds and resultant ripples.'
|
200 |
'<p>The plan includes test builds, new builds and resultant ripples.'
|
| 201 |
);
|
201 |
);
|
| 202 |
formTips.tips.h_buildDuration = stdTip(300, 'Planned Duration', 'The build duration (seconds) of the last build of this package - if known.' +
|
202 |
formTips.tips.h_buildDuration = stdTip(300, 'Planned Duration', 'The build duration (seconds) of the last build of this package - if known.' +
|
| 203 |
'<p>This is used as a guess as to the duration of the planned build.'
|
203 |
'<p>This is used as a guess as to the duration of the planned build.'
|
| 204 |
);
|
204 |
);
|
| - |
|
205 |
formTips.tips.h_buildEnd = stdTip(300, 'Planned Completion', 'An educated guess as to the build completion time of the package.' +
|
| - |
|
206 |
'<p>It is based on the start time of the current build and the durations of each preceeding builds.' +
|
| - |
|
207 |
'<p>If the duration of a build is not known then a time of 300 seconds will be assumed.' +
|
| - |
|
208 |
' It also assumes 20 seconds to plan the next build.'
|
| - |
|
209 |
);
|
| 205 |
formTips.tips.h_lastchange = stdTip(300, 'Last Change', 'This is an indication of the time since the daemon interogated the database.' +
|
210 |
formTips.tips.h_lastchange = stdTip(300, 'Last Change', 'This is an indication of the time since the daemon interogated the database.' +
|
| 206 |
'<p>Short times will be shown as seconds. Longer times will be shown as a time within ' +
|
211 |
'<p>Short times will be shown as seconds. Longer times will be shown as a time within ' +
|
| 207 |
'the last 24 hours. Longer times will be shown as a date.'
|
212 |
'the last 24 hours. Longer times will be shown as a date.'
|
| 208 |
);
|
213 |
);
|
| 209 |
|
214 |
|
| Line 437... |
Line 442... |
| 437 |
<td background="images/lbox_bg_blue.gif" valign="bottom" align="right"><img src="images/lbox_br_cnr_b.gif" width="13" height="13"></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>
|
| 438 |
</tr>
|
443 |
</tr>
|
| 439 |
</table>
|
444 |
</table>
|
| 440 |
|
445 |
|
| 441 |
<!-- Planned Builds Display -->
|
446 |
<!-- Planned Builds Display -->
|
| - |
|
447 |
<%
|
| - |
|
448 |
Set rsQry = OraDatabase.DbCreateDynaset( "SELECT TRUNC (86400*(SYSDATE - rl.LAST_BUILD)) as delta, rl.LAST_BUILD as BuildStart, rl.current_pv_id, SYSDATE" &_
|
| - |
|
449 |
" FROM release_config rc, run_level rl " &_
|
| - |
|
450 |
" WHERE rc.rtag_id = " & parRtagId &_
|
| - |
|
451 |
" AND rc.daemon_mode = 'M' AND rl.rcon_id = rc.rcon_id", ORADYN_DEFAULT )
|
| - |
|
452 |
Dim BuildStart
|
| - |
|
453 |
Dim BuildDelta
|
| - |
|
454 |
Dim BuildPvId
|
| - |
|
455 |
Dim BuildNow
|
| - |
|
456 |
If (rsQry.RecordCount > 0) Then
|
| - |
|
457 |
BuildStart = rsQry("BuildStart")
|
| - |
|
458 |
BuildDelta = rsQry("delta")
|
| - |
|
459 |
BuildPvId = rsQry("current_pv_id")
|
| - |
|
460 |
BuildNow = rsQry("SYSDATE")
|
| - |
|
461 |
End If
|
| - |
|
462 |
rsQry.Close()
|
| - |
|
463 |
Set rsQry = nothing
|
| - |
|
464 |
%>
|
| 442 |
<table width="10" border="0" cellspacing="0" cellpadding="0">
|
465 |
<table width="10" border="0" cellspacing="0" cellpadding="0">
|
| 443 |
<tr>
|
466 |
<tr>
|
| 444 |
<td width="1%"></td>
|
467 |
<td width="1%"></td>
|
| 445 |
<td width="100%">
|
468 |
<td width="100%">
|
| 446 |
<table width="100%" border="0" cellspacing="0" cellpadding="0">
|
469 |
<table width="100%" border="0" cellspacing="0" cellpadding="0">
|
| 447 |
<tr>
|
470 |
<tr>
|
| 448 |
<td nowrap class="form_ttl"><p> </p>
|
471 |
<td nowrap class="form_ttl"><p> </p>
|
| 449 |
<p>DAEMON BUILD PLAN<%=Quick_Help("h_buildplan")%></p>
|
472 |
<p>DAEMON BUILD PLAN<%=Quick_Help("h_buildplan")%></p>
|
| 450 |
</td>
|
473 |
</td>
|
| - |
|
474 |
<td valign="bottom" class="body_rowg">
|
| - |
|
475 |
Now: <%=DisplayShortDateTimeSecs(BuildNow)%>
|
| - |
|
476 |
</td>
|
| 451 |
<td align="right" valign="bottom"></td>
|
477 |
<td align="right" valign="bottom"></td>
|
| 452 |
</tr>
|
478 |
</tr>
|
| 453 |
</table>
|
479 |
</table>
|
| 454 |
</td>
|
480 |
</td>
|
| 455 |
<td width="1%"></td>
|
481 |
<td width="1%"></td>
|
| Line 465... |
Line 491... |
| 465 |
<table width="100%" border="0" cellspacing="2" cellpadding="0">
|
491 |
<table width="100%" border="0" cellspacing="2" cellpadding="0">
|
| 466 |
<tr>
|
492 |
<tr>
|
| 467 |
<td align="left" nowrap background="images/bg_table_col.gif" class="body_col">Package</td>
|
493 |
<td align="left" nowrap background="images/bg_table_col.gif" class="body_col">Package</td>
|
| 468 |
<td align="left" nowrap background="images/bg_table_col.gif" class="body_col">Version</td>
|
494 |
<td align="left" nowrap background="images/bg_table_col.gif" class="body_col">Version</td>
|
| 469 |
<td align="left" nowrap background="images/bg_table_col.gif" class="body_col">Duration<%=Quick_Help("h_buildDuration")%></td>
|
495 |
<td align="left" nowrap background="images/bg_table_col.gif" class="body_col">Duration<%=Quick_Help("h_buildDuration")%></td>
|
| - |
|
496 |
<td align="left" nowrap background="images/bg_table_col.gif" class="body_col">Build Completion<%=Quick_Help("h_buildEnd")%></td>
|
| 470 |
</tr>
|
497 |
</tr>
|
| 471 |
<%
|
498 |
<%
|
| 472 |
Dim PkgVersion
|
499 |
Dim PkgVersion, buildDuration, durationDisplay, durationText, completionText
|
| 473 |
Set rsQry = OraDatabase.DbCreateDynaset( "SELECT p.PKG_NAME," &_
|
500 |
Set rsQry = OraDatabase.DbCreateDynaset( "SELECT p.PKG_NAME," &_
|
| 474 |
" pv.PKG_VERSION, pv.BUILD_TIME," &_
|
501 |
" pv.PKG_VERSION, pv.BUILD_TIME," &_
|
| 475 |
" bp.PV_ID" &_
|
502 |
" bp.PV_ID" &_
|
| 476 |
" FROM build_plan bp," &_
|
503 |
" FROM build_plan bp," &_
|
| 477 |
" packages p," &_
|
504 |
" packages p," &_
|
| Line 479... |
Line 506... |
| 479 |
" WHERE bp.PV_ID = pv.pv_id" &_
|
506 |
" WHERE bp.PV_ID = pv.pv_id" &_
|
| 480 |
" AND RTAG_ID = " & parRtagId &_
|
507 |
" AND RTAG_ID = " & parRtagId &_
|
| 481 |
" AND pv.PKG_ID = p.pkg_id" &_
|
508 |
" AND pv.PKG_ID = p.pkg_id" &_
|
| 482 |
" ORDER BY build_order" , ORADYN_DEFAULT )
|
509 |
" ORDER BY build_order" , ORADYN_DEFAULT )
|
| 483 |
While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
|
510 |
While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
|
| - |
|
511 |
completionText = ""
|
| - |
|
512 |
buildDuration = rsQry("BUILD_TIME")
|
| - |
|
513 |
durationDisplay = buildDuration
|
| - |
|
514 |
|
| - |
|
515 |
' If the current package build it taking longer than expected , then bump the build times
|
| - |
|
516 |
' and allow another 30 seconds.
|
| - |
|
517 |
If BuildPvId = rsQry("PV_ID") Then
|
| - |
|
518 |
completionText = " <"
|
| - |
|
519 |
durationDisplay = durationDisplay & " ["& BuildDelta &"]"
|
| - |
|
520 |
If BuildDelta > buildDuration Then
|
| - |
|
521 |
buildDuration = BuildDelta + 30
|
| - |
|
522 |
completionText = " +"
|
| - |
|
523 |
End If
|
| - |
|
524 |
End If
|
| - |
|
525 |
|
| - |
|
526 |
' If the duration is not known - guess at 300 sconds
|
| - |
|
527 |
durationText = ""
|
| - |
|
528 |
If ISNULL(buildDuration) OR buildDuration = 0 Then
|
| - |
|
529 |
buildDuration = 300
|
| - |
|
530 |
durationText = " ~"
|
| - |
|
531 |
End If
|
| - |
|
532 |
|
| - |
|
533 |
BuildStart = DateAdd("s", buildDuration, BuildStart)
|
| 484 |
%>
|
534 |
%>
|
| 485 |
<tr>
|
535 |
<tr>
|
| 486 |
|
536 |
|
| 487 |
<td align="left" valign="top" class="body_txt">
|
537 |
<td align="left" valign="top" class="body_txt">
|
| 488 |
<%=Get_Package_Name(rsQry("PKG_NAME"), parRtagId, rsQry("PV_ID"))%>
|
538 |
<%=Get_Package_Name(rsQry("PKG_NAME"), parRtagId, rsQry("PV_ID"))%>
|
| 489 |
</td>
|
539 |
</td>
|
| 490 |
<td align="left" valign="top" class="body_txt">
|
540 |
<td align="left" valign="top" class="body_txt">
|
| 491 |
<%=rsQry("PKG_VERSION")%>
|
541 |
<%=rsQry("PKG_VERSION")%>
|
| 492 |
</td>
|
542 |
</td>
|
| 493 |
<td align="left" valign="top" class="body_txt">
|
543 |
<td align="left" valign="top" class="body_txt">
|
| 494 |
<%=rsQry("BUILD_TIME")%>
|
544 |
<%=durationDisplay%>
|
| - |
|
545 |
</td>
|
| - |
|
546 |
<td align="left" valign="top" class="body_txt">
|
| - |
|
547 |
<%=DisplayShortDateTimeSecs(BuildStart) & durationText & completionText%>
|
| 495 |
</td>
|
548 |
</td>
|
| 496 |
|
- |
|
| 497 |
</tr>
|
549 |
</tr>
|
| 498 |
<tr>
|
550 |
<tr>
|
| 499 |
<td colspan="6" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
|
551 |
<td colspan="6" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
|
| 500 |
</tr>
|
552 |
</tr>
|
| 501 |
<%
|
553 |
<%
|
| - |
|
554 |
' Allow for 20 seconds of planning between builds
|
| - |
|
555 |
BuildStart = DateAdd("s", 20, BuildStart)
|
| 502 |
rsQry.MoveNext()
|
556 |
rsQry.MoveNext()
|
| 503 |
Wend
|
557 |
Wend
|
| 504 |
rsQry.Close()
|
558 |
rsQry.Close()
|
| 505 |
Set rsQry = nothing
|
559 |
Set rsQry = nothing
|
| 506 |
%>
|
560 |
%>
|