[[罪罰通信]]
-罪罰/他国へ一括通信1も参照
*もうひとつの方法、これでもいいかも [#n6c0bc97]
-宛先のところに国名を入れれば届きます
-国名と同じキャラが存在した場合問題が発生します
**国名宛の通信を表示 [#o44884bf]
# ログ書き込み処理
sub regist{
.... ( 省略 ) ....
if($SAT{'nm'} eq $in{'nm'}
|| $in{'nm'} eq $camp_info[1][0] # <--ここを追加
|| $in{'nm'} eq $camp_info[2][0] #
|| $in{'nm'} eq $camp_info[3][0] #
|| $in{'nm'} eq $camp_info[4][0] #
|| $in{'nm'} eq $camp_info[5][0] # <--ここまでの5行を追加
){
$flag=1;
last;
-全員宛メッセージを追加
|| $in{'nm'} eq '全員'
**国名宛の通信を許可 [#m792c519]
-書き込み条件に「$nm eq $camp_info[$DAT{'camp'}][0] || 」の部分を追記します
# ログを展開
.... ( 省略 ) ....
while (<IN>) {
$log_last_flag++;
local($date,$nm,$camp,$com,$sogo,$addr,$host,$agent,$time2,$myid) = split(/<>/);
if($nm eq $camp_info[$DAT{'camp'}][0] || $myid eq $DAT{'nm'} || $myid eq $camp_info[$DAT{'camp'}][0]){ # <--この行のみを修正
-全員宛メッセージを使う場合
if($nm eq $camp_info[$DAT{'camp'}][0] || $myid eq $DAT{'nm'} || $myid eq $camp_info[$DAT{'camp'}][0] || $nm eq '全員'){
**全員宛メッセージを利用する場合 [#t5d9651d]
-上の2つの変更点に加えて呼び出し部分も修正する必要があります
# ログを展開
open(IN,"$logfile") || &error("Open Error : $logfile");
local $log_last_flag=0;
my $camp_flag = $camp_info[$DAT{'camp'}][0];
while (<IN>) {
$log_last_flag++;
local($date,$nm,$camp,$com,$sogo,$addr,$host,$agent,$time2,$myid) = split(/<>/);
# if($myid eq $DAT{'nm'} || $myid eq $camp_info[$DAT{'camp'}][0]){
if($myid eq $DAT{'nm'} || $myid eq $camp_info[$DAT{'camp'}][0] || $myid eq '全員'){
$nm = qq|$nm <small>[$sogo_p[$sogo]]</small>| if($sogo);