Merge pull request #359 from DavidChristiansen/develop

Closes #356, Closes #357, Closes #358

1 files changed, 0 insertions, 73 deletions

diff --git a/samples/OpenIdRelyingPartyWebFormsVB/My Project/MyExtensions/MyWebExtension.vb b/samples/OpenIdRelyingPartyWebFormsVB/My Project/MyExtensions/MyWebExtension.vb
deleted file mode 100644
index 78c7c19..0000000
--- a/samples/OpenIdRelyingPartyWebFormsVB/My Project/MyExtensions/MyWebExtension.vb
+++ /dev/null
@@ -1,73 +0,0 @@
-#If _MyType <> "Empty" Then
-
-Namespace My
-    ''' <summary>
-    ''' Module used to define the properties that are available in the My Namespace for Web projects.
-    ''' </summary>
-    ''' <remarks></remarks>
-    <Global.Microsoft.VisualBasic.HideModuleName()> _
-    Module MyWebExtension
-        Private s_Computer As New ThreadSafeObjectProvider(Of Global.Microsoft.VisualBasic.Devices.ServerComputer)
-        Private s_User As New ThreadSafeObjectProvider(Of Global.Microsoft.VisualBasic.ApplicationServices.WebUser)
-        Private s_Log As New ThreadSafeObjectProvider(Of Global.Microsoft.VisualBasic.Logging.AspLog)
-        ''' <summary>
-        ''' Returns information about the host computer.
-        ''' </summary>
-        <Global.System.Diagnostics.CodeAnalysis.SuppressMessageAttribute("Microsoft.Performance", "CA1811:AvoidUncalledPrivateCode")> _
-        Friend ReadOnly Property Computer() As Global.Microsoft.VisualBasic.Devices.ServerComputer
-            Get
-                Return s_Computer.GetInstance()
-            End Get
-        End Property
-        ''' <summary>
-        ''' Returns information for the current Web user.
-        ''' </summary>
-        <Global.System.Diagnostics.CodeAnalysis.SuppressMessageAttribute("Microsoft.Performance", "CA1811:AvoidUncalledPrivateCode")> _
-        Friend ReadOnly Property User() As Global.Microsoft.VisualBasic.ApplicationServices.WebUser
-            Get
-                Return s_User.GetInstance()
-            End Get
-        End Property
-        ''' <summary>
-        ''' Returns Request object.
-        ''' </summary>
-        <Global.System.Diagnostics.CodeAnalysis.SuppressMessageAttribute("Microsoft.Performance", "CA1811:AvoidUncalledPrivateCode")> _
-        <Global.System.ComponentModel.Design.HelpKeyword("My.Request")> _
-        Friend ReadOnly Property Request() As Global.System.Web.HttpRequest
-            <Global.System.Diagnostics.DebuggerHidden()> _
-            Get
-                Dim CurrentContext As Global.System.Web.HttpContext = Global.System.Web.HttpContext.Current
-                If CurrentContext IsNot Nothing Then
-                    Return CurrentContext.Request
-                End If
-                Return Nothing
-            End Get
-        End Property
-        ''' <summary>
-        ''' Returns Response object.
-        ''' </summary>
-        <Global.System.Diagnostics.CodeAnalysis.SuppressMessageAttribute("Microsoft.Performance", "CA1811:AvoidUncalledPrivateCode")> _
-         <Global.System.ComponentModel.Design.HelpKeyword("My.Response")> _
-         Friend ReadOnly Property Response() As Global.System.Web.HttpResponse
-            <Global.System.Diagnostics.DebuggerHidden()> _
-            Get
-                Dim CurrentContext As Global.System.Web.HttpContext = Global.System.Web.HttpContext.Current
-                If CurrentContext IsNot Nothing Then
-                    Return CurrentContext.Response
-                End If
-                Return Nothing
-            End Get
-        End Property
-        ''' <summary>
-        ''' Returns the Asp log object.
-        ''' </summary>
-        <Global.System.Diagnostics.CodeAnalysis.SuppressMessageAttribute("Microsoft.Performance", "CA1811:AvoidUncalledPrivateCode")> _
-        Friend ReadOnly Property Log() As Global.Microsoft.VisualBasic.Logging.AspLog
-            Get
-                Return s_Log.GetInstance()
-            End Get
-        End Property
-     End Module
-End Namespace
-
-#End If
\ No newline at end of file