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

606 lines
31 KiB
PHP
Raw Normal View History

fixed capitalization and quoting of attribute values
2004-09-12 15:06:29 +00:00
<?php // $Id$
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
/// Library of functions and constants for module chat
Added require_once for pagelib.php. Now deleting courses with these activities in works just fine once more!
2005-02-28 04:23:52 +00:00
require_once($CFG->libdir.'/pagelib.php');
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);
Latest fixes from Jon ... it's much more stable now! ... the only thing remaining is that the user window is still done old-style, and not yet converted over to the new -style daemon
2004-08-10 13:50:58 +00:00
}
COnfiguration variables can now be edited via GUI
2003-08-23 14:03:14 +00:00
if (!isset($CFG->chat_refresh_userlist)) {
set_config("chat_refresh_userlist", 10);
Latest fixes from Jon ... it's much more stable now! ... the only thing remaining is that the user window is still done old-style, and not yet converted over to the new -style daemon
2004-08-10 13:50:58 +00:00
}
COnfiguration variables can now be edited via GUI
2003-08-23 14:03:14 +00:00
if (!isset($CFG->chat_old_ping)) {
Making chatd more eager to update the users' status, and lib.php slightly less eager to declare them dead. Should solve the "active users are not shown at the chat index page" problem. Also, fixing a notice.
2004-08-23 08:48:57 +00:00
set_config("chat_old_ping", 35);
Latest fixes from Jon ... it's much more stable now! ... the only thing remaining is that the user window is still done old-style, and not yet converted over to the new -style daemon
2004-08-10 13:50:58 +00:00
}
New stuff to support socket mode
2004-07-30 15:36:39 +00:00
if (!isset($CFG->chat_method)) {
set_config("chat_method", "header_js");
Latest fixes from Jon ... it's much more stable now! ... the only thing remaining is that the user window is still done old-style, and not yet converted over to the new -style daemon
2004-08-10 13:50:58 +00:00
}
New stuff to support socket mode
2004-07-30 15:36:39 +00:00
if (!isset($CFG->chat_serverhost)) {
set_config("chat_serverhost", $_SERVER['HTTP_HOST']);
Latest fixes from Jon ... it's much more stable now! ... the only thing remaining is that the user window is still done old-style, and not yet converted over to the new -style daemon
2004-08-10 13:50:58 +00:00
}
New stuff to support socket mode
2004-07-30 15:36:39 +00:00
if (!isset($CFG->chat_serverip)) {
SERVER_ADDR is not defined in IIS, changing initial value to 127.0.0.1
2005-03-12 21:26:54 +00:00
set_config("chat_serverip", '127.0.0.1');
Latest fixes from Jon ... it's much more stable now! ... the only thing remaining is that the user window is still done old-style, and not yet converted over to the new -style daemon
2004-08-10 13:50:58 +00:00
}
New stuff to support socket mode
2004-07-30 15:36:39 +00:00
if (!isset($CFG->chat_serverport)) {
set_config("chat_serverport", 9111);
Latest fixes from Jon ... it's much more stable now! ... the only thing remaining is that the user window is still done old-style, and not yet converted over to the new -style daemon
2004-08-10 13:50:58 +00:00
}
New stuff to support socket mode
2004-07-30 15:36:39 +00:00
if (!isset($CFG->chat_servermax)) {
set_config("chat_servermax", 100);
Latest fixes from Jon ... it's much more stable now! ... the only thing remaining is that the user window is still done old-style, and not yet converted over to the new -style daemon
2004-08-10 13:50:58 +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
// 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)
Removed some THEME
2005-02-10 18:22:31 +00:00
$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=\"#FFFFFF\"></body></html>";
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
// The HTML head for the message input page
Removed some THEME
2005-02-10 18:22:31 +00:00
$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=\"#FFFFFF\">";
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
// The HTML code for the message input page, with JavaScript
Removed some THEME
2005-02-10 18:22:31 +00:00
$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=\"#FFFFFF\" OnLoad=\"document.f.arsc_message.focus();document.f.arsc_message.select();\">";
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
Miscellaneous fixes from the PJ man
2004-08-23 14:40:53 +00:00
// Dummy data that gets output to the browser as needed, in order to make it show output
$CHAT_DUMMY_DATA = "<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n<!-- nix -->\n";
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_add_instance($chat) {
Latest fixes from Jon ... it's much more stable now! ... the only thing remaining is that the user window is still done old-style, and not yet converted over to the new -style daemon
2004-08-10 13:50:58 +00:00
/// 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
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
/// of the new instance.
$chat->timemodified = time();
Latest fixes from Jon ... it's much more stable now! ... the only thing remaining is that the user window is still done old-style, and not yet converted over to the new -style daemon
2004-08-10 13:50:58 +00:00
$chat->chattime = make_timestamp($chat->chatyear, $chat->chatmonth, $chat->chatday,
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->chathour, $chat->chatminute);
Latest fixes from Jon ... it's much more stable now! ... the only thing remaining is that the user window is still done old-style, and not yet converted over to the new -style daemon
2004-08-10 13:50:58 +00:00
Calendar support for the Chat module
2004-04-25 03:05:58 +00:00
if ($returnid = insert_record("chat", $chat)) {
$event = NULL;
$event->name = $chat->name;
$event->description = $chat->intro;
$event->courseid = $chat->course;
$event->groupid = 0;
$event->userid = 0;
$event->modulename = 'chat';
$event->instance = $returnid;
$event->eventtype = $chat->schedule;
$event->timestart = $chat->chattime;
$event->timeduration = 0;
add_event($event);
}
return $returnid;
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_update_instance($chat) {
Latest fixes from Jon ... it's much more stable now! ... the only thing remaining is that the user window is still done old-style, and not yet converted over to the new -style daemon
2004-08-10 13:50:58 +00:00
/// Given an object containing all the necessary data,
/// (defined by the form in mod.html) this function
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
/// will update an existing instance with new data.
$chat->timemodified = time();
$chat->id = $chat->instance;
Latest fixes from Jon ... it's much more stable now! ... the only thing remaining is that the user window is still done old-style, and not yet converted over to the new -style daemon
2004-08-10 13:50:58 +00:00
$chat->chattime = make_timestamp($chat->chatyear, $chat->chatmonth, $chat->chatday,
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->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
Calendar support for the Chat module
2004-04-25 03:05:58 +00:00
if ($returnid = update_record("chat", $chat)) {
$event = NULL;
if ($event->id = get_field('event', 'id', 'modulename', 'chat', 'instance', $chat->id)) {
$event->name = $chat->name;
$event->description = $chat->intro;
$event->timestart = $chat->chattime;
update_event($event);
}
}
return $returnid;
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_delete_instance($id) {
Latest fixes from Jon ... it's much more stable now! ... the only thing remaining is that the user window is still done old-style, and not yet converted over to the new -style daemon
2004-08-10 13:50:58 +00:00
/// Given an ID of an instance of this module,
/// this function will permanently delete the instance
/// and any data that depends on it.
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
WHen deleting a chat, delete the messages etc too. Bug 2792
2005-03-27 05:56:23 +00:00
if (! $chat = get_record('chat', 'id', $id)) {
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 false;
}
$result = true;
# Delete any dependent records here #
WHen deleting a chat, delete the messages etc too. Bug 2792
2005-03-27 05:56:23 +00:00
if (! delete_records('chat', 'id', $chat->id)) {
$result = false;
}
if (! delete_records('chat_messages', 'chatid', $chat->id)) {
$result = false;
}
if (! delete_records('chat_users', 'chatid', $chat->id)) {
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
$result = false;
}
Each mod is responsible to deleting its own blocks; what I had in mind for centralizing this wouldn't work out. Use the flexible page_import_types so that we don't create one more dependency when writing new code.
2005-02-28 04:18:13 +00:00
$pagetypes = page_import_types('mod/chat/');
foreach($pagetypes as $pagetype) {
if(!delete_records('block_instance', 'pageid', $chat->id, 'pagetype', $pagetype)) {
$result = false;
}
}
Delete events when activity is deleted
2004-05-17 16:24:19 +00:00
if (! delete_records('event', 'modulename', 'chat', 'instance', $chat->id)) {
$result = 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
return $result;
}
function chat_user_outline($course, $user, $mod, $chat) {
Latest fixes from Jon ... it's much more stable now! ... the only thing remaining is that the user window is still done old-style, and not yet converted over to the new -style daemon
2004-08-10 13:50:58 +00:00
/// Return a small object with summary information about what 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
/// 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
merged from 14_STABLE - fixed warning in Activity report/Outline
2004-10-23 19:21:30 +00:00
$return = NULL;
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 $return;
}
function chat_user_complete($course, $user, $mod, $chat) {
Latest fixes from Jon ... it's much more stable now! ... the only thing remaining is that the user window is still done old-style, and not yet converted over to the new -style daemon
2004-08-10 13:50:58 +00:00
/// Print a detailed representation of what a user has done with
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 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;
Don't show old chat users in recent activity
2004-01-15 08:44:08 +00:00
$timeold = time() - $CFG->chat_old_ping;
Variety of small fixes, but mostly related to how the recent activity block is constructed. A new function exists to pump these notes out in a standard way : print_recent_activity_note. Module dependencies also updated because of this.
2005-03-10 13:30:57 +00:00
$lastpingsearch = ($CFG->chat_method == 'sockets') ? '': 'AND cu.lastping > \''.$timeold.'\'';
Merging latest changes from MOODLE_14_STABLE
2004-08-26 10:44:32 +00:00
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
Latest fixes from Jon ... it's much more stable now! ... the only thing remaining is that the user window is still done old-style, and not yet converted over to the new -style daemon
2004-08-10 13:50:58 +00:00
WHERE cu.userid = u.id
Merging latest changes from MOODLE_14_STABLE
2004-08-26 10:44:32 +00:00
AND cu.chatid = ch.id $lastpingsearch
Only show "recent activity" for chats in the current course.
2003-07-21 01:35:28 +00:00
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
Hide users in "hidden" chats from students. bug 1308
2004-05-05 08:19:03 +00:00
$isteacher = isteacher($course->id);
Chat now prints something useful under recent activity
2003-07-10 04:46:03 +00:00
Hide users in "hidden" chats from students. bug 1308
2004-05-05 08:19:03 +00:00
$outputstarted = false;
Chat now prints something useful under recent activity
2003-07-10 04:46:03 +00:00
$current = 0;
foreach ($chatusers as $chatuser) {
if ($current != $chatuser->chatid) {
if ($current) {
Variety of small fixes, but mostly related to how the recent activity block is constructed. A new function exists to pump these notes out in a standard way : print_recent_activity_note. Module dependencies also updated because of this.
2005-03-10 13:30:57 +00:00
echo '</ul></div>'; // room
$current = 0;
Chat now prints something useful under recent activity
2003-07-10 04:46:03 +00:00
}
Variety of small fixes, but mostly related to how the recent activity block is constructed. A new function exists to pump these notes out in a standard way : print_recent_activity_note. Module dependencies also updated because of this.
2005-03-10 13:30:57 +00:00
if ($chat = get_record('chat', 'id', $chatuser->chatid)) {
Hide users in "hidden" chats from students. bug 1308
2004-05-05 08:19:03 +00:00
if (!($isteacher or instance_is_visible('chat', $chat))) { // Chat hidden to students
continue;
}
if (!$outputstarted) {
Variety of small fixes, but mostly related to how the recent activity block is constructed. A new function exists to pump these notes out in a standard way : print_recent_activity_note. Module dependencies also updated because of this.
2005-03-10 13:30:57 +00:00
print_headline(get_string('currentchats', 'chat').':');
Hide users in "hidden" chats from students. bug 1308
2004-05-05 08:19:03 +00:00
$outputstarted = true;
}
Now chat->name works under filterall.
2005-03-27 11:36:54 +00:00
echo '<div class="room"><p class="head"><a href="'.$CFG->wwwroot.'/mod/chat/view.php?c='.$chat->id.'">'.format_string($chat->name,true).'</a></p><ul>';
Chat now prints something useful under recent activity
2003-07-10 04:46:03 +00:00
}
$current = $chatuser->chatid;
}
Variety of small fixes, but mostly related to how the recent activity block is constructed. A new function exists to pump these notes out in a standard way : print_recent_activity_note. Module dependencies also updated because of this.
2005-03-10 13:30:57 +00:00
$fullname = fullname($chatuser, $isteacher);
echo '<li class="info name">'.$fullname.'</li>';
}
if ($current) {
echo '</ul></div>'; // room
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
}
Variety of small fixes, but mostly related to how the recent activity block is constructed. A new function exists to pump these notes out in a standard way : print_recent_activity_note. Module dependencies also updated because of this.
2005-03-10 13:30:57 +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_cron () {
/// Function to be run periodically according to the moodle cron
Latest fixes from Jon ... it's much more stable now! ... the only thing remaining is that the user window is still done old-style, and not yet converted over to the new -style daemon
2004-08-10 13:50:58 +00:00
/// This function searches for things that need to be done, such
/// as sending out mail, toggling flags etc ...
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;
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;
}
Preliminary support for groups in Chat. It's not well tested yet - I'm hoping to do some testing on moodle.org with some real people and get this refined enough for the Beta release later today.
2004-02-24 06:35:57 +00:00
function chat_get_participants($chatid, $groupid=0) {
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
//Returns the users with data in one chat
//(users with records in chat_messages, students)
global $CFG;
Preliminary support for groups in Chat. It's not well tested yet - I'm hoping to do some testing on moodle.org with some real people and get this refined enough for the Beta release later today.
2004-02-24 06:35:57 +00:00
if ($groupid) {
$groupselect = " AND (c.groupid='$groupid' OR c.groupid='0')";
} else {
$groupselect = "";
}
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
//Get students
Now retrieving only needed fields!
2005-02-13 00:42:29 +00:00
$students = get_records_sql("SELECT DISTINCT u.id, u.id
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
FROM {$CFG->prefix}user u,
{$CFG->prefix}chat_messages c
Preliminary support for groups in Chat. It's not well tested yet - I'm hoping to do some testing on moodle.org with some real people and get this refined enough for the Beta release later today.
2004-02-24 06:35:57 +00:00
WHERE c.chatid = '$chatid' $groupselect
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
Calendar support for the Chat module
2004-04-25 03:05:58 +00:00
function chat_refresh_events($courseid = 0) {
// This standard function will check all instances of this module
// and make sure there are up-to-date events created for each of them.
// If courseid = 0, then every chat event in the site is checked, else
// only chat events belonging to the course specified are checked.
// This function is used, in its new format, by restore_refresh_events()
if ($courseid) {
if (! $chats = get_records("chat", "course", $courseid)) {
return true;
}
} else {
if (! $chats = get_records("chat")) {
return true;
}
}
Events associated to hidden activities are now invisible in calendar, using new field 'visible' in table 'event' which is updated each time a course module is hidden or unhidden.
2004-05-05 07:07:56 +00:00
$moduleid = get_field('modules', 'id', 'name', 'chat');
Calendar support for the Chat module
2004-04-25 03:05:58 +00:00
foreach ($chats as $chat) {
$event = NULL;
$event->name = addslashes($chat->name);
$event->description = addslashes($chat->intro);
$event->timestart = $chat->chattime;
if ($event->id = get_field('event', 'id', 'modulename', 'chat', 'instance', $chat->id)) {
update_event($event);
} else {
$event->courseid = $chat->course;
$event->groupid = 0;
$event->userid = 0;
$event->modulename = 'chat';
$event->instance = $chat->id;
$event->eventtype = $chat->schedule;
$event->timeduration = 0;
Events associated to hidden activities are now invisible in calendar, using new field 'visible' in table 'event' which is updated each time a course module is hidden or unhidden.
2004-05-05 07:07:56 +00:00
$event->visible = get_field('course_modules', 'visible', 'module', $moduleid, 'instance', $chat->id);
Latest fixes from Jon ... it's much more stable now! ... the only thing remaining is that the user window is still done old-style, and not yet converted over to the new -style daemon
2004-08-10 13:50:58 +00:00
Calendar support for the Chat module
2004-04-25 03:05:58 +00:00
add_event($event);
}
}
return true;
}
radical chat clean up, see forum for details
2005-02-03 20:39:27 +00:00
function chat_force_language($lang) {
/// This function prepares moodle to operate in given language
/// usable when $nomoodlecookie = true;
/// BEWARE: there must be no $course, $USER or $SESSION
fixed typos in chat_force_language(), added encoding to message page, minor cleanup
2005-02-08 21:23:19 +00:00
global $CFG;
radical chat clean up, see forum for details
2005-02-03 20:39:27 +00:00
if(!empty($CFG->courselang)) {
fixed typos in chat_force_language(), added encoding to message page, minor cleanup
2005-02-08 21:23:19 +00:00
unset($CFG->courselang);
radical chat clean up, see forum for details
2005-02-03 20:39:27 +00:00
}
if(!empty($CFG->locale)) {
fixed typos in chat_force_language(), added encoding to message page, minor cleanup
2005-02-08 21:23:19 +00:00
unset($CFG->locale);
radical chat clean up, see forum for details
2005-02-03 20:39:27 +00:00
}
Chatd cleanup finished, from now on only bug fixing.
2005-02-12 10:54:25 +00:00
$CFG->lang = $lang;
radical chat clean up, see forum for details
2005-02-03 20:39:27 +00:00
moodle_setlocale();
}
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
Preliminary support for groups in Chat. It's not well tested yet - I'm hoping to do some testing on moodle.org with some real people and get this refined enough for the Beta release later today.
2004-02-24 06:35:57 +00:00
function chat_get_users($chatid, $groupid=0) {
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;
Preliminary support for groups in Chat. It's not well tested yet - I'm hoping to do some testing on moodle.org with some real people and get this refined enough for the Beta release later today.
2004-02-24 06:35:57 +00:00
if ($groupid) {
$groupselect = " AND (c.groupid='$groupid' OR c.groupid='0')";
} else {
$groupselect = "";
}
Latest fixes from Jon ... it's much more stable now! ... the only thing remaining is that the user window is still done old-style, and not yet converted over to the new -style daemon
2004-08-10 13:50:58 +00:00
FIx to help PostgreSQL .... fix from Bruno Vernier Bug 1270
2004-04-26 02:54:55 +00:00
return get_records_sql("SELECT DISTINCT u.id, u.firstname, u.lastname, u.picture, c.lastmessageping, c.firstping
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'
Preliminary support for groups in Chat. It's not well tested yet - I'm hoping to do some testing on moodle.org with some real people and get this refined enough for the Beta release later today.
2004-02-24 06:35:57 +00:00
AND u.id = c.userid $groupselect
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
ORDER BY c.firstping ASC");
}
Preliminary support for groups in Chat. It's not well tested yet - I'm hoping to do some testing on moodle.org with some real people and get this refined enough for the Beta release later today.
2004-02-24 06:35:57 +00:00
function chat_get_latest_message($chatid, $groupid=0) {
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()
Latest fixes from Jon ... it's much more stable now! ... the only thing remaining is that the user window is still done old-style, and not yet converted over to the new -style daemon
2004-08-10 13:50:58 +00:00
/// because the LIMIT command causes problems with
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
/// 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
Preliminary support for groups in Chat. It's not well tested yet - I'm hoping to do some testing on moodle.org with some real people and get this refined enough for the Beta release later today.
2004-02-24 06:35:57 +00:00
if ($groupid) {
$groupselect = " AND (groupid='$groupid' OR groupid='0')";
} else {
$groupselect = "";
}
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 *
Latest fixes from Jon ... it's much more stable now! ... the only thing remaining is that the user window is still done old-style, and not yet converted over to the new -style daemon
2004-08-10 13:50:58 +00:00
FROM {$CFG->prefix}chat_messages
Preliminary support for groups in Chat. It's not well tested yet - I'm hoping to do some testing on moodle.org with some real people and get this refined enough for the Beta release later today.
2004-02-24 06:35:57 +00:00
WHERE chatid = '$chatid' $groupselect
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
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
//////////////////////////////////////////////////////////////////////
radical chat clean up, see forum for details
2005-02-03 20:39:27 +00:00
// login if not already logged in
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
fixed deleting of old users when using chatd, other minor fixes, reverting of changes in chatmsg - found some weird problems in FF
2005-02-10 19:14:53 +00:00
function chat_login_user($chatid, $version, $groupid, $course) {
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 $USER;
Chatd cleanup finished, from now on only bug fixing.
2005-02-12 10:54:25 +00:00
if (($version != 'sockets') and $chatuser = get_record_select('chat_users', "chatid='$chatid' AND userid='$USER->id' AND groupid='$groupid'")) {
radical chat clean up, see forum for details
2005-02-03 20:39:27 +00:00
$chatuser->version = $version;
$chatuser->ip = $USER->lastIP;
$chatuser->lastping = time();
$chatuser->lang = current_language();
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
radical chat clean up, see forum for details
2005-02-03 20:39:27 +00:00
if (($chatuser->course != $course->id)
or ($chatuser->userid != $USER->id)) {
return false;
}
if (!update_record('chat_users', $chatuser)) {
return false;
}
} else {
$chatuser->chatid = $chatid;
$chatuser->userid = $USER->id;
$chatuser->groupid = $groupid;
$chatuser->version = $version;
$chatuser->ip = $USER->lastIP;
$chatuser->lastping = $chatuser->firstping = $chatuser->lastmessageping = time();
$chatuser->sid = random_string(32);
maybe fixed double posts, fixed javascript errors, solved problems with reloading
2005-02-07 20:33:44 +00:00
$chatuser->course = $course->id; //caching - needed for current_language too
$chatuser->lang = current_language(); //caching - to resource intensive to find out later
radical chat clean up, see forum for details
2005-02-03 20:39:27 +00:00
if (!insert_record('chat_users', $chatuser)) {
return false;
}
fixed deleting of old users when using chatd, other minor fixes, reverting of changes in chatmsg - found some weird problems in FF
2005-02-10 19:14:53 +00:00
if ($version == 'sockets') {
// do not send 'enter' message, chatd will do it
} else {
reverted some unfinished changes in chatd - enter message
2005-02-04 21:14:19 +00:00
$message->chatid = $chatuser->chatid;
$message->userid = $chatuser->userid;
$message->groupid = $groupid;
$message->message = 'enter';
$message->system = 1;
$message->timestamp = time();
if (!insert_record('chat_messages', $message)) {
error('Could not insert a chat message!');
}
radical chat clean up, see forum for details
2005-02-03 20:39:27 +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
}
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;
Chatd cleanup finished, from now on only bug fixing.
2005-02-12 10:54:25 +00:00
$timeold = time() - $CFG->chat_old_ping;
fixed deleting of old users when using chatd, other minor fixes, reverting of changes in chatmsg - found some weird problems in FF
2005-02-10 19:14:53 +00:00
Merging changes from MOODLE_14_STABLE
2004-08-31 10:47:24 +00:00
$query = "lastping < '$timeold'";
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
radical chat clean up, see forum for details
2005-02-03 20:39:27 +00:00
if ($oldusers = get_records_select('chat_users', $query) ) {
delete_records_select('chat_users', $query);
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
foreach ($oldusers as $olduser) {
radical chat clean up, see forum for details
2005-02-03 20:39:27 +00:00
$message->chatid = $olduser->chatid;
$message->userid = $olduser->userid;
$message->groupid = $olduser->groupid;
$message->message = 'exit';
$message->system = 1;
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
$message->timestamp = time();
Latest fixes from Jon ... it's much more stable now! ... the only thing remaining is that the user window is still done old-style, and not yet converted over to the new -style daemon
2004-08-10 13:50:58 +00:00
radical chat clean up, see forum for details
2005-02-03 20:39:27 +00:00
if (!insert_record('chat_messages', $message)) {
error('Could not insert a chat message!');
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
}
}
}
}
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) {
Fixed Tim's bug with the chat not updating - bug 1151 His chat->intro had 'quotes' in it
2004-03-29 06:02:21 +00:00
unset($chat->name);
unset($chat->intro);
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
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);
Calendar support for the Chat module
2004-04-25 03:05:58 +00:00
$event = NULL; // Update calendar too
if ($event->id = get_field('event', 'id', 'modulename', 'chat', 'instance', $chat->id)) {
$event->timestart = $chat->chattime;
update_event($event);
}
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
}
}
Chatd cleanup finished, from now on only bug fixing.
2005-02-12 10:54:25 +00:00
function chat_format_message_manually($message, $courseid, $sender, $currentuser) {
Latest fixes from Jon ... it's much more stable now! ... the only thing remaining is that the user window is still done old-style, and not yet converted over to the new -style daemon
2004-08-10 13:50:58 +00:00
global $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
Latest fixes from Jon ... it's much more stable now! ... the only thing remaining is that the user window is still done old-style, and not yet converted over to the new -style daemon
2004-08-10 13:50:58 +00:00
$output = New stdClass;
radical chat clean up, see forum for details
2005-02-03 20:39:27 +00:00
$output->beep = false; // by default
$output->refreshusers = false; // by default
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
Chatd cleanup finished, from now on only bug fixing.
2005-02-12 10:54:25 +00:00
// Get some additional info
Latest fixes from Jon ... it's much more stable now! ... the only thing remaining is that the user window is still done old-style, and not yet converted over to the new -style daemon
2004-08-10 13:50:58 +00:00
Renamed get_user_timezone to get_user_timezone_offset, because Jon has plans for that function name
2005-04-08 07:42:50 +00:00
// But before that :-) let's override get_user_timezone_offset() for this call... messy stuff...
// TODO - FIX THIS TO MANAGE NEW TIMEZONES
Latest changes to the chat daemon ... user window now working Needs: - testing - beeps in daemon mode (you can type "beep all" though)
2004-08-11 14:45:40 +00:00
$tz = ($currentuser->timezone == 99) ? $CFG->timezone : $currentuser->timezone;
Latest fixes from Jon ... it's much more stable now! ... the only thing remaining is that the user window is still done old-style, and not yet converted over to the new -style daemon
2004-08-10 13:50:58 +00:00
$message->strtime = userdate($message->timestamp, get_string('strftimemessage', 'chat'), $tz);
$message->picture = print_user_picture($sender->id, 0, $sender->picture, false, true, false);
Some improved popup windows / links for user pictures
2003-07-24 02:25:23 +00:00
if ($courseid) {
XHTML compliance - fixed (hopefully) all <img> tags - global replace on <br> to <br /> - &amp; in URLs - got the forum module XHTML compliant Julian Sedding
2004-09-16 17:13:57 +00:00
$message->picture = "<a target=\"_new\" href=\"$CFG->wwwroot/user/view.php?id=$sender->id&amp;course=$courseid\">$message->picture</a>";
Some improved popup windows / links for user pictures
2003-07-24 02:25:23 +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
Latest fixes from Jon ... it's much more stable now! ... the only thing remaining is that the user window is still done old-style, and not yet converted over to the new -style daemon
2004-08-10 13:50:58 +00:00
// Start processing the 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
Latest fixes from Jon ... it's much more stable now! ... the only thing remaining is that the user window is still done old-style, and not yet converted over to the new -style daemon
2004-08-10 13:50:58 +00:00
if(!empty($message->system)) {
// System event
$output->text = $message->strtime.': '.get_string('message'.$message->message, 'chat', fullname($sender));
$output->html = '<table><tr><td style="vertical-align: top;">'.$message->picture.'</td><td>';
Changes for XHTML and accessibility compliance
2004-10-19 10:34:02 +00:00
$output->html .= '<font size="2" color="#ccaaaa">'.$output->text.'</font></td></tr></table>';
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
radical chat clean up, see forum for details
2005-02-03 20:39:27 +00:00
if($message->message == 'exit' or $message->message == 'enter') {
$output->refreshusers = true; //force user panel refresh ASAP
}
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;
}
Latest changes to the chat daemon ... user window now working Needs: - testing - beeps in daemon mode (you can type "beep all" though)
2004-08-11 14:45:40 +00:00
// It's not a system event
Latest fixes from Jon ... it's much more stable now! ... the only thing remaining is that the user window is still done old-style, and not yet converted over to the new -style daemon
2004-08-10 13:50:58 +00:00
$text = $message->message;
Latest changes to the chat daemon ... user window now working Needs: - testing - beeps in daemon mode (you can type "beep all" though)
2004-08-11 14:45:40 +00:00
/// Parse the text to clean and filter it
$options->para = false;
$text = format_text($text, FORMAT_MOODLE, $options, $courseid);
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
Latest fixes from Jon ... it's much more stable now! ... the only thing remaining is that the user window is still done old-style, and not yet converted over to the new -style daemon
2004-08-10 13:50:58 +00:00
// And now check for special cases
if (substr($text, 0, 5) == 'beep ') {
/// It's a beep!
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
$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
Latest fixes from Jon ... it's much more stable now! ... the only thing remaining is that the user window is still done old-style, and not yet converted over to the new -style daemon
2004-08-10 13:50:58 +00:00
if ($beepwho == 'all') { // everyone
$outinfo = $message->strtime.': '.get_string('messagebeepseveryone', 'chat', fullname($sender));
$outmain = '';
$output->beep = true; // (eventually this should be set to
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
// to a filename uploaded by the user)
Latest changes to the chat daemon ... user window now working Needs: - testing - beeps in daemon mode (you can type "beep all" though)
2004-08-11 14:45:40 +00:00
} else if ($beepwho == $currentuser->id) { // current user
Latest fixes from Jon ... it's much more stable now! ... the only thing remaining is that the user window is still done old-style, and not yet converted over to the new -style daemon
2004-08-10 13:50:58 +00:00
$outinfo = $message->strtime.': '.get_string('messagebeepsyou', 'chat', fullname($sender));
$outmain = '';
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->beep = true;
} else {
return false;
}
Latest fixes from Jon ... it's much more stable now! ... the only thing remaining is that the user window is still done old-style, and not yet converted over to the new -style daemon
2004-08-10 13:50:58 +00:00
} else if (substr($text, 0, 1) == ':') { /// It's an MOO emote
$outinfo = $message->strtime;
$outmain = $sender->firstname.' '.substr($text, 1);
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
Latest fixes from Jon ... it's much more stable now! ... the only thing remaining is that the user window is still done old-style, and not yet converted over to the new -style daemon
2004-08-10 13:50:58 +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 ") {
Latest fixes from Jon ... it's much more stable now! ... the only thing remaining is that the user window is still done old-style, and not yet converted over to the new -style daemon
2004-08-10 13:50:58 +00:00
$outinfo = $message->strtime;
$outmain = $sender->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 {
Latest fixes from Jon ... it's much more stable now! ... the only thing remaining is that the user window is still done old-style, and not yet converted over to the new -style daemon
2004-08-10 13:50:58 +00:00
$outinfo = $message->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
Latest fixes from Jon ... it's much more stable now! ... the only thing remaining is that the user window is still done old-style, and not yet converted over to the new -style daemon
2004-08-10 13:50:58 +00:00
$outinfo = $message->strtime.' '.$sender->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
Latest fixes from Jon ... it's much more stable now! ... the only thing remaining is that the user window is still done old-style, and not yet converted over to the new -style daemon
2004-08-10 13:50:58 +00:00
$output->text = strip_tags($outinfo.': '.$outmain);
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
fixed capitalization and quoting of attribute values
2004-09-12 15:06:29 +00:00
$output->html = "<table><tr><td valign=\"top\">$message->picture</td><td><font size=\"2\">";
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->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;
Latest fixes from Jon ... it's much more stable now! ... the only thing remaining is that the user window is still done old-style, and not yet converted over to the new -style daemon
2004-08-10 13:50:58 +00:00
}
radical chat clean up, see forum for details
2005-02-03 20:39:27 +00:00
function chat_format_message($message, $courseid, $currentuser) {
Latest fixes from Jon ... it's much more stable now! ... the only thing remaining is that the user window is still done old-style, and not yet converted over to the new -style daemon
2004-08-10 13:50:58 +00:00
/// Given a message object full of information, this function
/// formats it appropriately into text and html, then
/// returns the formatted data.
if (!$user = get_record("user", "id", $message->userid)) {
return "Error finding user id = $message->userid";
}
radical chat clean up, see forum for details
2005-02-03 20:39:27 +00:00
return chat_format_message_manually($message, $courseid, $user, $currentuser);
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