Production Alarms

[JayM]

hello all!

I've written some windows services that basically poll the DB and send and receive .txt files via an FTP service. We also have a web front-end.

At this point we're ready to start putting in some self-monitoring pieces. I'd like to know if there's any built-in functionality w/ .NET that allows emails/notifications to be sent out when files fail to process and/or fatal error messages are detected are log files.

Thanks,

Jay

[miranda]

What about putting something similar to this in the Global.asax file?

Sub Application_Error(Sender As Object, E As EventArgs)
' Code that runs when an unhandled error occurs
Try
Dim mail As MailMessage = New MailMessage
mail.From = "ErrorSender@mysite.com"
mail.To = "me@mysite.com"
mail.Subject = "mysite.com Site Error"
mail.Body = BuildMessage()
mail.BodyFormat = MailFormat.Html
mail.Priority = MailPriority.Normal
SmtpMail.SmtpServer = "mail.mysite.com"
SmtpMail.Send(mail)
Catch ex As Exception
End Try
End Sub

Function BuildMessage() As String

Dim strMessage As New StringBuilder

strMessage.Append("<style type=""text/css"">")
strMessage.Append("<!--")
strMessage.Append(".basix {")
strMessage.Append("font-family: Verdana, Arial, Helvetica, sans-serif;")
strMessage.Append("font-size: 12px;")
strMessage.Append("}")
strMessage.Append(".header1 {")
strMessage.Append("font-family: Verdana, Arial, Helvetica, sans-serif;")
strMessage.Append("font-size: 12px;")
strMessage.Append("font-weight: bold;")
strMessage.Append("color: #000099;")
strMessage.Append("}")
strMessage.Append(".tlbbkground1 {")
strMessage.Append("background-color: #000099;")
strMessage.Append("}")
strMessage.Append("-->")
strMessage.Append("</style>")

strMessage.Append("<table width=""85%"" border=""0"" align=""center"" cellpadding=""5"" cellspacing=""1"" class=""tlbbkground1"">")
strMessage.Append("<tr bgcolor=""#eeeeee"">")
strMessage.Append("<td colspan=""2"" class=""header1"" align=""center"">Page Error</td>")
strMessage.Append("</tr>")
strMessage.Append("<tr>")
strMessage.Append("<td width=""100"" align=""right"" bgcolor=""#eeeeee"" class=""header1"" nowrap>IP Address</td>")
strMessage.Append("<td bgcolor=""#FFFFFF"" class=""basix"">" & Request.ServerVariables("REMOTE_ADDR") & "</td>")
strMessage.Append("</tr>")
strMessage.Append("<tr>")
strMessage.Append("<td width=""100"" align=""right"" bgcolor=""#eeeeee"" class=""header1"" nowrap>User Agent</td>")
strMessage.Append("<td bgcolor=""#FFFFFF"" class=""basix"">" & Request.ServerVariables("HTTP_USER_AGENT") & "</td>")
strMessage.Append("</tr>")
strMessage.Append("<tr>")
strMessage.Append("<td width=""100"" align=""right"" bgcolor=""#eeeeee"" class=""header1"" nowrap>Page</td>")
strMessage.Append("<td bgcolor=""#FFFFFF"" class=""basix"">" & Request.Url.AbsoluteUri & "</td>")
strMessage.Append("</tr>")
strMessage.Append("<tr>")
strMessage.Append("<td width=""100"" align=""right"" bgcolor=""#eeeeee"" class=""header1"" nowrap>Time</td>")
strMessage.Append("<td bgcolor=""#FFFFFF"" class=""basix"">" & System.DateTime.Now & " EST</td>")
strMessage.Append("</tr>")
strMessage.Append("<tr>")
strMessage.Append("<td width=""100"" align=""right"" bgcolor=""#eeeeee"" class=""header1"" nowrap>Details</td>")
strMessage.Append("<td bgcolor=""#FFFFFF"" class=""basix"">" & Server.GetLastError().InnerException.ToString() & "</td>")
strMessage.Append("</tr>")
strMessage.Append("</table>")
Return strMessage.ToString
End Function

[oracleguy]

Yeah, I did something similar in one of my ASPX applications like a year ago, it worked quite well. If it is something that is mission critical, you can even have it setup to email your cell phone.