loncom/interface/lonchat.pm - diff

Return to lonchat.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.6, 2003/06/23 22:25:14	version 1.7, 2003/07/24 17:53:59
Line 29	Line 29
package Apache::lonchat;	package Apache::lonchat;

use strict;	use strict;
use Apache::Constants qw(:common);	use Apache::Constants qw(:common :http);
use Apache::loncommon;	use Apache::loncommon;

sub handler {	sub handler {
Line 37 sub handler {	Line 37 sub handler {
$r->content_type('text/html');	$r->content_type('text/html');
$r->send_http_header;	$r->send_http_header;
return OK if $r->header_only;	return OK if $r->header_only;
	if (! &Apache::lonnet::allowed('plc',$ENV{'request.course.id'}.
	($ENV{'request.course.sec'}?'/'.$ENV{'request.course.sec'}:'')
	)) {
	return HTTP_NOT_ACCEPTABLE;
	}

if ($ENV{'form.newchat'}) {	if ($ENV{'form.newchat'}) {
&Apache::lonnet::chatsend(&Apache::lonfeedback::clear_out_html($ENV{'form.newchat'}),$ENV{'form.anonymous'});	&Apache::lonnet::chatsend(&Apache::lonfeedback::clear_out_html($ENV{'form.newchat'}),$ENV{'form.anonymous'});