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>