Subversion Repositories DevTools

Rev

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

Rev 6183 Rev 6267
Line 57... Line 57...
57 
      Get_Daemon_Mode = "?"
 57 
      Get_Daemon_Mode = "?"
58 
   End If
 58 
   End If
59 
End Function
 59 
End Function
60 
 
 60 
 
61 
'--------------------------------------------------------------------------------------------------------------------------
 61 
'--------------------------------------------------------------------------------------------------------------------------
- 
 
 62 
'   aState - daemon State
- 
 
 63 
'                0 - Enabled
- 
 
 64 
'                1 - Paused
- 
 
 65 
'                2 - Disabled
62 
Function Get_Run_Level( nLevel, indefinitePause, astate)
 66 
Function Get_Run_Level( nLevel, indefinitePause, astate, bActive)
63 
 
 67 
 
- 
 
 68 
   If bActive = "N" Then
- 
 
 69 
        Get_Run_Level = "<span class='err_alert'>Machine Deprecated</span>"
- 
 
 70 
   ElseIf bActive = "U" Then
- 
 
 71 
        Get_Run_Level = ""
- 
 
 72 
   Else
64 
   If indefinitePause Then
 73 
       If indefinitePause Then
65 
      Get_Run_Level = "<span class='err_alert'>Stopped</span>"
 74 
          Get_Run_Level = "<span class='err_alert'>Stopped</span>"
66 
   ElseIf astate = 1 Then      ' if build daemon paused
 75 
       ElseIf astate = 1 Then      ' if build daemon paused
67 
      Get_Run_Level = "Paused"
 76 
          Get_Run_Level = "Paused"
68 
   ElseIf astate = 2 Then      ' if build daemon disabled
 77 
       ElseIf astate = 2 Then      ' if build daemon disabled
69 
      Get_Run_Level = "Disabled"
 78 
          Get_Run_Level = "Disabled"
70 
   ElseIf astate = 0 Then     ' if build daemon enabled
 79 
       ElseIf astate = 0 Then     ' if build daemon enabled
71 
      If nLevel = 1 Then
 80 
          If nLevel = 1 Then
72 
         Get_Run_Level = "Cannot Continue"
 81 
             Get_Run_Level = "Cannot Continue"
73 
      ElseIf nLevel = 2 Then
 82 
          ElseIf nLevel = 2 Then
74 
         Get_Run_Level = "Paused"
 83 
             Get_Run_Level = "Paused"
75 
      ElseIf nLevel = 3 Then
 84 
          ElseIf nLevel = 3 Then
76 
         Get_Run_Level = "Building"
 85 
             Get_Run_Level = "Building"
77 
      ElseIf nLevel = 4 Then
 86 
          ElseIf nLevel = 4 Then
78 
         Get_Run_Level = "Idle"
 87 
             Get_Run_Level = "Idle"
79 
      ElseIf nLevel = 5 Then
 88 
          ElseIf nLevel = 5 Then
80 
         Get_Run_Level = "Waiting"
 89 
             Get_Run_Level = "Waiting"
81 
      ElseIf nLevel = 6 Then
 90 
          ElseIf nLevel = 6 Then
82 
         Get_Run_Level = "Publishing"
 91 
             Get_Run_Level = "Publishing"
83 
      Else
 92 
          Else
84 
         Get_Run_Level = "<span class='err_alert'>Unknown!</span>"
 93 
             Get_Run_Level = "<span class='err_alert'>Unknown!</span>"
- 
 
 94 
          End If
85 
      End If
 95 
       End If
86 
   End If
 96 
   End If
87 
 
 97 
 
88 
End Function
 98 
End Function
89 
 
 99 
 
90 
'--------------------------------------------------------------------------------------------------------------------------
 100 
'--------------------------------------------------------------------------------------------------------------------------
91 
Function Get_Package_Name( sPackageName,nRtagId,nPkgPvid )
 101 
Function Get_Package_Name( sPackageName,nRtagId,nPkgPvid, bActive )
92 
 
 102 
 
- 
 
 103 
  If bActive = "U" Then
- 
 
 104 
      Get_Package_Name = ""
93 
  If IsNull(sPackageName) Then
 105 
  ElseIf IsNull(sPackageName) Then
94 
    Get_Package_Name = "None"
 106 
    Get_Package_Name = "None"
95 
  ElseIf IsNull(nPkgPvid) or nPkgPvid <= 0 Then
 107 
  ElseIf IsNull(nPkgPvid) or nPkgPvid <= 0 Then
96 
    Get_Package_Name = sPackageName
 108 
    Get_Package_Name = sPackageName
97 
  Else
 109 
  Else
98 
    Get_Package_Name = "<a class=""txt_linked"" href=""dependencies.asp?pv_id=" +  nPkgPvid + "&rtag_id=" + nRtagId + """>" + sPackageName + "</a>"
 110 
    Get_Package_Name = "<a class=""txt_linked"" href=""dependencies.asp?pv_id=" +  nPkgPvid + "&rtag_id=" + nRtagId + """>" + sPackageName + "</a>"