loncom/interface/lonchatfetch.pm - diff

Return to lonchatfetch.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.7, 2003/03/28 20:40:52	version 1.8, 2003/03/28 23:16:25
Line 55 sub handler {	Line 55 sub handler {
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:$ENV{'user.domain'}:$ENV{'user.name'}",$chome));
my ($lastid)=($entries[$#entries]=~/^(\w+)/);	my ($lastid)=($entries[$#entries]=~/^(\w+)/);
my ($thentime,$idnum)=split(/\_/,$lastid);	my ($thentime,$idnum)=split(/\_/,$lastid);
# ----------------------------------------------------------- Can see identity?	# ----------------------------------------------------------- Can see identity?
Line 78 sub handler {	Line 79 sub handler {
if ($include) {	if ($include) {
my ($id,$msg,$uname)=split(/\:/,&Apache::lonnet::unescape($_));	my ($id,$msg,$uname)=split(/\:/,&Apache::lonnet::unescape($_));
if ($id eq 'active_participant') {	if ($id eq 'active_participant') {
$newstuff.='participant: '.$msg.' '.$uname;	# $newstuff.='participant: '.$msg.' '.$uname;
} else {	} else {
chomp($msg);	chomp($msg);
my ($msgtime,$msgnum)=split(/\_/,$id);	my ($msgtime,$msgnum)=split(/\_/,$id);