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

**桃太郎 ★** · 04/12/02 19:52:43

peko鯖の稼動によりﾎﾞﾄﾙﾈｯｸの一つである事がより明らかになった
bbs.cgi作り直しプロジェクトです。

開発環境の工事現場
また挑戦。＠2ch掲示板http://dso.2ch.net/myanmar/

関連は>>2-

**動け動けウゴウゴ２ちゃんねる** · 04/12/06 16:49:51

ex7は実験で別のCGI（SpeedyCGI）入れてますからダメかと
あとはdsoとbeかな？(隠しだけど

**FOX ★** · 04/12/06 16:53:06

よいはず

**不動楽 ★** · 04/12/06 16:57:06

了解す

**動け動けウゴウゴ２ちゃんねる** · 04/12/06 17:12:51

>>746-749
すぐ前のレスぐらい見れ。

>>745

**動け動けウゴウゴ２ちゃんねる** · 04/12/06 22:04:50

何時の間にかスレが伸びているなーと思ったらbbs.cgi大分改造しているのね。
がんがれ～

**動け動けウゴウゴ２ちゃんねる** · 04/12/06 22:22:03

ただいま 395.33post/min　LA 12.22　@ex7
スマスマにＷＵ出演中のせい？

**動け動けウゴウゴ２ちゃんねる** · 04/12/06 22:23:25

だろうね
実況スレ立ちまくってるし

**動け動けウゴウゴ２ちゃんねる** · 04/12/06 22:33:32

辻加護キス総合スレ
http://ex7.2ch.net/test/read.cgi/morningcoffee/1102339617/

ま、こんな感じなので

**動け動けウゴウゴ２ちゃんねる** · 04/12/06 22:37:54

瞬間どれくらいいったすかねぇ。
負荷試験中なんでむしろもっとどんどんやれーな感じだったかも。

**動け動けウゴウゴ２ちゃんねる** · 04/12/07 01:38:06

ただいま 383.93post/min　LA 9.48　@ex7
鯖復帰後の一時的な集中なのかネコミミなのか・・・。

**動け動けウゴウゴ２ちゃんねる** · 04/12/07 01:53:16

500まで耐えられるもの、だよね…

**動け動けウゴウゴ２ちゃんねる** · 04/12/07 01:59:00

http://qb5.2ch.net/test/read.cgi/operate/1102087698/221

221 ：root▲ ★ ：04/12/07 01:03:53 ID:???
ex7 上がりました。
bbs.cgi を live17 と同じものにしました。

復帰依頼かけてきます。

とかあるので若干バージョンダウンしたのかも。
このバージョンではどこまでいけるんでしょうね。

**動け動けウゴウゴ２ちゃんねる** · 04/12/07 03:06:23

ただいま 205.39post/min　LA 22.61　@ex7
LA高いですね・・・。

**root▲ ★** · 04/12/07 03:16:10

>>766
ちょっと狼で書き込みテストしてみたけど、
書き込みは重くないみたい。

**root▲ ★** · 04/12/07 03:25:37

見てると、どーもスレ立て爆撃みたいっすね。< ex7
不自然に負荷が上がることがあります。

サーバが落ちることはなさそうなんで、
わたし的にはどうすることも（りゃ。

ぼちぼちおふろ入って、ねるかな。

**動け動けウゴウゴ２ちゃんねる** · 04/12/07 03:29:27

>>767
おお、今日はいろいろと大変乙でした。
（３時前のLAのヤマは何だったんでしょうね？）

**動け動けウゴウゴ２ちゃんねる** · 04/12/07 03:30:24

rootたんお疲れさまですー。おやすみ

そいえば…スレたて放題？はこれ直してないまんま？

**動け動けウゴウゴ２ちゃんねる** · 04/12/07 03:30:29

なるほどー。スレ立て爆撃ですか。
ゆっくりお休みくださいまし。

**動け動けウゴウゴ２ちゃんねる** · 04/12/07 03:31:00

FOXがbbs.cgi直さないとどうにもならん罠

**動け動けウゴウゴ２ちゃんねる** · 04/12/07 10:21:28

tatesugi規制がex7で効いてないんだけど

**動け動けウゴウゴ２ちゃんねる** · 04/12/07 12:06:58

FOX★様

ex7 の bbs.cgi で書き込み時に 500 Internal Server Error が出る時があります。
●を一度ログアウトして、再度ログインしてから書き込むと直ります。
ということは、おそらく、書き込み時の「再度ログインしてね」のパターンの時に
500 になるのだと思います。
お時間がありましたら調査よろしくお願いします。

以上

**動け動けウゴウゴ２ちゃんねる** · 04/12/07 13:04:10

>>739
わらたｗ

**ひろゆき＠どうやら管理人 ★** · 04/12/08 00:05:06

DBD::DBIって入ってるんでしたっけ？＞だいたのサーバ

**動け動けウゴウゴ２ちゃんねる** · 04/12/08 00:09:13

ひかる。ひかる。

**未承諾広告※** ◆TWARamEjuA · 04/12/08 00:14:59

>>776
DBI::DBD なら入っているかもです（苦笑）

無ければ、
$perl -MCPAN -e shell
して、
>install DBI::DBD
してみよう！

**root▲ ★** · 04/12/08 00:21:13

>>776
bananaには入ってますね。下記はex5。
$ pkg_info -aI | grep DB
p5-DBD-mysql-2.9003 MySQL driver for the Perl5 Database Interface (DBI)
p5-DBI-1.41 The perl5 Database Interface. Required for DBD::* modules

tiger/cobraには入ってませんが、
寝るまでに、入れておきましょ。

**root▲ ★** · 04/12/08 00:39:24

掲示板tiger/cobraに>>779を入れた。

**root▲ ★** · 04/12/08 00:41:41

rootありサーバの標準キットに入れることにしたんで、
5.3Rなサーバには、今度全部 >>780 は入るです。

**ひろゆき＠どうやら管理人 ★** · 04/12/08 03:40:45

わーい。ありがとうございますー。
DBI::DBDだったか、、

**動け動けウゴウゴ２ちゃんねる** · 04/12/08 04:58:16

「どうやら」がこれほど似合う管理人はいない。

**動け動けウゴウゴ２ちゃんねる** · 04/12/08 05:54:49

まったくだ。

**FOX ★** · 04/12/08 07:30:10

>>772
何か直すとこありましたっけ?

>>774
修正してみたー
でもテストはしていない。

**動け動けウゴウゴ２ちゃんねる** · 04/12/08 07:31:32

一昨日から無効になってたex7のtatesugi規制はもう効いてるの？

**FOX ★** · 04/12/08 07:31:52

効いていないの?

**動け動けウゴウゴ２ちゃんねる** · 04/12/08 07:32:54

なんか効いてなくて乱立してたらしーよー

**FOX ★** · 04/12/08 07:34:29

そうなんだ、
ジンギスカンだからとか、

**動け動けウゴウゴ２ちゃんねる** · 04/12/08 07:35:25

>>733-
になんとなく書いてあるかも

**FOX ★** · 04/12/08 07:42:29

特に問題は出ていないようなので、
Tiger全部に入れてみよう bbs.cgi(Speedy版)

**FOX ★** · 04/12/08 07:49:15

Tiger/Cobra は全部　bbs.cgi(Speedy版) になりました

live 8/16/17
news 18/19
game 9/10
hobby 7
ex 7

**動け動けウゴウゴ２ちゃんねる** · 04/12/08 07:55:14

tatesugiは効いてるけどなんか変なのが出てきた。＠live16

━━━━━━━━━━━━━━━━

新このホストでは、しばらくスレッドが立てられません。
またの機会にどうぞ。。。
名無しさん＠お腹いっぱい。 (0 , 1)

ホスト****
てすと
名前：名無しさん＠お腹いっぱい。
E-mail：
内容：
てすとです

こちらでリロードしてください。 GO!
分からないことがあったら２ちゃんねるガイドへ。。。

アクセス規制・プロキシー制限等規制は、２ちゃんねるビューアを使うと回避できることがあります。
途中経過
はじまりはじまりー
SETTING.TXT よみこみむ? livesaturn
SETTING.TXT よみこみーlivesaturn
SETTING.TXT よみこみーlivesaturn完了!!
各種ＰＡＴＨ生成 PATH=../livesaturn/
----------------------------------------
PATH =[../livesaturn/]
DATPATH =[../livesaturn/dat/]
TEMPPATH =[../livesaturn/html/]
IMODEPATH =[../livesaturn/i/]
INDEXFILE =[../livesaturn/index.html]
SUBFILE =[../livesaturn/subback.html]
----------------------------------------
PID=46987
time=1102460019
BBS.CGI - 2005 (SpeedyCGI = yes)(+Samba)

**FOX ★** · 04/12/08 07:57:45

当たりということで、

**動け動けウゴウゴ２ちゃんねる** · 04/12/08 07:59:08

>>793
それ、ex7では数日前から出てた
Sambaにかかったときとか

**動け動けウゴウゴ２ちゃんねる** · 04/12/08 11:17:28

>>791
問題でまくりですが。。

ex7の板が1000スレを超える乱立で、既存スレが一掃されてます。。
そのままばら撒いたら、危険極まりないかと。

**動け動けウゴウゴ２ちゃんねる** · 04/12/08 11:29:46

>>796
そんな乱立するような馬鹿はVIPや大学生活や野球や狼などの一部の板にしかいません

**動け動けウゴウゴ２ちゃんねる** · 04/12/08 11:36:59

>>797
それらの住人が他板へ侵攻しないとでもお思いで？

**動け動けウゴウゴ２ちゃんねる** · 04/12/08 12:08:41

もう直ってるし

**動け動けウゴウゴ２ちゃんねる** · 04/12/08 12:09:41

スレ乱立は止まってるはずだよ

**動け動けウゴウゴ２ちゃんねる** · 04/12/08 12:30:07

ソース下さい

**動け動けウゴウゴ２ちゃんねる** · 04/12/08 12:33:10

ソースも何も自分で試して見れば？

**動け動けウゴウゴ２ちゃんねる** · 04/12/08 12:38:55

今朝の時点でtatesugiは効いてたよ

**動け動けウゴウゴ２ちゃんねる** · 04/12/08 13:27:36

つまりex7はtatesugiが効いていようが効いてまいがどちらか分からないぐらい糞スレばっかり立ってるって事だ。

**FOX ★** · 04/12/08 13:43:46

つうことだ

気にスンナ、すんな

**動け動けウゴウゴ２ちゃんねる** · 04/12/08 13:48:47

>>804-805 >>768

**動け動けウゴウゴ２ちゃんねる** · 04/12/08 13:53:10

tatesugiきいてない
↓
VIPER狂喜乱舞してスレ立て祭り
↓
ex7のほかの板にも立て始める
↓
FOX ★が気付くけど何もしない
↓
その板の住人がtatesugi効いてないことに気付く
↓
その板の住人がスレ立て爆撃を始める
↓
tatesugi直る
↓
糞スレだらけの惨状（VIP以外）

**動け動けウゴウゴ２ちゃんねる** · 04/12/08 13:53:40

>>806みたいな人を見ると、
日本人は世界的に見ても、読解力が劣っているという事実を実感する。

**動け動けウゴウゴ２ちゃんねる** · 04/12/08 13:55:35

関連エントリー

日本学生の読解力低下が問題ではなく文化差異が問題だ
http://finalvent.cocolog-nifty.com/fareastblog/2004/12/post_4.html

**動け動けウゴウゴ２ちゃんねる** · 04/12/08 13:56:42

雑談スレではありませんよっと

**動け動けウゴウゴ２ちゃんねる** · 04/12/08 16:50:39

＞＞８１０
>>810

**FOX ★** · 04/12/13 03:31:00

>>684bあたりの続きなんですが
また壁にぶつかった。。。

**FOX ★** · 04/12/13 03:33:25

if(open(AAA,"aaa.txt"))
{
my @ppp = <AAA>;
close(AAA);
$FOX->{XXX} = @ppp;
}

なんてことをやりたいのに、、、
$FOX->{XXX}を、あとで見てみると要素数(行数)が入っている
配列を代入するにはどうしたらいいの?

**▲ 某ソレ511** · 04/12/13 04:05:20

こんな感じでうまくいたーよ

if(open(AAA,"aaa.txt"))
{
my @ppp = <AAA>;
close(AAA);
$FOX->{XXX} = \@ppp;
}

で、あとで
@{$FOX->{XXX}}
って感じで読み出す感じで。

**動け動けウゴウゴ２ちゃんねる** · 04/12/13 04:09:34

>>748
ホットゾヌは1も2も飼い主が非公式板で悲鳴を上げております。

**FOX ★** · 04/12/13 04:51:53

おぅおぅ
やってみるです　>>814

**root▲ ★** · 04/12/13 12:20:48

BBQ/BBX/BBY/BBS/BBM系をちょっとしたことで軽くできそう。
qb6で試してうまくいったみたいなので、飯の後にでもここに。

**root▲ ★** · 04/12/13 13:28:15

全サーバに配布した。bananaのは変わったはず。>>817

○変更の内容

my $query_addr = "$4.$3.$2.$1.niku.2ch.net.";
のように、BBx系を使用する場合最後に"."をつけるようにした。

これで、DNS queryの時のドメイン名補完がなくなり、DNS検索のコスト(かかる時間)が下がります。

通常の場合、特にBBSのような「その名前はない」という応答の場合、

1) gethostbyname("a.b.c.d.bbs.2ch.net"); を実行、
2) a.b.c.d.bbs.2ch.net に対してDNS問い合わせ => 該当なし
3) a.b.c.d.bbs.2ch.net.maido3.com に対してDNS問い合わせ => 該当なし
4) 呼び出し元に「該当なし」を返す

