Integration with an existing user membership database (VB)

Public Function GetConnectionString(ByVal user As CuteSoft.Chat.UserIdentity) As String Implements CuteSoft.Chat.IHttpApplicationConnectionStringProvider.GetConnectionString

    Return System.Configuration.ConfigurationSettings.AppSettings("SiteSqlServer")

End Function

Public Function GetUserUniqueName() As String Implements CuteSoft.Chat.IHttpApplicationUserAdapter.GetUserUniqueName

        If Not Context.Request.IsAuthenticated Then
            Return Nothing
        End If

        'email
        Return Context.User.Identity.Name
 End Function
    
 Public Function GetUserIdentity() As CuteSoft.Chat.UserIdentity Implements CuteSoft.Chat.IHttpApplicationUserAdapter.GetUserIdentity
        Dim un As String = GetUserUniqueName()
        If un Is Nothing Then
            Return CuteSoft.Chat.UserIdentity.CreateNull()
        End If

        Return New CuteSoft.Chat.UserIdentity(un, Nothing, Context.Request.UserHostAddress)
 End Function

Public Function IsAdministrator(ByVal useruniquename As String) As Boolean Implements CuteSoft.Chat.IHttpApplicationDataProvider.IsAdministrator

        Dim udb As New UsersDB
        Dim email As String = useruniquename

        Dim roles As String() = udb.GetRoles(email)
        Return Array.IndexOf(roles, "Admins") <> -1

End Function

Public Function GetUserDisplayName(ByVal useruniquename As String) As String Implements CuteSoft.Chat.IHttpApplicationDataProvider.GetUserDisplayName
        Dim udb As New UsersDB
        Dim email As String = useruniquename

 Public Function ListUserUniqueName() As String() Implements CuteSoft.Chat.IHttpApplicationDataProvider.ListUserUniqueName
        Dim udb As New AdminDB
        Dim sdr As SqlDataReader = udb.GetUsers()
        Try
            Dim list As New ArrayList
            Dim pos As Integer = sdr.GetOrdinal("Email")
            Do While sdr.Read
                list.Add(sdr.GetString(pos))
            Loop
            Return CType(list.ToArray(GetType(String)), String())
        Finally
            sdr.Close()
        End Try
  End Function

   Public Function SearchUserUniqueNameByDisplayName(ByVal userDisplaName As String) As String() Implements CuteSoft.Chat.IHttpApplicationDataProvider.SearchUserUniqueNameByDisplayName

        Dim emptystrings(0) As String

        If userDisplaName Is Nothing Then
            Return New String(0) {}
        End If

        userDisplaName = userDisplaName.ToLower()

        If userDisplaName = String.Empty Then
            Return emptystrings
        End If

        Dim names As New System.Collections.ArrayList

        Dim cmd As New SqlCommand
        cmd.Connection = New SqlConnection(GetConnectionString(Nothing))
        cmd.CommandText = "SELECT email FROM Users WHERE Name LIKE '%'+@p0+'%'"
        cmd.Parameters.Add("@p0", SqlDbType.NVarChar, 100)
        cmd.Parameters("@p0").Value = userDisplaName
        cmd.Connection.Open()
        Try
            Dim sdr As SqlDataReader = cmd.ExecuteReader()
            Try
                Do While sdr.Read()
                    names.Add(sdr.GetString(0)) '0-Email
                Loop
            Finally
                sdr.Close()
            End Try
        Finally
            cmd.Connection.Close()
        End Try

        Return CType(names.ToArray(GetType(String)), String())
  End Function

 Public Function IsLobbyAdmin(ByVal useruniquename As String, ByVal lobby As CuteSoft.Chat.CuteChatLobby) As Boolean Implements CuteSoft.Chat.IHttpApplicationDataProvider.IsLobbyAdmin
        Return False
 End Function

 Public Function SupportLogin(ByVal username As String, ByVal password As String) As Boolean Implements CuteSoft.Chat.IHttpApplicationSupportLogin.SupportLogin
        If username Is Nothing Or username.Trim() = "" Then
            Return False
        End If
        If password Is Nothing Or password = "" Then
            Return False
        End If
        username = username.Trim()

        Dim email As String = username

        Dim uniquename As String = email
        If CuteSoft.Chat.ChatApi.FindOperator(uniquename) Is Nothing Then
            Return False
        End If

        Dim udb As New UsersDB
        Dim security As New PortalSecurity

        Dim name As String = udb.Login(email, security.Encrypt(password))

        If name Is Nothing Or name = String.Empty Then
            Return False
        End If

        System.Web.Security.FormsAuthentication.SetAuthCookie(email, False, "/")

        Return True

   End Function

Public Sub SupportInit() Implements CuteSoft.Chat.IHttpApplicationSupportLogin.SupportInit
        ''nothing
End Sub