罪罰改造板２/243

	# GETによる不正処理にペナルティ
	&penalty if($mv_mode eq 'pc' && $method eq 'POST' && !$post_flag);

	local(@usrfile,@BT_LIST,@tdat);

	# 参加者データファイル一覧取得
	&usrdata_read;

	# 自分自身を追加
       foreach(0..$#usrfile+1){
           push(@BT_LIST, $_) if($usrfile[$_] eq "$id\.cgi");
       }

       # 表示参加者ランダム選出
	foreach(0 .. $bt_count){
		$bt_list = int(rand($#usrfile));

		$flag = 0;
		foreach(0 .. $#BT_LIST){
			$flag = 1 if $bt_list eq $BT_LIST[$_];
		}
		push(@BT_LIST,$bt_list) if !$flag;
	}
	@BT_LIST = sort(@BT_LIST);

	# ランダム選出参加者のデータ一括読み込み
	foreach (0 .. $#BT_LIST) {
		open(IN,"$usrdata$usrfile[$BT_LIST[$_]]") || &error("Can't open $usrfile[$BT_LIST[$_]].cgi",1);
		push(@tdat,<IN>);
		close(IN);
	}