version 1.9, 2003/03/29 01:39:10
|
version 1.12, 2003/07/24 17:53:59
|
Line 29
|
Line 29
|
package Apache::lonchatfetch; |
package Apache::lonchatfetch; |
|
|
use strict; |
use strict; |
use Apache::Constants qw(:common); |
use Apache::Constants qw(:common :http); |
use Apache::lontexconvert; |
use Apache::lontexconvert; |
use Apache::loncommon; |
use Apache::loncommon; |
use Apache::lonnet; |
use Apache::lonnet; |
Line 37 use Apache::lonnet;
|
Line 37 use Apache::lonnet;
|
sub handler { |
sub handler { |
my $r = shift; |
my $r = shift; |
|
|
|
if (! &Apache::lonnet::allowed('pch',$ENV{'request.course.id'}. |
|
($ENV{'request.course.sec'}?'/'.$ENV{'request.course.sec'}:'')) |
|
) { |
|
return HTTP_NOT_ACCEPTABLE; |
|
} |
|
|
my $loaderror=&Apache::lonnet::overloaderror($r); |
my $loaderror=&Apache::lonnet::overloaderror($r); |
if ($loaderror) { return $loaderror; } |
if ($loaderror) { return $loaderror; } |
$loaderror= |
$loaderror= |
Line 57 sub handler {
|
Line 63 sub handler {
|
my @entries=split(/\:/, |
my @entries=split(/\:/, |
&Apache::lonnet::reply( |
&Apache::lonnet::reply( |
"chatretr:$cdom:$cnum:$ENV{'user.domain'}:$ENV{'user.name'}",$chome)); |
"chatretr:$cdom:$cnum:$ENV{'user.domain'}:$ENV{'user.name'}",$chome)); |
my ($lastid)=($entries[$#entries]=~/^(\w+)/); |
# Figure out what the last valid entry-id is |
my ($thentime,$idnum)=split(/\_/,$lastid); |
my ($lastid,$thentime,$idnum); |
|
foreach (@entries) { |
|
$_=~/^(\w+)/; |
|
if ($1 ne 'active_participant') { |
|
$lastid=$1; |
|
($thentime,$idnum)=split(/\_/,$lastid); |
|
} |
|
} |
# ----------------------------------------------------------- Can see identity? |
# ----------------------------------------------------------- Can see identity? |
my $crs='/'.$ENV{'request.course.id'}; |
my $crs='/'.$ENV{'request.course.id'}; |
if ($ENV{'request.course.sec'}) { |
if ($ENV{'request.course.sec'}) { |
Line 89 sub handler {
|
Line 102 sub handler {
|
&Apache::lonnet::unescape($msg)); |
&Apache::lonnet::unescape($msg)); |
$contrib=&Apache::lonnet::unescape($contrib); |
$contrib=&Apache::lonnet::unescape($contrib); |
$contrib=~s/\n/\<br \/\>/g; |
$contrib=~s/\n/\<br \/\>/g; |
$contrib=&Apache::lontexconvert::msgtexconverted($contrib); |
($contrib,my $errors)=&Apache::lontexconvert::msgtexconverted($contrib); |
|
if ($errors) { $contrib.="[Message not fully displayed due to incorrect embedded TeX]"; } |
|
if ($errors && $snum eq $ENV{'user.name'} && |
|
$sdom eq $ENV{'user.domain'} ) { |
|
$contrib.="<br />[TeX error message: $errors]"; |
|
} |
$contrib=~s/\n/ /g; |
$contrib=~s/\n/ /g; |
$contrib=~s/\'/\&\#39\;/g; |
$contrib=~s/\'/\&\#39\;/g; |
my $sender=''; |
my $sender=''; |