|
version 1.12, 2003/07/24 17:53:59
|
version 1.14, 2004/06/27 17:36:57
|
|
Line 93 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 117 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/; |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonchatfetch.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface