Subversion Repositories DevTools

<% @LANGUAGE = VBScript %>

<%

'=====================================================

'

'  Build Status and Plan Information

'

'=====================================================

%>

<%

Option explicit

' Good idea to set when using redirect

Response.Expires = 0  ' always load the page, dont store

%>

<!--#include file="common/conf.asp"-->

<!--#include file="common/globals.asp"-->

<!--#include file="common/formating.asp"-->

<!--#include file="common/qstr.asp"-->

<!--#include file="common/common_subs.asp"-->

<!--#include file="common/_form_window_common.asp"-->

<!--#include file="_action_buttons.asp"-->

<!--#include file="common/daemon_instructions.asp"-->

<!--#include file="common/common_daemon.asp"-->

<% '------------ ACCESS CONTROL ------------------ %>

<!--#include file="_access_control_login_optional.asp"-->

<!--#include file="_access_control_general.asp"-->

<!--#include file="_access_control_action_project.asp"-->

<% '------------ Scripts -------------------------- %>

<%

'------------ Variable Definition -------------

Dim rsQry

Dim parRtagId

Dim query_string

Dim rcon_id

Dim canControl

'------------ Constants Declaration -----------

'------------ Variable Init -------------------

parRtagId = Request("rtag_id")

objPMod.PersistInQryString("rtag_id")

canControl = canActionControlInProject("BuildControl")

'-------------------------------------------------

' 

Sub ShowDaemonStatus

%>

<div>

    <div class="panel">

        <div class=rounded_box_caption>

                <table align="center" class="full_table">

                   <tr>

                      <td nowrap class="form_ttl">DAEMON STATUS INFORMATION

                      </td>

                      <td  valign="bottom" class="body_rowg">

                        Last Build: <%=GetLastBuildAge(parRtagId)%> [<%=GetModifiedSeqNo(parRtagId)%>]

                      </td>

                      <td align="right" valign="bottom">

                        <a class="txt_linked" href="<%=scriptName%>?rtag_id=<%=parRtagId%>" title="Refresh Page">[Refresh]</a>

                      </td>

                   </tr>

                </table>

        </div>

        <div class='rounded_box'>

            <div  class=listPanel>

                <!-- MESSAGE +++++++++++++++++++++++++++++++++++++++++++++++++++ -->

                <!--#include file="messages/_msg_inline.asp"-->

                <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->

                <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>

                         </span>

                      </tr>

                   <%End If

                   %>

                   <td width="9%" valign="top"></td>

                   <thead>

                      <th>Daemon Host</th>

                      <th>Machine Type</th>

                      <th>Mode</th>

                      <th>Run Level</th>

                      <th>Current Package</th>

                      <th>Est Duration<%=Quick_Help("h_buildtime")%></th>

                      <th>Last Change<%=Quick_Help("h_lastchange")%></th>

                      <th>Control State</th>

                   </thead>

                   <%

                   ' Get Build Information for this Release

                   query_string = _

                        "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," &_

                        "   build_machine_config bm," &_

                        "   run_level rl," &_

                        "   packages pk," &_

                        "   package_versions pv" &_

                        " WHERE rc.rtag_id     = " & parRtagId &_

                        "  AND gm.gbe_id        = rc.gbe_id" &_

                        "  AND rl.rcon_id(+)    = rc.rcon_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"

                   Set rsQry = OraDatabase.DbCreateDynaset( query_string, ORADYN_DEFAULT )

                   Do While (NOT rsQry.BOF) AND (NOT rsQry.EOF)

                      Dim pkgName

                      Dim pkgPvid

                      Dim pkgBuildTime

                      Dim currentRunLevel

                      Dim daemonState

                      Dim delta

                      Dim PkgBuildDelta

                      Dim pkgId

                      Dim bActive

                      Dim estDuration

                      Dim daemonMode 

                      Dim lastChange

                      rcon_id = rsQry("rcon_id")

                      ' = rsQry("display_name")

                      ' = rsQry("gbe_value")

                      daemonMode = rsQry("daemon_mode")

                      bActive = rsQry("ACTIVE")

                      daemonState = rsQry("pause")

                      currentRunLevel = rsQry("current_run_level")

                      pkgId = rsQry("current_pkg_id_being_built")

                      delta = rsQry("delta")

                      pkgName = rsQry("pkg_name")

                      pkgPvid = rsQry("current_pv_id")

                      pkgBuildTime = rsQry("build_time")

                      PkgBuildDelta = rsQry("build_delta")

                      lastChange = NULL

                      bInactiveMachine = FALSE

                      estDuration = NULL

                      If bActive = "N" Then bInactiveMachine = true

                      If IsNull(daemonState) Then daemonState = 0

                      If daemonState = "2" Then pkgId = Null

                      If IsNull(currentRunLevel) Then currentRunLevel = -1

                      If daemonMode = "M" AND not IsNull(pkgName) Then estDuration = pkgBuildTime & "[" & PkgBuildDelta & "]"

                      If bActive <> "U" Then lastChange = PrettyDelta(delta, daemonState,pkgName )

                      ' --- Now render HTML for this release configuration ---

                      %>

                      <tr class=border>

                         <td><%=rsQry("display_name")%></td>

                         <td><%=rsQry("gbe_value")%></td>

                         <td><%=Get_Daemon_Mode(daemonMode)%></td>

                         <td><%=Get_Run_Level(currentRunLevel, indefinitelyPaused, daemonState, bActive)%></td>

                         <td><%=Get_Package_Name(pkgName,parRtagId,pkgPvid, daemonState, bActive)%></td>

                         <td><%=estDuration%></td>

                         <td><%=lastChange%></td>

                         <td>

                            <%

                            If NOT indefinitelyPaused  Then

                                If bActive = "U" Then

                                ElseIf bActive = "N" Then

                                    Call Action_Buttons ( "Daemon Unavailable" )

                                ElseIf daemonState = 0 Then

                                    Call Action_Buttons_State ( "Daemon Pause", canControl )

                                ElseIf daemonState = 1 Then

                                    Call Action_Buttons_State ( "Daemon Resume", canControl )

                                ElseIf daemonState = 2 Then

                                    Call Action_Buttons_State ( "Daemon Start", canControl )

                                Else

                                    Call Action_Buttons_State ( "Daemon Resume", canControl )

                              End If

                            Else

                               %>Unavailable<%

                            End If

                            %>

                         </td>

                      </tr>

                      <%

                      rsQry.MoveNext

                   Loop

                   %>

                   <tr class=foot>

                     <td colspan=7>

                     <%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>

                     <td>

                     <%

                       If (rsQry.RecordCount > 0) AND NOT indefinitelyPaused Then

                           Call Action_Buttons_State ( "Daemon Control All", objAccessControl.UserLogedIn AND canControl )

                       Else

                         %>&nbsp<%

                       End If

                     %>

                     </td>

                   </tr>

                   <%

                     rsQry.Close()

                     Set rsQry = nothing

                   %>

                </table>

            </div>

        </div>

    </div>

