| Line 97... |
Line 97... |
| 97 |
OraDatabase.Parameters.Remove "RTAG_ID"
|
97 |
OraDatabase.Parameters.Remove "RTAG_ID"
|
| 98 |
OraDatabase.Parameters.Remove "USER_ID"
|
98 |
OraDatabase.Parameters.Remove "USER_ID"
|
| 99 |
|
99 |
|
| 100 |
End Sub
|
100 |
End Sub
|
| 101 |
'--------------------------------------------------------------------------------------------------------------------------
|
101 |
'--------------------------------------------------------------------------------------------------------------------------
|
| - |
|
102 |
Function PrettyDelta( delta, daemonState,pkgId )
|
| - |
|
103 |
Dim style
|
| - |
|
104 |
style = ""
|
| - |
|
105 |
|
| - |
|
106 |
If (delta > 600) AND (IsNull(pkgId) OR pkgId = "") Then
|
| - |
|
107 |
style = "style=color:Red"
|
| - |
|
108 |
If (delta > 86400 ) Then
|
| - |
|
109 |
Dim bdate, dd,mm,yy
|
| - |
|
110 |
bdate = DateAdd("s", - delta,Now())
|
| - |
|
111 |
dd = Day(bdate)
|
| - |
|
112 |
mm = MonthName(Month(bdate),1)
|
| - |
|
113 |
yy = Year( bdate)
|
| - |
|
114 |
delta = dd & "-" & mm & "-" & yy
|
| - |
|
115 |
If ( daemonState >= 2 ) Then
|
| - |
|
116 |
style = ""
|
| - |
|
117 |
End If
|
| - |
|
118 |
ElseIf ( delta > 60*60 ) Then
|
| - |
|
119 |
'Dim bdate, hh, mins, ss
|
| - |
|
120 |
bdate = DateAdd("s", - delta,Now())
|
| - |
|
121 |
delta = TimeValue( bdate)
|
| - |
|
122 |
'delta = hh & ":" & mins & ":" & ss
|
| - |
|
123 |
End If
|
| - |
|
124 |
End If
|
| - |
|
125 |
|
| - |
|
126 |
If style <> "" Then
|
| - |
|
127 |
delta = "<span " & style & ">" & delta & "</span>"
|
| - |
|
128 |
End If
|
| - |
|
129 |
PrettyDelta = delta
|
| - |
|
130 |
End Function
|
| - |
|
131 |
'--------------------------------------------------------------------------------------------------------------------------
|
| 102 |
Function Get_Daemon_Mode( cMode )
|
132 |
Function Get_Daemon_Mode( cMode )
|
| 103 |
|
133 |
|
| 104 |
If cMode = "S" Then
|
134 |
If cMode = "S" Then
|
| 105 |
Get_Daemon_Mode = "Slave"
|
135 |
Get_Daemon_Mode = "Slave"
|
| 106 |
ElseIf cMode = "M" Then
|
136 |
ElseIf cMode = "M" Then
|
| Line 560... |
Line 590... |
| 560 |
<td nowrap class="body_rowg"><%=rsQry("display_name")%></td>
|
590 |
<td nowrap class="body_rowg"><%=rsQry("display_name")%></td>
|
| 561 |
<td nowrap class="body_rowg"><%=rsQry("gbe_value")%></td>
|
591 |
<td nowrap class="body_rowg"><%=rsQry("gbe_value")%></td>
|
| 562 |
<td nowrap class="body_rowg"><%=Get_Daemon_Mode(rsQry("daemon_mode"))%></td>
|
592 |
<td nowrap class="body_rowg"><%=Get_Daemon_Mode(rsQry("daemon_mode"))%></td>
|
| 563 |
<td nowrap class="body_rowg"><%=Get_Run_Level(currentRunLevel, indefinitelyPaused,daemonState)%></td>
|
593 |
<td nowrap class="body_rowg"><%=Get_Run_Level(currentRunLevel, indefinitelyPaused,daemonState)%></td>
|
| 564 |
<td nowrap class="body_rowg"><%=Get_Package_Name(pkgName)%></td>
|
594 |
<td nowrap class="body_rowg"><%=Get_Package_Name(pkgName)%></td>
|
| 565 |
<%If (delta > 600) AND IsNull(pkgName) Then%>
|
- |
|
| 566 |
<td nowrap class="body_rowg" style=color:Red><%=delta%></td>
|
595 |
<td nowrap class="body_rowg"><%=PrettyDelta(delta, daemonState,pkgName )%></td>
|
| 567 |
<%else%>
|
- |
|
| 568 |
<td nowrap class="body_rowg"><%=delta%></td>
|
- |
|
| 569 |
<%end if%>
|
- |
|
| 570 |
|
- |
|
| 571 |
<td nowrap class="body_rowg">
|
596 |
<td nowrap class="body_rowg">
|
| 572 |
<%
|
597 |
<%
|
| 573 |
If (rsQry2.RecordCount > 0) AND NOT indefinitelyPaused Then
|
598 |
If (rsQry2.RecordCount > 0) AND NOT indefinitelyPaused Then
|
| 574 |
If objAccessControl.UserLogedIn Then
|
599 |
If objAccessControl.UserLogedIn Then
|
| 575 |
If IsNull(daemonState) Then
|
600 |
If IsNull(daemonState) Then
|