[BACK]Return to lonchatfetch.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonchatfetch.pm between versions 1.3 and 1.5

version 1.3, 2002/08/14 16:24:00 version 1.5, 2002/09/13 19:32:09
Line 31  package Apache::lonchatfetch; Line 31  package Apache::lonchatfetch;
 use strict;  use strict;
 use Apache::Constants qw(:common);  use Apache::Constants qw(:common);
 use Apache::lontexconvert;  use Apache::lontexconvert;
   use Apache::loncommon;
   use Apache::lonnet;
   
 sub handler {  sub handler {
     my $r = shift;      my $r = shift;
Line 43  sub handler { Line 45  sub handler {
     my $cnum=$ENV{'course.'.$ENV{'request.course.id'}.'.num'};      my $cnum=$ENV{'course.'.$ENV{'request.course.id'}.'.num'};
     my $cdom=$ENV{'course.'.$ENV{'request.course.id'}.'.domain'};      my $cdom=$ENV{'course.'.$ENV{'request.course.id'}.'.domain'};
     my $chome=$ENV{'course.'.$ENV{'request.course.id'}.'.home'};      my $chome=$ENV{'course.'.$ENV{'request.course.id'}.'.home'};
   
     my @entries=split(/\:/,      my @entries=split(/\:/,
                        &Apache::lonnet::reply("chatretr:$cdom:$cnum",$chome));                         &Apache::lonnet::reply("chatretr:$cdom:$cnum",$chome));
     my ($lastid)=($entries[$#entries]=~/^(\w+)/);      my ($lastid)=($entries[$#entries]=~/^(\w+)/);
     my ($thentime,$idnum)=split(/\_/,$lastid);      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  # -------------------------------------------------------- see which ones apply
     &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['lastid']);      &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['lastid']);
     my $include=0;      my $include=0;
Line 68  sub handler { Line 78  sub handler {
     $contrib=&Apache::lontexconvert::msgtexconverted($contrib);      $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);
                  my $nick=&Apache::loncommon::nickname($snum,$sdom);
                  if (($nick) && ($nick ne $sender)) {
      $sender.=' '.$nick;
                  }
          if ($anon) { $sender.=' [Anon]' };
               } elsif (!$anon) {
                  $sender=&Apache::loncommon::nickname($snum,$sdom);
               } else {
    $sender=&Apache::loncommon::screenname($snum,$sdom);
                   unless ($sender) { $sender="Anonymous"; }
             }              }
     $newstuff.='<a name="'.$id.'"><b>'.              $sender=~s/\'/\"/g;
                        $sender.'</b> ('.localtime($msgtime).'): '.              my $color=$sender;
                        $contrib."<br>";              $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;              $bottomid=$id;
         } else {          } else {
             $_=~/^(\w+)/;              $_=~/^(\w+)/;
Removed from v.1.3  
changed lines
  Added in v.1.5

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