moodle/mod/chat/gui_sockets/index.php

<?php  // $Id$

    require_once('../../../config.php');
    require_once('../lib.php');

    $id      = required_param('id', PARAM_INT);
    $groupid = optional_param('groupid', 0, PARAM_INT); //only for teachers

    if (!$chat = get_record('chat', 'id', $id)) {
        error('Could not find that chat room!');
    }

    if (!$course = get_record('course', 'id', $chat->course)) {
        error('Could not find the course this belongs to!');
    }

    if (!$cm = get_coursemodule_from_instance('chat', $chat->id, $course->id)) {
        error('Course Module ID was incorrect');
    }

    require_login($course->id, false, $cm);

    if (isguest()) {
        error('Guest does not have access to chat rooms');
    }

    if (!$cm->visible and !isteacher($course->id)) {
        print_header();
        notice(get_string("activityiscurrentlyhidden"));
    }

/// Check to see if groups are being used here
     if ($groupmode = groupmode($course, $cm)) {   // Groups are being used
        if ($groupid = get_and_set_current_group($course, $groupmode, $groupid)) {
            if (!$group = get_record('groups', 'id', $groupid)) {
                error("That group (id $groupid) doesn't exist!");
            }
            $groupname = ': '.$group->name;
        } else {
            $groupname = ': '.get_string('allparticipants');
        }
    } else {
        $groupid = 0;
        $groupname = '';
    }

    $strchat = get_string('modulename', 'chat'); // must be before current_language() in chat_login_user() to force course language!!!

    if (!$chat_sid = chat_login_user($chat->id, 'sockets', $groupid, $course)) {
        error('Could not log in to chat room!!');
    }

    $params = "chat_sid=$chat_sid";

?>

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Frameset//EN" "http://www.w3.org/TR/html4/frameset.dtd">
<html>
 <head>
  <meta http-equiv="content-type" content="text/html; charset=<?php echo get_string('thischarset'); ?>" />
  <title>
   <?php echo "$strchat: $course->shortname: $chat->name$groupname" ?>
  </title>
 </head>
 <frameset cols="*,200" border="5" framespacing="no" frameborder="yes" marginwidth="2" marginheight="1">
  <frameset rows="0,*,50" border="0" framespacing="no" frameborder="no" marginwidth="2" marginheight="1">
   <frame src="empty.php" name="empty" scrolling="auto" noresize marginwidth="2" marginheight="0">
   <frame src="<?php echo "http://$CFG->chat_serverhost:$CFG->chat_serverport?win=chat&amp;$params"; ?>" name="msg" scrolling="auto" noresize marginwidth="2" marginheight="0">
   <frame src="chatinput.php?<?php echo $params ?>" name="input" scrolling="no" marginwidth="2" marginheight="1">
  </frameset>
  <frame src="<?php echo "http://$CFG->chat_serverhost:$CFG->chat_serverport?win=users&amp;$params"; ?>" name="users" scrolling="auto" marginwidth="5" marginheight="5">
 </frameset>
 <noframes>
  Sorry, this version of Moodle Chat needs a browser that handles frames.
 </noframes>
</html>
radical chat clean up, see forum for details 2005-02-03 20:39:27 +00:00			`<?php // $Id$`

Miscellaneous fixes from the PJ man 2004-08-23 14:40:53 +00:00			`require_once('../../../config.php');`
New versions for socket-based chat 2004-07-30 15:33:52 +00:00			`require_once('../lib.php');`

radical chat clean up, see forum for details 2005-02-03 20:39:27 +00:00			`$id = required_param('id', PARAM_INT);`
			`$groupid = optional_param('groupid', 0, PARAM_INT); //only for teachers`
New versions for socket-based chat 2004-07-30 15:33:52 +00:00
Miscellaneous fixes from the PJ man 2004-08-23 14:40:53 +00:00			`if (!$chat = get_record('chat', 'id', $id)) {`
			`error('Could not find that chat room!');`
New versions for socket-based chat 2004-07-30 15:33:52 +00:00			`}`

Miscellaneous fixes from the PJ man 2004-08-23 14:40:53 +00:00			`if (!$course = get_record('course', 'id', $chat->course)) {`
			`error('Could not find the course this belongs to!');`
New versions for socket-based chat 2004-07-30 15:33:52 +00:00			`}`

Miscellaneous fixes from the PJ man 2004-08-23 14:40:53 +00:00			`if (!$cm = get_coursemodule_from_instance('chat', $chat->id, $course->id)) {`
			`error('Course Module ID was incorrect');`
New versions for socket-based chat 2004-07-30 15:33:52 +00:00			`}`

