|
UnderRated
Starting Member
Portugal
39 Posts |
 Posted - 17 April 2005 : 17:42:00
|
Hi, i'm having a little problem with my conquerchat. I use it inside a forum where people already have their usernames established.
when i click to enter the chat it asks to enter a username again.
what I want to do is override this and loggin in to the chat with my username from the forum, so that way whatever username you registered to enter the forum will be the username that will be used to enter the chatroom aswell. That would avoid people entering with another members username.
here the code for the chat login page.
can anyone please tell me what has to be changed to do what i want to do?
<%
'
' $Id: default.asp,v 1.1.1.1 2003/03/09 22:45:57 peter Exp $
'
' This page is the main entrace for ConquerChat. It shows a list of currently
' logged in chatusers and makes it possible to log in by entering your user-
' name in the appropriate field.
'
' @author Peter Theill peter@theill.com
'
Option Explicit
Response.Buffer = True
%>
<!-- #include file="inc.common.asp" -->
<%
' many users does not read the included README.TXT file before trying to
' set up this chat -- in order to help them a bit we check if we have the
' required objects properly initialised
On Error Resume Next
If (NOT IsObject(conquerChatUsers) OR NOT IsObject(conquerChatRooms)) Then
Response.Redirect("errorInSetup.asp")
Response.End
End If
Dim userId
' do not show login screen if a valid session exists
If (loggedOn()) Then
Response.Redirect "frames.asp"
Response.End
End If
Dim mode, errorMessage
mode = Request("mode")
If (mode = "userLogin") Then
Dim userName
userName = Server.HTMLEncode(Request("username"))
If (countUsers() >= USERS) Then
errorMessage = getMsg("error.maximum_users_reached")
ElseIf (Len(userName) = 0) Then
errorMessage = getMsg("error.missing_username")
ElseIf (Len(userName) > MAX_USERNAME_LENGTH) Then
errorMessage = getMsg("error.username_length_exceeded", MAX_USERNAME_LENGTH)
ElseIf (userExists(userName)) Then
errorMessage = getMsg("error.username_in_use")
ElseIf (NOT isValidUsername(userName)) Then
errorMessage = getMsg("error.invalid_username")
ElseIf (isUserNameBlocked(userName)) Then
errorMessage = getMsg("error.username_blocked")
Else
Dim p
Set p = New Person
p.id = -1
p.name = userName
p.roomId = 0
p.ipAddress = Request.ServerVariables("REMOTE_ADDR")
' we have a new chat user thus we need to create a new
' id for him/her
Set p = addUser(p)
' tell all other users about this new user
Call addMessage( _
p.id, _
"-1", _
"<span class=LoggedIn><img src='images/new.gif' height=9 width=9> " & getMsg("user.logged_on", p.name, Now()) & "</span><br>" _
)
Session("user") = p.data
' redirect to new frame window and create a new user login
Response.Redirect("frames.asp")
Response.End
End If
End If ' > If (mode = "userLogin") Then
' make sure we don't show any inactive users for new chat users
kickInactiveUsers()
If (conquerChatRooms.Count = 0) Then
setupRooms()
End If
%>
<html>
<head>
<title>Under Rated Chat</title>
<link rel="stylesheet" type="text/css" href="css/chat.css" />
<script language="JavaScript1.2" type="text/javascript">
<!--
function init() {
// set focus on 'username' field
f = document.frmLogin;
if (typeof f != 'undefined' && typeof f.username != 'undefined') {
f.username.select();
f.username.focus();
}
}
// -->
</script>
</head>
<body class="frontpage" onload="init()">
<% If (Len(errorMessage) > 0) Then %>
<center>
<br />
<div class="err">
<%= errorMessage %>
</div>
</center>
<% End If %>
<table border="0" cellspacing="0" cellpadding="0" style="position: absolute; top: 90px" width="100%">
<tr>
<td class="hdr">Join Under Rated Chat</td>
</tr>
<tr>
<td style="background-color: #b3d68e; border-top: 1px dashed #ffffff; border-bottom: 1px dashed #ffffff" align=center>
<br />
<table width="240" border="0" cellspacing="0" cellpadding="2">
<form name="frmLogin" method="GET" action="default.asp">
<input type="hidden" name="mode" value="userLogin">
<tr>
<td> </td>
<td align=right style="font-size: 10px;"><%= getMsg("login.username") %></td>
<td width="100%"><input type=text name=username value="<%= Server.HTMLEncode(userName) %>" class=editField size=28 maxlength=32 tabindex=1></td>
<td> </td>
</tr>
<tr>
<td> </td>
<td colspan=2 align=right><input type=submit class=btn name=login value="<%= getMsg("button.login") %>" border=0 tabindex=2 title="<%= getMsg("button.login.title") %>"></td>
<td> </td>
</tr>
</form>
<tr>
<td> </td>
<td colspan=2 align=center style="color: #999999;">
<br>
<br>
<br>
</td>
<td> </td>
</tr>
<tr>
<td> </td>
<td colspan=2>
<table width=100% border=0 cellspacing=0 cellpadding=4 style="border-right: 3px double #003300">
<tr>
<td colspan=3 class=uocap><%= getMsg("login.users_online") %></td>
</tr>
<% If (countUsers() <> 0) Then %>
<tr>
<th class=uo> </th>
<th class=uo><%= getMsg("login.header.username") %></th>
<th class=uo><%= getMsg("login.header.room") %></th>
</tr>
<%
' display all users and their associated rooms
Dim user, room_
For Each userId In conquerChatUsers
Set user = getUser(userId)
Set room_ = getRoom(user.roomId)
If (room_ Is Nothing) Then
Set room_ = New Room
room_.name = "N/A"
End If
Response.Write("<tr>")
Response.Write(" <td class=uo width=24><nobr><img src='images/transparent.gif' width=8 height=16><img src='images/ico.user.gif' width=16 height=16 border=0></nobr></td>")
Response.Write(" <td class=uo>" & user.name & "</td>")
Response.Write(" <td class=uo>" & Server.HTMLEncode(room_.name) & "</td>" & vbCrLf)
Response.Write("</tr>")
Next
%>
<tr>
<td class=uofoot colspan=3>
<br>
<%= getMsg("login.users_logged_on", countUsers(), USERS) %>
</td>
</tr>
<% Else %>
<tr>
<td class=uo colspan=3> <%= getMsg("login.no_users_online") %></td>
</tr>
<% End If %>
</table>
</td>
<td> </td>
</tr>
</table>
<br>
</td>
</tr>
</body>
</html> |
Edited by - UnderRated on 19 April 2005 06:23:49 |
|
Topic Locked
