[[罪罰改造]]
*チャット携帯参加者 [#z9656688]
**内容 [#g22b1a81]
-携帯参加者は、国際交流広場に表示されない
-ホスト情報から、ユーザを識別している為、その為名前で判定する
**ご注意 [#gf085573]
-ほとんどテストしてません
-うまくいったら、報告お願いします。
**park.cgi [#h92e3f27]
-# × のところが、削除
-# +追加 のところが、追加
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]◆";
# × }
}