Imports CharterDotCom.CommonEntities.Library
Imports CharterDotCom.CommonEntities.Library.Enumerations
Imports CharterDotCom.CommonEntities.Library.EntityMemberServices
Imports CharterDotCom.CommonEntities.Library.EntityEBSServices
Imports CharterDotCom.CommonEntities.Library.EntitySupport
Imports CharterDotCom.CommonEntities.Library.EntitySearch
Imports CharterDotCom.CommonEntities.Library.EntityWebConfig
Imports CharterDotCom.CommonEntities.Library.EntityG2BServices
Imports CharterDotCom.CommonEntities.Library.Common
Imports System.Web


Imports CharterDotCom.WebSite.Library
Imports CharterDotCom.Common.Util

Partial Class msloginsso
    Inherits CharterCMSPage

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        'AccountManager.Instance.SignOut()
        'FormsAuthentication.SignOut()

        ' issue 26553
        'CookieHandler.ClearCookies(Response, _
        '                            Request, _
        '                            Application("COOKIE_DOMAIN"))

        'Response.Redirect("~/Visitors/Login.aspx")
        Dim crypt As New Crypt()

        Dim verified As Boolean
        Dim UserName As String
        Dim Password As String
        Dim Timestamp As String

        Dim payload As String

        payload = Request.Form("Response")
        verified = crypt.VerifyAndDecryptPayload(payload)

        If verified Then
            UserName = crypt.Username
            Password = crypt.Password
            Timestamp = crypt.Timestamp

            'Response.Write("verified: " & verified & "<br />")
            'Response.Write("username: " & UserName & "<br />")
            'Response.Write("timestamp: " & timestamp & "<br />")

            Utilities.LoginHandler.Login(Me.Context, False, UserName, Password, "", Nothing, False)
            Response.Redirect("~/account/myaccount.aspx")
        Else
            Response.Redirect("~/Order/Login.aspx")
        End If




        'Dim cookie As HttpCookie
        'Dim ticket As FormsAuthenticationTicket
        'Dim encryptedText As String
        'Dim roleName As String

        'cookie = New HttpCookie(CookieName.m_UserName, UserName)
        'cookie.Expires = DateTime.Now.AddYears(1)
        'Response.Cookies.Add(cookie)

        'cookie = New HttpCookie(CookieName.m_ZipCode, ZipCode)
        'cookie.Expires = DateTime.Now.AddYears(1)
        'Response.Cookies.Add(cookie)

        'roleName = "member"

        'ticket = New FormsAuthenticationTicket(1, UserName, DateTime.Now, DateTime.Now.AddMinutes(60), False, roleName)

        'encryptedText = FormsAuthentication.Encrypt(ticket)
        'cookie = New HttpCookie(FormsAuthentication.FormsCookieName, encryptedText)
        'Response.Cookies.Add(cookie)

        'Dim accountInfo As IAccount

        'accountInfo = AccountManager.Instance.GetAccount()
        ' CookieHandler.StoreCookies(UserName, accountInfo.OSSProvidedAccountNumber, Response, Server, Application("COOKIE_DOMAIN"))

        'Response.Write("oss: " & accountInfo.OSSProvidedAccountNumber & "<br />")
        'Response.Write("form cookie name: " & FormsAuthentication.FormsCookieName & "<br />")
        'Response.Write("encrypted text: " & encryptedText & "<br />")

        'Dim blSignInResult As Boolean = False
        'blSignInResult = AccountManager.Instance.SignIn(UserName, "D0llar$ign", false)
        'Response.Write("signinresult: " & blSignInResult & "<br />")

        'accountInfo = AccountManager.Instance.GetAccount()
        'Response.Write("oss2: " & accountInfo.OSSProvidedAccountNumber & "<br />")
        'Response.Write("zip: " & accountInfo.BillingAddress.Zip & "<br />")

        'Response.Redirect("~/account/myaccount.aspx")

    End Sub
End Class