loncom/interface/lonchat.pm - diff

Return to lonchat.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.9, 2005/02/17 08:50:20	version 1.10, 2005/04/07 06:56:22
Line 31 package Apache::lonchat;	Line 31 package Apache::lonchat;
use strict;	use strict;
use Apache::Constants qw(:common :http);	use Apache::Constants qw(:common :http);
use Apache::loncommon;	use Apache::loncommon;
	use Apache::lonnet;

sub handler {	sub handler {
my $r = shift;	my $r = shift;
&Apache::loncommon::content_type($r,'text/html');	&Apache::loncommon::content_type($r,'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'}.	if (! &Apache::lonnet::allowed('plc',$env{'request.course.id'}.
($ENV{'request.course.sec'}?'/'.$ENV{'request.course.sec'}:'')	($env{'request.course.sec'}?'/'.$env{'request.course.sec'}:'')
)) {	)) {
return HTTP_NOT_ACCEPTABLE;	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'});
}	}
# --------------------------------------------------- Print login screen header	# --------------------------------------------------- Print login screen header
my $latexHelp = Apache::loncommon::helpLatexCheatsheet();	my $latexHelp = Apache::loncommon::helpLatexCheatsheet();