In order to ensure that when a teacher hides a resource or an activity that students really can't get at it, even if they know the direct links to its pages, I have given an optional third argument $cm to the functions require_login() and require_course_login(). Pages showing information about a particular course module now pass the course module object in this third argument. The login functions will then test if either the course module is visible or the user is a teacher. If neither is the case then the user is redirected to the course homepage after being shown a message "Sorry, this activity is currently hidden". (While I was at it I also turned the autologinguests off for most module pages, except on the index.php pages and the view.php pages for those modules that allow guests) 2005-02-16 10:40:48 +00:00			`require_login($course->id, false, $cm);`
New versions for socket-based chat 2004-07-30 15:33:52 +00:00
			`if (isguest()) {`
Miscellaneous fixes from the PJ man 2004-08-23 14:40:53 +00:00			`error('Guest does not have access to chat rooms');`
New versions for socket-based chat 2004-07-30 15:33:52 +00:00			`}`

radical chat clean up, see forum for details 2005-02-03 20:39:27 +00:00			`if (!$cm->visible and !isteacher($course->id)) {`
			`print_header();`
			`notice(get_string("activityiscurrentlyhidden"));`
			`}`

New versions for socket-based chat 2004-07-30 15:33:52 +00:00			`/// Check to see if groups are being used here`
radical chat clean up, see forum for details 2005-02-03 20:39:27 +00:00			`if ($groupmode = groupmode($course, $cm)) { // Groups are being used`
			`if ($groupid = get_and_set_current_group($course, $groupmode, $groupid)) {`
			`if (!$group = get_record('groups', 'id', $groupid)) {`
			`error("That group (id $groupid) doesn't exist!");`
New versions for socket-based chat 2004-07-30 15:33:52 +00:00			`}`
			`$groupname = ': '.$group->name;`
			`} else {`
			`$groupname = ': '.get_string('allparticipants');`
			`}`
			`} else {`
radical chat clean up, see forum for details 2005-02-03 20:39:27 +00:00			`$groupid = 0;`
New versions for socket-based chat 2004-07-30 15:33:52 +00:00			`$groupname = '';`
			`}`

fixed problems with forced course language 2005-02-08 21:30:47 +00:00			`$strchat = get_string('modulename', 'chat'); // must be before current_language() in chat_login_user() to force course language!!!`

radical chat clean up, see forum for details 2005-02-03 20:39:27 +00:00			`if (!$chat_sid = chat_login_user($chat->id, 'sockets', $groupid, $course)) {`
			`error('Could not log in to chat room!!');`
New versions for socket-based chat 2004-07-30 15:33:52 +00:00			`}`

Chatd cleanup finished, from now on only bug fixing. 2005-02-12 10:54:25 +00:00			`$params = "chat_sid=$chat_sid";`
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			`?>`
New versions for socket-based chat 2004-07-30 15:33:52 +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			`<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Frameset//EN" "http://www.w3.org/TR/html4/frameset.dtd">`
			`<html>`
			`<head>`
Chatd cleanup finished, from now on only bug fixing. 2005-02-12 10:54:25 +00:00			`<meta http-equiv="content-type" content="text/html; charset=<?php echo get_string('thischarset'); ?>" />`
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			`<title>`
New versions for socket-based chat 2004-07-30 15:33:52 +00:00			`<?php echo "$strchat: $course->shortname: $chat->name$groupname" ?>`
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			`</title>`
			`</head>`
New versions for socket-based chat 2004-07-30 15:33:52 +00:00			`<frameset cols="*,200" border="5" framespacing="no" frameborder="yes" marginwidth="2" marginheight="1">`
radical chat clean up, see forum for details 2005-02-03 20:39:27 +00:00			`<frameset rows="0,*,50" border="0" framespacing="no" frameborder="no" marginwidth="2" marginheight="1">`
New versions for socket-based chat 2004-07-30 15:33:52 +00:00			`<frame src="empty.php" name="empty" scrolling="auto" noresize marginwidth="2" marginheight="0">`
fixed capitalization and quoting of attribute values 2004-09-12 15:06:29 +00:00			`<frame src="<?php echo "http://$CFG->chat_serverhost:$CFG->chat_serverport?win=chat&$params"; ?>" name="msg" scrolling="auto" noresize marginwidth="2" marginheight="0">`
New versions for socket-based chat 2004-07-30 15:33:52 +00:00			`<frame src="chatinput.php?<?php echo $params ?>" name="input" scrolling="no" marginwidth="2" marginheight="1">`
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			`</frameset>`
Merging latest changes from MOODLE_14_STABLE. 2004-08-25 11:00:27 +00:00			`<frame src="<?php echo "http://$CFG->chat_serverhost:$CFG->chat_serverport?win=users&$params"; ?>" name="users" scrolling="auto" marginwidth="5" marginheight="5">`
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			`</frameset>`
			`<noframes>`
New versions for socket-based chat 2004-07-30 15:33:52 +00:00			`Sorry, this version of Moodle Chat needs a browser that handles frames.`
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			`</noframes>`
			`</html>`