[LON-CAPA-cvs] cvs: loncom / lond
www
lon-capa-cvs@mail.lon-capa.org
Fri, 28 Mar 2003 18:26:28 -0000
www Fri Mar 28 13:26:28 2003 EDT
Modified files:
/loncom lond
Log:
Work on bug #1068 - active user list will be coupled to retrieval.
BTW: WHY DOES CHAT NOT OPEN A NEW WINDOW ANYMORE???
Index: loncom/lond
diff -u loncom/lond:1.121 loncom/lond:1.122
--- loncom/lond:1.121 Thu Mar 27 18:00:28 2003
+++ loncom/lond Fri Mar 28 13:26:28 2003
@@ -2,7 +2,7 @@
# The LearningOnline Network
# lond "LON Daemon" Server (port "LOND" 5663)
#
-# $Id: lond,v 1.121 2003/03/27 23:00:28 albertel Exp $
+# $Id: lond,v 1.122 2003/03/28 18:26:28 www Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -73,7 +73,7 @@
my $status='';
my $lastlog='';
-my $VERSION='$Revision: 1.121 $'; #' stupid emacs
+my $VERSION='$Revision: 1.122 $'; #' stupid emacs
my $remoteVERSION;
my $currenthostid;
my $currentdomainid;
@@ -1479,9 +1479,10 @@
print $client "ok\n";
# -------------------------------------------------------------------- chatretr
} elsif ($userinput =~ /^chatretr/) {
- my ($cmd,$cdom,$cnum)=split(/\:/,$userinput);
+ my
+ ($cmd,$cdom,$cnum,$udom,$uname)=split(/\:/,$userinput);
my $reply='';
- foreach (&getchat($cdom,$cnum)) {
+ foreach (&getchat($cdom,$cnum,$udom,$uname)) {
$reply.=&escape($_).':';
}
$reply=~s/\:$//;
@@ -1833,7 +1834,7 @@
}
sub getchat {
- my ($cdom,$cname)=@_;
+ my ($cdom,$cname,$udom,$uname)=@_;
my %hash;
my $proname=&propath($cdom,$cname);
my @entries=();