のような検索をしています。

この変更で 3) がなくなるので、
特にBBSの場合、呼び出しコストが半分になるはず。

**root▲ ★** · 04/12/13 13:30:11

>>818
これが使えるのは、

・BBQ (niku.2ch.net)
・BBS (bbs.2ch.net)
・BBY (bby.2ch.net)
・BBM (bbm.2ch.net)
・BBX (bbx.2ch.net)

の各問い合わせになります。

ということで、SpeedyCGI版bbs.cgiの更新作業を、
よろしくおねがいいたしますです。＞FOXさん

**FOX ★** · 04/12/13 14:12:14

おっ
やるやる

**root▲ ★** · 04/12/13 14:13:29

>>820
おまけとして、maido3.com の DNSコンテンツサーバも軽くなるですね。
もうわかっておられると思いますが。

**FOX ★** · 04/12/13 14:15:47

live16 でやってみた、

**root▲ ★** · 04/12/13 14:18:18

で、これおながいします。BBMサーバの変更。

http://qb5.2ch.net/test/read.cgi/operate/1102087698/329

**root▲ ★** · 04/12/13 14:18:49

>>822
予期した動作をしているか、DNSログ確認してみます。

**root▲ ★** · 04/12/13 14:27:19

大丈夫の模様です。

(使用前、2回問い合わせ)
@4000000041bd256e17e11344 query 376306 7f000001:e90e:a283 1 1102914915.5078.ないしょ.0.52.1102912571.livenhk.live16.2ch.net.bbs.bbs.2ch.net.
@4000000041bd256e17e1da7c cached ns bbs.2ch.net. a.ns.bbs.2ch.net.
@4000000041bd256e17e224b4 cached 1 a.ns.bbs.2ch.net.
@4000000041bd256e17e276bc tx 0 1 1102914915.5078.ないしょ.0.52.1102912571.livenhk.live16.2ch.net.bbs.bbs.2ch.net. bbs.2ch.net. cedf9323
@4000000041bd256e181fd1c4 nxdomain cedf9323 2560 1102914915.5078.ないしょ.0.52.1102912571.livenhk.live16.2ch.net.bbs.bbs.2ch.net.
@4000000041bd256e18215864 sent 376306 103
@4000000041bd256e1824139c query 376307 7f000001:306f:a284 1 1102914915.5078.ないしょ.0.52.1102912571.livenhk.live16.2ch.net.bbs.bbs.2ch.net.maido3.com.
@4000000041bd256e1824e68c cached ns maido3.com. ns1.maido3.com.
@4000000041bd256e18251d3c cached ns maido3.com. ns2.maido3.com.
@4000000041bd256e182528f4 cached 1 ns1.maido3.com.
@4000000041bd256e182530c4 cached 1 ns2.maido3.com.
@4000000041bd256e1825638c tx 0 1 1102914915.5078.218.ないしょ.1102912571.livenhk.live16.2ch.net.bbs.bbs.2ch.net.maido3.com. maido3.com. cedf94fe cedf93fe
@4000000041bd256e183e5644 nxdomain cedf94fe 2560 1102914915.5078.ないしょ.0.52.1102912571.livenhk.live16.2ch.net.bbs.bbs.2ch.net.maido3.com.
@4000000041bd256e183f9a7c sent 376307 114

