#!/usr/local/bin/perl

#_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/
#
#              The Endless Battle program Satellite
#       Copyright Net Game Communications All Rights reserved
#                       メインスクリプト
#
#         フリーウェアですが、著作権は放棄していません。
#			再配布、商用利用する場合はご報告願います。
#_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/
#_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/
#
#              The Endless Battle sub program 
#       Copyright masimaro All Rights reserved
#                       参加者表示スクリプト
#
#_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/
#設定
$SCRIPTNM="member.cgi";  #参加者表示スクリプト名
$timer = "30";           #参加者表示の時間
#
#_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/

require 'ebs_sub1.cgi';

&ERROR('直リンクは禁止です','入り口からのアクセスお願いします。') if $ENV{'HTTP_REFERER'} !~ m/^$THIS_DIR/ && $DIRECT_LINK && $SUB ne 'MY_LIST' && $SUB ne 'C_LIST';

!$SUB && ($SUB='MEMBER');
&$SUB;

sub MEMBER{

	&HEADER;
	&DBM_INPORT(P);
	print << "	-----END-----";
	<table width=100% height=100%><tr><td align=center>
	<table cellspacing=2 cellpadding=3 bgcolor="#909090" style="font-size:16px;" border=1>
		<tr><td bgcolor=#404040 colspan=5><center><b>$timer分以内の参戦状況</b></CENTER></td></tr>
		
	-----END-----
        $COUNT=1;
	while (my($key,$val) = each %P){
          @VALS = split(/\s/,$val);$ET++;
        if($VALS[5] eq''){$NATION="$NONE_NATIONALITY";}else{$NATION="$VALS[5]";}
                
		if ( $VALS[26] >= time-$timer*60){
			print "<tr style=\"color:#000000;\"><td nowrap>$COUNT</td><td nowrap>$key</td>";
			print "<td nowrap>【$NATION】所属</td><td nowrap>$VALS[3]機</td><td nowrap><img src=\"$IMG_FOLDER2/$VALS[27].gif\"></td></tr>";
		$COUNT++;
                }
	}
	print << "	-----END-----";
        <tr><td colspan=4>
	<form action=$SCRIPTNM method=POST>
	<input type=submit value=更新 $STYLE_B2>        
        </td><td></form>
	<input type=button value=close onclick='window.close()'>
	</td></tr></table>
	-----END-----
	print "<BR>参加者\表\示：EDIT BY <a href=\"http://members.jcom.home.ne.jp/masimaro/\">MASIMARO</a>";
	&FOOTER;
	print "</td></tr></table></body>";
}