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