Imports AppAuth
Imports AppCommon
Imports AppVariable

Partial Public Class loginSP
    Inherits System.Web.UI.Page

#Region "******************** ページイベント ********************"

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        'ヘッダの左領域を設定
        SetHeaderLeft(lb_user, lb_title)

        '---------------------------------------------------------------
        'HTMLタグを追加
        '---------------------------------------------------------------
        Dim ctl As Control = Page.FindControl("login_header")
        'JS
        SetTagJs(ctl, "common.js")
        SetTagJs(ctl, "jquery-1.8.3.min.js")
        SetTagJs(ctl, "login.js")
        'CSS
        SetTagCss(ctl, "login.css")
        'ファビコン
        SetTagFavicon(ctl)

        'PC版のログインページへ遷移
        HL_ChangeSite.NavigateUrl = HttpContext.Current.Request.ApplicationPath & "/" & "Login.aspx"

    End Sub

#End Region

#Region "***************** コントロールイベント *****************"

    Protected Sub Login_Authenticate(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.AuthenticateEventArgs) Handles Login.Authenticate
        Dim auth As Boolean = False

        Session.Clear()

        Dim LDAP_Auth_Use As String = String.Empty
        LDAP_Auth_Use = System.Configuration.ConfigurationManager.AppSettings("LDAP_Auth_Use")

        If LDAP_Auth_Use = "-1" Then
            'LDAP認証しない場合は固定のパスワードチェック
            Dim skipPassword As String = String.Empty
            skipPassword = System.Configuration.ConfigurationManager.AppSettings("SkipLDAPPassword")

            If Login.Password <> skipPassword Then
                Login.FailureText = "【管理者認証に失敗しました。】"
                Exit Sub
            Else
                auth = True
            End If
        Else

            'LDAPサーバへのアカウント認証
            'auth = Auth_LDAP(LDAP_ServerName, _
            '                    LDAP_Port, _
            '                    LDAP_Search_Scope, _
            '                    LDAP_DomainName, _
            '                    Login.UserName, _
            '                    Login.Password)

            auth = True
        End If

        If auth Then
            'ポータルへのアカウント認証
            auth = Auth_Portal(Login.UserName, Login.Password, "0")     '2014.4.28 引数追加/牧

            If auth Then

                'トップページ呼び出し
                Session(S_MSP_Selected_MenuCD) = Com_Get_変数("PT_TOP_MOBILE_NAVI")  'モバイル版用

                Session(S_COM_DisplayMode) = "mobile"  'モバイル版用

                Login.DestinationPageUrl = Com_Get_Content(Com_Get_変数("PT_TOP_MOBILE_MENU"))  'モバイル版用

            Else
                Login.FailureText = "アカウントが無効です。管理者に問い合わせてください。</br>【ポータル認証に失敗しました。】"
            End If
        Else
            Login.FailureText = "ユーザーID、パスワードを確認してください。</br>【LDAP認証に失敗しました。】"
        End If

        e.Authenticated = auth
    End Sub

#End Region

End Class