| Line 144... |
Line 144... |
| 144 |
Get_Run_Level = "<span class='err_alert'>Stopped</span>"
|
144 |
Get_Run_Level = "<span class='err_alert'>Stopped</span>"
|
| 145 |
ElseIf astate = 1 Then ' if build daemon paused
|
145 |
ElseIf astate = 1 Then ' if build daemon paused
|
| 146 |
Get_Run_Level = "Paused"
|
146 |
Get_Run_Level = "Paused"
|
| 147 |
ElseIf astate = 2 Then ' if build daemon disabled
|
147 |
ElseIf astate = 2 Then ' if build daemon disabled
|
| 148 |
Get_Run_Level = "Disabled"
|
148 |
Get_Run_Level = "Disabled"
|
| 149 |
ElseIf IsNull(astate) Then ' if build daemon enabled
|
149 |
ElseIf astate = 0 Then ' if build daemon enabled
|
| 150 |
If nLevel = 1 Then
|
150 |
If nLevel = 1 Then
|
| 151 |
Get_Run_Level = "Cannot Continue"
|
151 |
Get_Run_Level = "Cannot Continue"
|
| 152 |
ElseIf nLevel = 2 Then
|
152 |
ElseIf nLevel = 2 Then
|
| 153 |
Get_Run_Level = "Paused"
|
153 |
Get_Run_Level = "Paused"
|
| 154 |
ElseIf nLevel = 3 Then
|
154 |
ElseIf nLevel = 3 Then
|
| Line 543... |
Line 543... |
| 543 |
Dim pkgName
|
543 |
Dim pkgName
|
| 544 |
Dim pkgPvid
|
544 |
Dim pkgPvid
|
| 545 |
Dim currentRunLevel
|
545 |
Dim currentRunLevel
|
| 546 |
Dim daemonState
|
546 |
Dim daemonState
|
| 547 |
Dim delta
|
547 |
Dim delta
|
| - |
|
548 |
Dim pkgId
|
| 548 |
|
549 |
|
| 549 |
' For this release configuration, get its entry from the run_level table. This table may not
|
550 |
' For this release configuration, get its entry from the run_level table. This table may not
|
| 550 |
' have an entry so we must handle that outcome too.
|
551 |
' have an entry so we must handle that outcome too.
|
| 551 |
query_string = " select rl.pause, rl.current_run_level, rl.current_pkg_id_being_built, "&_
|
552 |
query_string = " select rl.pause, rl.current_run_level, rl.current_pkg_id_being_built, "&_
|
| 552 |
" TRUNC (86400*(SYSDATE - rl.KEEP_ALIVE)) as delta" &_
|
553 |
" TRUNC (86400*(SYSDATE - rl.KEEP_ALIVE)) as delta" &_
|
| Line 554... |
Line 555... |
| 554 |
" where rl.rcon_id = "& rcon_id
|
555 |
" where rl.rcon_id = "& rcon_id
|
| 555 |
|
556 |
|
| 556 |
Set rsQry2 = OraDatabase.DbCreateDynaset( query_string, ORADYN_DEFAULT )
|
557 |
Set rsQry2 = OraDatabase.DbCreateDynaset( query_string, ORADYN_DEFAULT )
|
| 557 |
|
558 |
|
| 558 |
currentRunLevel = -1
|
559 |
currentRunLevel = -1
|
| - |
|
560 |
pkgId = Null
|
| - |
|
561 |
pkgName = NULL
|
| - |
|
562 |
pkgPvid = NULL
|
| - |
|
563 |
daemonState = 0
|
| - |
|
564 |
delta = NULL
|
| - |
|
565 |
|
| 559 |
If (rsQry2.RecordCount > 0) Then
|
566 |
If (rsQry2.RecordCount > 0) Then
|
| 560 |
' Get the run level from the run_level table
|
567 |
' Get the run level from the run_level table
|
| 561 |
currentRunLevel = rsQry2("current_run_level")
|
568 |
currentRunLevel = rsQry2("current_run_level")
|
| 562 |
End If
|
569 |
pkgId = rsQry2("current_pkg_id_being_built")
|
| 563 |
|
570 |
|
| 564 |
daemonState = NULL
|
- |
|
| 565 |
If (rsQry2.RecordCount > 0) Then
|
- |
|
| 566 |
daemonState = rsQry2("pause")
|
571 |
daemonState = rsQry2("pause")
|
| - |
|
572 |
If IsNull(daemonState) Then daemonState = 0
|
| 567 |
End If
|
573 |
If daemonState = "2" Then pkgId = Null
|
| 568 |
|
574 |
|
| 569 |
delta = NULL
|
- |
|
| 570 |
If (rsQry2.RecordCount > 0) Then
|
- |
|
| 571 |
delta = rsQry2("delta")
|
575 |
delta = rsQry2("delta")
|
| 572 |
End If
|
576 |
End If
|
| 573 |
|
577 |
|
| 574 |
' If we got an entry from the run_level table, try and use the pkg_id it contains, to obtain a
|
578 |
' If we got an entry from the run_level table, try and use the pkg_id it contains, to obtain a
|
| 575 |
' package name from the packages table
|
579 |
' package name from the packages table
|
| 576 |
Dim rsQry3
|
580 |
Dim rsQry3
|
| 577 |
pkgName = NULL
|
- |
|
| 578 |
pkgPvid = NULL
|
581 |
If NOT IsNull(pkgId) Then
|
| 579 |
If (rsQry2.RecordCount > 0) AND NOT IsNull(rsQry2("current_pkg_id_being_built")) Then
|
- |
|
| 580 |
|
- |
|
| 581 |
query_string = " select pkg_name,rl.current_pv_id from run_level rl, packages pk"&_
|
582 |
query_string = " select pkg_name,rl.current_pv_id from run_level rl, packages pk"&_
|
| 582 |
" where rl.rcon_id = "& rcon_id &_
|
583 |
" where rl.rcon_id = "& rcon_id &_
|
| 583 |
" and rl.current_pkg_id_being_built = pk.pkg_id"
|
584 |
" and rl.current_pkg_id_being_built = pk.pkg_id"
|
| 584 |
|
585 |
|
| 585 |
Set rsQry3 = OraDatabase.DbCreateDynaset( query_string, ORADYN_DEFAULT )
|
586 |
Set rsQry3 = OraDatabase.DbCreateDynaset( query_string, ORADYN_DEFAULT )
|
| Line 675... |
Line 676... |
| 675 |
<td background="images/lbox_bg_blue.gif"></td>
|
676 |
<td background="images/lbox_bg_blue.gif"></td>
|
| 676 |
<td background="images/lbox_bg_blue.gif" valign="bottom" align="right"><img src="images/lbox_br_cnr_b.gif" width="13" height="13"></td>
|
677 |
<td background="images/lbox_bg_blue.gif" valign="bottom" align="right"><img src="images/lbox_br_cnr_b.gif" width="13" height="13"></td>
|
| 677 |
</tr>
|
678 |
</tr>
|
| 678 |
</table>
|
679 |
</table>
|
| 679 |
|
680 |
|
| - |
|
681 |
<!-- Daemon Instructions Display -->
|
| 680 |
<table width="10" border="0" cellspacing="0" cellpadding="0">
|
682 |
<table width="10" border="0" cellspacing="0" cellpadding="0">
|
| 681 |
<tr>
|
683 |
<tr>
|
| 682 |
<td width="1%"></td>
|
684 |
<td width="1%"></td>
|
| 683 |
<td width="100%">
|
685 |
<td width="100%">
|
| 684 |
<table width="100%" border="0" cellspacing="0" cellpadding="0">
|
686 |
<table width="100%" border="0" cellspacing="0" cellpadding="0">
|
| Line 708... |
Line 710... |
| 708 |
<td align="left" nowrap background="images/bg_table_col.gif" class="body_col">SCHEDULED TIME<br>(<SPAN style=color:Red>Red</SPAN> = overdue)<br>(<SPAN style=color:Green>Green</SPAN> = ready)</td>
|
710 |
<td align="left" nowrap background="images/bg_table_col.gif" class="body_col">SCHEDULED TIME<br>(<SPAN style=color:Red>Red</SPAN> = overdue)<br>(<SPAN style=color:Green>Green</SPAN> = ready)</td>
|
| 709 |
<td align="left" nowrap background="images/bg_table_col.gif" class="body_col">REPEAT</td>
|
711 |
<td align="left" nowrap background="images/bg_table_col.gif" class="body_col">REPEAT</td>
|
| 710 |
<td align="left" nowrap background="images/bg_table_col.gif" class="body_col">IN PROGRESS</td>
|
712 |
<td align="left" nowrap background="images/bg_table_col.gif" class="body_col">IN PROGRESS</td>
|
| 711 |
</tr>
|
713 |
</tr>
|
| 712 |
<%
|
714 |
<%
|
| 713 |
Dim PkgId
|
- |
|
| 714 |
Dim PkgVersion
|
715 |
Dim PkgVersion
|
| 715 |
Dim UserName
|
716 |
Dim UserName
|
| 716 |
Dim UserEmail
|
717 |
Dim UserEmail
|
| 717 |
Dim bInProgress
|
718 |
Dim bInProgress
|
| 718 |
Dim bIsOverdue
|
719 |
Dim bIsOverdue
|