(使用後、1回のみ)
@4000000041bd257225883914 query 376313 7f000001:fc9b:a71c 1 1102914920.6534.ないしょ.0.10.1102912571.livenhk.live16.2ch.net.bbs.bbs.2ch.net.
@4000000041bd25722588c5b4 cached ns bbs.2ch.net. a.ns.bbs.2ch.net.
@4000000041bd25722588f87c cached 1 a.ns.bbs.2ch.net.
@4000000041bd25722589275c tx 0 1 1102914920.6534.ないしょ.0.10.1102912571.livenhk.live16.2ch.net.bbs.bbs.2ch.net. bbs.2ch.net. cedf9323
@4000000041bd257225e97f6c nxdomain cedf9323 2560 1102914920.6534.ないしょ.0.10.1102912571.livenhk.live16.2ch.net.bbs.bbs.2ch.net.
@4000000041bd257225ead344 sent 376313 100

**FOX ★** · 04/12/13 14:29:35

んじゃ　順次、順二、淳二

**南アルプス** ◆98YENoslbU · 04/12/13 14:35:22

稲川淳二

◆X7F1FulWvk · 04/12/13 15:17:41

高田（ｒｙ

**FOX ★** · 04/12/13 15:35:49

>>814
やってみたけど、　$FOX(SpeedyCGI においてグローバル) では
うまく行かなかったです。

