Subversion Repositories DevTools

Rev

Rev 6999 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 6999 Rev 7063
Line 29... Line 29...
29 
Dim styleAlt2
 29 
Dim styleAlt2
30 
Dim styleNow
 30 
Dim styleNow
31 
Dim param_refreshPeriod
 31 
Dim param_refreshPeriod
32 
Dim param_inactivity
 32 
Dim param_inactivity
33 
Dim param_refreshEnabled
 33 
Dim param_refreshEnabled
34 
Dim bIndefinitelyPaused
 - 
 
35 
Dim buildStatus
 34 
Dim buildStatus
36 
 
 35 
 
37 
Dim bShowProblemDaemonSets    ' Indicates if problem daemons must be shown during filtering
 36 
Dim bShowProblemDaemonSets    ' Indicates if problem daemons must be shown during filtering
38 
Dim bShowDisabledDaemons      ' Indicates if a disabled daemon must be shown during filtering
 37 
Dim bShowDisabledDaemons      ' Indicates if a disabled daemon must be shown during filtering
39 
Dim bShowActiveBuilds         ' Indicates if active builds must be shown during filtering
 38 
Dim bShowActiveBuilds         ' Indicates if active builds must be shown during filtering
Line 109... Line 108...
109 
        bms.Item("PKG_NAME")                    = rsQry("PKG_NAME")
 108 
        bms.Item("PKG_NAME")                    = rsQry("PKG_NAME")
110 
        bms.Item("ACTIVE")                      = rsQry("ACTIVE")
 109 
        bms.Item("ACTIVE")                      = rsQry("ACTIVE")
111 
 
 110 
 
112 
        ' Calculate some values
 111 
        ' Calculate some values
113 
        bms.Item("dState") = Classify_Run_Level(bms.Item("CURRENT_RUN_LEVEL"),_
 112 
        bms.Item("dState") = Classify_Run_Level(bms.Item("CURRENT_RUN_LEVEL"),_
114 
                                                bIndefinitelyPaused,_
 113 
                                                IndefPause,_
115 
                                                bms.Item("PAUSE"), _
 114 
                                                bms.Item("PAUSE"), _
116 
                                                bms.Item("delta") ,_
 115 
                                                bms.Item("delta") ,_
117 
                                                bms.Item("CURRENT_PKG_ID_BEING_BUILT"),_
 116 
                                                bms.Item("CURRENT_PKG_ID_BEING_BUILT"),_
118 
                                                bms.Item("ACTIVE"))
 117 
                                                bms.Item("ACTIVE"))
119 
 
 118 
 
120 
        bms.Item("dStateText") = Get_Run_Level(bms.Item("CURRENT_RUN_LEVEL"),_
 119 
        bms.Item("dStateText") = Get_Run_Level(bms.Item("CURRENT_RUN_LEVEL"),_
121 
                                               bIndefinitelyPaused,_
 120 
                                               IndefPause,_
122 
                                               bms.Item("PAUSE"),_
 121 
                                               bms.Item("PAUSE"),_
123 
                                               bms.Item("ACTIVE"))
 122 
                                               bms.Item("ACTIVE"))
124 
 
 123 
 
125 
        ' Kill package name on disabled daemons
 124 
        ' Kill package name on disabled daemons
126 
        If bms.Item("PAUSE") = 2 Then bms.Item("PKG_NAME") = Null
 125 
        If bms.Item("PAUSE") = 2 Then bms.Item("PKG_NAME") = Null
Line 354... Line 353...
354 
 
 353 
 
355 
' Read the Inactivity Period
 354 
' Read the Inactivity Period
356 
param_inactivity = NiceInt( Request("Inactivity"), Max_DeltaBuild)
 355 
param_inactivity = NiceInt( Request("Inactivity"), Max_DeltaBuild)
357 
If param_inactivity  = 0 Then param_inactivity = Max_DeltaBuild
 356 
If param_inactivity  = 0 Then param_inactivity = Max_DeltaBuild
358 
 
 357 
 
359 
 
 - 
 
360 
' Get indefinite pause status
 - 
 
361 
bIndefinitelyPaused = Indefinitely_Paused()
 - 
 
362 
 
 - 
 
363 
' Populate display controls
 358 
' Populate display controls
364 
bShowProblemDaemonSets = Filter_Is_On("problemBuilds")
 359 
bShowProblemDaemonSets = Filter_Is_On("problemBuilds")
365 
bShowActiveBuilds      = Filter_Is_On("activeBuilds")
 360 
bShowActiveBuilds      = Filter_Is_On("activeBuilds")
366 
bShowDisabledDaemons   = Filter_Is_On("disabledDaemons")
 361 
bShowDisabledDaemons   = Filter_Is_On("disabledDaemons")
367 
bShowIdleBuilds        = Filter_Is_On("idleBuilds")
 362 
bShowIdleBuilds        = Filter_Is_On("idleBuilds")
Line 638... Line 633...
638 
     <td width="100%">
 633 
     <td width="100%">
639 
        <table width="100%" class="embedded_table">
 634 
        <table width="100%" class="embedded_table">
640 
           <tr>
 635 
           <tr>
641 
              <td nowrap class="form_ttl">BUILD DAEMON STATUS INFORMATION</td>
 636 
              <td nowrap class="form_ttl">BUILD DAEMON STATUS INFORMATION</td>
642 
           </tr>
 637 
           </tr>
643 
           <%If bIndefinitelyPaused Then%>
 - 
 
644 
              <tr>
 - 
 
645 
                 <td>
 - 
 
646 
                    <span class='err_alert'>
 - 
 
647 
                       <font size='2'><b>WARNING: Indefinite Pause, Build Daemons are all stopped - please contact an administrator</b></font>
 - 
 
648 
                    </span>
 - 
 
649 
                 </td>
 - 
 
650 
              </tr>
 - 
 
651 
           <%End If%>
 - 
 
652 
        </table>
 638 
        </table>
653 
     </td>
 639 
     </td>
654 
  </tr>
 640 
  </tr>
655 
  <tr>
 641 
  <tr>
656 
    <td>
 642 
    <td>