Beta Engine Feedback

iunderwo

I've had the opportunity to play with the Beta Engine and overall, I'm really quite pleased. However, here are a couple of improvements I'd like to see. Given the date on the alert engine (July 2005), I figure some of this might be done already:

Beta alerts need to function like normal alerts on the website. Currently, I can get them added to the event log, but I need them to show up in a list of triggered alerts. This is how our operations department knows to open a ticket and page someone in the event of an outage. We still do some things the old-fashioned way. A nice edit for the property would be to allow it to hide ack'd alerts if so chosen.

Acknowledgement should also go in the event log where it's easily visible.

I'd really like to see some better way to alert on a system reboot than exists currently (i.e. the alert has no reset condition which clutters up my alert list).

Otherwise, bravo!

// Ian Underwood - Network Engineering
// Boston Stock Exchange

iunderwo

I'll take back most of my second comment.

I made the following file in NetPerfMod\Resources\1-3-Alerts calling it 51-AllAlerts-Beta.Resource. Now all I need to do is figure out ack'ing from the website.

I changed the message portion, however, and made that reflect if the alert were acknowledged or not. And if so, who and when was it acknowledged.

EDIT : I corrected a couple of things regarding the state, which isn't the state of the object, but rather the state of the alert.

<!-- Title=All Triggered Alerts (Beta Engine) -->
<!-- Level=7 -->
<!--#include Virtual=/NetPerfMon/scripts/Resource.asp -->
<%
	Title="Active Alerts - Beta Engine"
	HelpPage="AllAlerts"
	SubTitle="All Triggered Alerts"
	SQL="SELECT * From AlertStatus Inner Join AlertDefinitions ON AlertStatus.AlertDefID = AlertDefinitions.AlertDefID AND State = 2 Order By AlertName, TriggerTimeStamp Desc"

	DoResourceHeader
	Set SQLResource = NetPerfMon.NewSQLResource
	SQLResource.SQL=SQL
	SQLResource.Execute

	dim ParamString

	Response.Write SQLResource.LastError
	If Not SQLResource.EOF Then DoReport
%>

<%	Sub DoReport	%>

	<table border="0" cellPadding="2" cellSpacing="0" width="100%">
	<tr>
		<td class="ReportHeader" width="20"> </td>
		<td class="ReportHeader">TIME OF ALERT</td>
		<td class="ReportHeader">NETWORK DEVICE</td>
		<td class="ReportHeader">CURRENT VALUE</td>
		<td class="ReportHeader">ACKNOWLEDGED</td>
	</tr>
	<%	Do While Not SQLResource.EOF	%>
	<%		If Property <> SQLResource.GetProperty("AlertName") Then	
				Property = SQLResource.GetProperty("AlertName")
	%>
				<tr>
					<td class="PropertyHeader" colspan="10" vAlign="center"><font color="Blue"><%=SQLResource.GetProperty("AlertName")%></font> </td>
				</tr>
	<%		End If	%>
			<tr>
				<td class="Property"><img src="/NetPerfMon/images/Event-19.gif" border="0"></td>
				<td class="Property" vAlign="center" width="80"><%=SQLResource.GetProperty("TriggerTimeStamp")%> </td>
				<td class="Property" vAlign="center">
					<%
					Select Case SQLResource.GetProperty("ObjectType")
						Case "Node"
							View="NodeDetails"
							ViewType="N"
							ParamString = SQLResource.GetProperty("NodeParamString")
						Case "Interface"
							View="InterfaceDetails"
							ViewType="I"
							ParamString = SQLResource.GetProperty("InterfaceParamString")
						Case "Volume"
							View="VolumeDetails"
							ViewType="V"
							ParamString = SQLResource.GetProperty("NodeParamString")
					End Select
					NetObject = ViewType & ":" & SQLResource.GetProperty("ActiveObject")

					%>
					<a <%=ParamString%> href="thwack.solarwinds.com/.../View.asp 
				</td>
				<td class="Property" vAlign="center"><font color="red"><b>
				  <%=ObjectStatus(ViewType,SQLResource.GetProperty("ActiveObject"))%>
				<%=StateText%></b></font> </td>
				<td class="Property" vAlign="center">
				  <%
				  Select Case SQLResource.GetProperty("Acknowledged")
				    Case "0"
				      AckText = "No"
				    Case "1"
				      AckText = "<b>Yes</b> @ " & SQLResource.GetProperty("AcknowledgedTime") & " by:<br>" & SQLResource.GetProperty("AcknowledgedBy")
				  End Select
				  %>
				  <%=AckText%> </td>
			</tr>

	<%		SQLResource.MoveNext
		Loop
	%>
	</table>
<%	End Sub	%>

	<br>
<%
  Function ObjectStatus(ObjectType, ObjectID)

  Select Case ObjectType
	  Case "I"
			SQL="SELECT * FROM Interfaces where InterfaceID = " & ObjectID
		Case "V"
		  SQL="SELECT * FROM Volumes where VolumeID = " & ObjectID
		Case "N"
		  SQL="SELECT * FROM Nodes where NodeID = " & ObjectID
		Case Else
		  ObjectStatus = "Other"
  End Select

  If ObjectStatus <> "Other" Then
    Set SQLResourceB = NetPerfMon.NewSQLResource
	  SQLResourceB.SQL = SQL
    SQLResourceB.Execute

    ObjectStatus = SQLResourceB.GetProperty("Status")
  End If

  End Function
%>

Feel free to share any optimizations / comments / code / etc.

// Ian Underwood - Network Engineering
// Boston Stock Exchange