--- loncom/interface/lonchatfetch.pm 2002/08/08 13:44:17 1.1
+++ loncom/interface/lonchatfetch.pm 2002/09/09 21:01:58 1.4
@@ -1,7 +1,7 @@
# The LearningOnline Network
# Chat Fetching
#
-# $Id: lonchatfetch.pm,v 1.1 2002/08/08 13:44:17 www Exp $
+# $Id: lonchatfetch.pm,v 1.4 2002/09/09 21:01:58 www Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -31,6 +31,8 @@ package Apache::lonchatfetch;
use strict;
use Apache::Constants qw(:common);
use Apache::lontexconvert;
+use Apache::loncommon;
+use Apache::lonnet;
sub handler {
my $r = shift;
@@ -43,15 +45,27 @@ sub handler {
my $cnum=$ENV{'course.'.$ENV{'request.course.id'}.'.num'};
my $cdom=$ENV{'course.'.$ENV{'request.course.id'}.'.domain'};
my $chome=$ENV{'course.'.$ENV{'request.course.id'}.'.home'};
+
my @entries=split(/\:/,
&Apache::lonnet::reply("chatretr:$cdom:$cnum",$chome));
my ($lastid)=($entries[$#entries]=~/^(\w+)/);
my ($thentime,$idnum)=split(/\_/,$lastid);
+# ----------------------------------------------------------- Can see identity?
+ my $crs='/'.$ENV{'request.course.id'};
+ if ($ENV{'request.course.sec'}) {
+ $crs.='_'.$ENV{'request.course.sec'};
+ }
+ $crs=~s/\_/\//g;
+ my $seeid=&Apache::lonnet::allowed('rin',$crs);
# -------------------------------------------------------- see which ones apply
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['lastid']);
my $include=0;
my $newstuff='';
- unless ($ENV{'form.lastid'}) { $include=1; }
+ my $bottomid='';
+ unless ($ENV{'form.lastid'}) {
+ $include=1;
+ $newstuff='';
+ }
foreach (@entries) {
if ($include) {
my ($id,$msg)=split(/\:/,&Apache::lonnet::unescape($_));
@@ -64,11 +78,30 @@ sub handler {
$contrib=&Apache::lontexconvert::msgtexconverted($contrib);
$contrib=~s/\n/ /g;
$contrib=~s/\'/\&\#39\;/g;
- my $sender=$snum.' at '.$sdom;
- if ($anon) {
+ my $sender='';
+ unless (($anon) && (!$seeid)) {
+ $sender=&Apache::loncommon::plainname($snum,$sdom);
+ if ($anon) { $sender.=' [Anon]' };
+ } else {
+ $sender=&Apache::loncommon::screenname($snum,$sdom);
+ unless ($sender) { $sender="Anonymous"; }
}
- $newstuff.=''.$sender.' ('.localtime($msgtime).'): '.
- $contrib."
";
+ $sender=~s/\'/\"/g;
+ my $color=$sender;
+ $color=~tr/a-j/0-9/;
+ $color=~tr/A-J/0-9/;
+ $color=~tr/k-t/0-9/;
+ $color=~tr/K-T/0-9/;
+ $color=~tr/u-z/0-5/;
+ $color=~tr/U-Z/0-5/;
+ $color=~s/\D//g;
+ $color=substr($color,0,6);
+ my $timestamp=localtime($msgtime);
+ my ($mhour,$mmin,$msec)=($timestamp=~/(\d\d)\:(\d\d)\:(\d\d)/);
+ $newstuff.=''.
+ $sender.' ('.$mhour.':'.$mmin.':'.$msec.'): '.
+ $contrib."
";
+ $bottomid=$id;
} else {
$_=~/^(\w+)/;
if ($1 eq $ENV{'form.lastid'}) { $include=1; }
@@ -83,6 +116,7 @@ sub handler {