summaryrefslogtreecommitdiffstats
path: root/samples/OpenIdRelyingPartyWebFormsVB/Code/State.vb
blob: e00cb4f40e72fff9e03371351cbfd81107008449 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
Imports DotNetOpenAuth.OpenId.Extensions.ProviderAuthenticationPolicy
Imports DotNetOpenAuth.OpenId.Extensions.SimpleRegistration
Imports DotNetOpenAuth.OpenId.Extensions.AttributeExchange

Public Class State
	Public Shared Property ProfileFields() As ClaimsResponse
		Get
			Return HttpContext.Current.Session("ProfileFields")
		End Get
		Set(ByVal value As ClaimsResponse)
			HttpContext.Current.Session("ProfileFields") = value
		End Set
	End Property

	Public Shared Property FetchResponse() As FetchResponse
		Get
			Return HttpContext.Current.Session("FetchResponse")
		End Get
		Set(ByVal value As FetchResponse)
			HttpContext.Current.Session("FetchResponse") = value
		End Set
	End Property

	Public Shared Property FriendlyLoginName() As String
		Get
			Return HttpContext.Current.Session("FriendlyLoginName")
		End Get
		Set(ByVal value As String)
			HttpContext.Current.Session("FriendlyLoginName") = value
		End Set
	End Property

	Public Shared Property PapePolicies() As PolicyResponse
		Get
			Return HttpContext.Current.Session("PapePolicies")
		End Get
		Set(ByVal value As PolicyResponse)
			HttpContext.Current.Session("PapePolicies") = value
		End Set
	End Property

	Public Shared Sub Clear()
		FriendlyLoginName = Nothing
	End Sub

End Class