罪と罰++二律背反
罪罰改造掲示板/34
をテンプレートにして作成
[
トップ
] [
新規
|
一覧
|
単語検索
|
最終更新
|
ヘルプ
] [
リンク元
]
開始行:
*通信の機能をさらに…。 [#j60a6185]
-ページ: [[罪罰改造掲示板]]
-投稿者: [[水神]]
-優先順位: 普通
-状態: 完了
-カテゴリー: こんなのが欲しい♪
-投稿日: 2004-05-11 (火) 01:08:41
-バージョン:
**メッセージ [#mea9971d]
前kukuru様が言っておられました、送信したログも見れる機能...
----
-自分のとこで動いている通信です。多分このままいけると思う...
# ログを展開
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,$...
if($nm eq $DAT{'nm'} || $myid eq $DAT{'nm'} || $myid ...
if($myid eq $DAT{'nm'}){
$nm = qq|To:$myid From:$nm|; # 自分宛
}elsif($nm eq $DAT{'nm'}){
$nm = qq|To:$myid From:$nm|; # 自分の送信
}else{
$nm = qq|To:$myid From:$nm|; # その他
}
$nm = qq|$nm<small>[$sogo_p[$sogo]]</small>| if($so...
($mv_mode eq 'mv') ? $com =~ s/ハァト/<font color="...
if($myid ne $DAT{'nm'}){
($mv_mode eq 'mv') ?
print qq|$nm:$com [$camp_info[$camp][0] $date]<...
print qq|<span style="color:silver">$nm <span cla...
}else{
($mv_mode eq 'mv') ?
print qq|$nm:$com [$camp_info[$camp][0] $date]<...
print qq|<span style="color:$camp_info[$camp][1]"...
}
last if $log_last_flag > $log_last;
}
}
close(IN);
-できました! ありがとうございますm(_ _)m -- [[水神]] &n...
-何故か皆が無所属で送られて来ます・・・どうすればいいでし...
$in{'nm'} = "$camp_info[$tocamp][0]";
$DAT{'nm'} ="$DAT{'nm'}($camp_info[$DAT{'...
}
else{
$tocamp=$DAT{'camp'}; # 追加
local @tdat;
-1行だけなのでファイルを修正してみてください
-上の追加修正は、他国へ一括送信のバグですので、不具合が出...
-できますよw 色を変えれば普通に戻ります -- [[嘩遁]] &ne...
-自分の送信がシルバーになるのがとても良いのですが、他人の...
-すみません、確か仕様だったと思います。メリットとデメリッ...
#comment
終了行:
*通信の機能をさらに…。 [#j60a6185]
-ページ: [[罪罰改造掲示板]]
-投稿者: [[水神]]
-優先順位: 普通
-状態: 完了
-カテゴリー: こんなのが欲しい♪
-投稿日: 2004-05-11 (火) 01:08:41
-バージョン:
**メッセージ [#mea9971d]
前kukuru様が言っておられました、送信したログも見れる機能...
----
-自分のとこで動いている通信です。多分このままいけると思う...
# ログを展開
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,$...
if($nm eq $DAT{'nm'} || $myid eq $DAT{'nm'} || $myid ...
if($myid eq $DAT{'nm'}){
$nm = qq|To:$myid From:$nm|; # 自分宛
}elsif($nm eq $DAT{'nm'}){
$nm = qq|To:$myid From:$nm|; # 自分の送信
}else{
$nm = qq|To:$myid From:$nm|; # その他
}
$nm = qq|$nm<small>[$sogo_p[$sogo]]</small>| if($so...
($mv_mode eq 'mv') ? $com =~ s/ハァト/<font color="...
if($myid ne $DAT{'nm'}){
($mv_mode eq 'mv') ?
print qq|$nm:$com [$camp_info[$camp][0] $date]<...
print qq|<span style="color:silver">$nm <span cla...
}else{
($mv_mode eq 'mv') ?
print qq|$nm:$com [$camp_info[$camp][0] $date]<...
print qq|<span style="color:$camp_info[$camp][1]"...
}
last if $log_last_flag > $log_last;
}
}
close(IN);
-できました! ありがとうございますm(_ _)m -- [[水神]] &n...
-何故か皆が無所属で送られて来ます・・・どうすればいいでし...
$in{'nm'} = "$camp_info[$tocamp][0]";
$DAT{'nm'} ="$DAT{'nm'}($camp_info[$DAT{'...
}
else{
$tocamp=$DAT{'camp'}; # 追加
local @tdat;
-1行だけなのでファイルを修正してみてください
-上の追加修正は、他国へ一括送信のバグですので、不具合が出...
-できますよw 色を変えれば普通に戻ります -- [[嘩遁]] &ne...
-自分の送信がシルバーになるのがとても良いのですが、他人の...
-すみません、確か仕様だったと思います。メリットとデメリッ...
#comment
ページ名: