bbs.cgi再開発プロジェクト6

[過去ﾛｸﾞ] bbs.cgi再開発プロジェクト6 (1001ﾚｽ)
上下前次1-新
抽出解除ﾚｽ栞

このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索歴削→次ｽﾚ栞削→次ｽﾚ過去ﾛｸﾞﾒﾆｭｰ

26(3): root▲ ★ 2005/04/22(金)19:24 ID:???0 BE AAS
今は時間とれないので、とりあえず餌だけまいておこう。

qb6でやってみた(単にtestというレスの投稿)。

うーん、IsKoukokuがこんなに重いとは。
あと、jcodeの処理も結構重いのね。

Total Elapsed Time = 0.801193 Seconds
User+System Time = 0.175342 Seconds
Exclusive Times
%Time ExclSec CumulS #Calls sec/call Csec/c Name
58.1 0.102 0.125 1 0.1016 0.1252 main::IsKoukoku
35.3 0.062 0.055 2853 0.0000 0.0000 jcode::convert
省13

45(3): ▲ ◆cZfSunOs.U 2005/04/23(土)01:13 ID:P1wP/4lM0(1/2) AAS
まぁ Shift JIS でやるという方向ならどうでもいいかも知れませんが，
もし文字コード変換するとしたら，Text::Iconv モジュール使えば
ネイティブの iconv() 使う分 Perl で書いてある jcode よりは軽いかと．

187(4): 讃岐フォアンフォアン▲ ◆MylTDX..QI 2005/05/30(月)00:42 ID:l5lGsiR90(1) BE AAS
転載しておきます

408: ◆TWARamEjuA 2005/05/30 00:22:59 in+4hgAJ0 [sage]
さてさて｡
Rock54にて仮に対応をしてきたのですが､そろそろBBRが破綻しそうになって参りました(滂沱)
といいますのも､BBRに登録されているｸｴﾘの大半が､このｳｲﾙｽ関連のものに埋まってきましたものでして｡
実のところ､DB_File::BTREE にしているにもかかわらずその容量が300MBにも達しております｡

そこで願わくば､このｳｲﾙｽ対策として個別のﾙｰﾁﾝにて対応頂けるとありがたいかと思いまして｡｡｡>bbs.cgiの中の人
さて如何なものでしょうか｡いろいろなご意見をお待ちしておりますm

308(3): ◆TWARamEjuA 2005/06/05(日)00:43 ID:TPn54rPk0(3/13) BE AAS
>>303
荒らす人は徹底的に荒らしたいらしいので、もっといろんな描き方をしてくるですです（苦笑）
がんばる
ガんばる
がンばる
：
：
がん　ば　る
：
（わはは）
省1

434(3): root▲ ★ 2005/06/05(日)05:40 ID:???0 BE AAS
さっきのは、ちゃんと通ってなかったっぽいです。
こんどのは、それっぽいです。

確実に、コストは下がってるですね。

%dprofpp tmon.out
Total Elapsed Time = 0.599639 Seconds
User+System Time = 0.302764 Seconds
Exclusive Times
%Time ExclSec CumulS #Calls sec/call Csec/c Name
12.8 0.039 0.039 1 0.0391 0.0391 main::initFOX
10.2 0.031 0.031 1 0.0312 0.0312 main::IsKoukoku
省13

440(3): root▲ ★ 2005/06/05(日)06:11 ID:???0 BE AAS
>>438
live16 live20 live21
ex9 ex10 ex11
tmp5

>>439
違うような気がするです。

441(3): 動け動けウゴウゴ２ちゃんねる 2005/06/05(日)06:17 ID:lDRHu7D40(2/2) AAS
>>440
コストが減った事でその鯖群に戻す予定はないの？

476(9): 動け動けウゴウゴ２ちゃんねる 2005/06/07(火)15:52 ID:HQbFVFHx0(1) AAS
>>464
Shift_JISがどの段階でエラーを起こしているのか分からないが、
ファイルの読み込みの段階なら、Shift_JIS1文字にマッチする正規表現を
使って切り分ければ良いし、(エンコードよりはコストが安いはず)、正規表現の段階なら
Shift_JIS文字列だけquotemetaすれば良いし、Perlスクリプト内の埋め込み文字列に問題があるなら、

chop($a = <<'EOF')
aaaa
EOF

でOK。

480(3): 476 2005/06/08(水)15:50 ID:DTGWGuO70(2/3) AAS
> Shift_JIS部分だけquotemetaするコードくらいなら書きますよ。

とか言うほどの事じゃなかった。むしろテストの方が大変だった。
必要な作業だったのかどうか謎だけど一応上げておきます。
perl5.00503でテスト。

(票表十){2}

とか問題ありそうなShift_JIS + 正規表現交じりでやってみたけどOKでした。

foreach my $NG_word_ref (@FOX_Ro54){
　　my $NG_word = $NG_word_ref->[0]; # エスケープしたままじゃ他で使えないのでコピー
next unless $NG_word; # 空文字列ならスキップ
　　$NG_word =~ s/((?:[\x81-\x9F\xE0-\xFC][\x40-\x7E\x80-\xFC])+)/quotemeta($1)/geo;
省12

567(4): 動け動けウゴウゴ２ちゃんねる 2005/06/18(土)23:44 ID:P97ComF00(2/2) AAS
>>565
これ？
2chｽﾚ:operate
843 ：FOX ★ [sage] ：2005/03/23(水) 03:46:03 ID:???0
index.html subback.html の更新をたまにサボるようにした。
subject.txt は従来どおり更新してます
対象サーバ
ex10 live20 live16 live15

641(3): 動け動けウゴウゴ２ちゃんねる 2005/06/23(木)23:12 ID:QxdAbKwg0(2/2) AAS
O0とくればoしかあるまい

652(3): root▲ ★ 2005/06/23(木)23:52 ID:???0 BE AAS
荒らしの出自判別がしやすくなるですね。>>651

>>650
わからないです。

もしそういうことができて、それを利用した荒らし行為が多く出回ったら、
AIR-EDGE PHONEからの書き込みは全面的に（りゃにするしかないかと。

698(3): root▲ ★ 2005/06/24(金)05:15 ID:???0 BE AAS
こうだった。

#############################################################################
# AIR-EDGE PHONEセンターのIPアドレスかどうかチェックする
#############################################################################
sub mumumuIsIP4AirEdgePhone
{
my ($raddr) = @_;

# CIDRリストに該当があるかどうかチェックする
return $FOX->{AIREDGECIDR}->find($raddr);
}

815(3): 動け動けウゴウゴ２ちゃんねる 2005/07/21(木)14:58 ID:pJtSBEAy0(1/2) AAS
>>522
糞コードだけど、これはダメ？
use strict;
print "Content-type: text/html\n\n";
chomp (my $uptime = `uptime`);
$uptime =~ /load average: ([0-9\.]+), ([0-9\.]+), ([0-9\.]+)/;
print "1min:$1, 5min:$2, 15min:$3";

894(3): 動け動けウゴウゴ２ちゃんねる 2005/10/24(月)15:36 ID:Uzh/6H5L0(1/3) AAS
対応策として・・・

・クッキーに承諾したフラグを入れる入れないの問題
・カキコボタンにtarget=newを仕込むようにして新しい開くようにしてブラウザでバックできなくする

なんかがおもいつきでかけますが・・・どうでしょう＞rootさん

上下前次1-新書関写板覧索設栞歴

ｽﾚ情報赤ﾚｽ抽出画像ﾚｽ抽出歴の未読ｽﾚ AAｻﾑﾈｲﾙ

ぬこの手ぬこTOP 0.390s*