loncom/lond - diff

Return to lond CVS log

Up to [LON-CAPA] / loncom

version 1.123, 2003/03/28 20:40:52	version 1.124, 2003/03/28 23:16:25
Line 1843 sub getchat {	Line 1843 sub getchat {
@entries=map { $_.':'.$hash{$_} } sort keys %hash;	@entries=map { $_.':'.$hash{$_} } sort keys %hash;
untie %hash;	untie %hash;
}	}
	my @participants=();
$cutoff=time-60;	$cutoff=time-60;
if (tie(%hash,'GDBM_File',"$proname/nohist_inchatroom.db",	if (tie(%hash,'GDBM_File',"$proname/nohist_inchatroom.db",
&GDBM_READER(),0640)) {	&GDBM_WRCREAT(),0640)) {
$hash{$uname.':'.$undom}=time;	$hash{$uname.':'.$udom}=time;
foreach (sort keys %hash) {	foreach (sort keys %hash) {
if ($hash{$_}>$cutoff) {	if ($hash{$_}>$cutoff) {
$entries[$#entries+1]='active_participant:'.$_;	$participants[$#participants+1]='active_participant:'.$_;
}	}
}	}
untie %hash;	untie %hash;
}	}
return @entries;	return (@participants,@entries);
}	}

sub chatadd {	sub chatadd {