罪と罰++二律背反
罪罰/他国へ一括通信1
をテンプレートにして作成
[
トップ
] [
新規
|
一覧
|
単語検索
|
最終更新
|
ヘルプ
] [
リンク元
]
開始行:
[[罪罰通信]]
-これでいけそうな気がしますが、ダメだったらごめんなさい -...
-罪罰/他国へ一括通信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{'...
}
else{
$tocamp=$DAT{'camp'}; # 追加※1
local @tdat;
-全員宛メッセージは、# <-全員宛のコメントアウトを解除(行...
** 宛先選択[#xe54b59f]
自国一括:みたいなのが2ヶ所あるので下の様に追加。
もともとの自国一括はコメントアウト
<!--// 自国一括:<input type="checkbox" name="camp" value...
無:<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" v...
<span style="color:$camp_info[0][1]">無:<input type="rad...
<span style="color:$camp_info[1][1]">ア:<input type="rad...
<span style="color:$camp_info[2][1]">フ:<input type="rad...
<span style="color:$camp_info[3][1]">イ:<input type="rad...
<span style="color:$camp_info[4][1]">ソ\:<input type="ra...
<span style="color:$camp_info[5][1]">ヤ:<input type="rad...
<br>
-全員宛メッセージを追加
全:<input type="radio" name="camp" value="7">
<span style="color:$camp_info[0][1]">全:<input type="rad...
** ログ書き込み部分[#t1ffbf35]
$DAT{'camp'}を$tocampに書き換える
# ログ更新処理
# unshift (@lines,"$date<>$DAT{'nm'}<>$DAT{'camp'}<>$com...
unshift (@lines,"$date<>$DAT{'nm'}<>$tocamp<>$com<>$DAT{...
**全員宛メッセージを利用する場合 [#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,$ti...
if($myid eq $DAT{'nm'} || $camp==7){ # ←ココを修正 ※修...
$nm = qq|$nm <small>[$sogo_p[$sogo]]</small>| if($sogo);
----
罪罰改造板2/214へ移動しました
終了行:
[[罪罰通信]]
-これでいけそうな気がしますが、ダメだったらごめんなさい -...
-罪罰/他国へ一括通信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{'...
}
else{
$tocamp=$DAT{'camp'}; # 追加※1
local @tdat;
-全員宛メッセージは、# <-全員宛のコメントアウトを解除(行...
** 宛先選択[#xe54b59f]
自国一括:みたいなのが2ヶ所あるので下の様に追加。
もともとの自国一括はコメントアウト
<!--// 自国一括:<input type="checkbox" name="camp" value...
無:<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" v...
<span style="color:$camp_info[0][1]">無:<input type="rad...
<span style="color:$camp_info[1][1]">ア:<input type="rad...
<span style="color:$camp_info[2][1]">フ:<input type="rad...
<span style="color:$camp_info[3][1]">イ:<input type="rad...
<span style="color:$camp_info[4][1]">ソ\:<input type="ra...
<span style="color:$camp_info[5][1]">ヤ:<input type="rad...
<br>
-全員宛メッセージを追加
全:<input type="radio" name="camp" value="7">
<span style="color:$camp_info[0][1]">全:<input type="rad...
** ログ書き込み部分[#t1ffbf35]
$DAT{'camp'}を$tocampに書き換える
# ログ更新処理
# unshift (@lines,"$date<>$DAT{'nm'}<>$DAT{'camp'}<>$com...
unshift (@lines,"$date<>$DAT{'nm'}<>$tocamp<>$com<>$DAT{...
**全員宛メッセージを利用する場合 [#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,$ti...
if($myid eq $DAT{'nm'} || $camp==7){ # ←ココを修正 ※修...
$nm = qq|$nm <small>[$sogo_p[$sogo]]</small>| if($sogo);
----
罪罰改造板2/214へ移動しました
ページ名: