version 1.13, 2004/06/27 17:14:28
|
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"; } |