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

<%

'------------ ACCESS CONTROL ------------------

%>

<!--#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 bIndefinitelyPaused

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

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

Const Min_Refresh_Time = 10         ' Seconds

Const Max_Delta = 600               ' 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, " &_

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

                  " 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 != 'A' " &_

                  "   AND rt.OFFICIAL != 'Y' " &_

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

        ' Calculate some values

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

                                                bIndefinitelyPaused,_

                                                bms.Item("PAUSE"), _

                                                bms.Item("delta") ,_

                                                bms.Item("CURRENT_PKG_ID_BEING_BUILT"))

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

                                               bIndefinitelyPaused,_

                                               bms.Item("PAUSE"))

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

                If eMachine.Exists("bRow_displayed") Then

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

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

' Like Cint, but handles NULL by replacing it with a default value

Function NiceInt( val, def)

   If isNull(val) Then

       NiceInt = def

   Else

      NiceInt = CInt(val)

   End If

End Function

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

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

Function Get_Run_Level( nLevel, indefinitePause, astate)

   If indefinitePause Then

      Get_Run_Level = "<span class='err_alert'>Stopped</span>"

   ElseIf astate = 1 Then      ' if build daemon paused

      Get_Run_Level = "Paused"

   ElseIf astate = 2 Then      ' if build daemon disabled

      Get_Run_Level = "Disabled"

   ElseIf astate = 0 Then     ' if build daemon enabled

      If nLevel = 1 Then

         Get_Run_Level = "Cannot Continue"

      ElseIf nLevel = 2 Then

         Get_Run_Level = "Paused"

      ElseIf nLevel = 3 Then

         Get_Run_Level = "Building"

      ElseIf nLevel = 4 Then

         Get_Run_Level = "Idle"

      ElseIf nLevel = 5 Then

         Get_Run_Level = "Waiting"

      ElseIf nLevel = 6 Then

         Get_Run_Level = "Publishing"

      Else

         Get_Run_Level = "<span class='err_alert'>Unknown!</span>"

      End If

   End If

End Function

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

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

   If 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

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

' Convert daemon mode into a meaningful string

Function Get_Daemon_Mode( nMode )

   If nMode = "M" Then

      Get_Daemon_Mode = "Master"

   ElseIf nMode = "S" Then

      Get_Daemon_Mode = "Slave"

   Else

      Get_Daemon_Mode = "?"

   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

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

Function Indefinitely_Paused()

   Dim rsQry2

   Dim query_string2

   Indefinitely_Paused = False

   query_string2 = " select * from run_level_schedule rls where rls.indefinite_pause = 'P'"

   Set rsQry2 = OraDatabase.DbCreateDynaset( query_string2, ORADYN_DEFAULT )

   If rsQry2.RecordCount > 0 Then

      Indefinitely_Paused = True

   End If

End Function

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

Function PrettyDelta( delta, daemonState,pkgId )

    Dim style,nDelta

    style = ""

    If delta = "" Then delta = 0

    delta = Int(delta)

    nDelta = delta

    If (delta > Max_Delta) AND (IsNull(pkgId) OR pkgId = "") Then

      style = "style=color:Red"

      If (delta > 86400 ) Then

        Dim bdate, dd,mm,yy

        bdate = DateAdd("s", - delta,Now())

        dd = Day(bdate)

        mm = MonthName(Month(bdate),1)

        yy = Year( bdate)

        delta = dd & "-" & mm & "-" & yy

        If ( daemonState >= 2 ) Then

            style = ""

        End If

      ElseIf ( delta > 60*60 ) Then

        'Dim bdate, hh, mins, ss

        bdate = DateAdd("s", - delta,Now())

        delta = TimeValue( bdate)

        'delta = hh & ":" & mins & ":" & ss

      End If

    End If

    If style <> "" Then

        delta = "<span " & style & ">" & delta & "</span>"

    End If

    PrettyDelta = delta 

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 CInt(param_refreshPeriod)  < 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

' Get indefinite pause status

bIndefinitelyPaused = Indefinitely_Paused()

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

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

%>

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

<!--

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

// This function rebuilds the query string so that it either adds or removes the specified project ID from

// the HideProj= part of it, whilst leaving the rest of the string intact. The browser location is then

// updated and the server made to re-render the page. This function must be used from the project checkboxes

// to show/hide daemon status informaton for specific projects.

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

function toggle_project( proj_id )

{

   var found = false;

   var new_url_query_string = '';

   var new_hp_list = '';

   // get the full query string

   var url_query_string = '<%=Request.ServerVariables("QUERY_STRING")%>';

   // split it into each parameter

   var qs_arr = url_query_string.split('&');

   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 we have found the HideProj parameter

         if (qs_str.indexOf('HideProj') >= 0)

         {

            // Split the HideProj parameter at the = symbol in order to process the comma seperated list of project IDs

            var qs_hp_arr;

            qs_hp_arr = qs_str.split('=');

            if (qs_hp_arr.length > 1)

            {

               // Split the comma seperated list of project IDs, and iterate through each item

               var hp_arr = qs_hp_arr[1].split(',');

               var i_hp_arr;

               for (i_hp_arr in hp_arr)

               {

                  var hp_str = hp_arr[i_hp_arr];

                  // If the item matches the specified project ID and the checkbox for that project is unchecked

                  if (hp_str == proj_id)

                  {

                     found = true;

                  }

                  else

                  {

                     // retain this other project ID in the list

                     if (new_hp_list != '')

                        new_hp_list += ',';

                     new_hp_list += hp_str;

                  }

               }

            }

         }

         else

         {

            // feed the existing paramter to the new query string

            if (new_url_query_string == '')

               new_url_query_string += '?';

            else

               new_url_query_string += '&';

            new_url_query_string += qs_str

         }

      }

   }

   // If the specified project ID was not found, then that project is not currently hidden

   // and must now be hidden, so add its number to the list to hide it on the next server side

   // page render operation

   if (!found)

   {

      if (new_hp_list != '')

         new_hp_list += ',';

      new_hp_list += proj_id

   }

   // Prepare the new query string

   if (new_url_query_string == '')

      new_url_query_string += '\?';

   else

      new_url_query_string += '\&';

   new_url_query_string += 'HideProj=';

   new_url_query_string += new_hp_list;

   // reload the page with the new query string

   var url = location.pathname + new_url_query_string;

   window.location.assign(url);

}

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

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

// fromt he display

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

function toggle_all_projects(bAll)

{

   var new_url_query_string = '';

   var list_proj_ids = '';

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

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

      {

         var str = inputs[i].name;

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

         {

            str = str.replace("DIS_PRJ_","");

            if (list_proj_ids != '')

               list_proj_ids += ',' + str;

            else

               list_proj_ids += str;

         }

      }

   }

   // get the full query string

   var url_query_string = '<%=Request.ServerVariables("QUERY_STRING")%>';

   // split it into each parameter

   var qs_arr = url_query_string.split('&');

   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 we have found the HideProj parameter

         if (qs_str.indexOf('HideProj') >= 0)

         {

            // do nothing

         }

         else

         {

            // feed the existing paramter to the new query string

            if (new_url_query_string == '')

               new_url_query_string += '?';

            else

               new_url_query_string += '&';

            new_url_query_string += qs_str

         }

      }

   }

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

   // used to hide all projects

   if (!bAll)

   {

      if (new_url_query_string == '')

         new_url_query_string += '\?';

      else

         new_url_query_string += '\&';

      new_url_query_string += 'HideProj=' + list_proj_ids;

   }

   // reload the page with the new query string

   var url = location.pathname + new_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()

{

   var new_url_query_string = '';

   // get the full query string

   var url_query_string = '<%=Request.ServerVariables("QUERY_STRING")%>';

   // split it into each parameter

   var qs_arr = url_query_string.split('&');

   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 we have found the Refresh parameter

         if (qs_str.indexOf('Refresh') >= 0)

         {

            // do nothing

         }

         else

         {

            // feed the existing paramter to the new query string

            if (new_url_query_string == '')

               new_url_query_string += '?';

            else

               new_url_query_string += '&';

            new_url_query_string += qs_str

         }

      }

   }

   // Prepare the new query string

   if (new_url_query_string == '')

      new_url_query_string += '\?';

   else

      new_url_query_string += '\&';

   new_url_query_string += 'Refresh=';

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

   {

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

      new_url_query_string += <%=Min_Refresh_Time%>;

   }

   else

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

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

      new_url_query_string += ',ON';

   else

      new_url_query_string += ',OFF';

   // reload the page with the new query string

   var url = location.pathname + new_url_query_string;

   window.location.assign(url);

}

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

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

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

function toggle_inactivity()

{

   var new_url_query_string = '';

   // get the full query string

   var url_query_string = '<%=Request.ServerVariables("QUERY_STRING")%>';

   // split it into each parameter, then remove the Inactivity parameter

   var qs_arr = url_query_string.split('&');

   var qs_join = '?'

   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('Inactivity') < 0)

         {

            // feed the existing paramter to the new query string

            new_url_query_string += qs_join + qs_str

            qs_join = '&'

         }

      }

   }

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

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

   {

       // Prepare the new query string

        new_url_query_string += qs_join + 'Inactivity=' + value;

    }

   // reload the page with the new query string

   var url = location.pathname + new_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()

