[過去ﾛｸﾞ] bbs.cgi再開発プロジェクト４ (1001ﾚｽ)
上下前次1-新
このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ
764: 動け動けウゴウゴ２ちゃんねる 04/12/07 01:53:16 ID:3jrF2WGE(1/2)調 AAS
500まで耐えられるもの、だよね…
765: 動け動けウゴウゴ２ちゃんねる 04/12/07 01:59:00 ID:CbM6EMw0(2/5)調 AAS
2chｽﾚ:operate
221 ：root▲ ★ ：04/12/07 01:03:53 ID:???
ex7 上がりました。
bbs.cgi を live17 と同じものにしました。
復帰依頼かけてきます。
とかあるので若干バージョンダウンしたのかも。
このバージョンではどこまでいけるんでしょうね。
766(1): 動け動けウゴウゴ２ちゃんねる 04/12/07 03:06:23 ID:CbM6EMw0(3/5)調 AAS
ただいま 205.39post/min LA 22.61 @ex7
LA高いですね・・・。
767(1): root▲ ★ 04/12/07 03:16:10 ID:??? AAS
>>766
ちょっと狼で書き込みテストしてみたけど、
書き込みは重くないみたい。
768(1): root▲ ★ 04/12/07 03:25:37 ID:??? AAS
見てると、どーもスレ立て爆撃みたいっすね。< ex7
不自然に負荷が上がることがあります。
サーバが落ちることはなさそうなんで、
わたし的にはどうすることも（りゃ。
ぼちぼちおふろ入って、ねるかな。
769: 動け動けウゴウゴ２ちゃんねる 04/12/07 03:29:27 ID:CbM6EMw0(4/5)調 AAS
>>767
おお、今日はいろいろと大変乙でした。
（３時前のLAのヤマは何だったんでしょうね？）
770: 動け動けウゴウゴ２ちゃんねる 04/12/07 03:30:24 ID:3jrF2WGE(2/2)調 AAS
rootたんお疲れさまですー。おやすみ
そいえば…スレたて放題？はこれ直してないまんま？
771: 動け動けウゴウゴ２ちゃんねる 04/12/07 03:30:29 ID:CbM6EMw0(5/5)調 AAS
なるほどー。スレ立て爆撃ですか。
ゆっくりお休みくださいまし。
772(1): 動け動けウゴウゴ２ちゃんねる 04/12/07 03:31:00 ID:5HqISiJY(1)調 AAS
FOXがbbs.cgi直さないとどうにもならん罠
773: 動け動けウゴウゴ２ちゃんねる 04/12/07 10:21:28 ID:NwR44+on(1)調 AAS
tatesugi規制がex7で効いてないんだけど
774(1): 動け動けウゴウゴ２ちゃんねる 04/12/07 12:06:58 ID:bRpOKfJi(1)調 AAS
FOX★様
ex7 の bbs.cgi で書き込み時に 500 Internal Server Error が出る時があります。
●を一度ログアウトして、再度ログインしてから書き込むと直ります。
ということは、おそらく、書き込み時の「再度ログインしてね」のパターンの時に
500 になるのだと思います。
お時間がありましたら調査よろしくお願いします。
以上
775: 動け動けウゴウゴ２ちゃんねる 04/12/07 13:04:10 ID:MBZ525QB(1)調 AAS
>>739
わらたｗ
776(2): ひろゆき＠どうやら管理人 ★ 04/12/08 00:05:06 ID:??? AAS
DBD::DBIって入ってるんでしたっけ？＞だいたのサーバ
777: 動け動けウゴウゴ２ちゃんねる 04/12/08 00:09:13 ID:r91lOVFY(1/3)調 AAS
ひかる。ひかる。
778: 未承諾広告※ ◆TWARamEjuA 04/12/08 00:14:59 ID:RJR+xQxy(1)調 AAS
>>776
DBI::DBD なら入っているかもです（苦笑）
無ければ、
$perl -MCPAN -e shell
して、
>install DBI::DBD
してみよう！
779(1): root▲ ★ 04/12/08 00:21:13 ID:??? AAS
>>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には入ってませんが、
寝るまでに、入れておきましょ。
780(1): root▲ ★ 04/12/08 00:39:24 ID:??? AAS
掲示板tiger/cobraに>>779を入れた。
781: root▲ ★ 04/12/08 00:41:41 ID:??? AAS
rootありサーバの標準キットに入れることにしたんで、
5.3Rなサーバには、今度全部 >>780 は入るです。
782: ひろゆき＠どうやら管理人 ★ 04/12/08 03:40:45 ID:??? AAS
わーい。ありがとうございますー。
DBI::DBDだったか、、
783: 動け動けウゴウゴ２ちゃんねる 04/12/08 04:58:16 ID:9KJTysI8(1)調 AAS
「どうやら」がこれほど似合う管理人はいない。
784: 動け動けウゴウゴ２ちゃんねる 04/12/08 05:54:49 ID:5CZLuXdz(1)調 AAS
まったくだ。
785: FOX ★ 04/12/08 07:30:10 ID:??? AAS
>>772
何か直すとこありましたっけ?
>>774
修正してみたー
でもテストはしていない。
786: 動け動けウゴウゴ２ちゃんねる 04/12/08 07:31:32 ID:B4x378t7(1/5)調 AAS
一昨日から無効になってたex7のtatesugi規制はもう効いてるの？
787: FOX ★ 04/12/08 07:31:52 ID:??? AAS
効いていないの?
788: 動け動けウゴウゴ２ちゃんねる 04/12/08 07:32:54 ID:B4x378t7(2/5)調 AAS
なんか効いてなくて乱立してたらしーよー
789: FOX ★ 04/12/08 07:34:29 ID:??? AAS
そうなんだ、
ジンギスカンだからとか、
790: 動け動けウゴウゴ２ちゃんねる 04/12/08 07:35:25 ID:B4x378t7(3/5)調 AAS
>>733-
になんとなく書いてあるかも
791(1): FOX ★ 04/12/08 07:42:29 ID:??? AAS
特に問題は出ていないようなので、
Tiger全部に入れてみよう bbs.cgi(Speedy版)
792: FOX ★ 04/12/08 07:49:15 ID:??? AAS
Tiger/Cobra は全部 bbs.cgi(Speedy版) になりました
live 8/16/17
news 18/19
game 9/10
hobby 7
ex 7
793(1): 動け動けウゴウゴ２ちゃんねる 04/12/08 07:55:14 ID:B4x378t7(4/5)調 AAS
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)
794: FOX ★ 04/12/08 07:57:45 ID:??? AAS
当たりということで、
795: 動け動けウゴウゴ２ちゃんねる 04/12/08 07:59:08 ID:PFZjuYTD(1/4)調 AAS
>>793
それ、ex7では数日前から出てた
Sambaにかかったときとか
796(1): 動け動けウゴウゴ２ちゃんねる 04/12/08 11:17:28 ID:jTKsiamC(1)調 AAS
>>791
問題でまくりですが。。
ex7の板が1000スレを超える乱立で、既存スレが一掃されてます。。
そのままばら撒いたら、危険極まりないかと。
797(1): 動け動けウゴウゴ２ちゃんねる 04/12/08 11:29:46 ID:PFZjuYTD(2/4)調 AAS
>>796
そんな乱立するような馬鹿はVIPや大学生活や野球や狼などの一部の板にしかいません
798: 動け動けウゴウゴ２ちゃんねる 04/12/08 11:36:59 ID:14O5Dnd6(1/2)調 AAS
>>797
それらの住人が他板へ侵攻しないとでもお思いで？
799: 動け動けウゴウゴ２ちゃんねる 04/12/08 12:08:41 ID:B4x378t7(5/5)調 AAS
もう直ってるし
800: 動け動けウゴウゴ２ちゃんねる 04/12/08 12:09:41 ID:AZJ+q9H2(1)調 AAS
スレ乱立は止まってるはずだよ
801: 動け動けウゴウゴ２ちゃんねる 04/12/08 12:30:07 ID:14O5Dnd6(2/2)調 AAS
ソース下さい
802: 動け動けウゴウゴ２ちゃんねる 04/12/08 12:33:10 ID:3XgMUeiY(1/2)調 AAS
ソースも何も自分で試して見れば？
803: 動け動けウゴウゴ２ちゃんねる 04/12/08 12:38:55 ID:PFZjuYTD(3/4)調 AAS
今朝の時点でtatesugiは効いてたよ
804(1): 動け動けウゴウゴ２ちゃんねる 04/12/08 13:27:36 ID:4QK9QQ+X(1)調 AAS
つまりex7はtatesugiが効いていようが効いてまいがどちらか分からないぐらい糞スレばっかり立ってるって事だ。
805(1): FOX ★ 04/12/08 13:43:46 ID:??? AAS
つうことだ
気にスンナ、すんな
806(1): 動け動けウゴウゴ２ちゃんねる 04/12/08 13:48:47 ID:r91lOVFY(2/3)調 AAS
>>804-805 >>768
807: 動け動けウゴウゴ２ちゃんねる 04/12/08 13:53:10 ID:PFZjuYTD(4/4)調 AAS
tatesugiきいてない
↓
VIPER狂喜乱舞してスレ立て祭り
↓
ex7のほかの板にも立て始める
↓
FOX ★が気付くけど何もしない
↓
その板の住人がtatesugi効いてないことに気付く
↓
その板の住人がスレ立て爆撃を始める
↓
tatesugi直る
↓
糞スレだらけの惨状（VIP以外）
808: 動け動けウゴウゴ２ちゃんねる 04/12/08 13:53:40 ID:rdEQXxJD(1)調 AAS
>>806みたいな人を見ると、
日本人は世界的に見ても、読解力が劣っているという事実を実感する。
809: 動け動けウゴウゴ２ちゃんねる 04/12/08 13:55:35 ID:r91lOVFY(3/3)調 AAS
関連エントリー
日本学生の読解力低下が問題ではなく文化差異が問題だ
外部ﾘﾝｸ[html]:finalvent.cocolog-nifty.com
810(1): 動け動けウゴウゴ２ちゃんねる 04/12/08 13:56:42 ID:3XgMUeiY(2/2)調 AAS
雑談スレではありませんよっと
811: 動け動けウゴウゴ２ちゃんねる 04/12/08 16:50:39 ID:HujUSjWp(1)調 AAS
＞＞８１０
>>810
812: FOX ★ 04/12/13 03:31:00 ID:??? AAS
>>684bあたりの続きなんですが
また壁にぶつかった。。。
813: FOX ★ 04/12/13 03:33:25 ID:??? AAS
if(open(AAA,"aaa.txt"))
{
my @ppp = <AAA>;
close(AAA);
$FOX->{XXX} = @ppp;
}
なんてことをやりたいのに、、、
$FOX->{XXX}を、あとで見てみると要素数(行数)が入っている
配列を代入するにはどうしたらいいの?
814(2): ▲ 某ソレ511 04/12/13 04:05:20 ID:32ZR8wok(1)調 AAS
こんな感じでうまくいたーよ
if(open(AAA,"aaa.txt"))
{
my @ppp = <AAA>;
close(AAA);
$FOX->{XXX} = \@ppp;
}
で、あとで
@{$FOX->{XXX}}
って感じで読み出す感じで。
815: 動け動けウゴウゴ２ちゃんねる 04/12/13 04:09:34 ID:LPQQCynf(1)調 AAS
>>748
ホットゾヌは1も2も飼い主が非公式板で悲鳴を上げております。
816: FOX ★ 04/12/13 04:51:53 ID:??? AAS
おぅおぅ
やってみるです >>814
817(1): root▲ ★ 04/12/13 12:20:48 ID:??? AAS
BBQ/BBX/BBY/BBS/BBM系をちょっとしたことで軽くできそう。
qb6で試してうまくいったみたいなので、飯の後にでもここに。
818(1): root▲ ★ 04/12/13 13:28:15 ID:??? AAS
全サーバに配布した。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の場合、呼び出しコストが半分になるはず。
819: root▲ ★ 04/12/13 13:30:11 ID:??? AAS
>>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さん
820(1): FOX ★ 04/12/13 14:12:14 ID:??? AAS
おっ
やるやる
821: root▲ ★ 04/12/13 14:13:29 ID:??? AAS
>>820
おまけとして、maido3.com の DNSコンテンツサーバも軽くなるですね。
もうわかっておられると思いますが。
822(1): FOX ★ 04/12/13 14:15:47 ID:??? AAS
live16 でやってみた、
823: root▲ ★ 04/12/13 14:18:18 ID:??? AAS
で、これおながいします。BBMサーバの変更。
2chｽﾚ:operate
824: root▲ ★ 04/12/13 14:18:49 ID:??? AAS
>>822
予期した動作をしているか、DNSログ確認してみます。
825: root▲ ★ 04/12/13 14:27:19 ID:??? AAS
大丈夫の模様です。
(使用前、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
826: FOX ★ 04/12/13 14:29:35 ID:??? AAS
んじゃ 順次、順二、淳二
827: 南アルプス ◆98YENoslbU 04/12/13 14:35:22 ID:YQ7EKe0/(1)調 AAS
稲川淳二
828: ◆X7F1FulWvk 04/12/13 15:17:41 ID:5KOKcOiZ(1)調 AAS
高田（ｒｙ
829: FOX ★ 04/12/13 15:35:49 ID:??? AAS
>>814
やってみたけど、 $FOX(SpeedyCGI においてグローバル) では
うまく行かなかったです。
どうしてかなぁ
830(1): 動け動けウゴウゴ２ちゃんねる 04/12/13 17:30:20 ID:DB7UVgUV(1)調 AAS
これでどうかしらん。
if (open(AAA, "aaa.txt")) {
@{$FOX->{XXX}} = <AAA>;
close(AAA);
}
でもグローバルなら安直に
@FOX_XXX = <AAA>
でいいような気がする。
831: FOX ★ 04/12/13 18:45:21 ID:??? AAS
>>830
たしかに、、、
ただ、将来の変更への耐性が落ちるか、
それはその時にその担当者に頑張ってもらおう。
832(1): FOX ★ 04/12/14 14:34:57 ID:??? AAS
file i/o を減らすのだ 第八弾(ID生成ルーチン)
1) 毎回 HDD にアクセスしているのを何とかしたい、
2) 毎月同じIDになるのを何とかする?
3) あとなんかあったっけ?
今 コード出します。
833: FOX ★ 04/12/14 14:36:21 ID:??? AAS
{
#ＩＤを生成する
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);
834(2): 動け動けウゴウゴ２ちゃんねる 04/12/14 16:37:18 ID:dKRMgTcD(1/3)調 AAS
こんな感じ？
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);
835(1): ▲:/usr/local/bin/ch2 -o i686 ◆P8fXJj6wwo 04/12/14 17:08:51 ID:krSF+CYt(1)調 AAS
mod_md5fileなんてつくったらどうだろうかと言ってみるテスト
836: ▲ 某ソレ511 04/12/14 17:22:01 ID:VWWSBm/+(1)調 AAS
やぱ、プロセス最初の起動で
2つのデータを読み込む、あたりが一番楽だと思う。
と思ったら、>>834で十分だいじょぶっぽいか。
837: 動け動けウゴウゴ２ちゃんねる 04/12/14 17:22:56 ID:yW1G096m(1)調 AAS
言い出しっぺの法則
838: マァヴ ★ 04/12/14 17:27:14 ID:??? AAS
ああ、なつかしのID生成ルーチン(^_^;)
ID生成ルーチンのセオリーとしては
「ルーチンを公開しても、リモホやIPが推測できない」
です。
839: 動け動けウゴウゴ２ちゃんねる 04/12/14 17:43:03 ID:HEqRaqNj(1)調 AAS
マァヴ ★(^_^;)
ｷﾀｷﾀｷﾀｷﾀ━━━(ﾟ∀ﾟ≡(ﾟ∀ﾟ≡ﾟ∀ﾟ)≡ﾟ∀ﾟ)━━━━!!!!!!!!!!
840(1): FOX ★ 04/12/14 17:48:04 ID:??? AAS
>>834 みたくして、
日付の変わる 24時のあたり大丈夫ですかねぇ
a) bbs.cgi は何十本も常駐している。
b) 寿命は現在10分である
というあたり、
841: 鏝 04/12/14 17:55:02 ID:kwpC6qYO(1)調 AAS
1)どこぞのexで実験する
2)じっけん じっけん
3)おやつは300円までですよ
842: 動け動けウゴウゴ２ちゃんねる 04/12/14 17:58:21 ID:dKRMgTcD(2/3)調 AAS
>>840
投稿のたびに日付チェックするので大丈夫、なはず……。
843: FOX ★ 04/12/14 17:59:13 ID:??? AAS
んじゃ dsoで、そしてex9へ
844: 未承諾広告※ ◆TWARamEjuA 04/12/14 18:27:42 ID:mhtbHAbI(1)調 AAS
うぅむ、、、/dev/randomからの採取は、crondで毎日00:00に採取して、ファイルにして保存。
bbs.cgiで、１回取得しておけばSpeedyに引っかかって、ごっつぅえぇ感じになるかと♪
845: FOX ★ 04/12/14 18:53:07 ID:??? AAS
ccqccc
846: FOX ★ 04/12/14 19:12:17 ID:??? AAS
dso に入れてみたぞ
てすと てすとー
あんま自信ないので一日放置してみる < dso
847: FOX ★ 04/12/14 19:15:35 ID:??? AAS
コードをさらしておこう
848(1): FOX ★ 04/12/14 19:18:22 ID:??? AAS
$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}#
);
849: FOX ★ 04/12/14 19:19:05 ID:??? AAS
sub foxCheckMD5id
{
my ($bbs,$md5date,$num,$dateFox) = @_;
if($dateFox eq $md5date)
{
return $num;
}
return &foxCreateMD5id($bbs,$md5date);
}
850(1): FOX ★ 04/12/14 19:19:15 ID:??? AAS
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;
}
851: FOX ★ 04/12/14 19:19:24 ID:??? AAS
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);
}
852(1): FOX ★ 04/12/14 19:19:36 ID:??? AAS
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;
}
853: 動け動けウゴウゴ２ちゃんねる 04/12/14 19:29:10 ID:dKRMgTcD(3/3)調 AAS
日付が変わったときに$FOX->{MD5DATE}を更新してないような気がする。
854: FOX ★ 04/12/14 19:32:22 ID:??? AAS
おおっ
855(1): FOX ★ 04/12/14 19:34:04 ID:??? AAS
>>848のbbs.cgi が呼ばれるたびにの部分を変更
$FOX->{$GBX->{FORM}->{'bbs'}}->{MD5NUMBER} = &foxCheckMD5id(
$GBX->{FORM}->{'bbs'},
$GBX->{MD5DATE},
$FOX->{$GBX->{FORM}->{'bbs'}}->{MD5NUMBER},
$FOX->{MD5DATE});
$FOX->{MD5DATE} = $GBX->{MD5DATE};
856: FOX ★ 04/12/14 19:34:27 ID:??? AAS
あつっ
これじゃまずいか。。。
857: FOX ★ 04/12/14 19:37:04 ID:??? AAS
ん?
そうでもないか?
なんか今日は調子悪いなぁ
こんな日は飲んだくれるに限るか、
>>855 になってます
おかしいとこ指摘よろしく〜
858(1): FOX ★ 04/12/14 19:55:01 ID:??? AAS
ex9 にいれてみるー
今晩、観察しててね
859: 動け動けウゴウゴ２ちゃんねる 04/12/14 19:57:18 ID:rV+STh14(1)調 AAS
>>858
つ[ﾍﾊﾟﾘｰｾﾞ]
いってらっしゃ〜い。
860: 動け動けウゴウゴ２ちゃんねる 04/12/14 22:27:28 ID:oYltBmUn(1/2)調 AAS
日付が変わったら無条件でmd5.cgiを作り直すのは
マズいような気がしてきた。
861(1): 動け動けウゴウゴ２ちゃんねる 04/12/14 22:32:17 ID:oYltBmUn(2/2)調 AAS
sub foxCheckMD5id
{
my ($bbs,$md5date,$num,$dateFox) = @_;
if($dateFox eq $md5date)
{
return $num;
}
my $md5datefile = "../$bbs/md5.cgi";
if(open(MD5FILE, "<$md5datefile"))
{
my $md5line = <MD5FILE>;
close(MD5FILE);
my ($a, $b) = split(/<>/, $md5line, 2);
if ($a eq $md5date) {
return $b;
}
}
return &foxCreateMD5id($bbs,$md5date);
}
862: 動け動けウゴウゴ２ちゃんねる 04/12/15 00:05:56 ID:MQM0IwBG(1)調 AAS
2chｽﾚ:myanmar
日付の変わり目でIDが不安定になる模様。
863: 動け動けウゴウゴ２ちゃんねる 04/12/15 00:11:05 ID:aNf3D1eM(1)調 AAS
日付が変わってもＩＤが変わらないんですが仕様でしょうか
864: 動け動けウゴウゴ２ちゃんねる 04/12/15 00:15:25 ID:+e2zWYHe(1)調 AAS
ex7も日付の変わり目にIDが2回変わりました
865: 動け動けウゴウゴ２ちゃんねる 04/12/15 00:38:51 ID:gwIGlcO3(1)調 AAS
ex9の格闘技板ですが、日付変わってもＩＤ変わってません。
866(1): FOX ★ 04/12/15 05:37:18 ID:??? AAS
さて
どこに隙があるんだ?
ex7は旧来のままなんで「気のせい」ということで
よろしく
867: 動け動けウゴウゴ２ちゃんねる 04/12/15 10:29:18 ID:2HN9RP7L(1)調 AAS
>>866
どうせまたおまいがやったんだろ。
正直に言っちゃえよ、楽になるぞ。
868(1): 動け動けウゴウゴ２ちゃんねる 04/12/15 10:48:46 ID:nPZRecg/(1)調 AAS
かつどん、食うか？
869: 鏝 04/12/15 14:18:29 ID:JexvqC49(1)調 AAS
1)０時付近で変わっても気にしない
2)自作自演昨日として宣伝
3)Bananaはmaido3まで
870(1): FOX ★ 04/12/15 14:22:30 ID:??? AAS
>>861
ふむふむ
これにして今晩観察@ex9
871(1): 動け動けウゴウゴ２ちゃんねる 04/12/15 16:10:11 ID:lA5kU79o(1)調 AAS
旧式のID機能でも
23:59:59以前 -> 0:00:00ジャスト -> 0:00:01以降
で変化したことなら目撃したことあるよ
872: 動け動けウゴウゴ２ちゃんねる 04/12/15 17:15:52 ID:W8RTaBgB(1)調 AAS
>>871
それは/dev/urandom から取ってきたのを保存するファイルにロックをかけてないからでしょ？
873: 某ソレ47 ◆ap/yuix/tw 04/12/15 17:33:45 ID:9MQ67KRG(1)調 AAS
「IDは日付が変わるぐらいに変わります」でいいと思うけどな。
874(1): 動け動けウゴウゴ２ちゃんねる 04/12/15 17:44:55 ID:w6sVvVK6(1/2)調 AAS
・FreeBSD 5.xなら/dev/urandomよりも/dev/randomのほうが良いかも
・種ファイルをhogehoge_date "+%Y%M%d"という感じであらかじめ23:55ぐらいに自動生成してもいいのかも
日付が変わる時のロックがいらない。
・ロックファイルを作るときに、openした直後にunlinkするというTipsがある。
プロセスが異常終了したらOSによりunlinkされるし、動作中はunlinkされないので便利。
外部ﾘﾝｸ[html]:ns1.php.gr.jp
875: 動け動けウゴウゴ２ちゃんねる 04/12/15 17:47:23 ID:w6sVvVK6(2/2)調 AAS
>874
あー間違えた。
date -v+1d "+%Y%M%d"のフォーマットで。という意味ね。
Perlで書き直す必要はあるけど。
876: 動け動けウゴウゴ２ちゃんねる 04/12/15 20:23:42 ID:Q4upOPsT(1)調 AAS
自動生成するんなら、シェルスクリプトにしてcronすればいい
877(1): ひろゆき＠どうやら管理人 ★ 04/12/16 01:29:06 ID:??? AAS
headad.txtを読み込んでいない気がします。
外部ﾘﾝｸ[html]:life7.2ch.net
878: 動け動けウゴウゴ２ちゃんねる 04/12/16 01:46:13 ID:QShzd4gV(1)調 AAS
そりゃあてぇheada
879: FOX ★ 04/12/16 05:59:16 ID:??? AAS
>>887
更新してからのタイムラグがあるという事ではなくて
実際に全然反映されていないですか?
もしタイムラグ(最大10分の設定)だったら
我慢できませんかねぇ?
全く反映されていない場合はなおすですー
でも今みると反映されているような、
880: 動け動けウゴウゴ２ちゃんねる 04/12/16 06:00:52 ID:WspjtZWV(1)調 AAS
未来レスﾊｹｰﾝ!!
881: FOX ★ 04/12/16 06:01:57 ID:??? AAS
あっちゃ
882: 動け動けウゴウゴ２ちゃんねる 04/12/16 08:05:42 ID:B1hghx5+(1/2)調 AAS
ﾄﾞﾝﾏｲ
883: ◆MOMOwomoIk 04/12/16 08:29:08 ID:BfLokOIn(1)調 AAS
887のレスに弊社の社運を感じる。
884(1): 動け動けウゴウゴ２ちゃんねる 04/12/16 11:43:24 ID:/xbD7FnK(1)調 AAS
>850
my $idnum = md5_hex($tane);
$md5->add(substr($idnum,-4));
substrの-4って何だろう
IDの種類を制限するためのものだろうか
885(1): 未承諾広告※ ◆TWARamEjuA 04/12/16 12:35:25 ID:YtBnLjWr(1/4)調 AAS
>>884
65536種類に限定しているので、ごく希に違うホストなのに同じIDが出てアタフターな事が起こっているようなのです。
886: 04/12/16 14:01:03 ID:jwRKr/sP(1)調 AAS
>885
もしIDが(1日,1板で)65536種類に限定されているとするならば、
2つの別々のホストから同じIDが出る確率は(1日あたり)次の通りとなる
住人数 確率
2: 0.0015%
50: 1.8523%
100: 7.2784%
150: 15.6881%
200: 26.2109%
250: 37.8447%
300: 49.6112%
400: 70.4809%
500: 85.1681%
1000: 99.9529%
…………到底 'ごくまれ' とはいえないな
単に '気づかないことが多い' だけだったのか
887(1): 動け動けウゴウゴ２ちゃんねる 04/12/16 14:17:41 ID:/1N3Xz1b(1)調 AAS
>>877へ
888: FOX ★ 04/12/16 14:20:53 ID:??? AAS
ID 生成部変更するなら今がチャンス !!
この機械を逃がすと・・・ 二度と変更されないかもだ
889: 動け動けウゴウゴ２ちゃんねる 04/12/16 14:24:02 ID:tP8FWzwJ(1)調 AAS
マッシーン
890: 某ソレ47 ◆ap/yuix/tw 04/12/16 14:25:05 ID:WAdG0w73(1)調 AAS
perl分からないよう。
この際IDの桁数を増やすとかどうでしょ。
上下前次1-新書関写板覧索設栞歴
あと 111 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ
ぬこの手 ぬこTOP 0.174s*