<% Option Explicit %>
<%
'
' :@window.asp
'
' Prints all available chatlines out on response stream if user has a valid
' session, i.e. hasn't been logged out of the system and has a valid chat
' identifier.
'
' This script also logs off users if they requested it or if their session
' has timed out, e.g. if they haven't written anything in the chat window
' for a while (default is 5 minutes)
'
' @author Peter Theill peter@theill.com
'
Response.Buffer = True
Dim userId
userId = CStr(Request("chatId"))
If (NOT isLoggedIn(userId)) Then
Response.Redirect "expired.asp"
Response.End
End If
Dim user, room_
Set user = getUser(userId)
Set room_ = getRoom(user.roomId)
%>
<%= APPLICATION_NAME %>
<%
' user wants to logoff, so we will have to notify all other users
' about this by printing some kind of 'user X is now logging off'
' message.
If (Len(Request("logoff.x")) > 0) Then
Dim x
' add a leaving message to chatroom and remove user from list of active
' users in this chat room
logoutUser(userId)
' by executing this script, we redirect user to login page
' you might want to change the "top" location to suit your
' needs, e.g. if you embed ConquerChat into a frame-enabled
' site.
Response.Write ""
ElseIf (Request("mode") = "message") Then
' a new message has been send to chat. We want this message to
' be added our list of messages, indicating which user send it
Dim textMessage
textMessage = Request("message")
' do not add empty messages to chat
If (Len(textMessage) > 0) Then
' we do not support most tags, however , and ARE supported,
' thus we have to make check for these and replace with actual tags
textMessage = Server.HTMLEncode(textMessage)
textMessage = Replace(textMessage, "<b>", "", 1, -1, 1)
textMessage = Replace(textMessage, "</b>", "", 1, -1, 1)
textMessage = Replace(textMessage, "<i>", "", 1, -1, 1)
textMessage = Replace(textMessage, "</i>", "", 1, -1, 1)
textMessage = Replace(textMessage, "<u>", "", 1, -1, 1)
textMessage = Replace(textMessage, "</u>", "", 1, -1, 1)
' if chat administrator wants it, we replace smilies with images
If (USE_IMAGE_SMILEY) Then
textMessage = replaceSmilies(textMessage)
End If
' build new message - we use tables to make a better formatting
textMessage= "
" & _
"
" & _
"
" & user.name & "
" & _
"
" & textMessage & "
" & _
"
" & _
"
"
If (DEBUG__) Then
Response.Write(" userId = " & userId)
Response.Write(" textMessage = " & textMessage)
Response.Write(" user.roomId = " & user.roomId)
End If
Call addUserMessage(userId, textMessage)
If (CLEAR_MESSAGE) Then
Response.Write("")
End If
End If ' > If (Len(textMessage) > 0) Then
End If ' > ElseIf ( Request("mode") = "message" ) Then
kickInactiveUsers()
If (countUsers() = 0 AND CLEAR_ON_EMPTY) Then
' clear all messages in all rooms
conquerChatMessages.RemoveAll
End If
' print all messages in this room
If (NEWEST_MESSAGE_IN_TOP) Then
Response.Write("")
Call printMessages(user.roomId, user.id, True)
Else
Call printMessages(user.roomId, user.id, False)
Response.Write("")
End If
%>