Subversion Repositories DevTools

<%@LANGUAGE="VBSCRIPT"%>

<%

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

'|                                                   |

'|         ADMIN Build Status 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="common/common_daemon.asp"-->

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

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

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

<%

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

Dim rsQry

Dim query_string

Dim styleAlt1

Dim styleAlt2

Dim styleNow

Dim param_refreshPeriod

Dim param_inactivity

Dim param_refreshEnabled

Dim buildStatus

Dim bShowProblemDaemonSets    ' Indicates if problem daemons must be shown during filtering

Dim bShowDisabledDaemons      ' Indicates if a disabled daemon must be shown during filtering

Dim bShowActiveBuilds         ' Indicates if active builds must be shown during filtering

Dim bShowIdleBuilds           ' Indicates if idle builds must be shown during filtering

Dim bShowPausedBuilds         ' Indicates if paused builds must be shown during filtering

Dim bShowAutoProject          ' Hide projects that have no active components

Dim bProjectToggle            ' State of the Project toggler

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

Const Min_Refresh_Time = 10         ' Seconds

Const Max_DeltaBuild = 31           ' Days

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

styleAlt1="class='body_rowg1'"

styleAlt2="class='body_rowg2'"

styleNow = styleAlt1

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

%>

<%

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

'   Populate the buildStatus dictionary

'   Get all the required data into a hash of hashes

'   It will make the following processing so much easier

'