どうしてかなぁ

**動け動けウゴウゴ２ちゃんねる** · 04/12/13 17:30:20

これでどうかしらん。

if (open(AAA, "aaa.txt")) {
@{$FOX->{XXX}} = <AAA>;
close(AAA);
}

でもグローバルなら安直に

@FOX_XXX = <AAA>

でいいような気がする。

**FOX ★** · 04/12/13 18:45:21

>>830
たしかに、、、

ただ、将来の変更への耐性が落ちるか、
それはその時にその担当者に頑張ってもらおう。

**FOX ★** · 04/12/14 14:34:57

file i/o を減らすのだ　第八弾(ID生成ルーチン)

1) 毎回 HDD にアクセスしているのを何とかしたい、
2) 毎月同じIDになるのを何とかする?
3) あとなんかあったっけ?

今　コード出します。

**FOX ★** · 04/12/14 14:36:21

{

#ＩＤを生成する
use Digest::MD5;
my $md5 = Digest::MD5->new;

use Digest::MD5 qw(md5_hex);
#my $idnum = md5_hex($ENV{'REMOTE_ADDR'});
my $idnum = md5_hex($GB->{IDNOTANE});

$idnum = substr($idnum,-4);

$md5->add($idnum);
$md5->add($GB->{FORM}->{"bbs"});
#$md5->add(substr($GB->{DATE},6,2));
my $md5datefile = "$GB->{PATH}/md5.cgi";
if(-e $md5datefile){
open(MD5FILE,"<$md5datefile");
my $md5line = <MD5FILE>;
close(MD5FILE);
my ($md5date,$md5number) = split /<>/,$md5line;
if($md5date eq $GB->{MD5DATE}){
$md5->add($md5number);
}else{
open(MD5FILE,">$md5datefile");
my $data = "";
sysopen(RANDOM, "/dev/random", O_READ) || die "cannot open /dev/random $!\n";
sysread(RANDOM, $data, 16);
close(RANDOM);
print MD5FILE "$GB->{MD5DATE}<>$data";
close(MD5FILE);
$md5->add($data);
}
}else{
open(MD5FILE,">$md5datefile");
my $data = "";
sysopen(RANDOM, "/dev/random", O_READ) || die "cannot open /dev/random $!\n";
sysread(RANDOM, $data, 16);
close(RANDOM);
print MD5FILE "$GB->{MD5DATE}<>$data";
close(MD5FILE);
$md5->add($data);
}
chmod(0777,"$md5datefile");
my $idcrypt = $md5->b64digest;
$idcrypt = substr($idcrypt,0,8);

**動け動けウゴウゴ２ちゃんねる** · 04/12/14 16:37:18

こんな感じ？

use Digest::MD5;
use Digest::MD5 qw(md5_hex);

my $md5datefile = "$GB->{PATH}/md5.cgi";

if (!defined $FOX->{MD5NUMBER}) {
# まだ読み込まれていない
open(MD5FILE, "<$md5datefile");
my $md5line = <MD5FILE>;
close(MD5FILE);
($FOX->{MD5DATE}, $FOX->{MD5NUMBER}) = split(/<>/, $md5line, 2);
}

if ($FOX->{MD5DATE} ne $GB->{MD5DATE}) {
# 日付が変わったので作り直し
my $data = '';
sysopen(RANDOM, '/dev/random', O_READ) || die "cannot open /dev/random $!\n";
sysread(RANDOM, $data, 16);
close(RANDOM);
open(MD5FILE, ">$md5datefile");
print MD5FILE "$GB->{MD5DATE}<>$data";
close(MD5FILE);
chmod(0777, $md5datefile);
$FOX->{MD5DATE} = $GB->{MD5DATE};
$FOX->{MD5NUMBER} = $data;
}

#my $idnum = md5_hex($ENV{'REMOTE_ADDR'});
my $idnum = md5_hex($GB->{IDNOTANE});

my $md5 = Digest::MD5->new;
$md5->add(substr($idnum,-4));
$md5->add($GB->{FORM}->{"bbs"});
#$md5->add(substr($GB->{DATE},6,2));
$md5->add($FOX->{MD5NUMBER});
my $idcrypt = substr($md5->b64digest, 0, 8);

**▲:/usr/local/bin/ch2 -o i686** ◆P8fXJj6wwo · 04/12/14 17:08:51

mod_md5fileなんてつくったらどうだろうかと言ってみるテスト

**▲ 某ソレ511** · 04/12/14 17:22:01

やぱ、プロセス最初の起動で
2つのデータを読み込む、あたりが一番楽だと思う。

と思ったら、>>834で十分だいじょぶっぽいか。

**動け動けウゴウゴ２ちゃんねる** · 04/12/14 17:22:56

言い出しっぺの法則

**マァヴ ★** · 04/12/14 17:27:14

ああ、なつかしのID生成ルーチン(^_^;)
ID生成ルーチンのセオリーとしては
「ルーチンを公開しても、リモホやIPが推測できない」
です。

**動け動けウゴウゴ２ちゃんねる** · 04/12/14 17:43:03

マァヴ ★(^_^;)
ｷﾀｷﾀｷﾀｷﾀ━━━(ﾟ∀ﾟ≡(ﾟ∀ﾟ≡ﾟ∀ﾟ)≡ﾟ∀ﾟ)━━━━!!!!!!!!!!

**FOX ★** · 04/12/14 17:48:04

>>834 みたくして、

日付の変わる　24時のあたり大丈夫ですかねぇ

a) bbs.cgi は何十本も常駐している。
b) 寿命は現在10分である

