1 files changed, 66 insertions, 0 deletions
diff --git a/samples/OpenIdRelyingPartyWebFormsVB/Global.asax.vb b/samples/OpenIdRelyingPartyWebFormsVB/Global.asax.vb
new file mode 100644
index 0000000..60ab0cc
--- /dev/null
+++ b/samples/OpenIdRelyingPartyWebFormsVB/Global.asax.vb
@@ -0,0 +1,66 @@
+Imports System
+Imports System.Collections.Specialized
+Imports System.Configuration
+Imports System.IO
+Imports System.Text
+Imports System.Web
+Imports DotNetOpenAuth.ApplicationBlock
+Imports DotNetOpenAuth.OAuth
+Imports OpenIdRelyingPartyWebFormsVB
+
+Public Class Global_asax
+	Inherits HttpApplication
+
+	Public Shared Logger As log4net.ILog = log4net.LogManager.GetLogger(GetType(Global_asax))
+
+	Friend Shared LogMessages As StringBuilder = New StringBuilder
+
+	Public Shared Function CollectionToString(ByVal collection As NameValueCollection) As String
+		Dim sw As StringWriter = New StringWriter
+		For Each key As String In collection.Keys
+			sw.WriteLine("{0} = '{1}'", key, collection(key))
+		Next
+		Return sw.ToString
+	End Function
+
+	Protected Sub Application_Start(ByVal sender As Object, ByVal e As EventArgs)
+		log4net.Config.XmlConfigurator.Configure()
+		Logger.Info("Sample starting...")
+	End Sub
+
+	Protected Sub Application_End(ByVal sender As Object, ByVal e As EventArgs)
+		Logger.Info("Sample shutting down...")
+		' this would be automatic, but in partial trust scenarios it is not.
+		log4net.LogManager.Shutdown()
+	End Sub
+
+	Protected Sub Application_BeginRequest(ByVal sender As Object, ByVal e As EventArgs)
+		' System.Diagnostics.Debugger.Launch();
+		Logger.DebugFormat("Processing {0} on {1} ", Request.HttpMethod, stripQueryString(Request.Url))
+		If (Request.QueryString.Count > 0) Then
+			Logger.DebugFormat("Querystring follows: " & vbLf & "{0}", CollectionToString(Request.QueryString))
+		End If
+		If (Request.Form.Count > 0) Then
+			Logger.DebugFormat("Posted form follows: " & vbLf & "{0}", CollectionToString(Request.Form))
+		End If
+	End Sub
+
+	Protected Sub Application_AuthenticateRequest(ByVal sender As Object, ByVal e As EventArgs)
+		Logger.DebugFormat("User {0} authenticated.", (Not (HttpContext.Current.User) Is Nothing))
+		'TODO: Warning!!!, inline IF is not supported ?
+	End Sub
+
+	Protected Sub Application_EndRequest(ByVal sender As Object, ByVal e As EventArgs)
+
+	End Sub
+
+	Protected Sub Application_Error(ByVal sender As Object, ByVal e As EventArgs)
+		Logger.ErrorFormat("An unhandled exception was raised. Details follow: {0}", HttpContext.Current.Server.GetLastError)
+	End Sub
+
+	Private Shared Function stripQueryString(ByVal uri As Uri) As String
+		Dim builder As UriBuilder = New UriBuilder(uri)
+		builder.Query = Nothing
+		Return builder.ToString
+	End Function
+End Class
+\ No newline at end of file