Sub getBuildStatus

    Dim bms

    query_string = "SELECT rc.RCON_ID, " &_

                  "       rc.RTAG_ID, " &_

                  "       bm.DISPLAY_NAME, " &_

                  "       rc.DAEMON_MODE, "&_

                  "       rt.RTAG_NAME, " &_

                  "       rt.OFFICIAL, " &_

                  "       rt.BUILD_AGE, " &_

                  "       p.PROJ_ID, " &_

                  "       p.PROJ_NAME, " &_

                  "       rl.CURRENT_PKG_ID_BEING_BUILT, "&_

                  "       rl.CURRENT_RUN_LEVEL, "&_

                  "       NVL(rl.PAUSE,0) as PAUSE, " &_

                  "       TRUNC (86400*(SYSDATE - rl.KEEP_ALIVE)) as delta," &_

                  "       TO_CHAR(rl.LAST_BUILD, 'DD-MON-YYYY') as last_build," &_

                  "       TRUNC (SYSDATE - rl.LAST_BUILD) as last_build_days," &_

                  "       pkg.PKG_NAME, NVL(ACTIVE, 'U') as ACTIVE" &_

                  " FROM RELEASE_CONFIG rc, RELEASE_TAGS rt, PROJECTS p, RUN_LEVEL rl, BUILD_MACHINE_CONFIG bm, PACKAGES pkg " &_

                  " WHERE rt.RTAG_ID = rc.RTAG_ID " &_

                  "   AND rc.bmcon_id is not null" &_

                  "   AND rt.PROJ_ID = p.PROJ_ID " &_

                  "   AND rt.OFFICIAL in ( 'N', 'R', 'C')" &_

                  "   AND rl.RCON_ID(+) = rc.RCON_ID" &_

                  "   AND rc.bmcon_id = bm.bmcon_id(+)" &_

                  "   AND pkg.PKG_ID(+) = rl.CURRENT_PKG_ID_BEING_BUILT" &_

                  " ORDER BY p.PROJ_NAME, rt.RTAG_NAME, rc.DAEMON_MODE, bm.DISPLAY_NAME, rc.DAEMON_MODE"

    Set buildStatus = CreateObject("Scripting.Dictionary")

    Set rsQry = OraDatabase.DbCreateDynaset( query_string, ORADYN_DEFAULT )

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

        Set bms = CreateObject("Scripting.Dictionary")

        bms.Item("RCON_ID")                     = rsQry("RCON_ID")

        bms.Item("RTAG_ID")                     = rsQry("RTAG_ID")

        bms.Item("DISPLAY_NAME")                = rsQry("DISPLAY_NAME")

        bms.Item("RTAG_NAME")                   = rsQry("RTAG_NAME")

        bms.Item("DAEMON_MODE")                 = rsQry("DAEMON_MODE")

        bms.Item("OFFICIAL")                    = rsQry("OFFICIAL")

        bms.Item("BUILD_AGE")                   = NiceInt(rsQry("BUILD_AGE"), 31)

        bms.Item("PROJ_ID")                     = rsQry("PROJ_ID")

        bms.Item("PROJ_NAME")                   = rsQry("PROJ_NAME")

        bms.Item("CURRENT_PKG_ID_BEING_BUILT")  = rsQry("CURRENT_PKG_ID_BEING_BUILT")

        bms.Item("CURRENT_RUN_LEVEL")           = rsQry("CURRENT_RUN_LEVEL")

        bms.Item("PAUSE")                       = CInt(rsQry("PAUSE"))

        bms.Item("delta")                       = rsQry("delta")

        bms.Item("last_build")                  = rsQry("last_build")

        bms.Item("last_build_days")             = NiceInt(rsQry("last_build_days"), 100)

        bms.Item("PKG_NAME")                    = rsQry("PKG_NAME")

        bms.Item("ACTIVE")                      = rsQry("ACTIVE")

        ' Calculate some values

        bms.Item("dState") = Classify_Run_Level(bms.Item("CURRENT_RUN_LEVEL"),_

                                                IndefPause,_

                                                bms.Item("PAUSE"), _

                                                bms.Item("delta") ,_

                                                bms.Item("CURRENT_PKG_ID_BEING_BUILT"),_

                                                bms.Item("ACTIVE"))

        bms.Item("dStateText") = Get_Run_Level(bms.Item("CURRENT_RUN_LEVEL"),_

                                               IndefPause,_

                                               bms.Item("PAUSE"),_

                                               bms.Item("ACTIVE"))

        ' Kill package name on disabled daemons

        If bms.Item("PAUSE") = 2 Then bms.Item("PKG_NAME") = Null

        ' Add to buildStatus

        '   This is a three level hash (Project,Release, Daemon)

        Dim ProjRef, RelRef, DRef

        ProjRef = bms.Item("PROJ_NAME")

        RelRef  = bms.Item("RTAG_NAME")

        DRef    = bms.Item("DISPLAY_NAME")

        If  Not buildStatus.Exists(ProjRef) Then

            Set buildStatus(ProjRef) = CreateObject("Scripting.Dictionary")

            Set buildStatus(ProjRef).Item("data") = CreateObject("Scripting.Dictionary")

            'buildStatus(ProjRef).Item("PROJ_ID") = bms.Item("PROJ_ID")

            'buildStatus(ProjRef).Item("PROJ_NAME") = bms.Item("PROJ_NAME")

        End If

        If  Not buildStatus(ProjRef).Item("data").Exists(RelRef) Then

            Set buildStatus(ProjRef).Item("data").Item(RelRef) = CreateObject("Scripting.Dictionary")

            Set buildStatus(ProjRef).Item("data").Item(RelRef).Item("data") = CreateObject("Scripting.Dictionary")

            'buildStatus(ProjRef).Item("data").Item(RelRef).Item("RTAG_NAME") = bms.Item("RTAG_NAME")

            'buildStatus(ProjRef).Item("data").Item(RelRef).Item("RTAG_ID") = bms.Item("RTAG_ID")

        End If

        Set buildStatus(ProjRef).Item("data").Item(RelRef).Item("data").Item(DRef) = bms

        rsQry.MoveNext

    Loop

    rsQry.Close()

    Set rsQry = nothing

    ' Iterate over each deamon set and flag some of its characteristics

    '   This could be done inline, as the data is processed from the SQL source

    Dim project,release,machine

    Dim eProject,eRelease,eMachine

    For Each project in buildStatus

        Set eProject = buildStatus.Item(project)

        For Each release in eProject.Item("data")

            Set eRelease = eProject.Item("data").Item(release)

            For Each machine in eRelease.Item("data")

                Set eMachine = eRelease.Item("data").Item(machine)

                Dim dState

                dState = eMachine.Item("dState")

                If dState = "active" Then

                    If bShowActiveBuilds Then eMachine.Item("bRow_displayed") = "ShowActive"

                ElseIf dState = "idle" Then

                    If bShowIdleBuilds Then eMachine.Item("bRow_displayed") = "ShowIdle"

                ElseIf dState = "paused" Then

                    If bShowPausedBuilds Then eMachine.Item("bRow_displayed") = "ShowPaused"

                ElseIf dState = "disabled" Then

                    If bShowDisabledDaemons Then eMachine.Item("bRow_displayed") = "ShowDisabled"

                ElseIf dState = "problem" Then

                    If bShowProblemDaemonSets Then eMachine.Item("bRow_displayed") = "ShowProblem"

                    If bShowProblemDaemonSets Then eRelease.Item("bDisplay_whole_set") = true

                Else

                    eRelease.Item("bDisplay_whole_set") = true

                    eMachine.Item("bRow_displayed") = "ShowUnknownState"

                End If

                If bShowProblemDaemonSets AND eMachine.Item("BUILD_AGE") > 0 Then

                    If (eMachine.Item("last_build_days") > eMachine.Item("BUILD_AGE")) OR (eMachine.Item("last_build_days") > param_inactivity) Then

                       If dState = "active" OR dState = "idle" Then

                          eRelease.Item("bDisplay_whole_set") = true

                          eRelease.Item("bShowAge") = true

                          eMachine.Item("bRow_displayed") = "ShowInactiveWarning"

                       End If

                    End If

                End If

                If eMachine.Exists("bRow_displayed") Then

                    eRelease.Item("bDisplay_some") = true

                    eProject.Item("bDisplay_some") = true

                End If

            Next

        Next

    Next

    ' Debug the data structure

    '   Requires common/DictDump.vbs to be included to work

    'Response.Write "<br>Pretty Dictionary Display<pre>"

    'Response.Write DICToutput(buildStatus)

