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

**root▲ ★** · NG

bbs.cgiの開発作業をすすめていくためのスレッドです。

FOXさんの努力によりSpeedyCGIへの対応が行われ、
パフォーマンスの向上が図られたbbs.cgi。

・雪だるま作戦への対応
・さらなるカスタマイズ
・パフォーマンスの向上
・微妙な虫取り
・長いメインルーチンをより短くコンパクトに

あたりがターゲットか。

前スレ:
bbs.cgi再開発プロジェクト6
http://qb5.2ch.net/test/read.cgi/operate/1113117347/

**root▲ ★** · NG

>>19
そんなのあるですか。

とりあえずできるだけ(数箇所ですが)、追放してみた。 @ qb6
様子を見て配布予定。

**動け動けウゴウゴ２ちゃんねる** · 2005/11/02(水) 18:48:02

>>18
$ENV{SERVER_NAME}はブラウザから渡される値を直ではなくapacheが生成するのでは？

まあ/iが高価なこととは関係ないんだけど

◆SSu.zv/rvs · 2005/11/02(水) 18:52:20

いやー

言いたいことは「iは使わない」という方針でやっているから
議論の意味がないということだったり

**root▲ ★** · NG

>>22
999(仮名)をみるところも、/i 追放してよかですか?

◆SSu.zv/rvs · 2005/11/02(水) 18:54:37

できるならってことかと、

**root▲ ★** · NG

>>24
なるほど。
じゃ、追放したいですね。1レスごとに絶対になめるところだから。

追放しますので、規制リストを書く時には気をつけてくださいーって、
ちょろさんに伝えておいてくださいです。

◆SSu.zv/rvs · 2005/11/02(水) 18:58:26

ちょろさんがやっているのは一面かと、
多面はアクセスする側だったり、、、

◆SSu.zv/rvs · 2005/11/02(水) 18:58:56

他面だった

**root▲ ★** · NG

sec2chdを見ている限り、大文字小文字がきちんと入るなら、
現状ならアクセスする側も実害はないかなと、思っていたり。

**動け動けウゴウゴ２ちゃんねる** · 2005/11/02(水) 19:07:10

use Benchmarkも良いけど、プロファイルもね。

**root▲ ★** · NG

>>29
ですね。
プロファイリングのおかげで、
改良前のIsKoukokuがめちゃくちゃ高コストだったことがわかったです。

今は※の人の改良のおかげで、live系以外は有効にできました。

**root▲ ★** · NG

BBS.CGI - 2005/11/03

index.html にできるリンク関連を修正。

・www2.ime.st => www.ime.st
・https:// でも ftp:// でも http:// になってしまっていたのを修正(虫取り)
・同時に /ig も追放。

**動け動けウゴウゴ２ちゃんねる** · 2005/11/03(木) 05:17:16

root氏めちゃくちゃおっつぃんぐ

**root▲ ★** · NG

さらに調整。

・https:// と ftp:// は ime.st / pinktower.com を経由しない
(bbs.cgiが当初の思想として予期した動作)
・http:// の外部リンクは ime.st / pinktower.com 経由(従来通り)
・gopher: whois: news: telnet: の特殊処理を廃止
・https:// と ftp:// の処理は、一部サーバ(live系など)ではリンクにしない
・http:// は従来通りどのサーバでもリンクにする

**root▲ ★** · NG

重そうな正規表現パターンマッチングを少しは整理できたと思うです。
html/ の下のやつ全部、この処理通っているので、
意外とばかにならないんじゃないかなと。

**root▲ ★** · NG

>>33 は、板トップ(index.html)生成部分の処理です。
(read.cgi ではないので要注意)

**動け動けウゴウゴ２ちゃんねる** · 2005/11/03(木) 11:24:31

>>33
> ・gopher: whois: news: telnet: の特殊処理を廃止

そんなごにょごにょしてたんですか・・・

**root▲ ★** · NG

>>36
大昔から、変わってなかったんでしょうね。

この4つは「私が２ちゃんねるに来た2001年～現在まで、
一度もリンクとして使われているのを見たことがなかった」ので、
もはや不要であろうと判断したです。

**root▲ ★** · NG

&jcode::tr(\$GB->{FORM}->{'FROM'}, '＃', '#');
とか、
&jcode::tr(\$GB->{FORM}->{'mail'}, '＃', '#');

とかって、もうちょっと効率よくできないのかしら。

◆TWARamEjuA · NG

>>38
そんなあなたに・・・
use encoding;
http://search.cpan.org/~dankogai/Encode-2.12/encoding.pm

**root▲ ★** · NG

>>39
それ、5.6.1でも使える?

**root▲ ★** · NG

BBS.CGI - 2005/11/04

動きそのものは変わりませんが、雪だるまをめざして
bbs_main のかなりの部分をサブルーチン化しました。

$GB 操作しているのでカプセル化はぜんぜんですが、
自分で読んでいて、bbs_main が長すぎて頭がうにーになってきたので、
整理の意味を込めて、いじっています。

ひととおりのテストはしてありますので、大丈夫だとは思いますが、
もし何かへんなことがあったら、知らせてくださいです。

**動け動けウゴウゴ２ちゃんねる** · 2005/11/04(金) 22:11:35

｜∀・）＜いくらー

◆TWARamEjuA · NG

>>40
http://search.cpan.org/src/DANKOGAI/Encode-2.00/encoding.pm
うー（苦笑）
=head1 ABSTRACT

Let's start with a bit of history: Perl 5.6.0 introduced Unicode
support. You could apply C<substr()> and regexes even to complex CJK
characters -- so long as the script was written in UTF-8. But back
then, text editors that supported UTF-8 were still rare and many users
instead chose to write scripts in legacy encodings, giving up a whole
new feature of Perl 5.6.

Rewind to the future: starting from perl 5.8.0 with the B<encoding>
pragma, you can write your script in any encoding you like (so long
as the C<Encode> module supports it) and still enjoy Unicode support.
This pragma achieves that by doing the following:

**動け動けウゴウゴ２ちゃんねる** · 2005/11/04(金) 22:49:22

もしかしてjcode.pl使ってるの？
だとしたら、MakefileしたJcode.pmの方が速いんじゃ？

**root▲ ★** · NG

>>44
Jcodeは他のところで使っているはずなので、全サーバに入っているはずですね。

どうすればいいのかしら。

◆TWARamEjuA · NG

>>44
おそらくほとんどのbanana鯖には入っていないと思うので、
かなりむりぽかと（哀）＠なのでPerl5.6.*のまま

>>45
なので、banana鯖に入ってJcode.pm 0.88あたりをゲトして組み込まなきゃだと思うのですです（泪）
最新のJcode.pm は2.1*でしてEncode.pmのラッパになっていたりします。@5.8.*

なので、PIEの中の人にbananaにperlを5.8.*（最新は5.8.7）におながいしないと。。。

**root▲ ★** · NG

>>41 ですが、まだまだ作業進行中です。
今は 40% ぐらいの進捗か。

先は長いとゆうことで。

**root▲ ★** · NG

BBS.CGI - 2005/11/05
>>41 の続き。

**動け動けウゴウゴ２ちゃんねる** · 2005/11/05(土) 08:17:34

再開発に協力したいのですが、
一般人はソースとか見ること出来ないですか？

**動け動けウゴウゴ２ちゃんねる** · 2005/11/05(土) 09:19:57

>>49
そう言うことがわからない人は再開発しなくていいで(^_^;)

**動け動けウゴウゴ２ちゃんねる** · 2005/11/05(土) 09:59:50

なぜ？

**動け動けウゴウゴ２ちゃんねる** · 2005/11/05(土) 10:32:22

そういうことが判らない人は（ｒｙ

**動け動けウゴウゴ２ちゃんねる** · 2005/11/07(月) 22:09:18

再開発に協力したいのですが、
一般人はソースとか見ること出来ないですか？

◆TWARamEjuA · NG

