Subversion Repositories DevTools

Rev

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

Rev 5506 Rev 6269
Line 167... Line 167...
167 
  Dim iWidth
 167 
  Dim iWidth
168 
  Dim iWidthEnd
 168 
  Dim iWidthEnd
169 
  Dim sDmStsAge
 169 
  Dim sDmStsAge
170 
  Dim sDmStsAgeTip
 170 
  Dim sDmStsAgeTip
171 
  Dim bTestAge
 171 
  Dim bTestAge
- 
 
 172 
  Dim bIsDeprecated
- 
 
 173 
  Dim bHasDeprecated : bHasDeprecated = false
172 
 
 174 
 
173 
  iHeight=isize
 175 
  iHeight=isize
174 
  ' the status icon default dimensions are height:48 and width:30
 176 
  ' the status icon default dimensions are height:48 and width:30
175 
  ' ie. ratio of height to width is 16:10
177 
  ' ie. ratio of height to width is 16:10
176 
  ' the bar end icon default dimensions are height:48 and width:8
 178 
  ' the bar end icon default dimensions are height:48 and width:8
Line 201... Line 203...
201 
    Response.Write("</td>")
 203 
    Response.Write("</td>")
202 
  Else
 204 
  Else
203 
    'add an icon for each daemon
 205 
    'add an icon for each daemon
204 
    Do While Not m_rsQryDS.NoMatch
 206 
    Do While Not m_rsQryDS.NoMatch
205 
      bTestAge = true
 207 
      bTestAge = true
206 
 
 - 
 
- 
 
 208 
      bIsDeprecated = m_rsQryDS("active") = "N"
207 
      iDmStsStatus=CInt(m_rsQryDS("status"))
 209 
      iDmStsStatus=CInt(m_rsQryDS("status"))
- 
 
 210 
 
- 
 
 211 
      If bIsDeprecated Then
- 
 
 212 
        bHasDeprecated = true
- 
 
 213 
        sDmStsImg="icons/tdmsts_notfound.gif"
- 
 
 214 
        sDmStsToolTip="Daemon Deprecated." & "&#13;"
- 
 
 215 
        bTestAge = false
208 
      If m_bIndefinitelyPaused Then
 216 
      ElseIf m_bIndefinitelyPaused Then
209 
        sDmStsImg="icons/tdmsts_stopped.gif"
 217 
        sDmStsImg="icons/tdmsts_stopped.gif"
210 
        sDmStsToolTip="Daemon indefinitley paused." & "&#13;"
 218 
        sDmStsToolTip="Daemon indefinitley paused." & "&#13;"
211 
        bTestAge = false
 219 
        bTestAge = false
212 
      ElseIf iDmStsStatus = -2 Then
 220 
      ElseIf iDmStsStatus = -2 Then
213 
        sDmStsImg="icons/tdmsts_timedout.gif"
 221 
        sDmStsImg="icons/tdmsts_timedout.gif"
Line 259... Line 267...
259 
  End If
 267 
  End If
260 
  ' add right side of chart
 268 
  ' add right side of chart
261 
  Response.Write("<td>")
 269 
  Response.Write("<td>")
262 
  Response.Write("<img src=""icons/tdmsts_right.gif"" width=" & iWidthEnd & " height=" & iHeight & " border=0 vspace=0 hspace=0>")
 270 
  Response.Write("<img src=""icons/tdmsts_right.gif"" width=" & iWidthEnd & " height=" & iHeight & " border=0 vspace=0 hspace=0>")
263 
  Response.Write("</td>")
 271 
  Response.Write("</td>")
264 
    If sDmStsAge <> "" Then
 272 
  If sDmStsAge <> "" Then
265 
      Response.Write("<td>")
 273 
    Response.Write("<td>")
266 
        Response.Write("<img src=""" & sDmStsAge & """ width=14 height=13 border=0 vspace=0 hspace=0 " & "title='" & sDmStsAgeTip & "'" & ">")
 274 
    Response.Write("<img src=""" & sDmStsAge & """ width=14 height=13 border=0 vspace=0 hspace=0 " & "title='" & sDmStsAgeTip & "'" & ">")
- 
 
 275 
    Response.Write("</td>")
- 
 
 276 
  End If
- 
 
 277 
  If bHasDeprecated Then
- 
 
 278 
    Response.Write("<td>")
- 
 
 279 
    Response.Write("<img src=""images/s_warning.gif"" width=14 height=13 border=0 vspace=0 hspace=0 " & "title='" & "One or more daemons have been deprecated" & "'" & ">")
267 
      Response.Write("</td>")
 280 
    Response.Write("</td>")
268 
    End If
 281 
  End If
269 
 
 282 
 
270 
  Response.Write("</tr>")
 283 
  Response.Write("</tr>")
271 
  Response.Write("</table>")
 284 
  Response.Write("</table>")
272 
  Response.Write("</td>")
 285 
  Response.Write("</td>")
273 
  Response.Write("</tr>")
 286 
  Response.Write("</tr>")