End Sub

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

' Toggle row style between the two alternative styles

Sub ToggleStyleNow

   If styleNow = styleAlt1 Then

      styleNow = styleAlt2

   Else

      styleNow = styleAlt1

   End If

End Sub

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

' Convert run level into a meaningful filter state as a string

' Will be one of: active, idle, paused, disabled, problem, unknown

Function Classify_Run_Level( nLevel, indefinitePause, astate, nDelta, pkgId, bActive)

   If bActive = "N" AND astate <> 2 Then

      Classify_Run_Level = "problem"

   ElseIf indefinitePause Then

      Classify_Run_Level = "problem"

   ElseIf astate = 1 Then                   ' if build daemon paused

      Classify_Run_Level = "paused"

   ElseIf astate = 2 Then                   ' if build daemon disabled

      Classify_Run_Level = "disabled"

   ElseIf Int(nDelta) > Max_Delta Then

      Classify_Run_Level = "problem"

   ElseIf (IsNull(pkgId)) OR (pkgId = "") Then

      Classify_Run_Level = "idle"

   ElseIf astate = 0 Then                   ' if build daemon enabled

      If nLevel = 1 Then

         Classify_Run_Level = "problem"

      ElseIf nLevel = 2 Then

         Classify_Run_Level = "paused"

      ElseIf nLevel = 3 Then

         Classify_Run_Level = "active"

      ElseIf nLevel = 4 Then

         Classify_Run_Level = "idle"

      ElseIf nLevel = 5 Then

         Classify_Run_Level = "idle"

      ElseIf nLevel = 6 Then

         Classify_Run_Level = "active"

      Else

         Classify_Run_Level = "unknown"

      End If

   End If

End Function

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

' Use this function to determine the state of a specified project checkbox

