WebSVN – DevTools – Diff – /ManagerSuite/Release_Manager/trunk/web/build_status.asp



                        <!--#include file="messages/_msg_inline.asp"-->
                        <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
                        <br>
                        <table width="100%" border="0" cellspacing="2" cellpadding="0">
                           <%
                           Dim bInactiveMachine : bInactiveMachine = false
                           Dim indefinitelyPaused : indefinitelyPaused = Indefinitely_Paused()
                           ' Insert a warning into the page if the build daemons are indefintely paused.
                           If indefinitelyPaused Then %>
                              <tr>
                                 <span class='err_alert'>
                                    <font size='2'><b>WARNING: Build Daemons are all stopped - please contact an administrator</b></font>

                              <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">Last Change<%=Quick_Help("h_lastchange")%></td>
                              <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">Control State</td>
                           </tr>
                           <%
                           ' Get the number of release configurations for this RTAG_ID, and iterate through them
                           query_string = " select rc.rcon_id, display_name, gbe_value, daemon_mode, NVL(ACTIVE, 'U') as ACTIVE" &_
                                          " from release_config rc, gbe_machtype gm, build_machine_config bm"&_
                                          "  where rc.rtag_id = "& parRtagId &_
                                          "    and gm.gbe_id = rc.gbe_id"&_
                                          "    and rc.bmcon_id=bm.bmcon_id(+)" &_
                                          "  order by bm.display_name, rc.rcon_id"
 

                              Dim pkgPvid
                              Dim currentRunLevel
                              Dim daemonState
                              Dim delta
                              Dim pkgId
                              Dim bActive : bActive = rsQry("active")
 
                              ' For this release configuration, get its entry from the run_level table. This table may not
                              ' have an entry so we must handle that outcome too.
                              query_string = " select rl.pause, rl.current_run_level, rl.current_pkg_id_being_built, "&_
                                             "        TRUNC (86400*(SYSDATE - rl.KEEP_ALIVE)) as delta" &_

                                daemonState = rsQry2("pause")
                                If IsNull(daemonState) Then daemonState = 0
                                If daemonState = "2" Then pkgId = Null
 
                                delta = rsQry2("delta")
 
                              End If
 
                              ' If we got an entry from the run_level table, try and use the pkg_id it contains, to obtain a
                              ' package name from the packages table
                              Dim rsQry3

                              </tr>
                              <tr>
                                 <td nowrap class="body_rowg"><%=rsQry("display_name")%></td>
                                 <td nowrap class="body_rowg"><%=rsQry("gbe_value")%></td>
                                 <td nowrap class="body_rowg"><%=Get_Daemon_Mode(rsQry("daemon_mode"))%></td>
                                 <td nowrap class="body_rowg"><%=Get_Run_Level(currentRunLevel, indefinitelyPaused, daemonState, bActive)%></td>
                                 <td nowrap class="body_rowg"><%=Get_Package_Name(pkgName,parRtagId,pkgPvid, bActive)%></td>
                                 <td nowrap class="body_rowg"><%=PrettyDelta(delta, daemonState,pkgName )%></td>
                                 <td nowrap class="body_rowg">
                                    <%
                                    If (rsQry2.RecordCount > 0) AND NOT indefinitelyPaused  Then
                                       If canActionControlInProject("BuildControl") Then
                                          If bActive = "U" Then
                                          ElseIf bActive = "N" Then
                                             Call Action_Buttons ( "Daemon Unavailable" )
                                          ElseIf daemonState = 0 Then
                                             Call Action_Buttons ( "Daemon Pause" )
                                          ElseIf daemonState = 1 Then
                                             Call Action_Buttons ( "Daemon Resume" )
                                          ElseIf daemonState = 2 Then
                                             Call Action_Buttons ( "Daemon Start" )
                                          Else
                                             Call Action_Buttons ( "Daemon Resume" )
                                          End If
                                       Else
                                          If bActive = "U" Then
                                          ElseIf bActive = "N" Then
                                             Call Action_Buttons ( "Daemon Unavailable" )
                                          ElseIf daemonState = 0 Then
                                             Call Action_Buttons ( "Daemon Pause Disabled" )
                                          ElseIf daemonState = 1 Then
                                             Call Action_Buttons ( "Daemon Resume Disabled" )
                                          ElseIf daemonState = 2 Then
                                             Call Action_Buttons ( "Daemon Start Disabled" )

                              rsQry.MoveNext
                           Loop
                           %>
                           <tr>
                             <td nowrap background="images/bg_table_col.gif" class="body_col" colspan=6>
                             <%If CheckConfigErrors(parRtagId) OR bInactiveMachine Then%><span class="err_alert">&nbsp;Daemon configuration errors detected</span>
                                <a class="txt_linked" href="release_config.asp?rtag_id=<%=parRtagId%>">
                                    <img src="images/i_link.gif" hspace="2" border="0" align="absmiddle" title="Goto Configuration">
                                </a>
                             <%End If%>
                             </td>

