/**
* Function to quickly (efficiently) check to see if there's been any chat activity.
*/
function chat_poller()
{
$message_id = get_param_integer('message_id', -1);
$event_id = get_param_integer('event_id', -1);
if (file_exists(get_custom_file_base() . '/data_custom/modules/chat/chat_last_full_check.dat') && filemtime(get_custom_file_base() . '/data_custom/modules/chat/chat_last_full_check.dat') > time() - 3 && ($message_id != -1 && file_exists(get_custom_file_base() . '/data_custom/modules/chat/chat_last_msg.dat') && intval(file_get_contents(get_custom_file_base() . '/data_custom/modules/chat/chat_last_msg.dat', FILE_TEXT)) <= $message_id) && ($event_id != -1 && file_exists(get_custom_file_base() . '/data_custom/modules/chat/chat_last_event.dat') && intval(file_get_contents(get_custom_file_base() . '/data_custom/modules/chat/chat_last_event.dat', FILE_TEXT)) <= $event_id)) {
load_user_stuff();
require_code('zones');
// Zone is needed because zones are where all ocPortal pages reside
require_code('config');
// Config is needed for much active stuff
require_code('users');
// Users are important due to permissions
$room_id = get_param_integer('room_id', -1);
require_code('chat');
chat_room_prune($room_id);
header("Cache-Control: no-cache, must-revalidate");
// HTTP/1.1
header("Expires: Mon, 26 Jul 1997 05:00:00 GMT");
// Date in the past
header('Content-Type: application/xml');
$output = '<?xml version="1.0" encoding="' . get_charset() . '" ?' . '>
<response>
<result>
<chat_null>' . strval($room_id) . '</chat_null>
</result>
</response>';
exit($output);
}
touch(get_custom_file_base() . '/data_custom/modules/chat/chat_last_full_check.dat');
}
/**
* Output messages (in XML format) from up to five minutes ago (give somebody who's just joined the chatroom some chat backlog), or the messages posted since the last check.
*
* @param AUTO_LINK Room ID (or -1 to mean 'all' as used for IM global process, -2 to mean none)
* @param boolean Output the backlog?
* @param ?AUTO_LINK Latest received message ID (NULL: we're not getting latest messages)
* @param ?AUTO_LINK Latest event ID (NULL: we're not getting events, but we do request a null event so we can use that as a future reference point)
* @param string Events output to append
*/
function _chat_messages_script_ajax($room_id, $backlog = false, $message_id = NULL, $event_id = NULL, $events_output = '')
{
if ($event_id == -1) {
$event_id = NULL;
}
require_lang('chat');
require_lang('submitban');
$room_check = NULL;
if ($room_id >= 0) {
$room_check = $GLOBALS['SITE_DB']->query_select('chat_rooms', array('id', 'is_im', 'c_welcome', 'allow_list_groups', 'disallow_list_groups', 'allow_list', 'disallow_list', 'room_owner'), array('id' => $room_id), '', 1);
if (!array_key_exists(0, $room_check)) {
// This room doesn't exist
warn_exit(do_lang_tempcode('MISSING_RESOURCE'));
}
if (!check_chatroom_access($room_check[0], true)) {
return;
}
// Possibly the room was closed already
$welcome = array_key_exists(get_member(), get_chatters_in_room($room_id)) || !$backlog || get_param_integer('no_reenter_message', 0) == 1 ? NULL : $room_check[0]['c_welcome'];
} else {
$welcome = NULL;
}
if ($room_id >= 0) {
$room_check = $GLOBALS['SITE_DB']->query_select('chat_rooms', array('*'), array('id' => $room_id));
if (array_key_exists(0, $room_check)) {
chat_room_prune($room_id);
}
} elseif ($room_id != -2) {
// Note that *we are still here*
if ($room_id == -1) {
$GLOBALS['SITE_DB']->query_update('chat_active', array('date_and_time' => time()), array('member_id' => get_member()));
} else {
$GLOBALS['SITE_DB']->query_delete('chat_active', array('member_id' => get_member(), 'room_id' => $room_id), '', 1);
$GLOBALS['SITE_DB']->query_insert('chat_active', array('member_id' => get_member(), 'date_and_time' => time(), 'room_id' => $room_id));
}
}
if (is_null($room_check)) {
$room_check = $GLOBALS['SITE_DB']->query('SELECT id,is_im,c_welcome,allow_list_groups,disallow_list_groups,allow_list,disallow_list,room_owner FROM ' . get_table_prefix() . 'chat_rooms WHERE is_im=1 AND allow_list LIKE \'' . db_encode_like('%' . strval(get_member()) . '%') . '\'');
}
$from_id = NULL;
$start = NULL;
if (!$backlog) {
$from_id = $message_id;
} else {
$start = time() - CHAT_BACKLOG_TIME;
}
$messages = $room_id == -2 ? array() : chat_get_room_content($room_id, $room_check, 20, false, false, $start, NULL, $from_id, NULL, $welcome, true, get_param_integer('no_reenter_message', 0) == 0);
$stored_id = array_key_exists(0, $messages) ? $messages[0]['id'] : NULL;
$messages_output = '';
foreach ($messages as $_message) {
$edit_url = new ocp_tempcode();
$chat_ban_url = new ocp_tempcode();
$chat_unban_url = new ocp_tempcode();
if (!is_null($room_check) && array_key_exists(0, $room_check)) {
$moderator = is_chat_moderator($_message['member_id'], $room_id, $room_check[0]['room_owner']);
$edit_url = build_url(array('page' => 'cms_chat', 'type' => 'ed', 'id' => $_message['id'], 'room_id' => $_message['room_id']), get_module_zone('cms_chat'));
if (has_specific_permission(get_member(), 'ban_chatters_from_rooms')) {
if (check_chatroom_access($room_check[0], true, $_message['member_id'])) {
$chat_ban_url = build_url(array('page' => 'cms_chat', 'type' => 'ban', 'id' => $_message['room_id'], 'member_id' => $_message['member_id']), get_module_zone('cms_chat'));
$chat_unban_url = new ocp_tempcode();
} else {
$chat_ban_url = new ocp_tempcode();
$chat_unban_url = build_url(array('page' => 'cms_chat', 'type' => 'unban', 'id' => $_message['room_id'], 'member_id' => $_message['member_id']), get_module_zone('cms_chat'));
}
}
} else {
$moderator = false;
}
if (addon_installed('actionlog') && has_actual_page_access(get_member(), 'admin_actionlog') && preg_match('#[:\\.]#', $_message['ip_address']) != 0) {
if (is_guest($_message['member_id'])) {
$ban_url = build_url(array('page' => 'admin_actionlog', 'type' => 'toggle_ip_ban', 'id' => $_message['ip_address']), 'adminzone');
} else {
$ban_url = build_url(array('page' => 'admin_actionlog', 'type' => 'toggle_submitter_ban', 'id' => $_message['member_id']), 'adminzone');
}
//$ban_url=build_url(array('page'=>'admin_actionlog','type'=>'multi_ban','id'=>$_message['ip_address'].':'.$_message['username']),'adminzone');
} else {
$ban_url = new ocp_tempcode();
}
if ($room_id != -1 && addon_installed('actionlog') && (has_actual_page_access(get_member(), 'admin_actionlog') || has_actual_page_access(get_member(), 'cms_chat'))) {
$staff_actions = do_template('CHAT_STAFF_ACTIONS', array('_GUID' => 'd3fbcaa9eee688452091583ee436e465', 'CHAT_BAN_URL' => $chat_ban_url, 'CHAT_UNBAN_URL' => $chat_unban_url, 'EDIT_URL' => $edit_url, 'BAN_URL' => $ban_url));
} else {
$staff_actions = new ocp_tempcode();
}
$avatar_url = $GLOBALS['FORUM_DRIVER']->get_member_avatar_url($_message['member_id']);
if (!is_guest($_message['member_id'])) {
$user = $GLOBALS['FORUM_DRIVER']->member_profile_hyperlink($_message['member_id'], true, $_message['username']);
} else {
if (preg_match('#[:\\.]#', $_message['ip_address']) != 0) {
$user = make_string_tempcode(escape_html(do_lang('GUEST') . '-' . substr(md5($_message['ip_address']), 0, 5)));
} else {
$user = make_string_tempcode(escape_html($_message['ip_address']));
}
}
$template = do_template('CHAT_MESSAGE', array('_GUID' => '6bcac8d9fdd166cde266f8d23b790b69', 'SYSTEM_MESSAGE' => strval($_message['system_message']), 'STAFF' => $moderator, 'OLD_MESSAGES' => $backlog, 'AVATAR_URL' => $avatar_url, 'STAFF_ACTIONS' => $staff_actions, 'USER' => $user, 'MESSAGE' => $_message['the_message'], 'TIME' => $_message['date_and_time_nice'], 'RAW_TIME' => strval($_message['date_and_time']), 'FONT_COLOUR' => $_message['text_colour'], 'FONT_FACE' => $_message['font_name']));
$messages_output .= '<div xmlns="http://www.w3.org/1999/xhtml" sender_id="' . strval($_message['member_id']) . '" room_id="' . strval($_message['room_id']) . '" id="' . strval($_message['id']) . '" timestamp="' . strval($_message['date_and_time']) . '">' . $template->evaluate() . '</div>';
}
// Members update, but only for the room interface
if ($room_id >= 0) {
$tpl = get_chatters_in_room_tpl(get_chatters_in_room($room_id));
$events_output .= '<chat_members_update>' . escape_html($tpl->evaluate()) . '</chat_members_update>';
}
// IM events and invitations, but only for the lobby IM interface
$invitations_output = '';
if ($room_id < 0) {
$room_check = list_to_map('id', $GLOBALS['SITE_DB']->query('SELECT * FROM ' . get_table_prefix() . 'chat_rooms WHERE is_im=1 AND allow_list LIKE \'' . db_encode_like('%' . strval(get_member()) . '%') . '\''));
foreach ($room_check as $room) {
if (check_chatroom_access($room, true, NULL, true)) {
if ($room['allow_list'] == strval(get_member()) && is_null($event_id)) {
require_code('chat2');
delete_chatroom($room['id']);
} else {
$people_in_room = explode(',', $room['allow_list']);
if ($room['room_name'] == $GLOBALS['FORUM_DRIVER']->get_username(get_member()) && count($people_in_room) > 1) {
$test = $GLOBALS['FORUM_DRIVER']->get_username(intval($people_in_room[1]));
if (!is_null($test)) {
$room['room_name'] = $test;
}
}
// Find who else is in room
$participants = '';
foreach ($people_in_room as $person) {
if (intval($person) != get_member()) {
if ($participants != '') {
$participants .= '';
}
$participants .= $person;
}
}
$num_posts = $GLOBALS['SITE_DB']->query_value('chat_messages', 'COUNT(*)', array('room_id' => $room['id']));
$avatar_url = $GLOBALS['FORUM_DRIVER']->get_member_avatar_url($room['room_owner']);
$invitations_output .= '<chat_invite num_posts="' . strval($num_posts) . '" you="' . strval(get_member()) . '" inviter="' . (is_null($room['room_owner']) ? '' : strval($room['room_owner'])) . '" participants="' . xmlentities($participants) . '" room_name="' . xmlentities($room['room_name']) . '" avatar_url="' . xmlentities($avatar_url) . '">' . strval($room['id']) . '</chat_invite>';
}
}
}
if (!is_null($event_id)) {
$events = $GLOBALS['SITE_DB']->query('SELECT * FROM ' . get_table_prefix() . 'chat_events WHERE id>' . strval((int) $event_id));
foreach ($events as $event) {
if ($event['e_member_id'] == get_member()) {
continue;
}
if (is_guest($event['e_member_id'])) {
continue;
}
$send_out = false;
switch ($event['e_type_code']) {
case 'BECOME_INACTIVE':
case 'BECOME_ACTIVE':
if (!member_blocked(get_member(), $event['e_member_id']) && member_befriended($event['e_member_id'])) {
$send_out = true;
}
break;
case 'PREINVITED_TO_IM':
case 'JOIN_IM':
if (array_key_exists($event['e_room_id'], $room_check) && check_chatroom_access($room_check[$event['e_room_id']], true, NULL, true)) {
$send_out = true;
}
break;
case 'DEINVOLVE_IM':
if (array_key_exists($event['e_room_id'], $room_check) && check_chatroom_access($room_check[$event['e_room_id']], true, NULL, true)) {
$send_out = true;
}
break;
case 'INVITED_TO_IM':
// Ignore this one
break;
}
if ($send_out) {
$username = $GLOBALS['FORUM_DRIVER']->get_username($event['e_member_id']);
$avatar_url = $GLOBALS['FORUM_DRIVER']->get_member_avatar_url($event['e_member_id']);
if (!is_null($username)) {
$events_output .= '<chat_event away="' . (chatter_active($event['e_member_id']) ? '0' : '1') . '" event_type="' . $event['e_type_code'] . '" member_id="' . strval($event['e_member_id']) . '" username="******" avatar_url="' . xmlentities($avatar_url) . '" room_id="' . (is_null($event['e_room_id']) ? '' : strval($event['e_room_id'])) . '">' . strval($event['id']) . '</chat_event>';
}
}
}
} else {
$max_id = $GLOBALS['SITE_DB']->query_value('chat_events', 'MAX(id)');
if (is_null($max_id)) {
$max_id = db_get_first_id() - 1;
}
$events_output .= '<chat_event type="NULL">' . strval($max_id) . '</chat_event>';
}
}
if ($messages_output == '') {
$messages_output = '<chat_null>' . strval($room_id) . '</chat_null>';
}
header("Cache-Control: no-cache, must-revalidate");
// HTTP/1.1
header("Expires: Mon, 26 Jul 1997 05:00:00 GMT");
// Date in the past
header('Content-Type: application/xml');
$output = '<' . '?xml version="1.0" encoding="' . get_charset() . '" ?' . '>
<!DOCTYPE xc:content [
<!ENTITY euro "€">
<!ENTITY ldquo "“">
<!ENTITY rdquo "”">
<!ENTITY lsquo "‘">
<!ENTITY rsquo "’">
<!ENTITY dagger "†">
<!ENTITY Dagger "‡">
<!ENTITY permil "‰">
<!ENTITY Scaron "Š">
<!ENTITY scaron "š">
<!ENTITY Yuml "Ÿ">
<!ENTITY ndash "–">
<!ENTITY mdash "—">
<!ENTITY hellip "…">
<!ENTITY copy "©">
<!ENTITY nbsp " ">
<!ENTITY fnof "ƒ">
<!ENTITY reg "®">
<!ENTITY trade "™">
<!ENTITY raquo "»">
<!ENTITY frac14 "¼">
<!ENTITY frac12 "½">
<!ENTITY frac34 "¾">
]>
<response>
<result>
' . $events_output . $invitations_output . $messages_output . '
</result>
</response>';
echo $output;
}