</div>

<%

End Sub

'-------------------------------------------------

' 

Sub ShowBuildPlan

Set rsQry = OraDatabase.DbCreateDynaset( "SELECT TRUNC (86400*(SYSDATE - rl.LAST_BUILD)) as delta, rl.LAST_BUILD as BuildStart, rl.current_pv_id, SYSDATE" &_

                                        " FROM release_config rc,  run_level rl " &_

                                        " WHERE rc.rtag_id   = " & parRtagId &_

                                        " AND rc.daemon_mode = 'M' AND rl.rcon_id(+) = rc.rcon_id", ORADYN_DEFAULT )

Dim BuildStart

Dim BuildDelta

Dim BuildPvId

Dim BuildNow

If (rsQry.RecordCount > 0) Then

    BuildStart = rsQry("BuildStart")

    BuildDelta = rsQry("delta")

    BuildPvId  = rsQry("current_pv_id")

    BuildNow  = rsQry("SYSDATE")

End If

rsQry.Close()

Set rsQry = nothing

%>

<!-- Planned Builds Display -->

<div>

<div class=panel>

        <div class=rounded_box_caption>

                <table align="center" class="full_table">

                   <tr>

                      <td nowrap class="form_ttl">DAEMON BUILD PLAN<%=Quick_Help("h_buildplan")%></td>

                      <td class="body_rowg" align="right" valign="bottom">Now: <%=DisplayShortDateTimeSecs(BuildNow)%> AWST</td>

                   </tr>

                </table>

        </div>

        <div class="rounded_box">

            <div class='listPanel'>

                <table class='embedded_table'>

                   <thead>

                      <th>Package</th>

                      <th>Version</th>

                      <th>Duration<%=Quick_Help("h_buildDuration")%></th>

                      <th>Build Completion<%=Quick_Help("h_buildEnd")%></th>

                   </thead>

                   <%

                   Dim PkgVersion, buildDuration, durationDisplay, durationText, completionText

                   Set rsQry = OraDatabase.DbCreateDynaset( "SELECT p.PKG_NAME," &_

                                                            "  pv.PKG_VERSION, pv.BUILD_TIME," &_

                                                            "  bp.PV_ID" &_

                                                            " FROM build_plan bp," &_

                                                            "  packages p," &_

                                                            "  package_versions pv" &_

                                                            " WHERE bp.PV_ID = pv.pv_id" &_

                                                            " AND RTAG_ID = " & parRtagId &_

                                                            " AND pv.PKG_ID  = p.pkg_id" &_

                                                            " ORDER BY build_order" , ORADYN_DEFAULT )

                   If rsQry.RecordCount = 0 Then

                       %>

                       <tr>

                        <td nowrap colspan="4" align="center" class="body_txt">No packages to be built </td>

                       </tr>

                       <%

                   End If

                   While (NOT rsQry.BOF) AND (NOT rsQry.EOF)

                       completionText = ""

                       buildDuration = rsQry("BUILD_TIME")

                       durationDisplay = buildDuration

                       ' If the current package build it taking longer than expected , then bump the build times

                       ' and allow another 30 seconds.

                       If BuildPvId = rsQry("PV_ID") Then

                           completionText = "&nbsp;<"

                           durationDisplay = durationDisplay & " ["& BuildDelta &"]"

                           If BuildDelta > buildDuration Then

                                buildDuration = BuildDelta + 30

                                completionText = " +"

                           End If

                       End If

                       ' If the duration is not known - guess at 300 sconds

                       durationText = ""

                       If ISNULL(buildDuration)  OR buildDuration = 0 Then

                            buildDuration = 300

                            durationText = " ~"

                      End If

                      BuildStart = DateAdd("s", buildDuration, BuildStart)

                      %>

                      <tr class=border>

                         <td><%=Get_Package_Name(rsQry("PKG_NAME"), parRtagId, rsQry("PV_ID"), 0, "Y")%></td>

                         <td><%=rsQry("PKG_VERSION")%></td>

                         <td><%=durationDisplay%></td>

                         <td><%=DisplayShortDateTimeSecs(BuildStart) & durationText  & completionText%></td>

                      </tr>

                      <%

                      ' Allow for 20 seconds of planning between builds

                      BuildStart = DateAdd("s", 20, BuildStart)

                      rsQry.MoveNext()

                   Wend

                   rsQry.Close()

                   Set rsQry = nothing

                   %>

                </table>

            </div>

        </div>

    </div>