Function Is_Project_Checked( nProjId )

   Dim hiddenProjects_arr

   Dim hiddenProjects

   Dim str

   hiddenProjects = Request("HideProj")

   Is_Project_Checked = "checked"

   hiddenProjects_arr = Split(hiddenProjects, ",")

   For Each str in hiddenProjects_arr

      If str = nProjId Then

         Is_Project_Checked = ""

         Exit For

      End If

   Next

End Function

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

' Use this function to set/clear the filter on/off radio button checked state

' Format of Filter Param : Filter=[problemBuilds}[,ActiveBuilds]

Function Display_Filtered(id)

   Dim filter

   Display_Filtered = ""

   filter  = Request("Filter")

   If NOT IsNull(filter) AND filter <> "" Then

      If InStr(filter, id) > 0 Then

         Display_Filtered = "checked"

      End If

   Else

      If id = "OFF" Then

         Display_Filtered = "checked"

      End If

   End If

End Function

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

' Use this function to set/clear a filter option check box with the given ID

' If no Filter is present, then assume defaults          

Function Filter_Checked(id)

   Dim filter

   Filter_Checked = ""

   filter  = Request("Filter")

   If IsNull(filter) OR filter = "" Then

     filter="problemBuilds,activeBuilds"        ' Defaults

   End If

  If InStr(filter, id) > 0 Then

     Filter_Checked = "checked"

  End If

End Function

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

' Test to see if a particular filter option is on

Function Filter_Is_On(id)

    If Filter_Checked(id) = "checked" Then

          Filter_Is_On = True

    Else

          Filter_Is_On = False

    End If

End Function

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

%>

<%

'------------ RUN BEFORE PAGE RENDER ----------

' Default values for Auto Refresh checkbox and edit input box

param_refreshEnabled = False

param_refreshPeriod  = "0"

' Read the Refresh parameter which is of the form Refresh=<time-period>,ON|OFF

Dim param_refresh

param_refresh = Request("Refresh")

If param_refresh <> "" Then

   Dim pr_arr

   pr_arr = Split(param_refresh,",")

   param_refreshPeriod = pr_arr(0)

   ' Range check and end-stop the refresh period if necessary

   If NiceInt(param_refreshPeriod, 0)  < Min_Refresh_Time Then

      param_refreshPeriod  = CStr(Min_Refresh_Time)

   End If

   ' determine checkbox state

   If UBound(pr_arr) >= 1 Then

      If InStr(UCase(pr_arr(1)), "ON") > 0 Then

         param_refreshEnabled = True

      Else

         param_refreshEnabled = False

      End If

   End If

End If

' Read the Inactivity Period

param_inactivity = NiceInt( Request("Inactivity"), Max_DeltaBuild)

If param_inactivity  = 0 Then param_inactivity = Max_DeltaBuild

' Populate display controls

bShowProblemDaemonSets = Filter_Is_On("problemBuilds")

bShowActiveBuilds      = Filter_Is_On("activeBuilds")

bShowDisabledDaemons   = Filter_Is_On("disabledDaemons")

bShowIdleBuilds        = Filter_Is_On("idleBuilds")

bShowPausedBuilds      = Filter_Is_On("pausedBuilds")

bShowAutoProject       = Filter_Is_On("autoProjects")

bProjectToggle         = RequestBool("pAll", True)

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

%>

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

<!--

function url_append( url, str ) {

    if ( str.length <= 0 )

        return url;

    if ( url == '' )

       url += '\?';

    else

       url += '\&';

    return url + str;

}

function url_remove( url, str) {

    // split it into each parameter

    var qs_arr = url.split(/[&?]/);

    var remaining = new Array();

    var newUrl = '';

    var i_qs_arr;

    for (i_qs_arr in qs_arr)

    {

       var qs_str = qs_arr[i_qs_arr];

       if (qs_str.length > 0) {

          if (qs_str.indexOf(str) < 0) {

              remaining.push(qs_str);

          }

       }

    }

    return url_append('',remaining.join('&'));

}

//////////////////////////////////////////////////////////////////////////////////////////////////

// This function rebuilds the query string so as to update the list of 'hidden' projects

