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

               <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">Est Duration<%=Quick_Help("h_buildtime")%></td>
               <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
+           ' Get Build Information for this Release
+           query_string = _
-           query_string = " select rc.rcon_id, display_name, gbe_value, daemon_mode, NVL(ACTIVE, 'U') as ACTIVE" &_
+                "SELECT rc.rcon_id, display_name, gbe_value, daemon_mode, NVL(ACTIVE, 'U') AS ACTIVE," &_
+                "       rl.pause, rl.current_run_level, rl.current_pkg_id_being_built, TRUNC (86400*(SYSDATE - rl.KEEP_ALIVE)) AS delta," &_
+                "       pk.pkg_name, rl.current_pv_id, pv.build_time, TRUNC (86400*(SYSDATE - rl.LAST_BUILD)) AS build_delta" &_
+                " FROM release_config rc," &_
+                "   gbe_machtype gm," &_
-                          " from release_config rc, gbe_machtype gm, build_machine_config bm"&_
+                "   build_machine_config bm," &_
+                "   run_level rl," &_
+                "   packages pk," &_
+                "   package_versions pv" &_
-                          "  where rc.rtag_id = "& parRtagId &_
+                " WHERE rc.rtag_id     = " & parRtagId &_
-                          "    and gm.gbe_id = rc.gbe_id"&_
+                "  AND gm.gbe_id        = rc.gbe_id" &_
+                "  AND rl.rcon_id       = rc.rcon_id" &_
-                          "    and rc.bmcon_id=bm.bmcon_id(+)" &_
+                "  AND rc.bmcon_id      =bm.bmcon_id(+)" &_
+                "  AND pk.pkg_id(+)     = rl.current_pkg_id_being_built" &_
+                "  AND rl.current_pv_id = pv.pv_id(+)" &_
-                          "  order by bm.display_name, rc.rcon_id"
+                " ORDER BY bm.display_name, rc.rcon_id"
            Set rsQry = OraDatabase.DbCreateDynaset( query_string, ORADYN_DEFAULT )
            Do While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
-              rcon_id = rsQry("rcon_id")
               Dim pkgName
               Dim pkgPvid
               Dim pkgBuildTime
               Dim currentRunLevel
               Dim daemonState
               Dim delta
+              Dim PkgBuildDelta
               Dim pkgId
-              Dim bActive : bActive = rsQry("active")
-              If bActive = "N" Then bInactiveMachine = true
-              ' 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" &_
-                             "   from run_level rl"&_
-                             "  where rl.rcon_id = "& rcon_id
-              Dim rsQry2
+              Dim bActive
-              Set rsQry2 = OraDatabase.DbCreateDynaset( query_string, ORADYN_DEFAULT )
-              currentRunLevel = -1
-              pkgId = Null
-              pkgName = NULL
-              pkgPvid = NULL
+              Dim estDuration
-              pkgBuildTime = NULL
-              daemonState = 0
+              Dim daemonMode
-              delta = NULL
+              Dim lastChange
-              If (rsQry2.RecordCount > 0) Then
-                ' Get the run level from the run_level table
-                currentRunLevel = rsQry2("current_run_level")
-                pkgId = rsQry2("current_pkg_id_being_built")
-                daemonState = rsQry2("pause")
+              rcon_id = rsQry("rcon_id")
-                If IsNull(daemonState) Then daemonState = 0
+              ' = rsQry("display_name")
+              ' = rsQry("gbe_value")
-                If daemonState = "2" Then pkgId = Null
+              daemonMode = rsQry("daemon_mode")
-                delta = rsQry2("delta")
+              bActive = rsQry("ACTIVE")
-              End If
+              daemonState = rsQry("pause")
-              ' If we got an entry from the run_level table, try and use the pkg_id it contains, to obtain a
+              currentRunLevel = rsQry("current_run_level")
-              ' package name from the packages table
+              pkgId = rsQry("current_pkg_id_being_built")
-              Dim rsQry3
+              delta = rsQry("delta")
-              If NOT IsNull(pkgId) Then
+              pkgName = rsQry("pkg_name")
-                 query_string = " select pkg_name,rl.current_pv_id, pv.build_time from run_level rl, packages pk, package_versions pv"&_
+              pkgPvid = rsQry("current_pv_id")
-                                "  where rl.rcon_id = "& rcon_id &_
+              pkgBuildTime = rsQry("build_time")
-                                "   and  rl.current_pkg_id_being_built = pk.pkg_id" &_
+              PkgBuildDelta = rsQry("build_delta")
+              lastChange = NULL
-                                "   and  rl.current_pv_id = pv.pv_id"
+              bInactiveMachine = FALSE
+              estDuration = NULL
-                 Set rsQry3 = OraDatabase.DbCreateDynaset( query_string, ORADYN_DEFAULT )
+              If bActive = "N" Then bInactiveMachine = true
-                 If (rsQry3.RecordCount > 0) Then
+              If IsNull(daemonState) Then daemonState = 0
-                    pkgName = rsQry3("pkg_name")
+              If daemonState = "2" Then pkgId = Null
-                    pkgPvid = rsQry3("current_pv_id")
+              If IsNull(currentRunLevel) Then currentRunLevel = -1
-                    pkgBuildTime = rsQry3("build_time")
+              If daemonMode = "M" AND not IsNull(pkgName) Then estDuration = pkgBuildTime & "[" & PkgBuildDelta & "]"
-                 End If
-                 rsQry3.Close()
-                 Set rsQry3 = nothing
+              If bActive <> "U" Then lastChange = PrettyDelta(delta, daemonState,pkgName )
-              End If
               ' --- Now render HTML for this release configuration ---
               %>
               <tr>
                  <td colspan="8" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
               </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_Daemon_Mode(daemonMode)%></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"><%=IIF(rsQry("daemon_mode") = "M", pkgBuildTime, "")%></td>
+                 <td nowrap class="body_rowg"><%=estDuration%></td>
-                 <td nowrap class="body_rowg"><%=PrettyDelta(delta, daemonState,pkgName )%></td>
+                 <td nowrap class="body_rowg"><%=lastChange%></td>
                  <td nowrap class="body_rowg">
                     <%
-                    If (rsQry2.RecordCount > 0) AND NOT indefinitelyPaused  Then
+                    If NOT indefinitelyPaused  Then
                        If canActionControlInProject("BuildControl") Then
                           If bActive = "U" Then
                           ElseIf bActive = "N" Then
                              Call Action_Buttons ( "Daemon Unavailable" )
                           ElseIf daemonState = 0 Then
                     End If
                     %>
                  </td>
               </tr>
               <%
-              rsQry2.Close()
-              Set rsQry2 = nothing
               rsQry.MoveNext
            Loop
            %>
            <tr>
              <td nowrap background="images/bg_table_col.gif" class="body_col" colspan=7>
      <%=objPMod.ComposeHiddenTags()%>
   </tr>
 </table>
 </td>
 </table>
 <%
 End Sub
 '-------------------------------------------------
+'
 Sub ShowDaemonInstructions

Subversion Repositories DevTools

(root)/ManagerSuite/Release_Manager/trunk/web/build_status.asp – Rev 6559 → 6566