Referrer 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