ILogHandler Property

Imports Leadtools
Imports Leadtools.MediaStreaming

Private Enum W3CLOG
  [date] = &H1
  time = &H2
  c_ip = &H4
  cs_username = &H8
  s_sitename = &H10
  s_computername = &H20
  s_ip = &H40
  s_port = &H80
  cs_method = &H100
  cs_uri_stem = &H200
  cs_uri_query = &H400
  sc_status = &H800
  sc_win32_status = &H1000
  sc_bytes = &H2000
  cs_bytes = &H4000
  time_taken = &H8000
  cs_version = &H10000
  cs_host = &H20000
  cs_user_agent = &H40000
  cs_cookie = &H80000
  cs_referer = &H100000
  sc_substatus = &H200000
End Enum

Public Class CW3CLogHandler : Implements ILtmsLogHandler
  Private m_enable As Boolean
  Private m_fields As Integer
  Private m_localtime As Boolean
  Private m_dtfile As DateTime
  Private m_software As String
  Private m_folder As String
  Private m_prefix As String
  Private m_sw As StreamWriter

  Public Sub New(ByVal prefix As String, ByVal software As String, ByVal enable As Boolean, ByVal folder As String, ByVal fields As Integer, ByVal localtime As Boolean)
     m_prefix = prefix
     m_software = software
     m_enable = enable
     m_folder = folder
     m_fields = fields
     m_localtime = localtime
  End Sub
  Protected Overrides Sub Finalize()

  End Sub

  Private Sub WriteString(ByVal str As String)
     m_sw.Write(str)
  End Sub

  Private Function GetTime(ByVal dTime As Double) As DateTime
     Dim dt As DateTime = DateTime.FromOADate(dTime)

     If m_localtime Then
       Return dt.ToLocalTime()
     End If

     Return dt
  End Function

  Private Function GetLogPath(ByVal timestamp As Double) As String
     Dim dt As DateTime = GetTime(timestamp)
     Dim strFullPath As String

     Try
       Dim resolver As PathResolver = New PathResolver()
       strFullPath = resolver.Resolve(m_folder)
     Catch
       Return ""
     End Try

     strFullPath &= "\"
     strFullPath &= m_prefix

     If (Not m_localtime) Then
       strFullPath &= dt.ToString("y-MM-dd-HH-mm-ss").Replace("-", "") & "UTC.log"
     Else
       strFullPath &= dt.ToString("y-MM-dd-HH-mm-ss").Replace("-", "") & ".log"
     End If

     Return strFullPath
  End Function

  Public Sub LoadConfig(ByVal server As Server)
     Dim enable As Boolean = m_enable
     Dim localtime As Boolean = m_localtime
     Dim folder As String = m_folder
     Dim fields As Integer = m_fields
     Dim dirty As Boolean = False

     Dim AppProps As ApplicationProperties = server.GetApplicationProperties()

     Try
       enable = AppProps.GetBoolean("LogEnable")
     Catch
       AppProps.AddBoolean("LogEnable", enable)
       dirty = True
     End Try

     Try
       localtime = AppProps.GetBoolean("LogLocalTime")
     Catch
       AppProps.AddBoolean("LogLocalTime", localtime)
       dirty = True
     End Try

     Try
       folder = AppProps.GetString("LogFolder")
     Catch
       AppProps.AddString("LogFolder", folder)
       dirty = True
     End Try

     Try
       fields = AppProps.GetInteger("LogFields")
     Catch
       AppProps.AddInteger("LogFields", fields)
       dirty = True
     End Try

     If dirty Then
       server.SetApplicationProperties(AppProps)
     End If

     ' if anything has changed then we need to close the current file
     If (Not enable) AndAlso (String.Compare(m_folder, folder, True) <> 0) OrElse fields <> m_fields OrElse m_localtime <> localtime Then
       If Not m_sw Is Nothing Then
         m_sw.Close()
       End If
     End If

     m_folder = folder
     m_localtime = localtime
     m_enable = enable
     m_fields = fields
  End Sub

  Private Function CreateLog(ByVal timestamp As Double) As Boolean
     If Not m_sw Is Nothing Then
       m_sw.Close()
     End If

     If (Not m_enable) Then
       Return False
     End If

     Try
       m_sw = File.CreateText(GetLogPath(timestamp))
     Catch
       Return False
     End Try

     m_dtfile = GetTime(timestamp)

     Dim s As String
     s = "#Software: " & m_software & Constants.vbCrLf
     WriteString(s)
     WriteString("#Version: 1.0" & Constants.vbCrLf)
     Dim dt As DateTime = GetTime(timestamp)
     s = "#Date: " & dt.ToString("yyyy-MM-dd HH:mm:ss") & Constants.vbCrLf
     WriteString(s)

     s = "#Fields:"

     If (m_fields And CInt(W3CLOG.date)) = CInt(W3CLOG.date) Then
       s &= " date"
     End If
     If (m_fields And CInt(W3CLOG.time)) = CInt(W3CLOG.time) Then
       s &= " time"
     End If
     If (m_fields And CInt(W3CLOG.s_sitename)) = CInt(W3CLOG.s_sitename) Then
       s &= " s-sitename"
     End If
     If (m_fields And CInt(W3CLOG.s_computername)) = CInt(W3CLOG.s_computername) Then
       s &= " s-computername"
     End If
     If (m_fields And CInt(W3CLOG.s_ip)) = CInt(W3CLOG.s_ip) Then
       s &= " s-ip"
     End If
     If (m_fields And CInt(W3CLOG.cs_method)) = CInt(W3CLOG.cs_method) Then
       s &= " cs-method"
     End If
     If (m_fields And CInt(W3CLOG.cs_uri_stem)) = CInt(W3CLOG.cs_uri_stem) Then
       s &= " cs-uri-stem"
     End If
     If (m_fields And CInt(W3CLOG.cs_uri_query)) = CInt(W3CLOG.cs_uri_query) Then
       s &= " cs-uri-query"
     End If
     If (m_fields And CInt(W3CLOG.s_port)) = CInt(W3CLOG.s_port) Then
       s &= " s-port"
     End If
     If (m_fields And CInt(W3CLOG.cs_username)) = CInt(W3CLOG.cs_username) Then
       s &= " cs-username"
     End If
     If (m_fields And CInt(W3CLOG.c_ip)) = CInt(W3CLOG.c_ip) Then
       s &= " c-ip"
     End If
     If (m_fields And CInt(W3CLOG.cs_version)) = CInt(W3CLOG.cs_version) Then
       s &= " cs-version"
     End If
     If (m_fields And CInt(W3CLOG.cs_user_agent)) = CInt(W3CLOG.cs_user_agent) Then
       s &= " cs(User-Agent)"
     End If
     If (m_fields And CInt(W3CLOG.cs_cookie)) = CInt(W3CLOG.cs_cookie) Then
       s &= " cs(Cookie)"
     End If
     If (m_fields And CInt(W3CLOG.cs_referer)) = CInt(W3CLOG.cs_referer) Then
       s &= " cs(Referer)"
     End If
     If (m_fields And CInt(W3CLOG.cs_host)) = CInt(W3CLOG.cs_host) Then
       s &= " cs-host"
     End If
     If (m_fields And CInt(W3CLOG.sc_status)) = CInt(W3CLOG.sc_status) Then
       s &= " sc-status"
     End If
     If (m_fields And CInt(W3CLOG.sc_substatus)) = CInt(W3CLOG.sc_substatus) Then
       s &= " sc-substatus"
     End If
     If (m_fields And CInt(W3CLOG.sc_win32_status)) = CInt(W3CLOG.sc_win32_status) Then
       s &= " sc-win32-status"
     End If
     If (m_fields And CInt(W3CLOG.sc_bytes)) = CInt(W3CLOG.sc_bytes) Then
       s &= " sc-bytes"
     End If
     If (m_fields And CInt(W3CLOG.cs_bytes)) = CInt(W3CLOG.cs_bytes) Then
       s &= " cs-bytes"
     End If
     If (m_fields And CInt(W3CLOG.time_taken)) = CInt(W3CLOG.time_taken) Then
       s &= " time-taken"
     End If
     s &= Constants.vbCrLf
     WriteString(s)

     m_sw.Flush()

     Return True
  End Function

  Private Function escape(ByVal s As String) As String
     Dim t As String = ""
     For Each c As Char In s
       If (Not Char.IsControl(c)) AndAlso (Not Char.IsWhiteSpace(c)) Then
         t &= c
       Else
         t &= "+"
       End If
     Next c

     Return t
  End Function

  Public Sub InitializeLog(ByVal timestamp As Double) Implements ILtmsLogHandler.InitializeLog
     CreateLog(timestamp)
  End Sub

  Public Sub TerminateLog() Implements ILtmsLogHandler.TerminateLog
     If Not m_sw Is Nothing Then
       m_sw.Close()
     End If
  End Sub

  Public Sub LogInformation(ByVal info As ILtmsLogInformation) Implements ILtmsLogHandler.LogInformation
     Dim s As String = ""

     If (Not m_enable) Then
       Return
     End If

     ' check if we need to roll to a new file
       Dim dt As DateTime = GetTime(info.TimeStamp)

       If m_sw Is Nothing OrElse dt.Day <> m_dtfile.Day OrElse dt.Month <> m_dtfile.Month OrElse dt.Year <> m_dtfile.Year Then
         If (Not CreateLog(info.TimeStamp)) Then
           Return
         End If
       End If
     If (m_fields And CInt(W3CLOG.date)) = CInt(W3CLOG.date) Then
       Dim dtDate As DateTime = GetTime(info.TimeStamp)

       If s.Length > 0 Then
         s &= " "
       End If
       s &= dtDate.ToString("yyyy-MM-dd")
     End If
     If (m_fields And CInt(W3CLOG.time)) = CInt(W3CLOG.time) Then
       Dim dtTime As DateTime = GetTime(info.TimeStamp)

       If s.Length > 0 Then
         s &= " "
       End If
       s &= dtTime.ToString("HH:mm:ss")
     End If
     If (m_fields And CInt(W3CLOG.s_sitename)) = CInt(W3CLOG.s_sitename) Then
       Dim str As String = info.SiteName
       If s.Length > 0 Then
         s &= " "
       End If
       If str.Length = 0 Then
         s &= "-"
       Else
         s &= escape(str)
       End If

     End If
     If (m_fields And CInt(W3CLOG.s_computername)) = CInt(W3CLOG.s_computername) Then
       Dim str As String = info.ComputerName
       If s.Length > 0 Then
         s &= " "
       End If
       If str.Length = 0 Then
         s &= "-"
       Else
         s &= escape(str)
       End If
     End If
     If (m_fields And CInt(W3CLOG.s_ip)) = CInt(W3CLOG.s_ip) Then
       Dim str As String = info.ServerIP
       If s.Length > 0 Then
         s &= " "
       End If
       If str.Length = 0 Then
         s &= "-"
       Else
         s &= escape(str)
       End If
     End If
     If (m_fields And CInt(W3CLOG.cs_method)) = CInt(W3CLOG.cs_method) Then
       Dim str As String = info.Method
       If s.Length > 0 Then
         s &= " "
       End If
       If str.Length = 0 Then
         s &= "-"
       Else
         s &= escape(str)
       End If
     End If
     If (m_fields And CInt(W3CLOG.cs_uri_stem)) = CInt(W3CLOG.cs_uri_stem) Then
       Dim str As String = info.URIStem
       If s.Length > 0 Then
         s &= " "
       End If
       If str.Length = 0 Then
         s &= "-"
       Else
         s &= escape(str)
       End If
     End If
     If (m_fields And CInt(W3CLOG.cs_uri_query)) = CInt(W3CLOG.cs_uri_query) Then
       Dim str As String = info.URIQuery
       If s.Length > 0 Then
         s &= " "
       End If
       If str.Length = 0 Then
         s &= "-"
       Else
         s &= escape(str)
       End If
     End If
     If (m_fields And CInt(W3CLOG.s_port)) = CInt(W3CLOG.s_port) Then
       Dim n As Integer = info.ServerPort
       If s.Length > 0 Then
         s &= " "
       End If
       s &= n.ToString()
     End If
     If (m_fields And CInt(W3CLOG.cs_username)) = CInt(W3CLOG.cs_username) Then
       Dim str As String = info.UserName
       If s.Length > 0 Then
         s &= " "
       End If
       If str.Length = 0 Then
         s &= "-"
       Else
         s &= escape(str)
       End If
     End If
     If (m_fields And CInt(W3CLOG.c_ip)) = CInt(W3CLOG.c_ip) Then
       Dim str As String = info.ClientIP
       If s.Length > 0 Then
         s &= " "
       End If
       If str.Length = 0 Then
         s &= "-"
       Else
         s &= escape(str)
       End If
     End If
     If (m_fields And CInt(W3CLOG.cs_version)) = CInt(W3CLOG.cs_version) Then
       Dim str As String = info.ProtocolVersion
       If s.Length > 0 Then
         s &= " "
       End If
       If str.Length = 0 Then
         s &= "-"
       Else
         s &= escape(str)
       End If
     End If
     If (m_fields And CInt(W3CLOG.cs_user_agent)) = CInt(W3CLOG.cs_user_agent) Then
       Dim str As String = info.UserAgent
       If s.Length > 0 Then
         s &= " "
       End If
       If str.Length = 0 Then
         s &= "-"
       Else
         s &= escape(str)
       End If
     End If
     If (m_fields And CInt(W3CLOG.cs_cookie)) = CInt(W3CLOG.cs_cookie) Then
       Dim str As String = info.Cookie
       If s.Length > 0 Then
         s &= " "
       End If
       If str.Length = 0 Then
         s &= "-"
       Else
         s &= escape(str)
       End If
     End If
     If (m_fields And CInt(W3CLOG.cs_referer)) = CInt(W3CLOG.cs_referer) Then
       Dim str As String = info.Referrer
       If s.Length > 0 Then
         s &= " "
       End If
       If str.Length = 0 Then
         s &= "-"
       Else
         s &= escape(str)
       End If
     End If
     If (m_fields And CInt(W3CLOG.cs_host)) = CInt(W3CLOG.cs_host) Then
       Dim str As String = info.Host
       If s.Length > 0 Then
         s &= " "
       End If
       If str.Length = 0 Then
         s &= "-"
       Else
         s &= escape(str)
       End If
     End If
     If (m_fields And CInt(W3CLOG.sc_status)) = CInt(W3CLOG.sc_status) Then
       Dim n As Integer = info.Status
       If s.Length > 0 Then
         s &= " "
       End If
       s &= n.ToString()
     End If
     If (m_fields And CInt(W3CLOG.sc_substatus)) = CInt(W3CLOG.sc_substatus) Then
       Dim n As Integer = info.ProtocolSubStatus
       If s.Length > 0 Then
         s &= " "
       End If
       s &= n.ToString()
     End If
     If (m_fields And CInt(W3CLOG.sc_win32_status)) = CInt(W3CLOG.sc_win32_status) Then
       Dim n As Integer = info.Win32Status
       If s.Length > 0 Then
         s &= " "
       End If
       s &= n.ToString()
     End If
     If (m_fields And CInt(W3CLOG.sc_bytes)) = CInt(W3CLOG.sc_bytes) Then
       Dim n As Integer = info.BytesSent
       If s.Length > 0 Then
         s &= " "
       End If
       If n < 0 Then
         s &= "-"
       Else
         s &= n.ToString()
       End If
     End If
     If (m_fields And CInt(W3CLOG.cs_bytes)) = CInt(W3CLOG.cs_bytes) Then
       Dim n As Integer = info.BytesReceived
       If s.Length > 0 Then
         s &= " "
       End If
       If n < 0 Then
         s &= "-"
       Else
         s &= n.ToString()
       End If
     End If
     If (m_fields And CInt(W3CLOG.time_taken)) = CInt(W3CLOG.time_taken) Then
       Dim n As Integer = info.TimeTaken
       If s.Length > 0 Then
         s &= " "
       End If
       If n < 0 Then
         s &= "-"
       Else
         s &= n.ToString()
       End If
     End If

     s &= Constants.vbCrLf
     WriteString(s)
     m_sw.Flush()
  End Sub