{

   var new_url_query_string = '';

   // get the full query string

   var url_query_string = '<%=Request.ServerVariables("QUERY_STRING")%>';

   // split it into each parameter

   var qs_arr = url_query_string.split('&');

   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 we have found the Display parameter

         if (qs_str.indexOf('Filter') >= 0)

         {

            // do nothing

         }

         else

         {

            // feed the existing paramter to the new query string

            if (new_url_query_string == '')

               new_url_query_string += '?';

            else

               new_url_query_string += '&';

            new_url_query_string += qs_str

         }

      }

   }

   // Prepare the new query string

   var qJoiner;

   if (new_url_query_string == '')

      qJoiner = '\?';

   else

      qJoiner = '\&';

   var joiner = '';

   var filterSet = '';

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

   for (var item in items)

   {

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

       {

          filterSet += joiner + items[item];

          joiner = ',';

       }

   }

   if (filterSet.length > 0)

   {

       new_url_query_string += qJoiner + 'Filter=' + filterSet;

   }

   // reload the page with the new query string

   var url = location.pathname + new_url_query_string;

   window.location.assign(url);

}

//-->

</script>

<html>

   <head>

      <title>Release Manager</title>

      <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" type="text/css">

      <link rel="stylesheet" href="images/navigation.css" type="text/css">

      <script language="JavaScript" src="images/common.js"></script>

      <!-- DROPDOWN MENUS -->

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

      <script language="JavaScript1.2" src="images/popup_menu.js"></script>

   </head>

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

      <!-- MENU LAYERS -------------------------------------->

      <div id="popmenu" class="menuskin" onmouseover="clearhidemenu();highlightmenu(event,'on')" onmouseout="highlightmenu(event,'off');dynamichide(event)"></div>

      <!-- TIPS LAYERS -------------------------------------->

      <div id="formTipsLayer" style="position: absolute; z-index: 1000; visibility: hidden; left:0; top: 0; width: 10">&nbsp;</div>

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

      <!-- HEADER -->

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

      <% getBuildStatus() %>

      <!-- BODY ---->

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

         <tr>

            <td width="1" background="images/bg_home_orange.gif" valign="top"></td>

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

               <table width="10" border="0" cellspacing="0" cellpadding="0">

                  <tr>

                     <td width="1%"></td>

                     <td width="100%">

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

                           <tr>

                              <td nowrap class="form_ttl"><p>&nbsp;</p>

                                 <p>BUILD DAEMON STATUS INFORMATION</p>

                              </td>

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

                           </tr>

                           <tr>

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

                              <td width="100%">

                                 <fieldset style="width:700px;">

                                    <legend><a href="javascript:;" class="body_scol" >&nbsp;Monitoring&nbsp;Options</a></legend>

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

                                       <tr>

                                          <td valign="top" width="200px" nowrap background="images/bg_table_col.gif" class="body_col">Auto Refresh</td>

                                          <td valign="top" width="200px" nowrap background="images/bg_table_col.gif" class="body_col">Filter Options</td>

                                          <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">Inactivity</td>

                                       </tr>

                                       <tr>

                                          <td class="body_rowg">

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

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

                                          </td>

                                          <td class="body_rowg">

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

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

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

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

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

                                          <td class="body_rowg">

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

                                          </td>

                                       </tr>

                                    </table>

                                 </fieldset>

                              </td>

                           </tr>

                           <%If bIndefinitelyPaused Then%>

                              <tr>

                                 <td>

                                    <span class='err_alert'>

                                       <font size='2'><b>WARNING: Indefinite Pause, Build Daemons are all stopped - please contact an administrator</b></font>

                                    </span>

                                 </td>

                              </tr>

                           <%End If%>

                        </table>

                     </td>

                     <td width="1%"></td>

                  </tr>

                  <tr>

                     <td align="left" valign="top" background="images/lbox_bg_blue.gif"><img src="images/lbox_tl_cnr_b.gif" width="13" height="13"></td>

                     <td background="images/lbox_bg_blue.gif" class="lbox_ttl_w"><img src="images/h_trsp_dot.gif" width="600" height="15"></td>

                     <td align="right" valign="top" background="images/lbox_bg_blue.gif"><img src="images/lbox_tr_cnr_b.gif" width="13" height="13"></td>

                  </tr>

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

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

                           <tr>

                              <td valign="middle" nowrap background="images/bg_table_col.gif" class="body_col">Project

                                 <input name="NOPRJ" id="NOPRJ" type="Button" value="All" onclick="toggle_all_projects(1)">

                                 <input name="NOPRJ" id="NOPRJ" type="Button" value="None" onclick="toggle_all_projects(0)">

                              </td>

                              <!-- Status Table Header -->

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

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

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

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

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

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

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

                           </tr>

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

                            '   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

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

                                        ' Display Project Header - ONCE

                                        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(<%=eMachine("PROJ_ID")%>)>

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

                                                </td>

                                            <%

                                        End If

                                        ' 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

                                                '   Empty cell, if the project header has been displayed

                                                If bProjectHeaderDone Then

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

                                                End If

                                                ' Display Release Header - Once, or a filler

                                                If NOT bReleaseHeaderDone Then

                                                    bReleaseHeaderDone = True

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

                                                    If bShowReleaseSep Then

                                                        %>