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

Partial Class Order_SSO
    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 payload As String

        '        verified = crypt.VerifyAndDecryptPayload(Nothing)
        '        verified = crypt.VerifyAndDecryptPayload("")
        '        verified = crypt.VerifyAndDecryptPayload("abc")
        '        verified = crypt.VerifyAndDecryptPayload("abc|dev")
        '        username = crypt.Username
        '        password = crypt.Password

        Response.Write("Monkey<br />")

        For Each s As String In Request.Form.AllKeys
            Response.Write(s & ": " & Request.Form(s) & "<br />")
        Next

        Dim selectcusttype As String = Request.Form("selectcusttype")
        Dim custtype As String = Request.Form("custtype")

        If selectcusttype = 1
            Response.Write("FORM!<br />")
            If custtype = "BIZ"
                Response.Redirect("~/order/test.aspx?nopop=1")
            Else
                Response.Redirect("https://www.dev-charter.net/login/?referer=myaccount")
            End If
        Else
            Response.Write("NO FORM!<br />")
        End If

        payload = Request.Form("Response")
        verified = crypt.VerifyAndDecryptPayload(payload)
        username = crypt.Username
        password = crypt.Password

        Response.Write("verified: " & verified & "<br />")
        Response.Write("username: " & username & "<br />")
        Response.Write("password: " & password & "<br />")

        'Response.Redirect("http://google.com")

        'Response.Redirect("~/order/msloginsso.aspx")

    End Sub
End Class