[[罪罰通信]]
-これでいけそうな気がしますが、ダメだったらごめんなさい -- [[あくあ]] &new{2004-04-27 (火) 08:11:20};
-罪罰/他国へ一括通信2も参考までに
*まず、一つ目の方法 [#lbe1326b]
-宛先の国を選択すれば届きます
** 他国宛処理 [#ia9cfa45]
-※1 2004.5.18 送信元が無所属からになってしまう、1行忘れていたので追加
# ログ書き込み処理
sub regist {
if($in{'camp'}&&!$in{'nm'}){
# $in{'nm'} = "$camp_info[$DAT{'camp'}][0]";
# $DAT{'nm'} ="$DAT{'nm'}(多)";
$tocamp = $in{'camp'};
$tocamp = 0 if($in{'camp'}==6); # <-無所属宛
# $tocamp = 7 if($in{'camp'}==7); # <-全員宛 ※修正しました
$in{'nm'} = "$camp_info[$tocamp][0]";
$DAT{'nm'} ="$DAT{'nm'}($camp_info[$DAT{'camp'}][0])";
}
else{
$tocamp=$DAT{'camp'}; # 追加※1
local @tdat;
-全員宛メッセージは、# <-全員宛のコメントアウトを解除(行頭の#を消す)
** 宛先選択[#xe54b59f]
自国一括:みたいなのが2ヶ所あるので下の様に追加。
もともとの自国一括はコメントアウト
<!--// 自国一括:<input type="checkbox" name="camp" value="1"><br> //-->
無:<input type="radio" name="camp" value="6">
ア:<input type="radio" name="camp" value="1">
フ:<input type="radio" name="camp" value="2">
イ:<input type="radio" name="camp" value="3">
ソ\:<input type="radio" name="camp" value="4">
ヤ:<input type="radio" name="camp" value="5">
<br>
<!--// 自国一括通信:<input type="checkbox" name="camp" value="1"><br>//-->
<span style="color:$camp_info[0][1]">無:<input type="radio" name="camp" value="6"></span>
<span style="color:$camp_info[1][1]">ア:<input type="radio" name="camp" value="1"></span>
<span style="color:$camp_info[2][1]">フ:<input type="radio" name="camp" value="2"></span>
<span style="color:$camp_info[3][1]">イ:<input type="radio" name="camp" value="3"></span>
<span style="color:$camp_info[4][1]">ソ\:<input type="radio" name="camp" value="4"></span>
<span style="color:$camp_info[5][1]">ヤ:<input type="radio" name="camp" value="5"></span>
<br>
-全員宛メッセージを追加
全:<input type="radio" name="camp" value="7">
<span style="color:$camp_info[0][1]">全:<input type="radio" name="camp" value="7"></span>
** ログ書き込み部分[#t1ffbf35]
$DAT{'camp'}を$tocampに書き換える
# ログ更新処理
# unshift (@lines,"$date<>$DAT{'nm'}<>$DAT{'camp'}<>$com<>$DAT{'sogo'}<>$addr<>$host<>$agent<>$time<>$in{'nm'}<>\n");
unshift (@lines,"$date<>$DAT{'nm'}<>$tocamp<>$com<>$DAT{'sogo'}<>$addr<>$host<>$agent<>$time<>$in{'nm'}<>\n");
**全員宛メッセージを利用する場合 [#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'} || $camp==7){ # ←ココを修正 ※修正しました
$nm = qq|$nm <small>[$sogo_p[$sogo]]</small>| if($sogo);
----
罪罰改造板2/214へ移動しました