mirror_php/moodle
1
0
Fork 0
mirror of https://github.com/moodle/moodle.git synced 2025-03-13 20:26:32 +01:00
Code Issues Projects Releases Wiki Activity
moodle/mod/chat/lib.php

687 lines
35 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
}
mod/chat: Normal method - introducing "Stream" updates. This is an alternative version of jsupdate.php that acts as a long-running daemon. It will feed/stall/feed JS updates to the client. From the module configuration select "Stream" updates. The client connection is not forever though. Once we reach CHAT_MAX_CLIENT_UPDATES (currently 1000), it will force the client to re-fetch it. This buys us all the benefits that chatd has, minus the setup, as we are using apache to do the daemon handling. Chat still defaults to the normal update method, which is now optimised to take advantage of keepalives -- so this change is safe. The instructions in the config page also indicate that this mode may not be well supported everywhere. It hasn't been tested on IIS for starters. In terms of relative cost -- if each hit on jsupdate.php incurs on ~20 db queries and delivers one update to the client, each hit on jsupdate takes ~20 queries, and then roughly 2~3 queries to serve each of the next 1000 updates. On busy sites, the difference is huge. There is still room for enhancements in both keepalive and stream update methods. I am pretty sure we can trim DB queries more.
2006-04-19 02:20:48 +00:00
if (!isset($CFG->chat_normal_updatemode)) {
set_config("chat_normal_updatemode", 'jsupdate');
}
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)
Added CDATA to Javascript
2006-12-22 05:01:17 +00:00
$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//<![CDATA[\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<!-- 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
// 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
Added CDATA to Javascript
2006-12-22 05:01:17 +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//<![CDATA[\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();
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;
Calendar support for the Chat module
2004-04-25 03:05:58 +00:00
if ($returnid = update_record("chat", $chat)) {
add code to redirect to modedit.php from course/mod.php for activities adding / updating using new formslib migrated chat/mod.html to formslib definition of form is in chat/mod_form.php
2006-11-09 18:25:58 +00:00
$event = new object();
Calendar support for the Chat module
2004-04-25 03:05:58 +00:00
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
Merged fixes for AS keywords MDL-7207
2006-10-25 08:51:32 +00:00
FROM {$CFG->prefix}chat_users cu,
{$CFG->prefix}chat ch,
{$CFG->prefix}user 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
$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)) {
add code to redirect to modedit.php from course/mod.php for activities adding / updating using new formslib migrated chat/mod.html to formslib definition of form is in chat/mod_form.php
2006-11-09 18:25:58 +00:00
Removed tabs
2006-08-09 13:45:49 +00:00
// we find the course module id
fixed capabilities in chat recent activity, removed broken optimization from message insert, fixed closing of box MDL-7313; merged from MOODLE_17_STABLE
2006-10-31 21:07:00 +00:00
$cm = get_coursemodule_from_instance('chat', $chat->id, $course->id);
Removed tabs
2006-08-09 13:45:49 +00:00
$context = get_context_instance(CONTEXT_MODULE, $cm->id);
add code to redirect to modedit.php from course/mod.php for activities adding / updating using new formslib migrated chat/mod.html to formslib definition of form is in chat/mod_form.php
2006-11-09 18:25:58 +00:00
Removed tabs
2006-08-09 13:45:49 +00:00
// needs to be fixed
SWEEPING CLEANUP The API was changed slightly so that has_capability now takes the whole $context object (we almost always have it anyway) The $kill thing was removed. If you want to assert a capability then use: require_capability('capname', $context); with optional variables to modify the error message Misc bugs here and there also removed and code tidied
2006-08-14 05:55:40 +00:00
if (!(has_capability('mod/chat:readlog', $context) or instance_is_visible('chat', $chat))) { // Chat hidden to students
Hide users in "hidden" chats from students. bug 1308
2004-05-05 08:19:03 +00:00
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;
}
fixed capabilities in chat recent activity, removed broken optimization from message insert, fixed closing of box MDL-7313; merged from MOODLE_17_STABLE
2006-10-31 21:07:00 +00:00
$fullname = fullname($chatuser, has_capability('moodle/site:viewfullnames', get_context_instance(CONTEXT_COURSE, $course->id)));
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 '<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
}
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 = "";
}
DeLIMITing Moodle core. Now the new $limitfrom, $limitnum parameters are used instead. MDL-7168 Merged from MOODLE_17_STABLE
2006-10-24 22:00:29 +00:00
if (!$rs = $db->SelectLimit("SELECT *
FROM {$CFG->prefix}chat_messages
WHERE chatid = '$chatid' $groupselect
ORDER BY timestamp DESC", 1)) {
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
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;
Moving from lastIP to lastip everywhere. Bug 5763. (http://moodle.org/bugs/bug.php?op=show&bugid=5763) Merged from MOODLE_16_STABLE
2006-06-09 10:04:43 +00:00
$chatuser->ip = $USER->lastip;
radical chat clean up, see forum for details
2005-02-03 20:39:27 +00:00
$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
Moving from lastIP to lastip everywhere. Bug 5763. (http://moodle.org/bugs/bug.php?op=show&bugid=5763) Merged from MOODLE_16_STABLE
2006-06-09 10:04:43 +00:00
// Sometimes $USER->lastip is not setup properly
mod/chat - cope with missing $USER->lastIP $USER->lastIP is sometimes not set properly during login, fetch it if we can or error out clearly -- we won't be able to login the user to the chat if we don't have an IP address to match him/her against.
2006-04-18 22:40:56 +00:00
// during login. Update with current value if possible
mod/chat - use empty value instead of erroring out if $USER->lastIP and getremoteaddr() don't yield any interesting value Sometimes we can't get any useful IP for the user -- and this may even be a valid situation. So fudge an empty value -- the DB needs it as the IP field is NOT NULL.
2006-04-19 21:22:36 +00:00
// or provide a dummy value for the db
mod/chat - cope with missing $USER->lastIP $USER->lastIP is sometimes not set properly during login, fetch it if we can or error out clearly -- we won't be able to login the user to the chat if we don't have an IP address to match him/her against.
2006-04-18 22:40:56 +00:00
if (empty($chatuser->ip)) {
$chatuser->ip = getremoteaddr();
if (empty($chatuser->ip)) {
mod/chat - use empty value instead of erroring out if $USER->lastIP and getremoteaddr() don't yield any interesting value Sometimes we can't get any useful IP for the user -- and this may even be a valid situation. So fudge an empty value -- the DB needs it as the IP field is NOT NULL.
2006-04-19 21:22:36 +00:00
$chatuser->ip = '';
mod/chat - cope with missing $USER->lastIP $USER->lastIP is sometimes not set properly during login, fetch it if we can or error out clearly -- we won't be able to login the user to the chat if we don't have an IP address to match him/her against.
2006-04-18 22:40:56 +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 {
MDL-8022 chat accessiblity - new gui_basic that can be used as fallback or accessible option to gui_header_js - it is not compatible with chat daemon - todo: CSS styling, beeping, JS fallback code in view.php and noframes fallback in gui_header_js - minor changes in messaging language strings - minor coding style improvements
2006-12-29 18:33:41 +00:00
$chatuser = new object();
radical chat clean up, see forum for details
2005-02-03 20:39:27 +00:00
$chatuser->chatid = $chatid;
$chatuser->userid = $USER->id;
$chatuser->groupid = $groupid;
$chatuser->version = $version;
Moving from lastIP to lastip everywhere. Bug 5763. (http://moodle.org/bugs/bug.php?op=show&bugid=5763) Merged from MOODLE_16_STABLE
2006-06-09 10:04:43 +00:00
$chatuser->ip = $USER->lastip;
radical chat clean up, see forum for details
2005-02-03 20:39:27 +00:00
$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
Moving from lastIP to lastip everywhere. Bug 5763. (http://moodle.org/bugs/bug.php?op=show&bugid=5763) Merged from MOODLE_16_STABLE
2006-06-09 10:04:43 +00:00
// Sometimes $USER->lastip is not setup properly
mod/chat - fix another instance where empty $USER->lastIP was affecting us The original commit was: mod/chat - use empty value instead of erroring out if $USER->lastIP and getremoteaddr() don't yield any interesting value Sometimes we can't get any useful IP for the user -- and this may even be a valid situation. So fudge an empty value -- the DB needs it as the IP field is NOT NULL.
2006-05-02 05:20:35 +00:00
// during login. Update with current value if possible
// or provide a dummy value for the db
if (empty($chatuser->ip)) {
$chatuser->ip = getremoteaddr();
if (empty($chatuser->ip)) {
$chatuser->ip = '';
}
}
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 {
MDL-8022 chat accessiblity - new gui_basic that can be used as fallback or accessible option to gui_header_js - it is not compatible with chat daemon - todo: CSS styling, beeping, JS fallback code in view.php and noframes fallback in gui_header_js - minor changes in messaging language strings - minor coding style improvements
2006-12-29 18:33:41 +00:00
$message = new object();
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;
MDL-8022 Chat accessibility - new gui_basic should integrated and fully working now + improved print_user_picture() to allow images with empty alt to prevent repetitive reading of usernames in jaws when username is printed next to avatar
2006-12-30 19:45:24 +00:00
$timeoldext = time() - ($CFG->chat_old_ping*10); // JSless gui_basic needs much longer timeouts
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
MDL-8022 chat accessiblity - new gui_basic that can be used as fallback or accessible option to gui_header_js - it is not compatible with chat daemon - todo: CSS styling, beeping, JS fallback code in view.php and noframes fallback in gui_header_js - minor changes in messaging language strings - minor coding style improvements
2006-12-29 18:33:41 +00:00
$query = "(version<>'basic' AND lastping<'$timeold') OR (version='basic' AND lastping<'$timeoldext')";
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) {
MDL-8022 chat accessiblity - new gui_basic that can be used as fallback or accessible option to gui_header_js - it is not compatible with chat daemon - todo: CSS styling, beeping, JS fallback code in view.php and noframes fallback in gui_header_js - minor changes in messaging language strings - minor coding style improvements
2006-12-29 18:33:41 +00:00
$message = new object();
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
}
}
Extended theme support to the chat window. Bug 3376. (http://moodle.org/bugs/bug.php?op=show&bugid=3376) Merged from MOODLE_15_STABLE
2005-09-10 22:57:21 +00:00
function chat_format_message_manually($message, $courseid, $sender, $currentuser, $chat_lastrow=NULL) {
Fix for bug 3794: Times in chat messages are now displayed correctly to all users, with each user's timezone and DST status taken into account.
2005-10-24 17:30:56 +00:00
global $CFG, $USER;
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
MDL-8022 chat accessiblity - new gui_basic that can be used as fallback or accessible option to gui_header_js - it is not compatible with chat daemon - todo: CSS styling, beeping, JS fallback code in view.php and noframes fallback in gui_header_js - minor changes in messaging language strings - minor coding style improvements
2006-12-29 18:33:41 +00:00
$output = new object();
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
Fix for bug 3794: Times in chat messages are now displayed correctly to all users, with each user's timezone and DST status taken into account.
2005-10-24 17:30:56 +00:00
// Use get_user_timezone() to find the correct timezone for displaying this message:
// It's either the current user's timezone or else decided by some Moodle config setting
A slight improvement for my last edit, which could trigger a small bug. I should go out and drink more often, it helps debugging! ;-)
2005-10-25 01:55:21 +00:00
// First, "reset" $USER->timezone (which could have been set by a previous call to here)
// because otherwise the value for the previous $currentuser will take precedence over $CFG->timezone
$USER->timezone = 99;
Fix for bug 3794: Times in chat messages are now displayed correctly to all users, with each user's timezone and DST status taken into account.
2005-10-24 17:30:56 +00:00
$tz = get_user_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
Fix for bug 3794: Times in chat messages are now displayed correctly to all users, with each user's timezone and DST status taken into account.
2005-10-24 17:30:56 +00:00
// Before formatting the message time string, set $USER->timezone to the above.
// This will allow dst_offset_on (called by userdate) to work correctly, otherwise the
// message times appear off because DST is not taken into account when it should be.
$USER->timezone = $tz;
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
Extended theme support to the chat window. Bug 3376. (http://moodle.org/bugs/bug.php?op=show&bugid=3376) Merged from MOODLE_15_STABLE
2005-09-10 22:57:21 +00:00
//Calculate the row class
if ($chat_lastrow !== NULL) {
$rowclass = ' class="r'.$chat_lastrow.'" ';
} else {
$rowclass = '';
}
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));
Extended theme support to the chat window. Bug 3376. (http://moodle.org/bugs/bug.php?op=show&bugid=3376) Merged from MOODLE_15_STABLE
2005-09-10 22:57:21 +00:00
$output->html = '<table class="chat-event"><tr'.$rowclass.'><td class="picture">'.$message->picture.'</td><td class="text">';
$output->html .= '<span class="event">'.$output->text.'</span></td></tr></table>';
MDL-8022 Chat accessibility - new gui_basic should integrated and fully working now + improved print_user_picture() to allow images with empty alt to prevent repetitive reading of usernames in jaws when username is printed next to avatar
2006-12-30 19:45:24 +00:00
$output->basic = '<dl><dt class="event">'.$message->strtime.': '.get_string('message'.$message->message, 'chat', fullname($sender)).'</dt></dl>';
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
MDL-8022 chat accessiblity - new gui_basic that can be used as fallback or accessible option to gui_header_js - it is not compatible with chat daemon - todo: CSS styling, beeping, JS fallback code in view.php and noframes fallback in gui_header_js - minor changes in messaging language strings - minor coding style improvements
2006-12-29 18:33:41 +00:00
$options = new object();
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
$options->para = false;
$text = format_text($text, FORMAT_MOODLE, $options, $courseid);
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 ') {
add code to redirect to modedit.php from course/mod.php for activities adding / updating using new formslib migrated chat/mod.html to formslib definition of form is in chat/mod_form.php
2006-11-09 18:25:58 +00:00
/// 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;
add code to redirect to modedit.php from course/mod.php for activities adding / updating using new formslib migrated chat/mod.html to formslib definition of form is in chat/mod_form.php
2006-11-09 18:25:58 +00:00
Fixed a typo
2006-03-24 14:44:55 +00:00
} else { //something is not caught?
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 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
}
add code to redirect to modedit.php from course/mod.php for activities adding / updating using new formslib migrated chat/mod.html to formslib definition of form is in chat/mod_form.php
2006-11-09 18:25:58 +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
A little HTML hint since styles are not working here for me somehow
2006-04-18 07:28:44 +00:00
$output->html = "<table class=\"chat-message\"><tr$rowclass><td class=\"picture\" valign=\"top\">$message->picture</td><td class=\"text\">";
Extended theme support to the chat window. Bug 3376. (http://moodle.org/bugs/bug.php?op=show&bugid=3376) Merged from MOODLE_15_STABLE
2005-09-10 22:57:21 +00:00
$output->html .= "<span class=\"title\">$outinfo</span>";
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 ($outmain) {
$output->html .= ": $outmain";
MDL-8022 Chat accessibility - new gui_basic should integrated and fully working now + improved print_user_picture() to allow images with empty alt to prevent repetitive reading of usernames in jaws when username is printed next to avatar
2006-12-30 19:45:24 +00:00
$output->basic = '<dl><dt class="title">'.$outinfo.':</dt><dd class="text">'.$outmain.'</dd></dl>';
MDL-8022 chat accessiblity - new gui_basic that can be used as fallback or accessible option to gui_header_js - it is not compatible with chat daemon - todo: CSS styling, beeping, JS fallback code in view.php and noframes fallback in gui_header_js - minor changes in messaging language strings - minor coding style improvements
2006-12-29 18:33:41 +00:00
} else {
MDL-8022 Chat accessibility - new gui_basic should integrated and fully working now + improved print_user_picture() to allow images with empty alt to prevent repetitive reading of usernames in jaws when username is printed next to avatar
2006-12-30 19:45:24 +00:00
$output->basic = '<dl><dt class="title">'.$outinfo.'</dt></dl>';
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
}
Extended theme support to the chat window. Bug 3376. (http://moodle.org/bugs/bug.php?op=show&bugid=3376) Merged from MOODLE_15_STABLE
2005-09-10 22:57:21 +00:00
$output->html .= "</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
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
}
Extended theme support to the chat window. Bug 3376. (http://moodle.org/bugs/bug.php?op=show&bugid=3376) Merged from MOODLE_15_STABLE
2005-09-10 22:57:21 +00:00
function chat_format_message($message, $courseid, $currentuser, $chat_lastrow=NULL) {
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.
More efficient chat listings (less database calling)
2006-04-18 07:14:21 +00:00
static $users; // Cache user lookups
if (isset($users[$message->userid])) {
$user = $users[$message->userid];
} else if ($user = get_record('user', 'id', $message->userid, '','','','','id,picture,firstname,lastname')) {
$users[$message->userid] = $user;
} else {
return NULL;
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
}
Extended theme support to the chat window. Bug 3376. (http://moodle.org/bugs/bug.php?op=show&bugid=3376) Merged from MOODLE_15_STABLE
2005-09-10 22:57:21 +00:00
return chat_format_message_manually($message, $courseid, $user, $currentuser, $chat_lastrow);
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
}
Initial checkin of stats (from processing the log table). I will write up some information about it for the developers wiki.
2005-09-01 04:14:31 +00:00
function chat_get_view_actions() {
return array('view','view all','report');
}
function chat_get_post_actions() {
return array('talk');
}
Chat module support for my moodle page
2006-03-14 22:28:28 +00:00
function chat_print_overview($courses, &$htmlarray) {
global $USER, $CFG;
if (empty($courses) || !is_array($courses) || count($courses) == 0) {
return array();
}
if (!$chats = get_all_instances_in_courses('chat',$courses)) {
return;
}
$strchat = get_string('modulename', 'chat');
$strnextsession = get_string('nextsession', 'chat');
foreach ($chats as $chat) {
if ($chat->chattime and $chat->schedule) { // A chat is scheduled
iFIx up some styles for the MyMoodle overview
2006-03-15 04:01:10 +00:00
$str = '<div class="chat overview"><div class="name">'.
$strchat.': <a '.($chat->visible?'':' class="dimmed"').
' href="'.$CFG->wwwroot.'/mod/chat/view.php?id='.$chat->coursemodule.'">'.
$chat->name.'</a></div>';
$str .= '<div class="info">'.$strnextsession.': '.userdate($chat->chattime).'</div></div>';
if (empty($htmlarray[$chat->course]['chat'])) {
$htmlarray[$chat->course]['chat'] = $str;
} else {
$htmlarray[$chat->course]['chat'] .= $str;
}
Chat module support for my moodle page
2006-03-14 22:28:28 +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
?>
Reference in New Issue Copy Permalink