#!/usr/local/bin/perl

# ---------------------------------------------------
#
# TeaChat Confirm Member Plug-in
$version = '1.0.0';	# 2001/5/20
#	(c) 2001 Toshikazu.S All rights reserved. 
#
# URL :		 http://www.teachat.org/
# E-Mail :	 webmaster@teachat.org
#
# ---------------------------------------------------
# HTMLに下記のように記述する事でチャットの参加者を
# 表示することができます。SSIが使用できない場合は
# 使えません。
#
# <!--#exec cmd="./member.pl"-->
#
# ---------------------------------------------------

# mem.datのパスを設定して下さい
$mem_file    = "./teachat/mem.dat";

# ---------------------------------------------------

$time      = time+$stdtime*60*60;

open(LOG,"$mem_file") || die "File not opened.";
@member=<LOG>;
close(LOG);

foreach (@member){
	($mtime, $name2, $host2, $n_color3) = split(/\t/, $_);
	chop($n_color3) if($n_color3 =~ /\n/);
	if($time-300 > $mtime){
		$line = '';
		next;
	}
	push(@mem_num, "<font color=\"$n_color3\">$name2</font> ") if($name2 ne $host2);
}

$mem_num = @mem_num;
if($mem_num eq "0"){
	$mem_num = 'なし';
}
else{
	$mem_num = "$mem_num人 : @mem_num";
}

print qq(参加者 $mem_num);