//////////////////////////////////////////////////////////////////////////////////////////////////

function toggle_project()

{

    // Determine all non-cheked project boxes.

   var inputs = document.getElementsByTagName('input');

   var i;

   var list = new Array();

   for (i = 0; i < inputs.length; i++) {

      var str = inputs[i].name;

      if ( ! inputs[i].checked ){

          if (str.indexOf("DIS_PRJ_") >= 0) {

              list.push(str.replace("DIS_PRJ_",""));

          }

      }

   }

    // get the full query string

    var url_query_string = window.location.search.substr(1);

    // Remove bits we are going to process

    url_query_string = url_remove(url_query_string, 'HideProj');

    // Prepare the new query string, only adding the HideProj parameter if the function is being

    // used to hide all projects

     if ( list.length > 0) {

         url_query_string = url_append(url_query_string, 'HideProj=' + list.join(','));

     }

    // reload the page with the new query string

    var url = location.pathname + url_query_string;

    window.location.assign(url);

}

//////////////////////////////////////////////////////////////////////////////////////////////////

// This function rebuilds the query string to either hide all projects, or unhide all projects

// from the display

//////////////////////////////////////////////////////////////////////////////////////////////////

function toggle_all_projects(el)

{

   var bAll = (el.checked);

   // If hiding all, then find all of the project enable/disable checkboxes, get the project ID

   // values from each one and accumulate them into a comma seperated list

   if (!bAll)

   {

      var inputs = document.getElementsByTagName('input');

      var i;

      var list = new Array();

      for (i = 0; i < inputs.length; i++) {

         var str = inputs[i].name;

         if (str.indexOf("DIS_PRJ_") >= 0) {

             list.push(str.replace("DIS_PRJ_",""));

         }

      }

   }

   // get the full query string

   var url_query_string = window.location.search.substr(1);

   // Remove bits we are going to process

   url_query_string = url_remove(url_query_string, 'HideProj');

   url_query_string = url_remove(url_query_string, 'pAll=');

   if ( !bAll) {

       url_query_string = url_append(url_query_string, 'pAll=0');

   }

   // Prepare the new query string, only adding the HideProj parameter if the function is being

   // used to hide all projects

    if (!bAll) {

        if ( list.length > 0) {

            url_query_string = url_append(url_query_string, 'HideProj=' + list.join(','));

        }

    }

   // reload the page with the new query string

   var url = location.pathname + url_query_string;

   window.location.assign(url);

}

//////////////////////////////////////////////////////////////////////////////////////////////////

// This function rebuilds the query string so that it either adds or removes the Refresh parameter

//////////////////////////////////////////////////////////////////////////////////////////////////

function toggle_refresh()

{

   // get the full query string

   var url_query_string = window.location.search.substr(1);

   url_query_string = url_remove(url_query_string, 'Refresh');

   // Prepare the new query string

   var refreshData = 'Refresh=';

   if (document.getElementById('refreshPeriod').value < <%=Min_Refresh_Time%>) {

      document.getElementById('refreshPeriod').value = <%=Min_Refresh_Time%>;

      refreshData += <%=Min_Refresh_Time%>;

   }

   else

      refreshData += document.getElementById('refreshPeriod').value;

   if (document.getElementById('autoRefresh').checked)

      refreshData += ',ON';

   else

      refreshData += ',OFF';

   url_query_string = url_append(url_query_string, refreshData);

   // reload the page with the new query string

   var url = location.pathname + url_query_string;

   window.location.assign(url);

}

//////////////////////////////////////////////////////////////////////////////////////////////////

// This function rebuilds the query string to Update the Inactivity parameter

//////////////////////////////////////////////////////////////////////////////////////////////////

function toggle_inactivity()

{

   // get the full query string

   var url_query_string = window.location.search.substr(1);

   url_query_string = url_remove(url_query_string, 'Inactivity');

   // Prepare the new query string

   var value = document.getElementById('inactivity').value;

   if  (value && (value != <%=Max_DeltaBuild%>)) {

       url_query_string = url_append(url_query_string, 'Inactivity=' + value);

    }

   // reload the page with the new query string

   var url = location.pathname + url_query_string;

   window.location.assign(url);

}

