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

>>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度も出ないんですが、良いのでしょうか？

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

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

>>119
奥様(味ぽんユーザ)では「普通は最初だけ出るよ」
「でも、最初でも出ないときがあるみたい。再現性はわかんない」

ということらしいです。
うぅむ。

# 「最初だけ出る」が、意図した動作。

**動け動けウゴウゴ２ちゃんねる** · 2005/11/11(金) 00:11:52

>>120
そう、「最初の1回だけ出て後は出ない」なら今まで通りで何の
疑問も感じない訳ですが

自分は最近、確認画面を全然見てないから謎なんですよ

まぁ、面倒が無くて良いって言えば良い訳ですけど

**root▲ ★** · 2005/11/11(金) 00:14:17

>>121
それって、京ぽんを 0 にしてからなったということですかね。
ううむ。

**動け動けウゴウゴ２ちゃんねる** · 2005/11/11(金) 00:30:50

>>122
ﾀｲﾐﾝｸﾞ的にはそんな感じです
完全にｲｺｰﾙかと言われると判りませんが

確か一連の作業中に一時的に味ぽんから書き込めなくなって
その後、復活してからの様な気がしますが

**root▲ ★** · 2005/11/11(金) 00:58:58

>>123
ふーむ。

うちの環境では幸運にも実物で試してもらえるので、
また、時間取れたときにみてみるです。

**root▲ ★** · 2005/11/11(金) 01:03:49

おぉ、わかた、、、。>>123

あとで、なおしておこう。 @ 今qb6で別の作業中

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

>>124
>>125
よろしくお願いします
でわでわ

**root▲ ★** · 2005/11/11(金) 02:07:06

とりあえずoperate2で動くのを確認しました。>>126

今日の作業がおわったら、配布で。

**root▲ ★** · 2005/11/11(金) 02:50:50

BBS.CGI - 2005/11/11

109 名前： ◆MUMUMUhnYI [sage] 投稿日：2005/11/11(金) 02:42:33 ID:d6RFRwJS0
・味ぽんでも投稿確認画面が出るように(虫取り)
・MakeWorkFile から緊急ストッパーを切り出し(Emerg1020 Emerg1050)
・UpdateSubback サブルーチン化
・MakeIndex4PC サブルーチン化

今日までで、bbs_main中から、だらだらと長くて保守性の悪い部分はなくなったはず

**動け動けウゴウゴ２ちゃんねる** · 2005/11/11(金) 10:36:36

質問。味ぽん＝京ぽん？

**動け動けウゴウゴ２ちゃんねる** · 2005/11/11(金) 11:16:25

一般的な意味を聞いてるなら味ぽん!=京ぽん。JRCの出した初代AirH" Phoneの事と考えるのが普通。
MUMUMU氏の意図ならAirH" PHONE全部という可能性もあるな。
# もうAirH" PHONEというブランドは無いんだけども。

**動け動けウゴウゴ２ちゃんねる** · 2005/11/11(金) 11:44:53

>>130
やはりAirH"=京ぽんをもじって味ぽんに（りゃな解釈？

**root▲ ★** · 2005/11/11(金) 11:53:17

私の定義:

・味ぽん: AH-J3001V AH-J3002V AH-J3003S

これらはbbs.cgi内で特別扱いしています( o 表示のゆえん )。

京ぽんのbbs.cgiでの特別扱いは全廃されました。
PCと全く同じ扱いです。

今後出るWillcom端末は、特別扱いしたくないですね。
ちゃんとリファラ吐いて、クッキー食べてほしい。

**root▲ ★** · 2005/11/11(金) 15:53:35

bbs.cgi のぐろーばるーについてのチラシの裏

$FOX <= 船単位で設定 (基本的に出航時に1回設定される)
$GB <= 1トランザクション単位で設定 (1投稿ごとに設定される)

例えば、SETTING.TXT の値はこうやって得られるです。

・SETTING.TXTは出航時に読めばよい固定値だから$FOX
・でも板名はトランザクションごとに変わるから$GB
・その下に要素がぶらさがる

$FOX->{$GB->{FORM}->{'bbs'}}->{"BBS_CONTENTS_NUMBER"}

SpeedyCGIの特性を利用した、すごくよい使い分けと思います。
もしこれがなかったら、どうやってもカオスからは脱出できなかった。

他の処理系をまたぐ必要のあるぐろーばるーは、全部追放か$GBに押し込める方向で。
でないと、どれがどれなんだかちっとも。

で、概ねそれはできたような気がしているです。
といっても、ほとんどはおじさんがやったわけですが。

**root▲ ★** · 2005/11/11(金) 15:56:31

で、該当部分。
# ちょっと感動した。

#設定ファイルを読む
sub foxReadSettings
{
my ($GB) = @_ ;
my $ita = $GB->{FORM}->{'bbs'} ;

$GB->{DEBUG} .= "SETTING.TXT よみこむ? $ita<br>";
if(defined($FOX->{$ita}))
{
$GB->{DEBUG} .= "SETTING.TXT 既に読み込み済みー(1)$ita<br>";
return 0;
}
$GB->{DEBUG} .= "SETTING.TXT よみこみー$ita<br>";
(以下略)

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

デバッグの部分はリリース時に外さないの？

**root▲ ★** · 2005/11/11(金) 16:24:07

>>135
既に概ね、外れているです。
(ここはたまたま、外れてなかっただけみたい)

◆SSu.zv/rvs · 2005/11/11(金) 16:31:56

なにか言いたいけど
すでに getting drunk

**root▲ ★** · 2005/11/11(金) 16:32:47

>>137
現地は夜ですか。

◆SSu.zv/rvs · 2005/11/11(金) 16:36:12

そろそろ 11時? たぶん
三人でぽとる一本あけたから、、、、

with Jim &79

◆MUMUMUhnYI · 2005/11/11(金) 16:41:15

ぼうしぬいで、だらだら。

>>139
79さんですか。
そりゃ、たいへんだ。

ところで、飲酒禁止とか控えるとかゆう話、ありませんでしたっけ。

◆SSu.zv/rvs · 2005/11/11(金) 16:43:19

ないない

蒸留酒はok to me

◆MUMUMUhnYI · 2005/11/11(金) 16:45:01

そっか。

プリンが規制中なんでしたっけ。

◆SSu.zv/rvs · 2005/11/11(金) 16:46:03

そうそう

beer とか wine はご法度

でも沢山のんだけど　in Euro

**ヾ（ﾟﾊﾟ）ﾉ** ◆f0.zuburi6 · 2005/11/11(金) 18:58:25

めっ