Integrating KiwiSyslog....

asigiam60

I've seen where people are doing this, but don't know how. I've got kiwi logging to a table called syslog in the netperfmon db. Now what?

Chris Welch
UT Chattanooga

pancamo

We use kiwi to write to the DB also.. and...

I have written a custom .resource(see example below) to select the last XX syslogs, then we added the resource to the Node Details page...

Also, I have a custom .NET app that uses a grid that allows us to quicky group/sort/filter syslogs, traps, and soon NT eventlogs

the grid looks like the following:
www.devexpress.com/.../popup.aspx



Example KIWI resource:
Note: I used chardirectory API because we also use chardirector to display graphs of our Netiq Data, you will have get chartdirector or change the code slightly...



<!-- Title=KIWI Top 5 Syslogs by Node Name-->
<!-- Level=7 -->
<!-- Advanced=FALSE -->
<!--#include Virtual=/NetPerfMon/scripts/Resource.asp -->
<%


If Node.GetProperty("Node_sub_type") <> "WINDOWS" Then

if len(Resource.Title) = 0 then
Resource.Title = "SNMP SYSLOGS"
Resource.Sync
end if

Title=Resource.Title
SubTitle=Resource.SubTitle
EditButton="/NetPerfMon/Resources/NetIQServerEvents.Edit.asp?ResourceID=" & Resource.ResourceID & "&ViewID=" & ViewID & "&NetObject=" & NetObject

HelpPage="Node-ResponseTimeLoss"
DoResourceHeader

maxseverity =Resource.GetProperty("MaxRecords")
if maxseverity = "" then
maxseverity = 10
end if

'remove FQDN

ip = Node.GetProperty("IP_Address")
fqdn = Node.GetProperty("DNS")
MyPos = InStr(1, fqdn, ".")

if (MyPos > 0) then
hostname = Left(fqdn,MyPos-1)
end if

'or MsgTest Like '%housperf1%'

Set cd = CreateObject("ChartDirector.API")



SQL="Select Top 10 MsgDateTime, MsgPriority, MsgHostname, MsgInputSource, MsgText " & _
" FROM KiwiSyslog " & _
" WHERE (MsgInputSource <> 'SNMP') and MsgHostAddress = '" & ip & "' " & _
" ORDER BY MsgDateTime DESC"

Set rs = CreateObject("ADODB.RecordSet")
Call rs.Open(SQL, "DSN=KiwiSolarwinds; USER ID=XXXXXX; PASSWORD=XXXXX")
Set dbTable1 = cd.DBTable(rs,-1,10)
rs.Close()

MsgDateTime = dbTable1.getCol(0)
MsgPriority = dbTable1.getCol(1)
MsgHostname = dbTable1.getCol(2)
MsgInputSource = dbTable1.getCol(3)
MsgText = dbTable1.getCol(4)

DoReport
DoFooter
%>



<br>

<%
Sub DoFooter
Response.Write("</table>")
End Sub
%>
<% Sub DoHeader
If Not DidHeader Then %>
<table border=0 cellPadding=2 cellSpacing=0 width="100%">
<tr>
<td class="ReportHeader">EVENT MESSAGE</td>
<td class="ReportHeader">TIME</td>
</tr>
<% DidHeader = TRUE
End If
End Sub
%>


<% Sub DoReport %>
<% DoHeader
For i = 0 to Ubound(MsgHostname)
if (MsgHostname(i) <> "") then
%>
<td class="Property"><a href="solarwinds.amvescap.com/.../SearchNodes.Action.asp </td>
<td class="Property"><a href="solarwinds.amvescap.com/.../SearchNodes.Action.asp </td>
</tr>
<% End If
Next
End Sub
%>

<% End If %>

quote:Originally posted by asigiam60 I've seen where people are doing this, but don't know how. I've got kiwi logging to a table called syslog in the netperfmon db. Now what? Chris Welch UT Chattanooga