Subversion Repositories DevTools

Rev

Rev 3936 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 3936 Rev 4021
Line 272... Line 272...
272
   If rsQry2.RecordCount > 0 Then
272
   If rsQry2.RecordCount > 0 Then
273
      Indefinitely_Paused = True
273
      Indefinitely_Paused = True
274
   End If
274
   End If
275
End Function
275
End Function
276
'--------------------------------------------------------------------------------------------------------------------------
276
'--------------------------------------------------------------------------------------------------------------------------
-
 
277
Function PrettyDelta( delta, daemonState,pkgId )
-
 
278
    Dim style
-
 
279
    style = ""
-
 
280
 
-
 
281
    If (delta > 600) AND (IsNull(pkgId) OR pkgId = "") Then
-
 
282
      style = "style=color:Red"
-
 
283
      If (delta > 86400 ) Then
-
 
284
        Dim bdate, dd,mm,yy
-
 
285
        bdate = DateAdd("s", - delta,Now())
-
 
286
        dd = Day(bdate)
-
 
287
        mm = MonthName(Month(bdate),1)
-
 
288
        yy = Year( bdate)
-
 
289
        delta = dd & "-" & mm & "-" & yy
-
 
290
        If ( daemonState >= 2 ) Then
-
 
291
            style = ""
-
 
292
        End If
-
 
293
      ElseIf ( delta > 60*60 ) Then
-
 
294
        'Dim bdate, hh, mins, ss
-
 
295
        bdate = DateAdd("s", - delta,Now())
-
 
296
        delta = TimeValue( bdate)
-
 
297
        'delta = hh & ":" & mins & ":" & ss
-
 
298
      End If
-
 
299
    End If
-
 
300
 
-
 
301
    If style <> "" Then
-
 
302
        delta = "<span " & style & ">" & delta & "</span>"
-
 
303
    End If
-
 
304
    PrettyDelta = delta
-
 
305
End Function
-
 
306
 
-
 
307
'--------------------------------------------------------------------------------------------------------------------------
277
 
308
 
278
%>
309
%>
279
<%
310
<%
280
'------------ RUN BEFORE PAGE RENDER ----------
311
'------------ RUN BEFORE PAGE RENDER ----------
281
 
312
 
Line 934... Line 965...
934
                                       <td nowrap <%=styleNow%>><%=Get_Official(rsQry("official"))%></td>
965
                                       <td nowrap <%=styleNow%>><%=Get_Official(rsQry("official"))%></td>
935
                                       <td nowrap <%=styleNow%>><%=Get_Daemon_Mode(rsQry("daemon_mode"))%></td>
966
                                       <td nowrap <%=styleNow%>><%=Get_Daemon_Mode(rsQry("daemon_mode"))%></td>
936
                                       <td nowrap <%=styleNow%>><%=rsQry("display_name")%></td>
967
                                       <td nowrap <%=styleNow%>><%=rsQry("display_name")%></td>
937
                                       <td nowrap <%=styleNow%>><%=Get_Run_Level(rsQry("current_run_level"), bIndefinitelyPaused,daemonState)%></td>
968
                                       <td nowrap <%=styleNow%>><%=Get_Run_Level(rsQry("current_run_level"), bIndefinitelyPaused,daemonState)%></td>
938
                                       <td nowrap <%=styleNow%>><%=Get_Pkg_Name(pkgId)%></td>
969
                                       <td nowrap <%=styleNow%>><%=Get_Pkg_Name(pkgId)%></td>
939
 
-
 
940
                                       <%Dim style, delta
-
 
941
                                       style = ""
-
 
942
                                       delta = rsQry("delta")
-
 
943
                                       If (delta > 600) AND (IsNull(pkgId) OR pkgId = "") Then
-
 
944
                                          style = "style=color:Red"
-
 
945
                                          if( daemonState >= 2 ) AND (delta > 86400 ) Then
-
 
946
                                            Dim bdate, dd,mm,yy
-
 
947
                                            bdate = DateAdd("s", - delta,Now())
-
 
948
                                            dd = Day(bdate)
-
 
949
                                            mm = MonthName(Month(bdate),1)
-
 
950
                                            yy = Year( bdate)
-
 
951
                                            delta = dd & "-" & mm & "-" & yy
-
 
952
                                          	style = ""
-
 
953
                                          ElseIf ( delta > 60*60 ) Then
-
 
954
                                            'Dim bdate, hh, mins, ss
-
 
955
                                            bdate = DateAdd("s", - delta,Now())
-
 
956
                                            delta = TimeValue( bdate)
-
 
957
                                            'delta = hh & ":" & mins & ":" & ss
-
 
958
                                          End If
-
 
959
                                       End If%>
-
 
960
                                       <td nowrap <%=styleNow%><%=style%>><%=delta%></td>
970
                                       <td nowrap <%=styleNow%>><%=PrettyDelta(rsQry("delta"),daemonState,pkgId )%></td>
961
                                    <%End If%>
971
                                    <%End If%>
962
 
-
 
963
                                 </tr>
972
                                 </tr>
964
                                 <%End If%>
973
                                 <%End If%>
965
                              <%
974
                              <%
966
                              rsQry.MoveNext
975
                              rsQry.MoveNext
967
                           Loop
976
                           Loop