Imports CharterDotCom.CommonEntities.Library.Enumerations
Imports CharterDotCom.WebSite.Library
Imports CharterDotCom.CommonEntities.Library
' Imports CharterDotCom.Common.Logging
Imports CheckFirmwareUpgradeEligibility

Partial Class msloginsso
    Inherits CharterCMSPage

    Protected Sub Page_Init(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Init
        SetContentKeys()
    End Sub

    Private Sub SetContentKeys()
        'Support / Overview
        'Me.litSupportOverviewHeader.Text = GetCMSContent("Support:Overview:Header")
    End Sub

    Protected Sub btnCheck_Click1(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles btnCheck.Click
        If Page.IsValid Then
            Dim account As String
            Dim mac As String
            Dim phone As String
            Dim zip As String

            Dim eligibilityStatus As String

            account = accountNumber.Text
            mac = macAddress.Text
            phone = phoneNumber.Text

            If Len(phone) > 0 then
                zip = zipCode1.Text
            Else
                zip = zipCode2.Text
            End If

            'Dim checkLegacyWIFI As ClsCheckLegacyWIFI = New ClsCheckLegacyWIFI()
            'checkLegacyWIFI.AccountNumber = account
            'checkLegacyWIFI.MacAddress = mac
            'checkLegacyWIFI.PhoneNumber = phone
            'checkLegacyWIFI.ZipCodeAccount = zipCode2.Text
            'checkLegacyWIFI.ZipCodePhone = zipCode1.Text
            'eligibilityStatus = checkLegacyWIFI.checkEligibilityStatus(checkLegacyWIFI)

            eligibilityStatus = SiteManager.Instance.GetEligibility(account, mac, phone, zipCode2.Text, zipCode1.Text)

            If Len(eligibilityStatus) = 0 Then
                lblError.Visible = False
                Response.Redirect("FWQuestion.aspx")
            Else
                lblError.Visible = True
                lblError.Text = eligibilityStatus
            End If

            'Logger.WebLog("GetCMSContent")
        End If
    End Sub

    Private Function GetCMSContent(ByVal userControlName As String) As String
        Dim cmsContent As String = String.Empty

        'Logger.WebLog("GetCMSContent")

        cmsContent = ContentManager.Instance.GetContent(userControlName, "1", OwnerType.Other)
        If (cmsContent Is Nothing) Then
            cmsContent = "content not found: " & userControlName
        End If
        Return cmsContent
    End Function
End Class