というあたり、

鏝 · 04/12/14 17:55:02

　1)どこぞのexで実験する
　2)じっけん　じっけん
　3)おやつは300円までですよ

**動け動けウゴウゴ２ちゃんねる** · 04/12/14 17:58:21

>>840
投稿のたびに日付チェックするので大丈夫、なはず……。

**FOX ★** · 04/12/14 17:59:13

んじゃ　dsoで、そしてex9へ

**未承諾広告※** ◆TWARamEjuA · 04/12/14 18:27:42

うぅむ、、、/dev/randomからの採取は、crondで毎日00:00に採取して、ファイルにして保存。
bbs.cgiで、１回取得しておけばSpeedyに引っかかって、ごっつぅえぇ感じになるかと♪

**FOX ★** · 04/12/14 18:53:07

ccqccc

**FOX ★** · 04/12/14 19:12:17

dso に入れてみたぞ

てすと　てすとー

あんま自信ないので一日放置してみる　< dso

**FOX ★** · 04/12/14 19:15:35

コードをさらしておこう

**FOX ★** · 04/12/14 19:18:22

$FOX 初期化時

$FOX->{$GB->{FORM}->{'bbs'}}->{MD5NUMBER} = &foxInitMD5id($GB->{FORM}->{'bbs'},$GB->{MD5DATE});
$FOX->{MD5DATE} = $GB->{MD5DATE};

bbs.cgi が呼ばれるたびに、

$FOX->{$GBX->{FORM}->{'bbs'}}->{MD5NUMBER} = &foxCheckMD5id(
$GBX->{FORM}->{'bbs'},
$GBX->{MD5DATE},
$FOX->{$GBX->{FORM}->{'bbs'}}->{MD5NUMBER},
$FOX->{MD5DATE});

ID 生成時

my $idcrypt = &foxGetMD5id(
$GB->{FORM}->{'bbs'},#bbs
$GB->{MD5DATE},#日付
$FOX->{$GB->{FORM}->{'bbs'}}->{MD5NUMBER},#
$GB->{IDNOTANE}#
);

**FOX ★** · 04/12/14 19:19:05

sub foxCheckMD5id
{
my ($bbs,$md5date,$num,$dateFox) = @_;
if($dateFox eq $md5date)
{
return $num;
}
return &foxCreateMD5id($bbs,$md5date);
}

**FOX ★** · 04/12/14 19:19:15

sub foxGetMD5id
{
my ($bbs,$md5date,$num,$tane) = @_;
my $id = "FOX";

use Digest::MD5;
use Digest::MD5 qw(md5_hex);

my $idnum = md5_hex($tane);
my $md5 = Digest::MD5->new;
$md5->add(substr($idnum,-4));
$md5->add($bbs);
$md5->add($num);
$id = substr($md5->b64digest, 0, 8);

return $id;
}

**FOX ★** · 04/12/14 19:19:24

sub foxInitMD5id
{
my ($bbs,$md5date) = @_;
my $md5datefile = "../$bbs/md5.cgi";

if(open(MD5FILE, "<$md5datefile"))
{
my $md5line = <MD5FILE>;
close(MD5FILE);
my ($a, $b) = split(/<>/, $md5line, 2);
return $b;
}
return &foxCreateMD5id($bbs,$md5date);
}

**FOX ★** · 04/12/14 19:19:36

sub foxCreateMD5id
{
my ($bbs,$md5date) = @_;
my $md5datefile = "../$bbs/md5.cgi";
my $data = "ABCD";

sysopen(RANDOM, '/dev/random', O_READ) || die "cannot open /dev/random $!\n";
sysread(RANDOM, $data, 16);
close(RANDOM);

open(MD5FILE, ">$md5datefile");
print MD5FILE "$md5date<>$data";
close(MD5FILE);
chmod(0777, $md5datefile);

return$data;
}

**動け動けウゴウゴ２ちゃんねる** · 04/12/14 19:29:10

日付が変わったときに$FOX->{MD5DATE}を更新してないような気がする。

**FOX ★** · 04/12/14 19:32:22

おおっ