mirror_php/moodle
1
0
Fork 0
mirror of https://github.com/moodle/moodle.git synced 2025-01-21 07:28:31 +01:00
Code Issues Projects Releases Wiki Activity
moodle/mod/chat/lib.php

562 lines
25 KiB
PHP
Raw Normal View History

Very early version of new chat module, made by Martin using ARSC as an inspiration. Works OK already on most newish browsers .. see mod/chat/README.txt for details.
2003-07-07 06:44:16 +00:00
<?PHP // $Id$
/// Library of functions and constants for module chat
COnfiguration variables can now be edited via GUI
2003-08-23 14:03:14 +00:00
if (!isset($CFG->chat_refresh_room)) {
set_config("chat_refresh_room", 5);
}
if (!isset($CFG->chat_refresh_userlist)) {
set_config("chat_refresh_userlist", 10);
}
if (!isset($CFG->chat_old_ping)) {
set_config("chat_old_ping", 30);
}
Very early version of new chat module, made by Martin using ARSC as an inspiration. Works OK already on most newish browsers .. see mod/chat/README.txt for details.
2003-07-07 06:44:16 +00:00
define("CHAT_DRAWBOARD", false); // Look into this later
// The HTML head for the message window to start with (<!-- nix --> is used to get some browsers starting with output
$CHAT_HTMLHEAD = "<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.0 Transitional//EN\" \"http://www.w3.org/TR/REC-html40/loose.dtd\"><html><head></head>\n<body bgcolor=\"#FFFFFF\">\n\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n";
// The HTML head for the message window to start with (with js scrolling)
$CHAT_HTMLHEAD_JS = "<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.0 Transitional//EN\" \"http://www.w3.org/TR/REC-html40/loose.dtd\"><html><head><script language=\"JavaScript\">\n<!--\nfunction move()\n{\nif (scroll_active) window.scroll(1,400000);\nwindow.setTimeout(\"move()\",100);\n}\nscroll_active = true;\nmove();\n//-->\n</script>\n</head>\n<body bgcolor=\"#FFFFFF\" onBlur=\"scroll_active = true\" onFocus=\"scroll_active = false\">\n\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\
// The HTML code for standard empty pages (e.g. if a user was kicked out)
$CHAT_HTMLHEAD_OUT = "<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.0 Transitional//EN\" \"http://www.w3.org/TR/REC-html40/loose.dtd\"><html><head><title>You are out!</title></head><body bgcolor=\"$THEME->body\"></body></html>";
// The HTML head for the message input page
$CHAT_HTMLHEAD_MSGINPUT = "<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.0 Transitional//EN\" \"http://www.w3.org/TR/REC-html40/loose.dtd\"><html><head><title>Message Input</title></head><body bgcolor=\"$THEME->body\">";
// The HTML code for the message input page, with JavaScript
$CHAT_HTMLHEAD_MSGINPUT_JS = "<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.0 Transitional//EN\" \"http://www.w3.org/TR/REC-html40/loose.dtd\"><html><head><title>Message Input</title>\n<script language=\"Javascript\">\n<!--\nscroll_active = true;\nfunction empty_field_and_submit()\n{\ndocument.fdummy.arsc_message.value=document.f.arsc_message.value;\ndocument.fdummy.submit();\ndocument.f.arsc_message.focus();\ndocument.f.arsc_message.select();\nreturn false;\n}\n// -->\n</script>\n</head><body bgcolor=\"$THEME->body\" OnLoad=\"document.f.arsc_message.focus();document.f.arsc_message.select();\">";
function chat_add_instance($chat) {
/// Given an object containing all the necessary data,
/// (defined by the form in mod.html) this function
/// will create a new instance and return the id number
/// of the new instance.
$chat->timemodified = time();
New feature - chat scheduling. Can now set a time for the next chat, as well as rotating weekly or daily period. Also some small fixes.
2003-07-25 06:47:06 +00:00
$chat->chattime = make_timestamp($chat->chatyear, $chat->chatmonth, $chat->chatday,
$chat->chathour, $chat->chatminute);
Very early version of new chat module, made by Martin using ARSC as an inspiration. Works OK already on most newish browsers .. see mod/chat/README.txt for details.
2003-07-07 06:44:16 +00:00
return insert_record("chat", $chat);
}
function chat_update_instance($chat) {
/// Given an object containing all the necessary data,
/// (defined by the form in mod.html) this function
/// will update an existing instance with new data.
$chat->timemodified = time();
$chat->id = $chat->instance;
New feature - chat scheduling. Can now set a time for the next chat, as well as rotating weekly or daily period. Also some small fixes.
2003-07-25 06:47:06 +00:00
$chat->chattime = make_timestamp($chat->chatyear, $chat->chatmonth, $chat->chatday,
$chat->chathour, $chat->chatminute);
Very early version of new chat module, made by Martin using ARSC as an inspiration. Works OK already on most newish browsers .. see mod/chat/README.txt for details.
2003-07-07 06:44:16 +00:00
return update_record("chat", $chat);
}
function chat_delete_instance($id) {
/// Given an ID of an instance of this module,
/// this function will permanently delete the instance
/// and any data that depends on it.
if (! $chat = get_record("chat", "id", "$id")) {
return false;
}
$result = true;
# Delete any dependent records here #
if (! delete_records("chat", "id", "$chat->id")) {
$result = false;
}
return $result;
}
function chat_user_outline($course, $user, $mod, $chat) {
/// Return a small object with summary information about what a
/// user has done with a given particular instance of this module
/// Used for user activity reports.
/// $return->time = the time they did it
/// $return->info = a short text description
return $return;
}
function chat_user_complete($course, $user, $mod, $chat) {
/// Print a detailed representation of what a user has done with
/// a given particular instance of this module, for user activity reports.
return true;
}
Chat now prints something useful under recent activity
2003-07-10 04:46:03 +00:00
function chat_print_recent_activity($course, $isteacher, $timestart) {
/// Given a course and a date, prints a summary of all chat rooms
/// that currently have people in them.
Very early version of new chat module, made by Martin using ARSC as an inspiration. Works OK already on most newish browsers .. see mod/chat/README.txt for details.
2003-07-07 06:44:16 +00:00
/// This function is called from course/lib.php: print_recent_activity()
Chat now prints something useful under recent activity
2003-07-10 04:46:03 +00:00
global $CFG;
Force unique entries in list
2003-07-10 06:42:44 +00:00
if (!$chatusers = get_records_sql("SELECT u.id, cu.chatid, u.firstname, u.lastname
Chat now prints something useful under recent activity
2003-07-10 04:46:03 +00:00
FROM {$CFG->prefix}chat_users as cu,
Only show "recent activity" for chats in the current course.
2003-07-21 01:35:28 +00:00
{$CFG->prefix}chat as ch,
Chat now prints something useful under recent activity
2003-07-10 04:46:03 +00:00
{$CFG->prefix}user as u
WHERE cu.userid = u.id
Only show "recent activity" for chats in the current course.
2003-07-21 01:35:28 +00:00
AND cu.chatid = ch.id
AND ch.course = '$course->id'
Chat now prints something useful under recent activity
2003-07-10 04:46:03 +00:00
ORDER BY cu.chatid ASC") ) {
return false;
}
Very early version of new chat module, made by Martin using ARSC as an inspiration. Works OK already on most newish browsers .. see mod/chat/README.txt for details.
2003-07-07 06:44:16 +00:00
Chat now prints something useful under recent activity
2003-07-10 04:46:03 +00:00
print_headline(get_string("currentchats", "chat").":");
$current = 0;
foreach ($chatusers as $chatuser) {
if ($current != $chatuser->chatid) {
if ($current) {
echo "</p>";
}
if ($chat = get_record("chat", "id", $chatuser->chatid)) {
echo "<p><font size=1><a href=\"$CFG->wwwroot/mod/chat/view.php?c=$chat->id\">$chat->name</a></font><br />";
}
$current = $chatuser->chatid;
}
DIsplay names using the fullname function
2003-11-28 15:35:41 +00:00
$fullname = fullname($chatuser);
echo "&nbsp;&nbsp;&nbsp;<font size=1>- $fullname</font><br />";
Chat now prints something useful under recent activity
2003-07-10 04:46:03 +00:00
}
Minor formatting fix
2003-07-10 04:49:13 +00:00
echo "<br />";
Chat now prints something useful under recent activity
2003-07-10 04:46:03 +00:00
return true;
Very early version of new chat module, made by Martin using ARSC as an inspiration. Works OK already on most newish browsers .. see mod/chat/README.txt for details.
2003-07-07 06:44:16 +00:00
}
function chat_cron () {
/// Function to be run periodically according to the moodle cron
/// This function searches for things that need to be done, such
/// as sending out mail, toggling flags etc ...
global $CFG;
New feature - chat scheduling. Can now set a time for the next chat, as well as rotating weekly or daily period. Also some small fixes.
2003-07-25 06:47:06 +00:00
chat_update_chat_times();
Simple beeping is now added ... users can now beep each other and also beep everyone using "beep all" There are no controls as yet to disable beeping on a per-user basis but this would come next
2003-07-09 12:53:26 +00:00
chat_delete_old_users();
Some new code related to the new reports - uploading for testing on other server - still very early
2003-07-21 03:16:19 +00:00
/// Delete old messages
if ($chats = get_records("chat")) {
foreach ($chats as $chat) {
if ($chat->keepdays) {
$timeold = time() - ($chat->keepdays * 24 * 3600);
delete_records_select("chat_messages", "chatid = '$chat->id' AND timestamp < '$timeold'");
}
}
}
Very early version of new chat module, made by Martin using ARSC as an inspiration. Works OK already on most newish browsers .. see mod/chat/README.txt for details.
2003-07-07 06:44:16 +00:00
return true;
}
Simply, move the XXXX_get_participants() function from bottom to the common function area. See bug 807
2003-09-29 15:27:30 +00:00
function chat_get_participants($chatid) {
//Returns the users with data in one chat
//(users with records in chat_messages, students)
global $CFG;
//Get students
$students = get_records_sql("SELECT DISTINCT u.*
FROM {$CFG->prefix}user u,
{$CFG->prefix}chat_messages c
WHERE c.chatid = '$chatid' and
u.id = c.userid");
Very early version of new chat module, made by Martin using ARSC as an inspiration. Works OK already on most newish browsers .. see mod/chat/README.txt for details.
2003-07-07 06:44:16 +00:00
Simply, move the XXXX_get_participants() function from bottom to the common function area. See bug 807
2003-09-29 15:27:30 +00:00
//Return students array (it contains an array of unique users)
return ($students);
}
Very early version of new chat module, made by Martin using ARSC as an inspiration. Works OK already on most newish browsers .. see mod/chat/README.txt for details.
2003-07-07 06:44:16 +00:00
//////////////////////////////////////////////////////////////////////
/// Functions that require some SQL
function chat_get_users($chatid) {
global $CFG;
Some minor improvements
2003-07-07 09:45:08 +00:00
return get_records_sql("SELECT u.id, u.firstname, u.lastname, u.picture, c.lastmessageping
Very early version of new chat module, made by Martin using ARSC as an inspiration. Works OK already on most newish browsers .. see mod/chat/README.txt for details.
2003-07-07 06:44:16 +00:00
FROM {$CFG->prefix}chat_users c,
{$CFG->prefix}user u
WHERE c.chatid = '$chatid'
AND u.id = c.userid
GROUP BY u.id
ORDER BY c.firstping ASC");
}
function chat_get_latest_message($chatid) {
A better way of doing chat_get_latest_message() that doesn't conflict with the debugging in get_record_sql
2003-07-25 09:01:02 +00:00
/// Efficient way to extract just the latest message
/// Uses ADOdb directly instead of get_record_sql()
/// because the LIMIT command causes problems with
/// the developer debugging in there.
Very early version of new chat module, made by Martin using ARSC as an inspiration. Works OK already on most newish browsers .. see mod/chat/README.txt for details.
2003-07-07 06:44:16 +00:00
A better way of doing chat_get_latest_message() that doesn't conflict with the debugging in get_record_sql
2003-07-25 09:01:02 +00:00
global $db, $CFG;
Very early version of new chat module, made by Martin using ARSC as an inspiration. Works OK already on most newish browsers .. see mod/chat/README.txt for details.
2003-07-07 06:44:16 +00:00
A better way of doing chat_get_latest_message() that doesn't conflict with the debugging in get_record_sql
2003-07-25 09:01:02 +00:00
if (!$rs = $db->Execute("SELECT *
FROM {$CFG->prefix}chat_messages
WHERE chatid = '$chatid'
ORDER BY timestamp DESC LIMIT 1")) {
return false;
}
if ($rs->RecordCount() == 1) {
return (object)$rs->fields;
} else {
return false; // Found no records
}
Very early version of new chat module, made by Martin using ARSC as an inspiration. Works OK already on most newish browsers .. see mod/chat/README.txt for details.
2003-07-07 06:44:16 +00:00
}
A better way of doing chat_get_latest_message() that doesn't conflict with the debugging in get_record_sql
2003-07-25 09:01:02 +00:00
Very early version of new chat module, made by Martin using ARSC as an inspiration. Works OK already on most newish browsers .. see mod/chat/README.txt for details.
2003-07-07 06:44:16 +00:00
//////////////////////////////////////////////////////////////////////
function chat_login_user($chatid, $version="header_js") {
global $USER;
$chatuser->chatid = $chatid;
$chatuser->userid = $USER->id;
$chatuser->version = $version;
$chatuser->ip = $USER->lastIP;
Some minor improvements
2003-07-07 09:45:08 +00:00
$chatuser->lastping = $chatuser->firstping = $chatuser->lastmessageping = time();
Very early version of new chat module, made by Martin using ARSC as an inspiration. Works OK already on most newish browsers .. see mod/chat/README.txt for details.
2003-07-07 06:44:16 +00:00
$chatuser->sid = random_string(32);
if (!insert_record("chat_users", $chatuser)) {
return false;
}
return $chatuser->sid;
}
Simple beeping is now added ... users can now beep each other and also beep everyone using "beep all" There are no controls as yet to disable beeping on a per-user basis but this would come next
2003-07-09 12:53:26 +00:00
function chat_delete_old_users() {
// Delete the old and in the way
COnfiguration variables can now be edited via GUI
2003-08-23 14:03:14 +00:00
global $CFG;
$timeold = time() - $CFG->chat_old_ping;
Simple beeping is now added ... users can now beep each other and also beep everyone using "beep all" There are no controls as yet to disable beeping on a per-user basis but this would come next
2003-07-09 12:53:26 +00:00
if ($oldusers = get_records_select("chat_users", "lastping < '$timeold'") ) {
delete_records_select("chat_users", "lastping < '$timeold'");
foreach ($oldusers as $olduser) {
$message->chatid = $olduser->chatid;
$message->userid = $olduser->userid;
$message->message = "exit";
$message->system = 1;
$message->timestamp = time();
if (!insert_record("chat_messages", $message)) {
error("Could not insert a chat message!");
}
}
}
}
Very early version of new chat module, made by Martin using ARSC as an inspiration. Works OK already on most newish browsers .. see mod/chat/README.txt for details.
2003-07-07 06:44:16 +00:00
Some new code related to the new reports - uploading for testing on other server - still very early
2003-07-21 03:16:19 +00:00
New feature - chat scheduling. Can now set a time for the next chat, as well as rotating weekly or daily period. Also some small fixes.
2003-07-25 06:47:06 +00:00
function chat_update_chat_times($chatid=0) {
/// Updates chat records so that the next chat time is correct
$timenow = time();
if ($chatid) {
if (!$chats[] = get_record_select("chat", "id = '$chatid' AND chattime <= '$timenow' AND schedule > '0'")) {
return;
}
} else {
if (!$chats = get_records_select("chat", "chattime <= '$timenow' AND schedule > '0'")) {
return;
}
}
foreach ($chats as $chat) {
switch ($chat->schedule) {
case 1: // Single event - turn off schedule and disable
$chat->chattime = 0;
$chat->schedule = 0;
break;
case 2: // Repeat daily
$chat->chattime += 24 * 3600;
break;
case 3: // Repeat weekly
$chat->chattime += 7 * 24 * 3600;
break;
}
update_record("chat", $chat);
}
}
Very early version of new chat module, made by Martin using ARSC as an inspiration. Works OK already on most newish browsers .. see mod/chat/README.txt for details.
2003-07-07 06:44:16 +00:00
function chat_browser_detect($HTTP_USER_AGENT) {
if(eregi("(opera) ([0-9]{1,2}.[0-9]{1,3}){0,1}", $HTTP_USER_AGENT, $match)
|| eregi("(opera/)([0-9]{1,2}.[0-9]{1,3}){0,1}", $HTTP_USER_AGENT, $match))
{
$BName = "Opera"; $BVersion=$match[2];
}
elseif( eregi("(konqueror)/([0-9]{1,2}.[0-9]{1,3})", $HTTP_USER_AGENT, $match) )
{
$BName = "Konqueror"; $BVersion=$match[2];
}
elseif( eregi("(lynx)/([0-9]{1,2}.[0-9]{1,2}.[0-9]{1,2})", $HTTP_USER_AGENT, $match) )
{
$BName = "Lynx"; $BVersion=$match[2];
}
elseif( eregi("(links) \(([0-9]{1,2}.[0-9]{1,3})", $HTTP_USER_AGENT, $match) )
{
$BName = "Links"; $BVersion=$match[2];
}
elseif( eregi("(msie) ([0-9]{1,2}.[0-9]{1,3})", $HTTP_USER_AGENT, $match) )
{
$BName = "MSIE"; $BVersion=$match[2];
}
elseif( eregi("(netscape6)/(6.[0-9]{1,3})", $HTTP_USER_AGENT, $match) )
{
$BName = "Netscape"; $BVersion=$match[2];
}
elseif( eregi("mozilla/5", $HTTP_USER_AGENT) )
{
$BName = "Netscape"; $BVersion="Unknown";
}
elseif( eregi("(mozilla)/([0-9]{1,2}.[0-9]{1,3})", $HTTP_USER_AGENT, $match) )
{
$BName = "Netscape"; $BVersion=$match[2];
}
elseif( eregi("w3m", $HTTP_USER_AGENT) )
{
$BName = "w3m"; $BVersion="Unknown";
}
else
{
$BName = "Unknown"; $BVersion="Unknown";
}
if(eregi("linux", $HTTP_USER_AGENT))
{
$BPlatform = "Linux";
}
elseif( eregi("win32", $HTTP_USER_AGENT) )
{
$BPlatform = "Windows";
}
elseif( (eregi("(win)([0-9]{2})", $HTTP_USER_AGENT, $match) )
|| (eregi("(windows) ([0-9]{2})", $HTTP_USER_AGENT, $match) ))
{
$BPlatform = "Windows $match[2]";
}
elseif( eregi("(winnt)([0-9]{1,2}.[0-9]{1,2}){0,1}", $HTTP_USER_AGENT, $match) )
{
$BPlatform = "Windows NT $match[2]";
}
elseif( eregi("(windows nt)( ){0,1}([0-9]{1,2}.[0-9]{1,2}){0,1}", $HTTP_USER_AGENT, $match) )
{
$BPlatform = "Windows NT $match[3]";
}
elseif( eregi("mac", $HTTP_USER_AGENT) )
{
$BPlatform = "Macintosh";
}
elseif( eregi("(sunos) ([0-9]{1,2}.[0-9]{1,2}){0,1}", $HTTP_USER_AGENT, $match) )
{
$BPlatform = "SunOS $match[2]";
}
elseif( eregi("(beos) r([0-9]{1,2}.[0-9]{1,2}){0,1}", $HTTP_USER_AGENT, $match) )
{
$BPlatform = "BeOS $match[2]";
}
elseif( eregi("freebsd", $HTTP_USER_AGENT) )
{
$BPlatform = "FreeBSD";
}
elseif( eregi("openbsd", $HTTP_USER_AGENT) )
{
$BPlatform = "OpenBSD";
}
elseif( eregi("irix", $HTTP_USER_AGENT) )
{
$BPlatform = "IRIX";
}
elseif( eregi("os/2", $HTTP_USER_AGENT) )
{
$BPlatform = "OS/2";
}
elseif( eregi("plan9", $HTTP_USER_AGENT) )
{
$BPlatform = "Plan9";
}
elseif( eregi("unix", $HTTP_USER_AGENT)
|| eregi("hp-ux", $HTTP_USER_AGENT) )
{
$BPlatform = "Unix";
}
elseif( eregi("osf", $HTTP_USER_AGENT) )
{
$BPlatform = "OSF";
}
else
{
$BPlatform = "Unknown";
}
$return["name"] = $BName;
$return["version"] = $BVersion;
$return["platform"] = $BPlatform;
return $return;
}
function chat_display_version($version, $browser)
{
GLOBAL $CFG;
$checked = "";
if (($version == "sockets") OR ($version == "push_js"))
{
$checked = "checked";
}
if (($version == "sockets" OR $version == "push_js")
AND
($browser["name"] == "Lynx"
OR
$browser["name"] == "Links"
OR
$browser["name"] == "w3m"
OR
$browser["name"] == "Konqueror"
OR
($browser["name"] == "Netscape" AND substr($browser["version"], 0, 1) == "2")))
{
$checked = "";
}
if (($version == "text")
AND
($browser["name"] == "Lynx"
OR
$browser["name"] == "Links"
OR
$browser["name"] == "w3m"))
{
$checked = "checked";
}
if (($version == "header")
AND
($browser["name"] == "Konqueror"))
{
$checked = "checked";
}
if (($version == "header_js")
AND
($browser["name"] == "Netscape" AND substr($browser["version"], 0, 1) == "2"))
{
$checked = "checked";
}
?>
<tr>
<td valign="top">
<input type="radio" name="chat_chatversion" value="<?php echo $version; ?>"<?php echo $checked; ?>>
</td>
<td valign="top" align="left">
<font face="Arial" size="2">
<?php echo $chat_lang["gui_".$version]; ?>
</font>
</td>
</tr>
<?php
}
Some improved popup windows / links for user pictures
2003-07-24 02:25:23 +00:00
function chat_format_message($message, $courseid=0) {
Simple beeping is now added ... users can now beep each other and also beep everyone using "beep all" There are no controls as yet to disable beeping on a per-user basis but this would come next
2003-07-09 12:53:26 +00:00
/// Given a message object full of information, this function
/// formats it appropriately into text and html, then
/// returns the formatted data.
Very early version of new chat module, made by Martin using ARSC as an inspiration. Works OK already on most newish browsers .. see mod/chat/README.txt for details.
2003-07-07 06:44:16 +00:00
global $CFG, $USER;
Simple beeping is now added ... users can now beep each other and also beep everyone using "beep all" There are no controls as yet to disable beeping on a per-user basis but this would come next
2003-07-09 12:53:26 +00:00
$output = new object;
if (!$user = get_record("user", "id", $message->userid)) {
return "Error finding user id = $message->userid";
Very early version of new chat module, made by Martin using ARSC as an inspiration. Works OK already on most newish browsers .. see mod/chat/README.txt for details.
2003-07-07 06:44:16 +00:00
}
$picture = print_user_picture($user->id, 0, $user->picture, false, true, false);
Some improved popup windows / links for user pictures
2003-07-24 02:25:23 +00:00
if ($courseid) {
$picture = "<a target=\"_new\" href=\"$CFG->wwwroot/user/view.php?id=$user->id&course=$courseid\">$picture</a>";
}
Very early version of new chat module, made by Martin using ARSC as an inspiration. Works OK already on most newish browsers .. see mod/chat/README.txt for details.
2003-07-07 06:44:16 +00:00
Simple beeping is now added ... users can now beep each other and also beep everyone using "beep all" There are no controls as yet to disable beeping on a per-user basis but this would come next
2003-07-09 12:53:26 +00:00
$strtime = userdate($message->timestamp, get_string("strftimemessage", "chat"));
$output->beep = false; // by default
Very early version of new chat module, made by Martin using ARSC as an inspiration. Works OK already on most newish browsers .. see mod/chat/README.txt for details.
2003-07-07 06:44:16 +00:00
Simple beeping is now added ... users can now beep each other and also beep everyone using "beep all" There are no controls as yet to disable beeping on a per-user basis but this would come next
2003-07-09 12:53:26 +00:00
$text = $message->message;
if (!empty($message->system)) { /// It's a system message
DIsplay names using the fullname function
2003-11-28 15:35:41 +00:00
$output->text = get_string("message$text", "chat", fullname($user));
Simple beeping is now added ... users can now beep each other and also beep everyone using "beep all" There are no controls as yet to disable beeping on a per-user basis but this would come next
2003-07-09 12:53:26 +00:00
$output->text = "$strtime: $output->text";
$output->html = "<table><tr><td valign=top>$picture</td><td>";
$output->html .= "<font size=2 color=\"#CCAAAA\">$output->text</font>";
$output->html .= "</td></tr></table>";
Very early version of new chat module, made by Martin using ARSC as an inspiration. Works OK already on most newish browsers .. see mod/chat/README.txt for details.
2003-07-07 06:44:16 +00:00
return $output;
}
Simple beeping is now added ... users can now beep each other and also beep everyone using "beep all" There are no controls as yet to disable beeping on a per-user basis but this would come next
2003-07-09 12:53:26 +00:00
convert_urls_into_links($text);
replace_smilies($text);
if (substr($text, 0, 5) == "beep ") { /// It's a beep!
$beepwho = trim(substr($text, 5));
Added emoting (both the MOO style with a : and the IRC style /me )
2003-07-09 04:17:27 +00:00
Simple beeping is now added ... users can now beep each other and also beep everyone using "beep all" There are no controls as yet to disable beeping on a per-user basis but this would come next
2003-07-09 12:53:26 +00:00
if ($beepwho == "all") { // everyone
DIsplay names using the fullname function
2003-11-28 15:35:41 +00:00
$outinfo = "$strtime: ". get_string("messagebeepseveryone", "chat", fullname($user));
Simple beeping is now added ... users can now beep each other and also beep everyone using "beep all" There are no controls as yet to disable beeping on a per-user basis but this would come next
2003-07-09 12:53:26 +00:00
$outmain = "";
$output->beep = true; // (eventually this should be set to
// to a filename uploaded by the user)
} else if ($beepwho == $USER->id) { // current user
DIsplay names using the fullname function
2003-11-28 15:35:41 +00:00
$outinfo = "$strtime: ". get_string("messagebeepsyou", "chat", fullname($user));
Simple beeping is now added ... users can now beep each other and also beep everyone using "beep all" There are no controls as yet to disable beeping on a per-user basis but this would come next
2003-07-09 12:53:26 +00:00
$outmain = "";
$output->beep = true;
} else {
return false;
}
} else if (substr($text, 0, 1) == ":") { /// It's an MOO emote
Added emoting (both the MOO style with a : and the IRC style /me )
2003-07-09 04:17:27 +00:00
$outinfo = $strtime;
Simple beeping is now added ... users can now beep each other and also beep everyone using "beep all" There are no controls as yet to disable beeping on a per-user basis but this would come next
2003-07-09 12:53:26 +00:00
$outmain = "$user->firstname ".substr($text, 1);
Added emoting (both the MOO style with a : and the IRC style /me )
2003-07-09 04:17:27 +00:00
Simple beeping is now added ... users can now beep each other and also beep everyone using "beep all" There are no controls as yet to disable beeping on a per-user basis but this would come next
2003-07-09 12:53:26 +00:00
} else if (substr($text, 0, 1) == "/") { /// It's a user command
Very early version of new chat module, made by Martin using ARSC as an inspiration. Works OK already on most newish browsers .. see mod/chat/README.txt for details.
2003-07-07 06:44:16 +00:00
Simple beeping is now added ... users can now beep each other and also beep everyone using "beep all" There are no controls as yet to disable beeping on a per-user basis but this would come next
2003-07-09 12:53:26 +00:00
if (substr($text, 0, 4) == "/me ") {
Added emoting (both the MOO style with a : and the IRC style /me )
2003-07-09 04:17:27 +00:00
$outinfo = $strtime;
Simple beeping is now added ... users can now beep each other and also beep everyone using "beep all" There are no controls as yet to disable beeping on a per-user basis but this would come next
2003-07-09 12:53:26 +00:00
$outmain = "$user->firstname ".substr($text, 4);
Added emoting (both the MOO style with a : and the IRC style /me )
2003-07-09 04:17:27 +00:00
} else {
$outinfo = $strtime;
Simple beeping is now added ... users can now beep each other and also beep everyone using "beep all" There are no controls as yet to disable beeping on a per-user basis but this would come next
2003-07-09 12:53:26 +00:00
$outmain = $text;
Very early version of new chat module, made by Martin using ARSC as an inspiration. Works OK already on most newish browsers .. see mod/chat/README.txt for details.
2003-07-07 06:44:16 +00:00
}
Added emoting (both the MOO style with a : and the IRC style /me )
2003-07-09 04:17:27 +00:00
} else { /// It's a normal message
$outinfo = "$strtime $user->firstname";
Simple beeping is now added ... users can now beep each other and also beep everyone using "beep all" There are no controls as yet to disable beeping on a per-user basis but this would come next
2003-07-09 12:53:26 +00:00
$outmain = $text;
Very early version of new chat module, made by Martin using ARSC as an inspiration. Works OK already on most newish browsers .. see mod/chat/README.txt for details.
2003-07-07 06:44:16 +00:00
}
Added emoting (both the MOO style with a : and the IRC style /me )
2003-07-09 04:17:27 +00:00
/// Format the message as a small table
Very early version of new chat module, made by Martin using ARSC as an inspiration. Works OK already on most newish browsers .. see mod/chat/README.txt for details.
2003-07-07 06:44:16 +00:00
Simple beeping is now added ... users can now beep each other and also beep everyone using "beep all" There are no controls as yet to disable beeping on a per-user basis but this would come next
2003-07-09 12:53:26 +00:00
$output->text = strip_tags("$outinfo: $outmain");
$output->html = "<table><tr><td valign=top>$picture</td><td><font size=2>";
$output->html .= "<font color=\"#888888\">$outinfo</font>";
if ($outmain) {
$output->html .= ": $outmain";
}
$output->html .= "</font></td></tr></table>";
Very early version of new chat module, made by Martin using ARSC as an inspiration. Works OK already on most newish browsers .. see mod/chat/README.txt for details.
2003-07-07 06:44:16 +00:00
Simple beeping is now added ... users can now beep each other and also beep everyone using "beep all" There are no controls as yet to disable beeping on a per-user basis but this would come next
2003-07-09 12:53:26 +00:00
return $output;
Very early version of new chat module, made by Martin using ARSC as an inspiration. Works OK already on most newish browsers .. see mod/chat/README.txt for details.
2003-07-07 06:44:16 +00:00
}
?>
Reference in New Issue Copy Permalink