協力するにも色々な方法があるわけでして♪
root★さんが悩んで居られるようでしたら助言をしてあげたり最適化したルーチンを提示したりとかとか♪

なんでもかでも「対等でなければならない」なんて孟宗竹なんてのは根っこから切り取らないと♪

**root▲ ★** · 2005/11/08(火) 03:17:02

1000超えの判定って、html/ の下を作るところの最初の部分でやっているのね。
ちょっと、驚いた。

◆SSu.zv/rvs · 2005/11/08(火) 04:13:24

挑戦してみる?

よたしは毎年挑戦しようと思ったけど
負け続け、、、

**root▲ ★** · 2005/11/08(火) 04:22:33

>>56
その様子は、何度かaccuse/operateを通じて見ているです。

なんか、いかにも効率悪そうで、気持ち悪くて、重そうなことをしてるんだなぁと
はじめて実際に、少しだけ気持ちがわかったわけです。
(これまでは、そこにたどり着く前に既に負けていた)

&MakeWorkFile を初めて呼ぶところの前までの整理整頓と、
できる範囲でのサブルーチン化は、それなりにやったです。

でも、そこから先が、、、。
たぶん、アイガー北壁なんだろうなと。

#==================================================
#　ファイル操作（subject.txt & subback.html）
#==================================================

# 雪だるまサーバでは、以降のファイル処理はしない(bbsdが実行)
if(&IsSnowManServer($ENV{'SERVER_NAME'}))
{
&endhtml($GB);
}

####################################
# ここから先はまだカオス状態 by む #
####################################

**root▲ ★** · 2005/11/08(火) 04:32:01

まずは読んでいたりします。

ここからは思いつきで手直しすると遭難しそうなので(何せアイガー北壁)、
じっくり、やってみようかなと。

とりあえず、
$GBX->{OVER1000} = 0 ;# 1000超えフラグ(現在は未使用)

を追加してみた。

**root▲ ★** · 2005/11/08(火) 05:04:58

BBS_CONTENTS_NUMBER の意味を初めて知った私ガイル。

**root▲ ★** · 2005/11/08(火) 05:10:01

BBS_LINE_NUMBER は、「省略されました」か。

**root▲ ★** · 2005/11/08(火) 05:14:02

MakeWorkFile とりあえず読み終わり。
今日はもう遅いから、どうするかはいったん寝て考えるか。

とりあえず >>1 の処理と BBS_LINE_NUMBER 分のレスについての
おんなじような処理について、
べたにおんなじルーチンが2回書かれていたということはわかたです。

**動け動けウゴウゴ２ちゃんねる** · 2005/11/08(火) 13:18:33

BBS_CONTENTS_NUMBER分のレスかな。
1とそれ以外、同じようで違う。
まとめるのが面倒で放置って感じっすか。

**動け動けウゴウゴ２ちゃんねる** · 2005/11/08(火) 13:28:47

>>59
http://kobe.cool.ne.jp/r_030/2ch_jikken/SETTING.htm
これは見てなかったの？

**root▲ ★** · 2005/11/08(火) 13:53:33

>>63
そのページは当然見てますけど、
これまでbbs.cgiについては私の知識がその程度だったってことです。

**root▲ ★** · 2005/11/08(火) 16:19:23

こんなかんじかな。

#############################################################################
# 処理中のdatの現在のレス数を調べる
# 新スレの場合0、異常発生時は-1
#############################################################################
sub GetResNum
{
my ($GB) = @_;
my $resnum = 0;

# 1) 新スレなら0を返す
if($GB->{NEWTHREAD}) { return 0; }
# 2) subject.txtを調べてみる
# subject.txtはSaborin系サーバでも逐次更新されているはず
$resnum = &GetResNumFromSubject($GB);
# 3) とれなかったら仕方ないので、datの行数を読む
# 990超えている時も、安全のためdatを読む
if ($resnum <= 0 || $resnum > 990)
{
$resnum = &GetResNumFromDat($GB);
}
# 4) それも失敗したら、-1を返す
if ($resnum <= 0) { return -1; }
# 得られた結果を返す
else { return $resnum; }
}

