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