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]◆"; # × } } |