Rev 6181	Rev 6267
Line 431...	Line 431...
431	`<!--#include file="messages/_msg_inline.asp"-->`	431	`<!--#include file="messages/_msg_inline.asp"-->`
432	`<!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->`	432	`<!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->`
433	`<br>`	433	`<br>`
434	`<table width="100%" border="0" cellspacing="2" cellpadding="0">`	434	`<table width="100%" border="0" cellspacing="2" cellpadding="0">`
435	`<%`	435	`<%`
436	`Dim indefinitelyPaused`	436	`Dim bInactiveMachine : bInactiveMachine = false`
437	`indefinitelyPaused = Indefinitely_Paused()`	437	`Dim indefinitelyPaused : indefinitelyPaused = Indefinitely_Paused()`
438	`' Insert a warning into the page if the build daemons are indefintely paused.`	438	`' Insert a warning into the page if the build daemons are indefintely paused.`
439	`If indefinitelyPaused Then %>`	439	`If indefinitelyPaused Then %>`
440	`<tr>`	440	`<tr>`
441	`<span class='err_alert'>`	441	`<span class='err_alert'>`
442	`<font size='2'><b>WARNING: Build Daemons are all stopped - please contact an administrator</b></font>`	442	`<font size='2'><b>WARNING: Build Daemons are all stopped - please contact an administrator</b></font>`
Line 454...	Line 454...
454	`<td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">Last Change<%=Quick_Help("h_lastchange")%></td>`	454	`<td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">Last Change<%=Quick_Help("h_lastchange")%></td>`
455	`<td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">Control State</td>`	455	`<td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">Control State</td>`
456	`</tr>`	456	`</tr>`
457	`<%`	457	`<%`
458	`' Get the number of release configurations for this RTAG_ID, and iterate through them`	458	`' Get the number of release configurations for this RTAG_ID, and iterate through them`
-		459	`query_string = " select rc.rcon_id, display_name, gbe_value, daemon_mode, NVL(ACTIVE, 'U') as ACTIVE" &_`
459	`query_string = " select * from release_config rc, gbe_machtype gm, build_machine_config bm"&_`	460	`" from release_config rc, gbe_machtype gm, build_machine_config bm"&_`
460	`" where rc.rtag_id = "& parRtagId &_`	461	`" where rc.rtag_id = "& parRtagId &_`
461	`" and gm.gbe_id = rc.gbe_id"&_`	462	`" and gm.gbe_id = rc.gbe_id"&_`
462	`" and rc.bmcon_id=bm.bmcon_id(+)" &_`	463	`" and rc.bmcon_id=bm.bmcon_id(+)" &_`
463	`" order by bm.display_name, rc.rcon_id"`	464	`" order by bm.display_name, rc.rcon_id"`
464		465
Line 471...	Line 472...
471	`Dim pkgPvid`	472	`Dim pkgPvid`
472	`Dim currentRunLevel`	473	`Dim currentRunLevel`
473	`Dim daemonState`	474	`Dim daemonState`
474	`Dim delta`	475	`Dim delta`
475	`Dim pkgId`	476	`Dim pkgId`
-		477	`Dim bActive : bActive = rsQry("active")`
476		478
477	`' For this release configuration, get its entry from the run_level table. This table may not`	479	`' For this release configuration, get its entry from the run_level table. This table may not`
478	`' have an entry so we must handle that outcome too.`	480	`' have an entry so we must handle that outcome too.`
479	`query_string = " select rl.pause, rl.current_run_level, rl.current_pkg_id_being_built, "&_`	481	`query_string = " select rl.pause, rl.current_run_level, rl.current_pkg_id_being_built, "&_`
480	`" TRUNC (86400*(SYSDATE - rl.KEEP_ALIVE)) as delta" &_`	482	`" TRUNC (86400*(SYSDATE - rl.KEEP_ALIVE)) as delta" &_`
Line 498...	Line 500...
498	`daemonState = rsQry2("pause")`	500	`daemonState = rsQry2("pause")`
499	`If IsNull(daemonState) Then daemonState = 0`	501	`If IsNull(daemonState) Then daemonState = 0`
500	`If daemonState = "2" Then pkgId = Null`	502	`If daemonState = "2" Then pkgId = Null`
501		503
502	`delta = rsQry2("delta")`	504	`delta = rsQry2("delta")`
-		505
503	`End If`	506	`End If`
504		507
505	`' If we got an entry from the run_level table, try and use the pkg_id it contains, to obtain a`	508	`' If we got an entry from the run_level table, try and use the pkg_id it contains, to obtain a`
506	`' package name from the packages table`	509	`' package name from the packages table`
507	`Dim rsQry3`	510	`Dim rsQry3`
Line 526...	Line 529...
526	`</tr>`	529	`</tr>`
527	`<tr>`	530	`<tr>`
528	`<td nowrap class="body_rowg"><%=rsQry("display_name")%></td>`	531	`<td nowrap class="body_rowg"><%=rsQry("display_name")%></td>`
529	`<td nowrap class="body_rowg"><%=rsQry("gbe_value")%></td>`	532	`<td nowrap class="body_rowg"><%=rsQry("gbe_value")%></td>`
530	`<td nowrap class="body_rowg"><%=Get_Daemon_Mode(rsQry("daemon_mode"))%></td>`	533	`<td nowrap class="body_rowg"><%=Get_Daemon_Mode(rsQry("daemon_mode"))%></td>`
531	`<td nowrap class="body_rowg"><%=Get_Run_Level(currentRunLevel, indefinitelyPaused,daemonState)%></td>`	534	`<td nowrap class="body_rowg"><%=Get_Run_Level(currentRunLevel, indefinitelyPaused, daemonState, bActive)%></td>`
532	`<td nowrap class="body_rowg"><%=Get_Package_Name(pkgName,parRtagId,pkgPvid)%></td>`	535	`<td nowrap class="body_rowg"><%=Get_Package_Name(pkgName,parRtagId,pkgPvid, bActive)%></td>`
533	`<td nowrap class="body_rowg"><%=PrettyDelta(delta, daemonState,pkgName )%></td>`	536	`<td nowrap class="body_rowg"><%=PrettyDelta(delta, daemonState,pkgName )%></td>`
534	`<td nowrap class="body_rowg">`	537	`<td nowrap class="body_rowg">`
535	`<%`	538	`<%`
536	`If (rsQry2.RecordCount > 0) AND NOT indefinitelyPaused Then`	539	`If (rsQry2.RecordCount > 0) AND NOT indefinitelyPaused Then`
537	`If canActionControlInProject("BuildControl") Then`	540	`If canActionControlInProject("BuildControl") Then`
-		541	`If bActive = "U" Then`
-		542	`ElseIf bActive = "N" Then`
-		543	`Call Action_Buttons ( "Daemon Unavailable" )`
538	`If daemonState = 0 Then`	544	`ElseIf daemonState = 0 Then`
539	`Call Action_Buttons ( "Daemon Pause" )`	545	`Call Action_Buttons ( "Daemon Pause" )`
540	`ElseIf daemonState = 1 Then`	546	`ElseIf daemonState = 1 Then`
541	`Call Action_Buttons ( "Daemon Resume" )`	547	`Call Action_Buttons ( "Daemon Resume" )`
542	`ElseIf daemonState = 2 Then`	548	`ElseIf daemonState = 2 Then`
543	`Call Action_Buttons ( "Daemon Start" )`	549	`Call Action_Buttons ( "Daemon Start" )`
544	`Else`	550	`Else`
545	`Call Action_Buttons ( "Daemon Resume" )`	551	`Call Action_Buttons ( "Daemon Resume" )`
546	`End If`	552	`End If`
547	`Else`	553	`Else`
-		554	`If bActive = "U" Then`
-		555	`ElseIf bActive = "N" Then`
-		556	`Call Action_Buttons ( "Daemon Unavailable" )`
548	`If daemonState = 0 Then`	557	`ElseIf daemonState = 0 Then`
549	`Call Action_Buttons ( "Daemon Pause Disabled" )`	558	`Call Action_Buttons ( "Daemon Pause Disabled" )`
550	`ElseIf daemonState = 1 Then`	559	`ElseIf daemonState = 1 Then`
551	`Call Action_Buttons ( "Daemon Resume Disabled" )`	560	`Call Action_Buttons ( "Daemon Resume Disabled" )`
552	`ElseIf daemonState = 2 Then`	561	`ElseIf daemonState = 2 Then`
553	`Call Action_Buttons ( "Daemon Start Disabled" )`	562	`Call Action_Buttons ( "Daemon Start Disabled" )`
Line 567...	Line 576...
567	`rsQry.MoveNext`	576	`rsQry.MoveNext`
568	`Loop`	577	`Loop`
569	`%>`	578	`%>`
570	`<tr>`	579	`<tr>`
571	`<td nowrap background="images/bg_table_col.gif" class="body_col" colspan=6>`	580	`<td nowrap background="images/bg_table_col.gif" class="body_col" colspan=6>`
572	`<%If CheckConfigErrors(parRtagId) Then%><span class="err_alert"> Daemon configuration errors detected</span>`	581	`<%If CheckConfigErrors(parRtagId) OR bInactiveMachine Then%><span class="err_alert"> Daemon configuration errors detected</span>`
573	`<a class="txt_linked" href="release_config.asp?rtag_id=<%=parRtagId%>">`	582	`<a class="txt_linked" href="release_config.asp?rtag_id=<%=parRtagId%>">`
574	`<img src="images/i_link.gif" hspace="2" border="0" align="absmiddle" title="Goto Configuration">`	583	`<img src="images/i_link.gif" hspace="2" border="0" align="absmiddle" title="Goto Configuration">`
575	`</a>`	584	`</a>`
576	`<%End If%>`	585	`<%End If%>`
577	`</td>`	586	`</td>`

Subversion Repositories DevTools

(root)/ManagerSuite/Release_Manager/trunk/web/build_status.asp – Rev 6181 → 6267