</div>

<%

End Sub

'-------------------------------------------------

'

%>

<html>

   <head>

      <title>Release Manager</title>

      <link rel="shortcut icon" href="<%=FavIcon%>"/>

      <meta http-equiv="Pragma" content="no-cache">

      <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">

      <link rel="stylesheet" href="images/release_manager_style.css?ver=<%=VixVerNum%>" type="text/css">

      <link rel="stylesheet" href="images/navigation.css?ver=<%=VixVerNum%>" type="text/css">

      <script language="JavaScript" src="images/common.js?ver=<%=VixVerNum%>"></script>

      <!--#include file="_jquery_includes.asp"-->

      <!-- TIPS -->

      <script type="text/javascript" src="scripts/json2.js?ver=<%=VixVerNum%>"></script>

      <script language="JavaScript" src="images/tipster.js?ver=<%=VixVerNum%>"></script>

      <script language="JavaScript" src="images/_help_tips.js?ver=<%=VixVerNum%>"></script>

      <script language="JavaScript" type="text/JavaScript">

      formTips.tips.h_buildplan       = stdTip(300, 'Build Plan', 'The build plan is a guess as to the order in which packages will be built.' +

                                                                  '<p>It will be recalculated before each build.' + 

                                                                  '<p>The plan includes test builds, new builds and resultant ripples.' 

                                                                  );

      formTips.tips.h_buildDuration    = stdTip(300, 'Planned Duration', 'The build duration (seconds) of the last build of this package - if known.' +

                                                                  '<p>This is used as a guess as to the duration of the planned build.' 

                                                                  );

      formTips.tips.h_buildEnd         = stdTip(300, 'Planned Completion', 'An educated guess as to the build completion time of the package.' +

                                                                  '<p>It is based on the start time of the current build and the durations of each preceeding builds.' + 

                                                                  '<p>If the duration of a build is not known then a time of 300 seconds will be assumed.' +

                                                                  ' It also assumes 20 seconds to plan the next build.'

                                                                  );

      formTips.tips.h_lastchange       = stdTip(300, 'Last Change', 'This is an indication of the time since the daemon interogated the database.' +

                                                                  '<p>Short times will be shown as seconds. Longer times will be shown as a time within ' + 

                                                                  'the last 24 hours. Longer times will be shown as a date.' 

                                                                  );

      </script>

      <!-- DROPDOWN MENUS -->

      <!--#include file="_menu_def.asp"-->

      <script language="JavaScript1.2" src="images/popup_menu.js?ver=<%=VixVerNum%>"></script>

   </head>

   <body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0">

      <!-- HEADER -->

      <!--#include file="_header.asp"-->

      <!-- BODY ---->

      <table class="full_table">

         <tr>

            <td width="146px" class="bg_panel" valign="top">

                <%Call BuildMenuPane%>

            </td>

            <td width="100%" rowspan="2" align="center" valign="top" bgcolor="#EEEFEF">

                <%Call ShowDaemonStatus%>

                <%Call ShowBuildPlan%>

            </td>

         </tr>

         <tr>

            <td class="bg_panel_btm" height="350">

                <img src="images/img_gears.png" vspace="20" hspace="30"></td>

         </tr>

      </table>

      <!-- FOOTER -->

      <!--#include file="_footer.asp"-->

   </body>

</html>