罪と罰++二律背反

	foreach (@data) {
		($time2,$name2,$host2) = split(/<>/);

		# 発言のない者は削除
		if ($time-$reload_limit > $time2) { next; }
		# × elsif ($host2 eq "$addr") {
		elsif ($name2 eq $DAT{'nm'}) {         # +追加

			# 発言/更新間隔
			# &error("$reload_mn秒以上間隔を空けて発言してください。") if($reload_mn+$time2>$time);
			if($reload_mn+$time2>$time){
				print "Status: 204\n\n";
				exit;
			}

			# 退室者は削除
			if ($_[0] eq 'bye') { next; }

			# ホスト名が同一であれば時間と名前を更新
			$_ = "$time<>$DAT{'nm'}<>$addr<>\n";
			$name2 = $DAT{'nm'};
			$flag=1;
		}
		# 更新用配列 @new に追加
		# × if ($name2 ne "$host2") {
			push(@new,$_);

			# 参加者表示用文字列を作成
			if(!$flag2){$member .="$name2◇";$flag2=1;}
			else{$member .="$name2◆";$flag2=0;}
		# × }
	}
	# 新規参加者を追加
	# × if (!$flag && $mv_mode eq 'pc') {
	if ( !$flag ) {
		# × if ($DAT{'nm'} ne "$host") {
			push(@new,"$time<>$DAT{'nm'}<>$addr<>\n");
			$member .= (!$flag2) ? "$DAT{'nm'} [IN]◇" : "$DAT{'nm'} [IN]◆";
		# × }
	}

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