End Class


Public _server As Server = Nothing
Public _result As Boolean = False

Public Sub W3CLogHandlerExample()
  Try
     Dim enumState As State
     Dim _loghandler As CW3CLogHandler

     ' create an instance of the server object
     _server = New Leadtools.MediaStreaming.Server()

     ' create the log handler
     _loghandler = New CW3CLogHandler("ltmsServer_", "LEADTOOLS Media Streaming Server", True, "ltmsLogFolder", 0, False)

     ' set the log handler
     _server.ILogHandler = _loghandler

       ' for demonstration, compare the interface we just set
       Dim ihandler As ILtmsLogHandler = Nothing
       ihandler = _server.ILogHandler
       If Not ihandler Is CType(_loghandler, ILtmsLogHandler) Then
         _result = False
         Return
       End If

     ' load the config file located in the config subfolder under the executable folder
     ' or comment this section out to run with the server�s default settings
     _server.ImportConfigFile("ltmsConfigFolder\LeadtoolsMediaStreamingServer.xml")

     ' start the server
     _server.Start()

     ' confirm the running state for demonstration purposes
     enumState = _server.State

     If enumState = State.Started Then
       ' display a message that the server is running and wait for OK
       MessageBox.Show("The server has started. Press OK to stop.", "LEADTOOLS Media Streaming Examples", MessageBoxButtons.OK, MessageBoxIcon.Information)
     End If

     ' stop the server
     _server.Stop()

     ' remove the log handler
     _server.ILogHandler = Nothing

     _result = True
  Catch e1 As Exception
     _result = False
  End Try
End Sub