罪と罰++二律背反

	# 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);
	}



トップ   編集 凍結 差分 バックアップ 添付 複製 名前変更 リロード   新規 一覧 単語検索 最終更新   ヘルプ   最終更新のRSS
Last-modified: 2012-06-08 (金) 00:28:10 (2738d)