loncom/interface/lonchatfetch.pm - diff

Return to lonchatfetch.pm CVS log

Up to [LON-CAPA] / loncom / interface

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"; }