loncom/interface/lonchatfetch.pm - diff

Return to lonchatfetch.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonchatfetch.pm between versions 1.2 and 1.10

-version 1.2, 2002/08/14 15:57:53
+version 1.10, 2003/06/23 19:59:54
  Line 31  package Apache::lonchatfetch;
  use strict;
  use Apache::Constants qw(:common);
  use Apache::lontexconvert;
+ use Apache::loncommon;
+ use Apache::lonnet;
  sub handler {
      my $r = shift;
+     my $loaderror=&Apache::lonnet::overloaderror($r);
+     if ($loaderror) { return $loaderror; }
+     $loaderror=
+        &Apache::lonnet::overloaderror($r,
+          $ENV{'course.'.$ENV{'request.course.id'}.'.home'});
+     if ($loaderror) { return $loaderror; }
      $r->content_type('text/html');
      $r->send_http_header;
      return OK if $r->header_only;
- Line 43  sub handler {
+ Line 53  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));
+        &Apache::lonnet::reply(
-     my ($lastid)=($entries[$#entries]=~/^(\w+)/);
+         "chatretr:$cdom:$cnum:$ENV{'user.domain'}:$ENV{'user.name'}",$chome));
-     my ($thentime,$idnum)=split(/\_/,$lastid);
+ # Figure out what the last valid entry-id is
+     my ($lastid,$thentime,$idnum);
+     foreach (@entries) {
+ 	$_=~/^(\w+)/;
+         if ($1 ne 'active_participant') {
+ 	    $lastid=$1;
+             ($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='';
+     my $bottomid='';
      unless ($ENV{'form.lastid'}) {
         $include=1;
         $newstuff='<html><body bgcolor="#FFFFFF">';
      }
+     my @participants=();
      foreach (@entries) {
- 	if ($include) {
+ 	my ($id,$msg,$udom)=split(/\:/,&Apache::lonnet::unescape($_));
-             my ($id,$msg)=split(/\:/,&Apache::lonnet::unescape($_));
+  	if ($id eq 'active_participant') {
-             chomp($msg);
+            chomp($udom);
-             my ($msgtime,$msgnum)=split(/\_/,$id);
+ 	   $participants[$#participants+1]=
-             my ($sdom,$snum,$anon,$contrib)=split(/\:/,
+            &Apache::loncommon::nickname($msg,$udom);
-                                               &Apache::lonnet::unescape($msg));
+ 	} elsif ($include) {
-             $contrib=&Apache::lonnet::unescape($contrib);
+ 	    chomp($msg);
-             $contrib=~s/\n/\<br \/\>/g;
+ 	    my ($msgtime,$msgnum)=split(/\_/,$id);
+ 	    my ($sdom,$snum,$anon,$contrib)=split(/\:/,
+ 					     &Apache::lonnet::unescape($msg));
+ 	    $contrib=&Apache::lonnet::unescape($contrib);
+ 	    $contrib=~s/\n/\<br \/\>/g;
  	    $contrib=&Apache::lontexconvert::msgtexconverted($contrib);
-             $contrib=~s/\n/ /g;
+ 	    $contrib=~s/\n/ /g;
-             $contrib=~s/\'/\&\#39\;/g;
+ 	    $contrib=~s/\'/\&\#39\;/g;
-             my $sender=$snum.' at '.$sdom;
+ 	    my $sender='';
-             if ($anon) {
+ 	    if ($seeid) {
-             }
+ 		$sender=&Apache::loncommon::plainname($snum,$sdom);
- 	    $newstuff.='<a name="'.$id.'"><b>'.
+ 		my $nick=&Apache::loncommon::nickname($snum,$sdom);
-                        $sender.'</b> ('.localtime($msgtime).'): '.
+ 		if (($nick) && ($nick ne $sender)) {
-                        $contrib."<br>";
+ 		    $sender.=' '.$nick;
-         } else {
+ 		}
-             $_=~/^(\w+)/;
+ 		if ($anon) { $sender.=' [Anon]' };
-             if ($1 eq $ENV{'form.lastid'}) { $include=1; }
+ 	    } elsif (!$anon) {
-         }
+ 		$sender=&Apache::loncommon::nickname($snum,$sdom);
+ 	    } else {
+ 		$sender=&Apache::loncommon::screenname($snum,$sdom);
+ 		unless ($sender) { $sender="Anonymous"; }
+ 	    }
+ 	    $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.='<font color="#'.$color.'"><a name="'.$id.'"><b>'.
+ 		$sender.'</b> ('.$mhour.':'.$mmin.':'.$msec.'): '.
+ 		$contrib."</font><br>";
+ 	    $bottomid=$id;
+ 	} else {
+ 	    $_=~/^(\w+)/;
+ 	    if ($1 eq $ENV{'form.lastid'}) { $include=1; }
+ 	}
      }
+     my $participant_output=join('<br />',sort @participants);
      $r->print(<<ENDDOCUMENT);
  <html>
  <head>
- Line 87  sub handler {
+ Line 144  sub handler {
  <body bgcolor="#FFFFFF">
  <script>
  parent.chatout.document.writeln('$newstuff');
+ parent.chatout.scroll(0,10000000);
  </script>
+ $participant_output
  </body>
  </html>
  ENDDOCUMENT

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.2
changed lines
	Added in v.1.10