//////////////////////////////////////////////////////////////////////////////////////////////////

// Rebuild the query string and reload the page based on the current setting of the filter

// radio buttons

//////////////////////////////////////////////////////////////////////////////////////////////////

function update_Display_Filter()

{

   // get the full query string

   var url_query_string = window.location.search.substr(1);

   url_query_string = url_remove(url_query_string, 'Filter');

   // Prepare the new query string

   var active = new Array();

   var items = new Array ("activeBuilds","disabledDaemons","idleBuilds","pausedBuilds","problemBuilds","autoProjects");

   for (var item in items) {

       if (document.getElementById(items[item]).checked) {

           active.push(items[item]);

          joiner = ',';

       }

   }

   var filterSet = active.join(',') ;

   if (filterSet.length > 0) {

       url_query_string = url_append(url_query_string, 'Filter=' + filterSet);

   }

   // reload the page with the new query string

   var url = location.pathname + url_query_string;

   window.location.assign(url);

}

//-->

</script>

<%

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

Sub SidePanelContent

%>

<!-- Monitoring Options Selection Box ---->

 <fieldset style="padding:3px">

    <legend class="body_scol">Display Options</legend>

     <fieldset class="body_rowg">

        <legend class="body_scol">Auto Refresh</legend>

             <div class=nowrap>

             <input name="autoRefresh" id="autoRefresh" type="checkbox" <%If param_refreshEnabled Then%>checked<%End If%> value="1" onclick='toggle_refresh()'>

                 <input class="body_txt" style="width:3em" name="refreshPeriod" id="refreshPeriod" type="input" maxlength="3" value="<%=param_refreshPeriod%>" onchange='toggle_refresh()' > Seconds

             </div>

     </fieldset>

     <fieldset class="body_rowg">

        <legend class="body_scol">Filter</legend>

            <div>

                 <input name="activeBuilds" id="activeBuilds" type="checkbox" <%=Filter_Checked("activeBuilds")%> value="activeBuilds" onclick='update_Display_Filter()'>Active

            </div>

            <div>

                 <input name="idleBuilds" id="idleBuilds" type="checkbox" <%=Filter_Checked("idleBuilds")%> value="idleBuilds" onclick='update_Display_Filter()'>Idle

            </div>

            <div>

                 <input name="pausedBuilds" id="pausedBuilds" type="checkbox" <%=Filter_Checked("pausedBuilds")%> value="paused" onclick='update_Display_Filter()'>Paused

            </div>

            <div>

                 <input name="disabledDaemons"  id="disabledDaemons"  type="checkbox" <%=Filter_Checked("disabledDaemons")%>  value="disabledDaemons"  onclick='update_Display_Filter()'>Disabled

            </div>

            <div class=nowrap>

                 <input name="problemBuilds"  id="problemBuilds"  type="checkbox" <%=Filter_Checked("problemBuilds")%>  value="problemBuilds"  onclick='update_Display_Filter()'>Problem&nbsp;Daemon&nbsp;Sets

            </div>

            <div class=nowrap>

                 <input name="autoProjects"  id="autoProjects"  type="checkbox" <%=Filter_Checked("autoProjects")%>  value="autoProjects"  onclick='update_Display_Filter()'>Auto Hide Projects

            </div>

     </fieldset>

     <fieldset class="body_rowg">

        <legend  class="body_scol">Inactivity</legend>

        <input class="body_txt" style="width:3em" name="inactivity" id="inactivity" type="input" maxlength="3" value="<%=param_inactivity%>" onchange='toggle_inactivity()' > Days

     </fieldset>

</fieldset>

<%

End Sub

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