**root▲ ★** · 2005/11/08(火) 16:23:35

今は、毎回こういうことをやっているです。

open(RDAT,"<$dattemp");
@logdat=<RDAT>; #ログを配列に読み込む
close(RDAT);

#ログのカキコ数を取得
$lognum = @logdat;
if($lognum > 999)
{
if(open(OUT,">>$dattemp"))
{

my $b1000 = "このスレッドは１０００を超えました。 <br> \
もう書けないので、新しいスレッドを立ててくださいです。。。 ";
my $p1000 = $GBA->{PATH} . "1000.txt";
(以下略)

**root▲ ★** · 2005/11/08(火) 16:28:33

1000超えのdat追記部分は、Process1000ってのを書こう。

**root▲ ★** · 2005/11/08(火) 16:42:46

>>65
通常の板だと、これだとコストが低くないかもなぁ。
subject.txt って、何百行とか千何百行とかあるわけで。
bbsdのように、mmap() するのもちょっとあれだし。

スレ数が少ない板は、subject.txt優先で、
スレ数が多い板は、dat優先がよさげ?
どのくらいが変更点なのかな。

**root▲ ★** · 2005/11/08(火) 16:43:22

変更点じゃなくて、分岐点か。

**root▲ ★** · 2005/11/08(火) 16:45:36

&GetHojisuu 書く必要がありそうですね。
こいつは出航時に1回だけ読めばいいだろうから、initFOXでやろう。

**root▲ ★** · 2005/11/08(火) 17:40:32

>>70
mumumuGetHojisuu 実装済み。

出航時に、$FOX->{HOJISUU} にサーバの保持数が入っている。

**root▲ ★** · 2005/11/08(火) 17:50:05

で、>>65 はこうか。

#############################################################################
# 処理中のdatの現在のレス数を調べる
# 新スレの場合0、異常発生時は-1
#############################################################################
sub GetResNum
{
my ($GB) = @_;
my $resnum = 0;

# 1) 新スレなら0を返す
if($GB->{NEWTHREAD}) { return 0; }
# 2) 保持数が少ない板では、subject.txt を調べる
if ($FOX->{HOJISUU} < 200)
{
# 2) subject.txtを調べてみる
# subject.txtはSaborin系サーバでも逐次更新されている
$resnum = &GetResNumFromSubject($GB);
}
# 3) 次に、datの行数を読む (2)がしくった場合も同様)
# 990超えている時も、安全のためdatを読むことにしよう
if ($resnum <= 0 || $resnum > 990)
{
$resnum = &GetResNumFromDat($GB);
}
# 4) それも失敗したら、-1を返す
if ($resnum <= 0) { return -1; }
# 得られた結果を返す
else { return $resnum; }
}

**root▲ ★** · 2005/11/08(火) 17:55:37

このほうがいいか。

#############################################################################
# 処理中のdatの現在のレス数を調べる
# 新スレの場合0、異常発生時は-1
#############################################################################
sub GetResNum
{
my ($GB) = @_;
my $resnum = 0;

# 1) 新スレなら0を返す
if($GB->{NEWTHREAD}) { return 0; }
# 2) 保持数が少ない板では、subject.txt を調べる
if ($FOX->{HOJISUU} < 200)
{
# subject.txtを調べてみる
# subject.txtはSaborin系サーバでも逐次更新されている
$resnum = &GetResNumFromSubject($GB);
}
# 3) 次に、datの行数を読む (2)がしくった場合も同様)
# 990超えている時も、安全のためdatを読むことにしよう
if ($resnum <= 0 || $resnum > 990)
{
$resnum = &GetResNumFromDat($GB);
if ($resnum <= 0) { return -1; }
}
# 上記により得られた結果を返す
return $resnum;
}

**root▲ ★** · 2005/11/08(火) 18:07:21

外枠を作った。

Perlがだめだめな私に、愛の手を。

#############################################################################
# subject.txtに書いてあるレス数を調べる
# 異常時は-1
#############################################################################
sub GetResNumFromSubject
{
my ($GB) = @_;
my $subject = $GB->{PATH} . "subject.txt";
my $resnum = 0;

# subject.txtを開き、中身を調べる
open(SUBJ,"<$subject");
# ここに実際の処理を入れる
# 探すためのキーは$GB->{FORM}->{'key'}に入っている
# Perlではどうやるのが高速なんだろう
close(SUBJ);

return $resnum;
}

#############################################################################
# datのレス数を調べる(行数を調べる)
# 異常時は-1
#############################################################################
sub GetResNumFromDat
{
my ($GB) = @_;
my $datfile = $GB->{DATPATH} . $GB->{FORM}->{'key'} . ".dat";
my $resnum = 0;

# datを開き、行数を調べる
open(DAT,"<$datfile");
# ここに実際の処理を入れる
# Perlではどうやるのが高速なんだろう
close(DAT);

return $resnum;
}

**動け動けウゴウゴ２ちゃんねる** · 2005/11/08(火) 18:46:35

while (<DAT>) {}; $resnum = $.;

とか

**動け動けウゴウゴ２ちゃんねる** · 2005/11/08(火) 19:34:21

subject.txtから読む場合は、スレのタイトルに「<>」「(」「)」とか半角スペースが
入ってるとsplitで面倒になるかもね。出来るだけsubstr使うべきなんだろうな。

datファイルの行数調べるには・・・unixのwcコマンド使うとかw

**root▲ ★** · 2005/11/08(火) 19:34:42

出先に移動。10分ぐらい時間が。

>>75
ひとつ、書き忘れていたです。

どうせ必要になるので、
datを読んだ時には、つまりGetResNumFromDatが呼ばれた時には、
そのdat内の>>1と、以下の条件(*1)で抽出した行のdatは、
内容を保存しておきたいですね。

つまり、datを複数回読み込みモードでopenしたくないわけです。

(*1)if BBS_CONTENTS_NUMBERよりもレス数が多い
お尻のBBS_CONTENTS_NUMBER行ぶんのdatの内容を保存
else
頭の >>2 ～最後の行までのdatの内容を保存

これは、html/ の下のファイルを作るのに使っているですよ。

保存は、、、そうすね、
$GB->{DAT1} 文字列変数
$GB->{DATLAST} 文字列配列変数

っていうことにするか。

で、たぶんほんとは、subject.txt 的に上位のやつだけ作れるともっといいわけですが、
(つまり実際に index.html を合成する時に使うものだけ)
今は pageview.cgi があった時のコードのままになっているです。
つまり、1000個datがあれば、html/ の下のファイルも1000個あるです。
これは、別に考えることにしよう。

**root▲ ★** · 2005/11/08(火) 19:38:36

index.html 合成するところで、判定すりゃいいのか。

1000000000.dat に対する html/1000000000.html の最新版が必要になったら、
html/1000000000.html と 1000000000.dat の mtime を調べて、
(この時点では dat への追記は終わっているものとする)
もし html のほうの mtime のほうが古かったら、dat から html を合成するサブルーチンを呼べばいいと。

**root▲ ★** · 2005/11/08(火) 19:38:50

さて、いったん時間切れ。
またのちほど。

◆TWARamEjuA · NG

つ open ｺﾞﾆｮｺﾞﾆｮ or return -1; # 500鰓で悩む恐れ有りなので

**root▲ ★** · 2005/11/08(火) 19:39:43

で、$GB->{SABORIN} がtrueだったら、このへんの処理はキャンセルできると。

**root▲ ★** · 2005/11/08(火) 19:41:22

>>80
現在、datのopenはメインルーチン内で堂々とやっているですよ。
ひろゆき的堂々人生。

◆SSu.zv/rvs · 2005/11/08(火) 20:04:30

>内容を保存しておきたいですね。

それがうまくいけば楽なんですけどね、
bbs.cgi が非同期で同時に 30本とか走っているんですよ。
FIFOとかじゃなくてさ、

「どれが最後に終わるかわからない」という話だったり、
平気で後から来たのが追い越していきます。

それとの戦いの痕跡かと、

**動け動けウゴウゴ２ちゃんねる** · 2005/11/08(火) 20:14:25

$GB->{DAT1} = <DAT>;
@{$GB->{DATLAST}} = <DAT>;
$resnum = $.;
if ( @{$GB->{DATLAST}} > BBS_CONTENTS_NUMBER ) {
@{$GB->{DATLAST}} = splice(@{$GB->{DATLAST}}, -BBS_CONTENTS_NUMBER);
}

こんな感じになるんかな
でも>>83なのね

**root▲ ★** · 2005/11/08(火) 21:04:50

>>83
ですね。

今のやつは、なんでもかんでもdat読んで配列に突っ込んで、
配列の要素数数えて、
BBS_CONTENTS_NUMBERより大ならおしりから、
より小ならあたまからhtmlにして、html/html に入れ込む
みたいなことをやっているです。
で、1000行以上あったら、1000超え判定していたりするです。

つまり、datの読み込みモードでのオープンは1回で済んでいるものの、
毎回datを全行絶対なめなめしているわけです。
このへんをなんとかしたいかなぁと。

**root▲ ★** · 2005/11/08(火) 21:11:57

で、>>83 のこころは、
「subject.txt からとろうというのは誰もが思いつくわけだけど、
それって所詮非同期なんじゃないのかしら」

ってゆうことですよね。
ううむ。

> if ($resnum <= 0 || $resnum > 990)

ここを 900 とかかなぁ。

**動け動けウゴウゴ２ちゃんねる** · 2005/11/08(火) 21:23:18

subject.txt更新前に別のbbs.cgiが参照するとずれるような希ガス
っていうかずれたからdat読みになったんじゃ？(違うかも)

**root▲ ★** · 2005/11/08(火) 21:28:11

>>87
所詮、参考記録でいいと思っていたりするです。
クリティカルなところで、コストを少しでもさげられるといいなと。

そのへんが、>>86 の if 文なわけで。
どうしてもうまくいかなきゃ、GetResNumFromSubjectをあきらめると。

▲ ◆cZfSunOs.U · 2005/11/08(火) 21:35:48

まぁ，bbs.cgi やその他各種呪文用 CGI と bbsd との I/F が完成したら，
雪だるま系鯖以外でも bbsd を使うという選択肢もあるのでしょうけど．

**動け動けウゴウゴ２ちゃんねる** · 2005/11/08(火) 22:05:38

>>88
参考記録といってもずれたままになりそうなのは気になる

個人的にはレス数と一緒にサイズも記録してあれば
少なくとも全読みは避けられそうと思っているけど
影響大きそうだからなあ

◆SSu.zv/rvs · 2005/11/08(火) 22:07:47

>参考記録

ってどういう意味?

**root▲ ★** · 2005/11/09(水) 00:55:26

subject.txtから取ったレス数よりも実際のdatの行数がいくつか増えてしまっていてもいい、
ぐらいの感覚で書きました。

ただ、900超えたあたりからはクリティカルか。

いずれにせよ、毎回全読みするコストを何とか下げられないかな、というのが、
subject.txtからとる趣旨なわけで、それが期待できないなら、
単にサブルーチン化して、整理整頓するだけかなぁと。

# おじさん、インテンショナルな徹夜で時差調整中?

◆SSu.zv/rvs · 2005/11/09(水) 00:58:26

>subject.txtから取ったレス数よりも実際のdatの行数がいくつか増えてしまっていてもいい、
>ぐらいの感覚で書きました。

わたしもその意見には賛成で、実は以前それを実験しました。

で、結果はというと、
惨憺たるものだったかと、たしか専用ブラウザが困ってしまうんじゃなかったかと、
もう何年も前の話で忘れちまったが、

眠くなったら寝るというみだらな作戦です。

**root▲ ★** · 2005/11/09(水) 01:00:45

>>93
で、900超えたらsubject.txtを信用するのやめて、
今までの方法でdatを読んじゃおうという、日和見風見鶏作戦かなぁと。

で、900をできるだけ1000に近づける方向でがんがってみると。

◆SSu.zv/rvs · 2005/11/09(水) 01:02:49

「dat と subject.txt のずれを許容してくれない」
とっても厳密に扱われているというのが問題だと思います。

900 とか 980 のことじゃなく

**root▲ ★** · 2005/11/09(水) 01:02:54

>>93
あ、そっか。
シンクロ具合とゆってますね。
あんまりずれが大きいと、subject.txt をあてにして動いているアプリさんたちが
困っちゃうってことですか。

めしめし。

**動け動けウゴウゴ２ちゃんねる** · 2005/11/09(水) 01:18:58

現状でも、スレスト時にsubject.txtが変更されないため
subject.txtと実際の行数が一致しなくなり
毎回のように取得に行ってしまうクライアントもありますよ。

**動け動けウゴウゴ２ちゃんねる** · 2005/11/09(水) 01:19:33

それはそのブラウザの作りが悪い

◆SSu.zv/rvs · 2005/11/09(水) 01:22:30

>>97
そんなんですよね

>>98
でも、その数が膨大だったりするのだ。

で、実際には高速で回転しているところは
dat と subject.txt が一致することなんてほとんどないから
それを利用してむ Saborin が生まれたのだ。
作る前はどうなるかと思ったけど、実際にやってみると
これがまずまず動いているんだな、よかったよかった

**root▲ ★** · 2005/11/09(水) 01:36:13

>>99
Saborin は確かに、結構効果ありますね。

Saborin = index.html / subback.html の更新をまばらにする
ただし subject.txt は更新する
ex系とlive系で絶賛動作中

SaborinはLAが閾値を超えると自動的に発動
cobra=30 / tiger=20 / banana=4

**root▲ ★** · 2005/11/09(水) 01:36:35

新スレはさぼらない >>100

**root▲ ★** · 2005/11/09(水) 01:42:01

>>100
> 自動的に発動
^
一般サーバでも

**root▲ ★** · 2005/11/09(水) 01:43:13

で、狼やらVIPやらanimeサーバやらで 500 エラーが起こりやすい理由の一端は、
>>80 が原因の予感のもより。

◆SSu.zv/rvs · 2005/11/09(水) 01:48:08

>>103
まだまだあちこちにありますからねぇ

**root▲ ★** · 2005/11/09(水) 01:53:07

>>104
狼でちょっとだけ聞いてみたところでは、
どうもクリーンナップ大作戦の後、少し減ったらしいです。

出なくなるのは、まだまだ先かなと。

**root▲ ★** · 2005/11/09(水) 04:04:11

結局、
・まずは従来通りdatから全部とることにして、クリーンナップをすすめる

ことにしました。
コストは、かわんないですもんね。

で、GetDatInfoを書きました。
>>84 さんに感謝です。

#############################################################################
# 処理中のdatの情報を$GBにセットする
# $GB->{DATNUM}, $GB->{DAT1}, $GB->{DATLAST}
#############################################################################
sub GetDatInfo
{
my ($GB, $outdat) = @_;
my $datfile = $GB->{DATPATH} . $GB->{FORM}->{'key'} . ".dat";
my $datlastnum = $FOX->{$GB->{FORM}->{bbs}}->{"BBS_CONTENTS_NUMBER"};

if($GB->{NEWTHREAD})
{
# 新スレの場合
$GB->{DAT1} = $outdat;
$GB->{DATNUM} = 1;
@{$GB->{DATLAST}} = ();
}
else
{
# レスの場合
open(DAT,"<$datfile");
$GB->{DAT1} = <DAT>;
@{$GB->{DATLAST}} = <DAT>;
$GB->{DATNUM} = $.;
close(DAT);
if (@{$GB->{DATLAST}} > $datlastnum)
{
@{$GB->{DATLAST}} = splice(@{$GB->{DATLAST}}, -$datlastnum);
}
}

return 0;
}

**root▲ ★** · NG

BBS.CGI - 2005/11/09

雪だるまに向けたクリーンナップ大作戦その3

・GetDatInfo (>>106) を作り、datへの追記(新スレでは作成)直後に呼ぶようにしました。
・datの情報はもっぱらここでとることにし、$GB に蓄えて使いまわすようにしました。
・html/ の下を作るところ(MakeWorkFile)では、datはオープンしなくしました。
・Over1000 をサブルーチン化して、GetDatInfo の直後に呼ぶようにしました。
・これでMakeWorkFile内から、1000超えチェックが分離できました。

**root▲ ★** · NG

subject.txt を作るところ

sage のほうが、処理工数が多いのね。
ちょっと目からうろこ。

**root▲ ★** · NG

BBS.CGI - 2005/11/09a

# 051109a 雪だるまに向けたクリーンナップ大作戦その4
# UpdateSubject (subject.txt作成) サブルーチン化
# いよいよ、神の領域の入り口に突入か by む

**root▲ ★** · NG

# 051109b @newsub を @{$GB->{NEWSUB}} にして追放(UpdateSubjectに封じ込め) by む

本日はここまでの予定。

**root▲ ★** · NG

で、わかってきたことは、
subject.txt って軽々しく作っている割に、
suback.html も index.html も /i/index.html (qb系 dso系 bbspinkのみ)も、
ぜーんぶ、これをベースにこしらえているらしいということだなぁ。

こりゃ、非同期にsubject.txtをなんてのは、とんでもない話だなぁ。
何が起きるか、予想もできないや。

というかたぶんもともと、宣撫らでの参照のために作ったんじゃなくて、
そうゆう内部処理のために、作ってるんだろうなぁ。

なぁ。

**動け動けウゴウゴ２ちゃんねる** · 2005/11/09(水) 20:44:50

なぁ。

◆SSu.zv/rvs · 2005/11/09(水) 21:19:18

なぁ

その部分は歴代誰もさわっていない気がする
なぜなら太古のままの姿で残っているから、
しいていえば dat と subject のずれをなくすため
および㌧㌦をなくすため、神か or トオルさんが2001年ころ手を加えたかと、

**root▲ ★** · 2005/11/09(水) 22:36:45

>>113
神殿の入り口にさしかかったと。

**動け動けウゴウゴ２ちゃんねる** · 2005/11/10(木) 00:14:57

｜∀・）＜そこに凶悪なすらいむが現れたっ！

**動け動けウゴウゴ２ちゃんねる** · 2005/11/10(木) 16:46:58

root探検隊2005秋
「驚愕！未開の地bbs.cgiの奥地に謎の古代神殿subject.txt生成部を発見！？」

**動け動けウゴウゴ２ちゃんねる** · 2005/11/10(木) 22:15:46

今日あたりから妙な動作をしてる気がするんだが、何かいじってる？
具体的には
・某板で、かなり時間を置いて違う内容を書き込もうとしても二重書き込みが出る
・しょうがないのでIP変えたら書き込めた
・IP変えた後、他の板に書き込んだら何故かcookie確認が出ない
出た現象としてはそれだけ。
どこの板とかは出さないので、回答には特に期待していないけど。

**root▲ ★** · 2005/11/10(木) 23:22:03

>>117
そのへん、全然変えてないです。

上2つは、過疎な板だと正常な動作としてよくあるですね。
一番下は、ちと気になりますが。

**動け動けウゴウゴ２ちゃんねる** · 2005/11/10(木) 23:50:38

確認画面の話が出てるから、自分もちょっと

先日の京ぽんのID末尾o→0の関係でごちゃごちゃやってた以降
自分の味ぽんはどの板で書いても、回線切ろうが、電源切ろうが
確認画面が1度も出ないんですが、良いのでしょうか？

ごちゃごちゃの当日に指摘した時は流された気がしますが…