Hi there.

 

Hope you can help me. I've downloaded and installed the Integration package in order to integrate Chat with my current website.

 

I followed the instructions and added the following to my /global.asax file:

 

     Public Overrides Sub Init()

    End Sub

 

I then implemeted my CuteChatMembership class in a vb file located in my App_Code folder. The gist of it is below:

 

Imports System.Configuration
Imports System.Web
Imports System.Web.Security
Imports CuteChat

Public Class CuteChatMembership
    Inherits CuteChat.ChatProvider

    Public Overrides Function GetConnectionString() As String
        Return ConfigurationManager.ConnectionStrings("CuteChat").ConnectionString
    End Function

    Public Overrides Function FindUserLoginName(ByVal nickName As String) As String
        Return HttpContext.Current.User.Identity.Name
    End Function

    Public Overrides Function GetLogonIdentity() As AppChatIdentity
        'need to find the information of current user. Return null if user is anonymous.
        Dim thisUser As New LoggedInUser(HttpContext.Current.User.Identity.Name)
        If thisUser.LoggedIn Then
            Return New AppChatIdentity(HttpContext.Current.User.Identity.Name, False, thisUser.AccountID, HttpContext.Current.Request.UserHostAddress)
        Else
            Return Nothing
        End If
    End Function

    Public Overrides Function GetUserInfo(ByVal loginName As String, ByRef nickName As String, ByRef isAdmin As Boolean) As Boolean
        isAdmin = True
        nickName = loginName
        Return True
    End Function
    Public Overrides Function ValidateUser(ByVal loginName As String, ByVal password As String) As Boolean
        If System.Web.Security.Membership.ValidateUser(loginName, password) Then
            System.Web.Security.FormsAuthentication.SetAuthCookie(loginName, False)
            Return True
        Else
            Return False
        End If
    End Function

Chage:

 

Public Overrides Function GetUserInfo(ByVal loginName As String, ByRef nickName As String, ByRef isAdmin As Boolean) As Boolean
        isAdmin = True
        nickName = loginName
        Return True
    End Function

 

to:

 

Public Overrides Function GetUserInfo(ByVal loginName As String, ByRef nickName As String, ByRef isAdmin As Boolean) As Boolean

        If Not HttpContext.Current.Request.IsAuthenticated Then
            Return False
        End If
        isAdmin = True
        nickName = loginName
        Return True
    End Function

Hi Adam,

 

Thank you for the prompt reply. Unfortunately, I'm still getting the same problem. It is detecting whether I am logged in fine, it's just not giving me admin privledges.

 

Code pasted below for your reference:

 

Imports System.Configuration
Imports System.Web
Imports System.Web.Security
Imports CuteChat

Public Class CuteChatMembership
    Inherits CuteChat.ChatProvider

    Public Overrides Function GetConnectionString() As String
        Return ConfigurationManager.ConnectionStrings("CuteChat").ConnectionString
    End Function

    Public Overrides Function FindUserLoginName(ByVal nickName As String) As String
        Return HttpContext.Current.User.Identity.Name
    End Function

    Public Overrides Function GetLogonIdentity() As AppChatIdentity
        'need to find the information of current user. Return null if user is anonymous.
        Dim thisUser As New LoggedInUser(HttpContext.Current.User.Identity.Name)
        If thisUser.LoggedIn Then
            Return New AppChatIdentity(HttpContext.Current.User.Identity.Name, False, thisUser.AccountID, HttpContext.Current.Request.UserHostAddress)
        Else
            Return Nothing
        End If
    End Function

    Public Overrides Function GetUserInfo(ByVal loginName As String, ByRef nickName As String, ByRef isAdmin As Boolean) As Boolean
        If Not HttpContext.Current.Request.IsAuthenticated Then
            Return False
        End If
        isAdmin = True
        nickName = loginName
        Return True
    End Function
    Public Overrides Function ValidateUser(ByVal loginName As String, ByVal password As String) As Boolean
        Dim objAccount As New Techflare.Mongoose.Core.Account
        If objAccount.Login(loginName, password, String.Empty) Then
            FormsAuthentication.SetAuthCookie(loginName, False)
            FormsAuthentication.GetRedirectUrl(loginName, False)
            Return True
        Else
            Return False
        End If
    End Function
End Class

Hmm, not sure exactly what you mean.

 

What I've done is exactly as follows: 

 

- Downloaded http://cutesoft.net/downloads/folders/chat_current_releases/entry28676.aspx

- Followed the guide: http://cutesoft.net/ASP.NET+Chat/Developer-Guide/ (first "Installing Chat/Messenger Standalone", then "Membership Database Integration")

- Tried going to /CuteSoft_Client/CuteChat/ChatAdmin

- Was redirected to /login.aspx. So I logged in via my website's login facility.

- Tried going back to ChatAdmin.

- Received error about no admin permission.

 

I haven't done any set-up of the chat itself as I can't log into the Admin console at all.

 

 

1. Create a chat room first using the standlalone version.

 

2. Make sure the user can login chat room using the same username of your system.

 

3. Work on this admin part later.

Hi Adam,

 

I was able to create a room by directly editing the database, and added an embedded chat room on one of my pages. When I go to it, it uses my login name from the website successfully and I can chat fine. However, I still cannot access the admin functionality. Please advise.

 

And while I'm here, just a different question: Is it possible to allow Guest users in the custom integrated version of the chat, i.e. people who just want to chat with a temp username and they don't want to go through the hassle of creating an account on my website?

techflare,

 

1.

You need to check the following implementation:

 

public override bool GetUserInfo(string loginName, ref string nickName, ref bool isAdmin)
{
       return false , if the loginName is invalid.
       otherwise set the nickName and isAdmin , and return ture
}

 

2.

If you allow anoymous users join your chat room, it will use the user name like: Guest_c319.

Hi Adam,

 

I've confirmed that it's as follows:

 

    Public Overrides Function GetUserInfo(ByVal loginName As String, ByRef nickName As String, ByRef isAdmin As Boolean) As Boolean
        'return false , if the loginName is invalid.
        'otherwise set the nickName and isAdmin , and return ture
        nickName = "test"
        isAdmin = True
    End Function

I fixed this issue by overriding the IsAdministrator function:

        Public Overrides Function IsAdministrator(ByVal userid As String) As Boolean

 

            End If

 

        End Function

 

Hope this helps.