Sub DisplayProjectHeader(bProjectHeaderDone, eMachine, strProject_checked)

    If NOT bProjectHeaderDone Then%>

        <tr>

           <td colspan='8'><img src='images/spacer.gif' width='1' height='5'></td>

        </tr>

        <tr>

           <td colspan='8' background='images/bg_rep_line.gif'><img src='images/spacer.gif' width='1' height='5'></td>

        </tr>

        <tr>

            <td nowrap class="body_rowg">

                <input name='DIS_PRJ_<%=eMachine("PROJ_ID")%>' id='DIS_PRJ_<%=eMachine("PROJ_ID")%>' type='checkbox' value=1 <%=strProject_checked%> onclick=toggle_project()>

                <a href='rtree.asp?proj_id=<%=eMachine("PROJ_ID")%>'><%=eMachine("PROJ_NAME")%>

            </td>

        <%

    End If

End Sub

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

Sub ShowDaemonStatus

%>

<table width="10" class="embedded_table" style="margin-bottom:10px">

  <tr>

     <td width="100%">

        <table width="100%" class="embedded_table">

           <tr>

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

           </tr>

        </table>

     </td>

  </tr>

  <tr>

    <td>

        <table class="rounded_box embedded_table" width="100%" >

          <tr>

             <td bgcolor="#FFFFFF"><img src="images/h_trsp_dot.gif" width="10" height="100"></td>

             <td bgcolor="#FFFFFF" valign="top">

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

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

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

                <br>

                <table width="100%" border="0" cellspacing="0" cellpadding="0">

                   <!-- Status Table Header -->

                   <thead>

                      <th valign="middle" nowrap background="images/bg_table_col.gif" class="body_col tleft">

                        <input type="checkbox" <%=IIF(bProjectToggle, "checked", "")%> title='Show/Hide all active releases' onclick=toggle_all_projects(this)>Project</th>

                      <th valign="middle" nowrap background="images/bg_table_col.gif" class="body_col">Release</th>

                      <th valign="middle" nowrap background="images/bg_table_col.gif" class="body_col">Release<br>Mode</th>

                      <th valign="middle" nowrap background="images/bg_table_col.gif" class="body_col">Daemon<br>Mode</th>

                      <th valign="middle" nowrap background="images/bg_table_col.gif" class="body_col">Daemon<br>Host</th>

                      <th valign="middle" nowrap background="images/bg_table_col.gif" class="body_col">Daemon<br>State</th>

                      <th valign="middle" nowrap background="images/bg_table_col.gif" class="body_col">Building<br>Package</th>

                      <th valign="middle" nowrap background="images/bg_table_col.gif" class="body_col">Last Change<br>Delta (secs)</th>

                   </thead>

                   <!-- Status Table Body -->

                   <%

                    Dim bProject_changed          ' Signals a row change due to a different project

                    Dim strProject_checked        ' Can be "" or "checked". Determines appearance of project enable checkbox

                    Dim bRelease_changed          ' signals a row change due to a different release

                    Dim bReleaseHeaderDone        ' indicates whether the release name has been rendered yet

                    Dim bProjectHeaderDone        ' Project Header done

                    Dim bShowAge                  ' Display age warning

                    Dim bToggleStyle              ' Data shown so toggle style

                    Dim bShowReleaseSep           ' Show Release Seperator

                    Dim bShowProject              ' Show this project

                    '   Iterate over all projects, releases and machines

                    '

                    Dim project,release,machine

                    Dim eProject,eRelease,eMachine

                    For Each project in buildStatus

                        ' Start of a new Project

                        Set eProject = buildStatus.Item(project)

                        bProjectHeaderDone = false

                        bProject_changed = true

                        bShowReleaseSep = False

                        bShowProject = True

                        If bShowAutoProject AND NOT eProject.Item("bDisplay_some") Then

                            bShowProject = False

                        End If

                        If bShowProject Then

                            For Each release in eProject.Item("data")

                                '   Start of a new Release

                                Set eRelease = eProject.Item("data").Item(release)

                                bReleaseHeaderDone = False

                                bRelease_changed = true

                                bShowAge = eRelease("bShowAge")

                                If  bToggleStyle Then Call ToggleStyleNow

                                bToggleStyle = false

                                For Each machine in eRelease.Item("data")

                                    '   Start of a new Machine

                                    Set eMachine = eRelease.Item("data").Item(machine)

                                    strProject_checked = Is_Project_Checked(eMachine("PROJ_ID"))

                                    ' Consider displaying the body of this machine entry

                                    If strProject_checked = "checked" Then

                                        If eRelease.Exists("bDisplay_whole_set") OR eMachine.Exists("bRow_displayed") Then

                                            bToggleStyle = true

                                            ' Display Project and Release Header - Once, or a filler

                                            If NOT bReleaseHeaderDone Then

                                                bReleaseHeaderDone = True

                                                ' Display Project Header - ONCE. The <tr> is open

                                                Call DisplayProjectHeader(bProjectHeaderDone,eMachine, strProject_checked)

                                                bProjectHeaderDone = TRUE

                                                ' Display Release seperator, if this is not the first release in the project

                                                If bShowReleaseSep Then

                                                    %>

                                                        <tr>

                                                            <td></td>

                                                            <td colspan='7' background='images/bg_rep_line.gif'><img src='images/spacer.gif' width='1' height='1'></td>

                                                        </tr>

                                                        <tr>

                                                            <td></td>

                                                    <%

                                                End If

                                                ' Display the Release Header, with a marker to show aged releases

                                                %>

                                                <td nowrap <%=styleNow%>>

                                                    <a href='build_status.asp?rtag_id=<%=eMachine("RTAG_ID")%>' title='Last Build:<%=eMachine("last_build")%>'><%=eMachine("RTAG_NAME")%></a>

                                                <%

                                                If bShowAge Then

                                                %>

                                                    <img src='images/s_warning.gif' width='14' height='13' border='0' title='No Build in this release since <%=eMachine("last_build")%>. [<%=eMachine("last_build_days")%> Days]' style='vertical-align: bottom;'>

                                                <%

                                                End If

                                                %></td><%

                                            Else%>

                                                <td nowrap class="body_rowg"></td>

                                                <td nowrap <%=styleNow%>></td>

                                            <%

                                            End If

                                            bShowReleaseSep = true

                                            %>

                                            <td nowrap <%=styleNow%>><%=Get_Official(eMachine("OFFICIAL"))%></td>

                                            <td nowrap <%=styleNow%>><%=Get_Daemon_Mode(eMachine("DAEMON_MODE"))%></td>

                                            <td nowrap <%=styleNow%>><%=eMachine("DISPLAY_NAME")%></td>

                                            <td nowrap <%=styleNow%>><%=eMachine("dStateText")%></td>

                                            <td nowrap <%=styleNow%>><%=eMachine("PKG_NAME")%></td>

                                            <td nowrap <%=styleNow%>><%=PrettyDelta(eMachine("delta"),eMachine("PAUSE"),eMachine("PKG_NAME") )%></td>

                                            <%

                                        End If

                                        %></tr><%

                                    End If

                                    ' End of Display

                                    bRelease_changed = false

                                    bProject_changed = false

                                Next

                            Next

                            Call DisplayProjectHeader(bProjectHeaderDone,eMachine, strProject_checked)

                        End If

                        Next

                   %>

                  <tr>

                    <td>

                        <input type="hidden" name="action" value="true">

                        <%=objPMod.ComposeHiddenTags()%>

                    </td>

                  </tr>

                </table>

             </td>

             <td background="images/lbox_bgside_white.gif">&nbsp;</td>

           </tr>

        </table>

      </td>

  </tr>

</table>

<%

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

      <%If param_refreshEnabled AND param_RefreshPeriod <> 0 Then%>

         <META HTTP-EQUIV=REFRESH CONTENT=<%=param_RefreshPeriod%>>

      <%End If%>

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

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

      <% getBuildStatus() %>

      <!-- BODY ---->

      <table class="full_table">

         <tr>

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

                <%Call SidePanelContent%>

            </td>

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

                <%Call ShowDaemonStatus%>

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