WebSVN – DevTools – Diff – /ManagerSuite/Release_Manager/trunk/web/build_plan.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 118...	Line 118...
118	`<!--#include file="messages/_msg_inline.asp"-->`	118	`<!--#include file="messages/_msg_inline.asp"-->`
119	`<!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->`	119	`<!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->`
120	`<br>`	120	`<br>`
121	`<table width="100%" border="0" cellspacing="2" cellpadding="0">`	121	`<table width="100%" border="0" cellspacing="2" cellpadding="0">`
122	`<%`	122	`<%`
123	`Dim indefinitelyPaused`	123	`Dim bInactiveMachine : bInactiveMachine = false`
124	`indefinitelyPaused = Indefinitely_Paused()`	124	`Dim indefinitelyPaused : indefinitelyPaused = Indefinitely_Paused()`
125	`' Insert a warning into the page if the build daemons are indefintely paused.`	125	`' Insert a warning into the page if the build daemons are indefintely paused.`
126	`If indefinitelyPaused Then %>`	126	`If indefinitelyPaused Then %>`
127	`<tr>`	127	`<tr>`
128	`<span class='err_alert'>`	128	`<span class='err_alert'>`
129	`<font size='2'><b>WARNING: Build Daemons are all stopped - please contact an administrator</b></font>`	129	`<font size='2'><b>WARNING: Build Daemons are all stopped - please contact an administrator</b></font>`
Line 141...	Line 141...
141	`<td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">Last Change<%=Quick_Help("h_lastchange")%></td>`	141	`<td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">Last Change<%=Quick_Help("h_lastchange")%></td>`
142	`<td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">Control State</td>`	142	`<td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">Control State</td>`
143	`</tr>`	143	`</tr>`
144	`<%`	144	`<%`
145	`' Get the number of release configurations for this RTAG_ID, and iterate through them`	145	`' Get the number of release configurations for this RTAG_ID, and iterate through them`
-		146	`query_string = " select rc.rcon_id, display_name, gbe_value, daemon_mode, NVL(ACTIVE, 'U') as ACTIVE" &_`
146	`query_string = " select * from release_config rc, gbe_machtype gm, build_machine_config bm"&_`	147	`" from release_config rc, gbe_machtype gm, build_machine_config bm"&_`
147	`" where rc.rtag_id = "& parRtagId &_`	148	`" where rc.rtag_id = "& parRtagId &_`
148	`" and gm.gbe_id = rc.gbe_id"&_`	149	`" and gm.gbe_id = rc.gbe_id"&_`
149	`" and rc.bmcon_id=bm.bmcon_id(+)" &_`	150	`" and rc.bmcon_id=bm.bmcon_id(+)" &_`
150	`" order by bm.display_name, rc.rcon_id"`	151	`" order by bm.display_name, rc.rcon_id"`
151		152
Line 158...	Line 159...
158	`Dim pkgPvid`	159	`Dim pkgPvid`
159	`Dim currentRunLevel`	160	`Dim currentRunLevel`
160	`Dim daemonState`	161	`Dim daemonState`
161	`Dim delta`	162	`Dim delta`
162	`Dim pkgId`	163	`Dim pkgId`
-		164	`Dim bActive : bActive = rsQry("active")`
163		165
164	`' For this release configuration, get its entry from the run_level table. This table may not`	166	`' For this release configuration, get its entry from the run_level table. This table may not`
165	`' have an entry so we must handle that outcome too.`	167	`' have an entry so we must handle that outcome too.`
166	`query_string = " select rl.pause, rl.current_run_level, rl.current_pkg_id_being_built, "&_`	168	`query_string = " select rl.pause, rl.current_run_level, rl.current_pkg_id_being_built, "&_`
167	`" TRUNC (86400*(SYSDATE - rl.KEEP_ALIVE)) as delta" &_`	169	`" TRUNC (86400*(SYSDATE - rl.KEEP_ALIVE)) as delta" &_`
Line 185...	Line 187...
185	`daemonState = rsQry2("pause")`	187	`daemonState = rsQry2("pause")`
186	`If IsNull(daemonState) Then daemonState = 0`	188	`If IsNull(daemonState) Then daemonState = 0`
187	`If daemonState = "2" Then pkgId = Null`	189	`If daemonState = "2" Then pkgId = Null`
188		190
189	`delta = rsQry2("delta")`	191	`delta = rsQry2("delta")`
-		192
190	`End If`	193	`End If`
191		194
192	`' If we got an entry from the run_level table, try and use the pkg_id it contains, to obtain a`	195	`' If we got an entry from the run_level table, try and use the pkg_id it contains, to obtain a`
193	`' package name from the packages table`	196	`' package name from the packages table`
194	`Dim rsQry3`	197	`Dim rsQry3`
Line 213...	Line 216...
213	`</tr>`	216	`</tr>`
214	`<tr>`	217	`<tr>`
215	`<td nowrap class="body_rowg"><%=rsQry("display_name")%></td>`	218	`<td nowrap class="body_rowg"><%=rsQry("display_name")%></td>`
216	`<td nowrap class="body_rowg"><%=rsQry("gbe_value")%></td>`	219	`<td nowrap class="body_rowg"><%=rsQry("gbe_value")%></td>`
217	`<td nowrap class="body_rowg"><%=Get_Daemon_Mode(rsQry("daemon_mode"))%></td>`	220	`<td nowrap class="body_rowg"><%=Get_Daemon_Mode(rsQry("daemon_mode"))%></td>`
218	`<td nowrap class="body_rowg"><%=Get_Run_Level(currentRunLevel, indefinitelyPaused,daemonState)%></td>`	221	`<td nowrap class="body_rowg"><%=Get_Run_Level(currentRunLevel, indefinitelyPaused, daemonState, bActive)%></td>`
219	`<td nowrap class="body_rowg"><%=Get_Package_Name(pkgName,parRtagId,pkgPvid)%></td>`	222	`<td nowrap class="body_rowg"><%=Get_Package_Name(pkgName,parRtagId,pkgPvid, bActive)%></td>`
220	`<td nowrap class="body_rowg"><%=PrettyDelta(delta, daemonState,pkgName )%></td>`	223	`<td nowrap class="body_rowg"><%=PrettyDelta(delta, daemonState,pkgName )%></td>`
221	`<td nowrap class="body_rowg">`	224	`<td nowrap class="body_rowg">`
222	`<%`	225	`<%`
223	`If (rsQry2.RecordCount > 0) AND NOT indefinitelyPaused Then`	226	`If (rsQry2.RecordCount > 0) AND NOT indefinitelyPaused Then`
224	`If canActionControlInProject("BuildControl") Then`	227	`If canActionControlInProject("BuildControl") Then`
-		228	`If bActive = "U" Then`
-		229	`ElseIf bActive = "N" Then`
-		230	`Call Action_Buttons ( "Daemon Unavailable" )`
225	`If daemonState = 0 Then`	231	`ElseIf daemonState = 0 Then`
226	`Call Action_Buttons ( "Daemon Pause" )`	232	`Call Action_Buttons ( "Daemon Pause" )`
227	`ElseIf daemonState = 1 Then`	233	`ElseIf daemonState = 1 Then`
228	`Call Action_Buttons ( "Daemon Resume" )`	234	`Call Action_Buttons ( "Daemon Resume" )`
229	`ElseIf daemonState = 2 Then`	235	`ElseIf daemonState = 2 Then`
230	`Call Action_Buttons ( "Daemon Start" )`	236	`Call Action_Buttons ( "Daemon Start" )`
231	`Else`	237	`Else`
232	`Call Action_Buttons ( "Daemon Resume" )`	238	`Call Action_Buttons ( "Daemon Resume" )`
233	`End If`	239	`End If`
234	`Else`	240	`Else`
-		241	`If bActive = "U" Then`
-		242	`ElseIf bActive = "N" Then`
-		243	`Call Action_Buttons ( "Daemon Unavailable" )`
235	`If daemonState = 0 Then`	244	`ElseIf daemonState = 0 Then`
236	`Call Action_Buttons ( "Daemon Pause Disabled" )`	245	`Call Action_Buttons ( "Daemon Pause Disabled" )`
237	`ElseIf daemonState = 1 Then`	246	`ElseIf daemonState = 1 Then`
238	`Call Action_Buttons ( "Daemon Resume Disabled" )`	247	`Call Action_Buttons ( "Daemon Resume Disabled" )`
239	`ElseIf daemonState = 2 Then`	248	`ElseIf daemonState = 2 Then`
240	`Call Action_Buttons ( "Daemon Start Disabled" )`	249	`Call Action_Buttons ( "Daemon Start Disabled" )`
Line 254...	Line 263...
254	`rsQry.MoveNext`	263	`rsQry.MoveNext`
255	`Loop`	264	`Loop`
256	`%>`	265	`%>`
257	`<tr>`	266	`<tr>`
258	`<td nowrap background="images/bg_table_col.gif" class="body_col" colspan=6>`	267	`<td nowrap background="images/bg_table_col.gif" class="body_col" colspan=6>`
259	`<%If CheckConfigErrors(parRtagId) Then%><span class="err_alert"> Daemon configuration errors detected</span>`	268	`<%If CheckConfigErrors(parRtagId) OR bInactiveMachine Then%><span class="err_alert"> Daemon configuration errors detected</span>`
260	`<a class="txt_linked" href="release_config.asp?rtag_id=<%=parRtagId%>">`	269	`<a class="txt_linked" href="release_config.asp?rtag_id=<%=parRtagId%>">`
261	`<img src="images/i_link.gif" hspace="2" border="0" align="absmiddle" title="Goto Configuration">`	270	`<img src="images/i_link.gif" hspace="2" border="0" align="absmiddle" title="Goto Configuration">`
262	`</a>`	271	`</a>`
263	`<%End If%>`	272	`<%End If%>`
264	`</td>`	273	`</td>`

Subversion Repositories DevTools

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