version 1.9, 2003/03/29 01:39:10
|
version 1.14, 2004/06/27 17:36:57
|
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 80 sub handler {
|
Line 93 sub handler {
|
my ($id,$msg,$udom)=split(/\:/,&Apache::lonnet::unescape($_)); |
my ($id,$msg,$udom)=split(/\:/,&Apache::lonnet::unescape($_)); |
if ($id eq 'active_participant') { |
if ($id eq 'active_participant') { |
chomp($udom); |
chomp($udom); |
$participants[$#participants+1]= |
my $participant= &Apache::loncommon::nickname($msg,$udom); |
&Apache::loncommon::nickname($msg,$udom); |
unless ($participant=~/\w/) { $participant=$msg.'@'.$udom; } |
|
$participants[$#participants+1]=$participant; |
} elsif ($include) { |
} elsif ($include) { |
chomp($msg); |
chomp($msg); |
my ($msgtime,$msgnum)=split(/\_/,$id); |
my ($msgtime,$msgnum)=split(/\_/,$id); |
Line 89 sub handler {
|
Line 103 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=''; |
Line 99 sub handler {
|
Line 118 sub handler {
|
if (($nick) && ($nick ne $sender)) { |
if (($nick) && ($nick ne $sender)) { |
$sender.=' '.$nick; |
$sender.=' '.$nick; |
} |
} |
|
unless ($sender) { $sender=$snum.'@'.$sdom; } |
if ($anon) { $sender.=' [Anon]' }; |
if ($anon) { $sender.=' [Anon]' }; |
} elsif (!$anon) { |
} elsif (!$anon) { |
$sender=&Apache::loncommon::nickname($snum,$sdom); |
$sender=&Apache::loncommon::nickname($snum,$sdom); |
|
unless ($sender) { $sender=$snum.'@'.$sdom; } |
} else { |
} else { |
$sender=&Apache::loncommon::screenname($snum,$sdom); |
$sender=&Apache::loncommon::screenname($snum,$sdom); |
unless ($sender) { $sender="Anonymous"; } |
unless ($sender) { $sender="Anonymous"; } |
} |
} |
$sender=~s/\'/\"/g; |
$sender=~s/\'/\&\#39\;/g; |
my $color=$sender; |
my $color=$sender; |
$color=~tr/a-j/0-9/; |
$color=~tr/a-j/0-9/; |
$color=~tr/A-J/0-9/; |
$color=~tr/A-J/0-9/; |