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 { |