ぜろちゃんねるスクリプトを改造するスレ

1 ：名無しさん＠０ちゃんねる：2003/03/03 23:49 ID:ex.0cnXQ

ぜろちゃんねるスクリプトに、
haneやらkageやらdameやら
teletypeやらpreやらnukeanasanやら
おみくじやら何やらの機能を付けたりして改造するスレです。

527 ：7M. ◆dq7M./4Uw. ：2005/06/24(金) 22:19:33 ID:???0

本文に直接アイコンを付け加えてしまえば、
index.htmlいぢらなくても問題ないと思いますヨ。

要するに、挿入してるAAがタグに変わるだけのモンだと思ってもらえれば。

528 ：名無しさん＠ぜろちゃんねる：2005/06/27(月) 18:56:42 ID:???0

質問スレと悩んだのですが、こちらに投稿します。

050605を使っています。

>>408-410を参考にスレッドキーを指定し強制ID化はできました。

それでスレッドタイトルの部分一致で強制ID化できると良いと思ったのですが、
どう改造して良いか解りません。
（"管理"・"実況"等特定の単語が入っていると強制IDというような動作にしたい)

よろしければ改造のポイントを教えてください。

529 ：7M. ◆dq7M./4Uw. ：2005/06/27(月) 22:29:52 ID:???0

my $host = $Form->Get('HOST');の下にこれ追加
my $subject = $Form->Get('subject');
んで
if($subject=~/管理/){my $force = 1;}
ほんで
if (($Set->Equal('BBS_FORCE_ID','checked'))||$force){
return " ID:$id";
}

※例によって例の如く動作未確認

530 ：7M. ◆dq7M./4Uw. ：2005/06/27(月) 22:32:27 ID:???0

あ、改変部分は全部galadriel.pl内のsub GetIDPart部分ですにょるり。

531 ：名無しさん＠ぜろちゃんねる：2005/06/27(月) 23:37:51 ID:???0

>>529-530
素早い回答有り難うございます。

試してみましたが上手くいきません。

my $subject = $Form->Get('subject');
で$subjectにスレッドタイトルが入っていないようです。
(IDの代わりに$subjectを表示させてみましたが、何も表示されなかったので)

私の勘違いかもしれないので、もう少し試してみます。

532 ：7M. ◆dq7M./4Uw. ：2005/06/28(火) 15:28:33 ID:???0

ぁぅぁ、すみませぬ、
my ($Set,$Form,$Sec,$id,$capID,$agent) = @_;
を
my ($sys,$Set,$Form,$Sec,$id,$capID,$agent) = @_;
にしてちょんまげ。。。
これで駄目ならまぁ実際我が動かしてみて何とかします。
もっへり。

533 ：名無しさん＠ぜろちゃんねる：2005/06/30(木) 23:09:35 ID:???0

>>532
駄目みたいです。自分が勘違いしているだけな気がしてきた・・・
何度も手を煩わせて申し訳ありません。

週末、もう一度挑戦してみます。

534 ：7M. ◆dq7M./4Uw. ：2005/07/01(金) 23:35:46 ID:???0

すみませぬ、私が間違っていた…。我ながらなに阿呆な事やっとんじゃ、
sub GetIDPart
{
my $this = shift;
my ($Set,$Form,$Sec,$id,$capID,$agent) = @_;
my $host = $Form->Get('HOST');
my $subject = $Form->Get('subject');
my $mode = '';
my $force;
if($subject=~/test/){$force = 1;}

$force and return " ID:$id";
(以下オリジナルと同じ)

これで大丈夫だヴぁー。ちゃんと動かしたヴぁー。
にしても描き方汚いなー。。。

535 ：名無しさん＠ぜろちゃんねる：2005/07/02(土) 20:33:05 ID:???0

>>534
何度も有り難うございます。

そのままソースコピペしたけど、うまくいかないので
明日じっくり挑戦してみます。

536 ：7M. ◆dq7M./4Uw. ：2005/07/02(土) 22:40:57 ID:???0

あ、そのままコピペしただけじゃ駄目ですよん。
if($subject=~/test/){$force = 1;}
のtestの部分を"管理"とか"実況"とかにかえないと。

537 ：名無しさん＠ぜろちゃんねる：2005/07/03(日) 00:56:48 ID:???0

>>536
勿論、それは変更してますｗ
なんで上手くいかないんだろう？

一応逆にtestってスレも作ってみたんですけど。

538 ：7M. ◆dq7M./4Uw. ：2005/07/03(日) 11:29:42 ID:???0

それは…なんでだろう。
こっちではちゃんと動いてますけど、、、
一応モジュールそのまま丸上げしときますです。
http://newsplus.jp/~lab/cgi-bin/galadriel_forceid_pl.txt

539 ：名無しさん＠ぜろちゃんねる：2005/07/03(日) 20:03:26 ID:???0

>>538
さくら鯖、xrea鯖で試したんですけど駄目ですね。
パーミッションとか間違えているのかな・・・。

落ち着いてじっくりやってみます。何度もありがとうございました。

540 ：7M. ◆dq7M./4Uw. ：2005/07/04(月) 21:15:45 ID:???0

ふーむ。謎ですねぇ。
パーミッションが間違ってたら0chのシステム自体が動かないような気がするですけど、、、

#外部モジュール作っちゃったほうがいいかな、、、

541 ：名無しさん＠ぜろちゃんねる：2005/07/23(土) 07:01:13 ID:sTNHCj3c0

投稿欄にURL記入枠をつけることは可能でしょうか？
今は名前とE-mail、（タイトル）を記入しますよね？
これにURLをくわえたいんです。

542 ：名無しさん＠ぜろちゃんねる：2005/07/23(土) 08:03:58 ID:???0

加えるのは簡単だけど、専ブラが一切使えなくなるよ。

543 ：名無しさん＠ぜろちゃんねる：2005/07/23(土) 09:00:40 ID:sTNHCj3c0

専ブラは使ってないのでぜんぜんokです！

544 ：URL記入枠：2005/07/30(土) 18:21:02 ID:35OZ6wAI0

やっぱり難しいですか？

545 ：7M. ◆dq7M./4Uw. ：2005/07/30(土) 23:39:42 ID:???0

まぁ、あんまり難しくは…。ただ面倒臭いとゆーか、(汗
モジュールの中からindex.html吐き出してる部分を探す
↓
url記入欄を作る
↓
read.cgiの吐き出し部にも書き加える。
↓
新規スレッド作成画面にも(略
↓
送られてきたurlデータをメッセージにくっつける外部モジュールを作る。
(既存のモジュールに追加するのも可能)

とまぁこんなかんじかすぃら。

546 ：haha：2005/07/31(日) 16:57:31 ID:vZusvkco0

efee

547 ：c：2005/07/31(日) 16:59:13 ID:vZusvkco0

c

548 ：名無しさん＠ぜろちゃんねる：2005/08/22(月) 20:25:31 ID:iUDobpkM0

最新レスがついたスレを、１つのファイルで表示できるようにしたいんですけど、どうすればいいんでしょうか？
livedoorブログとかyahooブログの「最新の更新ブログ一覧」のような感じです。

549 ：名無しさん＠ぜろちゃんねる：2005/08/22(月) 22:11:13 ID:???0

>>548
旧バージョン＋ヘッドライン

550 ：名無しさん＠ぜろちゃんねる：2005/08/22(月) 23:39:07 ID:iUDobpkM0

>>549
どういうことですか？

551 ：◆hikArinCL2 ：2005/08/22(月) 23:48:45 ID:???0

>>550
現在のバージョンのbbss.cgiのログフォーマットに対応していないためです

http://www.0ch.info/d/ (headline.cgiが該当)
http://www.0ch.info/test/headline.cgi　(こんな感じ)

552 ：名無しさん＠ぜろちゃんねる：2005/08/23(火) 10:45:26 ID:???0

>>551
ありがとうございます。perlの知識がほとんどない私には改造は無理っぽいです。

553 ：名無しさん＠ぜろちゃんねる：2005/08/25(木) 12:19:53 ID:fphjLDbQ0

IDの後ろに文字を入れたいのですが、どこをいじればいいか
さっぱりわからなくて困っています。

↓このIDの後ろの、「0」みたいに文字を入れたいのですが・・・。
0 ：名無しさん＠ぜろちゃんねる ：03/10/14 19:19 ID:???0

554 ：masa(ry：2005/08/25(木) 17:44:46 ID:???0

|´Д｀)

555 ：名無しさん＠ぜろちゃんねる：2005/08/25(木) 22:36:07 ID:???0

>>554
なんか久しぶりに見た。。

556 ：名無しさん＠ぜろちゃんねる：2005/08/26(金) 12:48:35 ID:I6py2ZOU0

Beのような機能を追加することはできませんか？

557 ：名無しさん＠ぜろちゃんねる：2005/08/27(土) 11:53:08 ID:???0

Beってなに？

558 ：名無しさん＠ぜろちゃんねる：2005/08/27(土) 22:06:21 ID:98VMv66+0

http://be.2ch.net/
be2chのことじゃね？

559 ：7M. ◆dq7M./4Uw. ：2005/08/28(日) 12:44:23 ID:???0

beのどの機能を追加したいんだろう。。。
ログインしないと書き込めないようにするヤツなら昔作ったのの流用でいけるかも。
だけど今PCあぼーんでPerlが動かない悲劇。

560 ：名無しさん＠ぜろちゃんねる：2005/08/28(日) 15:13:07 ID:KqKj1vOA0

>>559
pcあぼーん(´Д`)…。大変そうだな…。
ログインしないと書き込めない掲示板のスクリプツﾎｽｨ( ﾟДﾟ)…。

561 ：名無しさん＠ぜろちゃんねる：2005/08/28(日) 15:18:00 ID:???0

beのどんな機能ってポイント（?##）とかログインしないと書き込めｎ（ｒｙ
とかの機能だと、、思う。たぶん

562 ：7M. ◆dq7M./4Uw. ：2005/08/28(日) 19:40:36 ID:???0

beのログイン機能はですね。
クッキーにパスワードとかを吐かせておくんです。
んで、bbs.cgi自体はクッキーを調べ、
見つからなかったらエラーを出す。
一応昔作ったクッキーにパス吐き出すスクリプトだけ置いときます、
後0chスクリプトの改造は誰か他の人に任せちゃえ。。。
あるいは私のPCが復活するのが先か。
ttp://newsplus.jp/~lab/cgi-bin/resist.txt

563 ：名無しさん＠ぜろちゃんねる：2005/08/29(月) 14:20:03 ID:mQK6BAu+0

auのサブスクライバIDを取得するようにgaladriel.plを改造してみたんですが大丈夫そうですか？
au,docomo,PCで確認しましたがエラーなしでした。でも知識がないので心配です。

# エージェントモード取得 - GetAgentMode
sub GetAgentMode
{
my $this = shift;
my ($UA) = @_;

$_ = $UA;
if (m/DoCoMo/){ return 1; } # docomo携帯
if (m/J-PHONE/){ return 2; } # J-Phone携帯
if (m/KDDI/){ return 3; } # au携帯
if (m/DDIPOCKET/){ return 4; } # エアエッジホン

return 0;
}

564 ：名無しさん＠ぜろちゃんねる：2005/08/29(月) 14:21:10 ID:mQK6BAu+0

# リモートホスト(IP)取得関数 - GetRemoteHost
sub GetRemoteHost
{
my $this = shift;
my ($HOST,$HOST2);
if(m/KDDI/){
$HOST = $ENV{'HTTP_X_UP_SUBNO'};
$HOST2 = "";

$HOST2 = gethostbyaddr(pack('c4', split(/\./, $HOST2)), 2);
$HOST .= "<$HOST2>" if ($HOST2);

return $HOST;
}else{

565 ：名無しさん＠ぜろちゃんねる：2005/08/29(月) 14:22:11 ID:mQK6BAu+0

$HOST = $ENV{'REMOTE_ADDR'};
$HOST2 = "";

if ($HOST =~ /\d$/) {
$HOST = gethostbyaddr(pack('c4',split(/\./, $HOST)), 2) || $HOST;
}
if ($ENV{'HTTP_VIA'} =~ s/.*\s(\d+)\.(\d+)\.(\d+)\.(\d+)/$1.$2.$3.$4/) {
$HOST2 = $ENV{'HTTP_VIA'};
}
if ($ENV{'HTTP_X_FORWARDED_FOR'} =~ s/^(\d+)\.(\d+)\.(\d+)\.(\d+)(\D*).*/$1.$2.$3.$4/){
$HOST2 = $ENV{'HTTP_X_FORWARDED_FOR'};
}
if ($ENV{'HTTP_FORWARDED'} =~ s/.*\s(\d+)\.(\d+)\.(\d+)\.(\d+)/$1.$2.$3.$4/) {
$HOST2 = $ENV{'HTTP_FORWARDED'};
}
$HOST2 = gethostbyaddr(pack('c4', split(/\./, $HOST2)), 2);
$HOST .= "<$HOST2>" if ($HOST2);

return $HOST;
}
}

566 ：名無しさん＠ぜろちゃんねる：2005/08/30(火) 15:30:11 ID:JS1HSwls0

名前のところが空欄の人をNGにしたいのですがどうやったらできますか？
空欄というのは名無しのことじゃなくてスペース「　」を名前にしていることです。

567 ：名無しさん＠ぜろちゃんねる：2005/08/31(水) 07:02:16 ID:???0

>>566
NGな名前登録できなかったっけ？＞0ch

568 ：名無しさん＠ぜろちゃんねる：2005/08/31(水) 12:24:28 ID:XxuCC9io0

名前の欄と本文の欄のNGワードって分離されてましたっけ？

569 ：◆hikArinCL2 ：2005/09/10(土) 23:27:33 ID:???0

NGワードは欄ごとに分離されていません。一括処理です
NGワード関連は030614は本文のみをチェック、
それ以降のバージョンは名前、メール欄、本文をチェックします

570 ：名無しさん＠ぜろちゃんねる：2005/10/15(土) 22:47:06 ID:yplNHM860

何度か流されてるけど、昔あったrawmode実装できない？
http://gedoh.org/aki/2ch/current/bbs/rawmode.txt

571 ：名無しさん＠ぜろちゃんねる：2005/11/08(火) 00:46:58 ID:3WOTeOxc0

051008の携帯のメール欄表示の方法を教えて下さい。

572 ：名無しさん＠ぜろちゃんねる：2005/11/08(火) 07:29:51 ID:3WOTeOxc0

051008の連投解除方法も。

結構設定変わってて分からないです。

573 ：名無しさん＠ぜろちゃんねる：2005/11/10(木) 00:19:58 ID:???0

>>572
自分も知りたいです。

574 ：◆hikArinCL2 ：2005/11/10(木) 00:44:33 ID:???0

*「連続投稿規制解除」を有効にしたグループに所属するキャップを使用する
*連続書き込み回数が書き込みログ保存数を上回るように設定する
*vara.plの385-389行目をコメントアウトしてなかったことにする

575 ：571・572：2005/11/12(土) 13:45:37 ID:r7ofHhXw0

>573
お互い頑張ろうな。

>574
有難う。
3番目を実行してみました。

576 ：名無しさん＠ぜろちゃんねる：2005/11/14(月) 01:36:01 ID:G5UE27io0

ちとテスト

577 ：２ちゃんねるＸ ◆2ch..Ybe0Q ：2005/11/14(月) 01:43:09 ID:G5UE27io0

管理人さんへ

0chの開発お疲れ様です。
この度、「２ちゃんねるＸ」が製作、利用しております、
2ch同仕様「Samba24」のプレゼンに参りました。

http://sys.2chx.net/_samba24/use_out.html
上記URLに詳細があります（PHPでの使用法ですが）
私はPerlはわからないので、改造お願いします。

CGIにて、「http://sys.2chx.net/_samba24/samba24.php?host=$host&limit=$limit」にアクセスしていただけましたら、
"$host"からのシステムへのアクセスに対し、"$limit"秒間だけ、警告（2chと同じデザインの。）を返します。
"$host"が違うかったり、"$limit"秒を過ぎると、警告を返しません（返答なし）。

よろしくお願いいたします。
（2chx「Samba24」の動作テストは、 http://qb5.2chx.net/test/read.cgi/operate/1006103754/l50 でどうぞ。）

578 ：名無しさん＠ぜろちゃんねる：2005/11/14(月) 03:26:31 ID:???0

なんつーかいちいち外部サーバーへ問い合わせってのがウザい。
多分、
1. 書き込み時にログファイルへIPと時間を記録
2. 次書き込み時にログファイルをチェック→時間内だったらアウト
って感じでimg0chでも実装してあると思うけど。

つーかいろいろ荒らしまくってるそーじゃないですかぁ。
ということで、宣　伝　乙　！

579 ：名無しさん＠ぜろちゃんねる：2005/11/14(月) 03:28:52 ID:???0

荒らし→宣伝ね

580 ：◎：2005/11/23(水) 04:03:42 ID:v3QO6i9c0

あ

581 ：名無しさん＠ぜろちゃんねる：2005/12/08(木) 22:37:39 ID:???0

test051113ver使わせてもらっています。
NGワードの編集では、どんなNGワードでも同一文字列に置換されてしまいますが
これを文字列によって別々に置換することは出来ないでしょうか？
例えば「死ね」だったら「生きろ」、「（　＾ω＾）」だったら「（　´∀｀）」みたいに。
管理画面からでもプラグイン等で編集でもどちらでもいいのでよろしくお願いします。

582 ：◆hikArinCL2 ：2005/12/09(金) 00:50:22 ID:???0

管理画面からの個別置換は不可能ですがプラグインならソースを
編集することによって可能になります
@tag変数をカンマの左にNGワード、カンマの右に置換文字列を入れて
変更することで文字列を好きなように置換できますが多すぎると
遅くなるので注意です
↓こんな感じ
package ZERO_PLUGIN;
use strict;
sub new { bless {}, $_[0] }
sub getName { 'NGワード置換機能\' }
sub getExplanation { 'NGワードを特定の文字列を置換する(複数指定可)' }
sub getType { 1 | 2 }
sub execute {
$_[2]->Set('FROM',_replace($_[2]->Get('FROM')));
$_[2]->Set('mail',_replace($_[2]->Get('mail')));
$_[2]->Set('MESSAGE',_replace($_[2]->Get('MESSAGE')));
$_[2]->Set('subject',_replace($_[2]->Get('subject')));
}
sub _replace {
my $src = shift;
my @tag = ('死ね,生きろ','（　＾ω＾）,（　´∀｀）');
foreach my $one (@tag){
my($key,$var) = split(/,/,$one);
$key = qr($key);
$src =~ s/$key/$var/g;
}
return $src;
}
1;

583 ：◆hikArinCL2 ：2005/12/09(金) 00:54:37 ID:???0

注意
「表示」といった文字列を入れると置換されないので
特に正規表現を使わないのであれば
$key = qr($key);
を
$key = qr(\Q$key\E);
に変更すれば「表示」でも置換可能になります

584 ：名無しさん＠ぜろちゃんねる：2005/12/09(金) 22:39:02 ID:???0

>>582-583
◆hikArinCL2さんどうもありがとうございました。
報告遅くなってどうもすいません、ただ今動作確認したところ完璧に動きました。
NGワード置換は5つくらいまでで済む予定なので大丈夫だと思います。

585 ：名無しさん＠ぜろちゃんねる：2005/12/19(月) 21:03:59 ID:PP7Q2mS60

>574
具体的にどうやるんですか？

コメントアウトしただけじゃ連投規制を解除出来ないんですが。

586 ：◆hikArinCL2 ：2005/12/19(月) 21:51:12 ID:???0

>>585
バージョンによるけど>>574は051008の話だから
現在の最新版である051113の場合は423-427行目をコメントアウト
なのでなるべくならソースをいじらなくてすむ上記2つのいずれかを
行うようにしましょう

ちなみに>>574を051113に適用するとスレッド新規作成時にキーが
同じスレッドが上書きされる問題が発生するのでやらないように

587 ：名無しさん＠ぜろちゃんねる：2005/12/21(水) 03:18:19 ID:???0

>>hikarin
mod_0chがDLできなくなってる？

588 ：◆hikArinCL2 ：2005/12/21(水) 22:12:27 ID:???0

ダウンロードページのmod_0chの上のリンク(DL)が切れていたので修正しました

589 ：厨房 ◆/GgRTOxpqo ：2005/12/22(木) 15:15:59 ID:T6DC8XUY0

どうも初めまして
あの質問なんですが私が使ってるスクリプトは一番最近の
051113なんですが・・IDを？？？にするにはどうすれば言いのでしょうか
教えてください・・よろしくお願いいたします

590 ：ゆらいざ：2005/12/22(木) 16:28:36 ID:???0

0chスクリプト英語版がほしかとです…

７割方英訳したところで力尽きました
休憩したら再開するツモリではありますが…
誰かindexのテンプレが格納されてるトコ知らないですかー？

591 ：名無しさん＠ぜろちゃんねる：2005/12/23(金) 02:39:03 ID:tQQNqZHQ0

051113に対応している
RSS出すアシストって
ないですか？

592 ：◆hikArinCL2 ：2005/12/23(金) 23:53:45 ID:???0

>>589
「掲示板設定」 -> 「制限設定」 -> 「ID表示」
で「任意ID」に設定し、メール欄に何か書けばIDが???になります
キャップを作成し、それを使うことで???にすることも可能
>>590
indexのテンプレが何なのかがよく分からない問題が
>>591
ありません。自分で作るしかない

593 ：厨房 ◇/GgRTOxpqo ：2005/12/24(土) 23:34:24 ID:YP0LDc3o0

ありがとうございます・・
無事出来ました・・_(._.)_>>592

594 ：nukeanasan：2005/12/30(金) 21:40:46 ID:TZZup2jI0

a

595 ：名無しさん＠ぜろちゃんねる：2006/01/03(火) 08:57:55 ID:QQSuLxuA0

明けましておめでとうございます。

携帯で新着レスを上に持ってくるように、
上下逆にするにはどうしたら良いですか？

596 ：名無しさん＠ぜろちゃんねる：2006/01/04(水) 09:20:35 ID:51de9MVc0

Tableタグ(?)そのものを変えるのはどうのようにしたら良いのでしょうか？

597 ：名無しさん＠ぜろちゃんねる：2006/01/04(水) 11:18:45 ID:???0

>>595
たぶんr.cgiの248行目を変える

>>596
tableタグそのものを変更すればいい

598 ：名無しさん＠ぜろちゃんねる：2006/01/07(土) 02:00:59 ID:???0

test041030で>>430を使わせてもらってます。
キャップのみBBQから解放されることは可能でしょうか？
よろしくお願いします。

599 ：名無しさん＠ぜろちゃんねる：2006/01/08(日) 23:26:40 ID:???0

>>598
改造すれば可能。

600 ：598：2006/01/09(月) 00:39:13 ID:???0

>>599
ありがとうございます。改造の仕方教えていただけないでしょうか？
どうかよろしくお願いします。

601 ：599：2006/01/09(月) 16:43:38 ID:???0

varda.pl 358行目あたり
if ($G->IsProxy($host)){
を
if ($G->IsProxy($host) && !$U->HasAuthority(19,$bbs)){

khazad.pl 2400行目あたり
'携帯からのスレッド作成','コテハン★表示','Samba規制解除'
を
'携帯からのスレッド作成','コテハン★表示','Samba規制解除','Proxy規制解除'

でいけると思う。適当にデバッグしてください。

602 ：名無しさん＠ぜろちゃんねる：2006/01/09(月) 23:51:51 ID:nmKV79po0

>>597
すいませんが
具体的に教えてくれませんか？

603 ：598：2006/01/11(水) 19:04:03 ID:???0

>>601
ありがとうございます。
やってみたのですがなぜか弾かれてしまいました。orz

604 ：599：2006/01/12(木) 00:22:37 ID:???0

>>603
こちらの環境では動作しています。
おそらく、管理画面でキャップグループの変更を忘れているのではないでしょうか。
管理画面->キャップグループ管理において、新たに'Proxy規制解除'が追加されているはずなので選択してみてください。

605 ：vt ◆2AhTo3cK3M ：2006/01/15(日) 15:21:07 ID:2KY7WZfU0

要望とかはここでいいのかな。。。

2ch掲示板では、名前欄に復帰を入れると”復帰”になります。
一応、この仕様も次期バージョンから入れるといいんじゃないかな。

module/galadriel.plの禁則文字変換 - ConvertCharacterに
$$data =~ s/復帰/”復帰”/g;
を書き加える感じで。

606 ：名無しさん＠ぜろちゃんねる：2006/01/15(日) 15:55:51 ID:???0

新機能要望スレ
http://0ch.mine.nu/test/read.cgi/jikken/1032096360/l50

一応こうゆうスレがあるけど、分かればいいんじゃないかな。

607 ：名無しさん＠ぜろちゃんねる：2006/01/17(火) 05:39:48 ID:???0

http://0ch.mine.nu/test/read.cgi/jikken/1043331322/795-798　の続き。
設定値と実際のログ保存数の食い違いを修正します。

vara.pl
sub IsRegulation

順に
$LOG->Search($host,1) → $LOG->Search($host,1,$oSET->Get('BBS_THREAD_TATESUGI'))
$LOG->Search($host,2) → $LOG->Search($host,2,$oSET->Get('timecount'))
$LOG->Search($host,1) → $LOG->Search($host,1,1)

peregrin.pl
sub Search

my ($data,$f) = @_;
↓
my ($data,$f,$ln) = @_;

for ($i = $num - 1;$i >= 0;$i--){
↓
for ($i = $num - 1;$i >= 0;$i--){
if($i == $num - $ln - 1){last;}

for ($i = $dat - 1;$i >= 0;$i--){
↓
for ($i = $dat - 1;$i >= 0;$i--){
if($i == $dat - $ln - 1){last;}

↓つづく

608 ：名無しさん＠ぜろちゃんねる：2006/01/17(火) 05:42:03 ID:???0

peregrin.pl
sub Set

if ($kind == 1 && $nm >= $this->{'MAX'}){ $bf = 1; }
elsif ($kind == 2 && $nm >= $I->Get('BBS_THREAD_TATESUGI')){ $bf = 1; }
elsif ($kind == 3 && $nm >= $I->Get('timecount')){ $bf = 1; }
↓
if ($kind == 1){ $bf = 1 + $nm - $this->{'MAX'}; }
elsif ($kind == 2){ $bf = 1 + $nm - $I->Get('BBS_THREAD_TATESUGI'); }
elsif ($kind == 3){ $bf = 1 + $nm - $I->Get('timecount'); }

if ($bf){
shift(@{$this->{'LOG'}});
$this->{'NUM'} --;
}
↓
if ($bf >= 1){
splice(@{$this->{'LOG'}},0,$bf);
$this->{'NUM'} -= $bf;
}

以上。

609 ：名無しさん＠ぜろちゃんねる：2006/01/18(水) 07:21:59 ID:???0

ついでにひとネタ。
/datおよび/poolにて、
subject再作成（全更新）時に、元のsubject.txt/cgiがあれば、
その並び順を新しいsubject.txt/cgiに反映させる修正です。
全更新の際にスレの並び順がリセットされなくなります。

baggins.pl
BILBO::UpdateAll および FRODO::UpdateAll

370行目、および714行目の
my (@dirSet,$id,$base,$n,$num,$first,$dumy,$subj);
と、372行目、および716行目の
undef($this->{'SUBJECT'});
の間、２ヵ所それぞれに以下を追加

my @sort;
if ($this->{'NUM'}){
@sort = @{$this->{'SORT'}};
}

↓つづく

610 ：名無しさん＠ぜろちゃんねる：2006/01/18(水) 07:23:12 ID:???0

384〜403行目、および728〜747行目の
foreach $el (@dirSet){
　(省略)
}
と、404行目、および748行目の
$this->{'NUM'} = $num;
の間、２ヶ所それぞれに以下を追加

if ($this->{'NUM'}){
foreach $dumy (@sort){
$n = 0;
foreach $id (@{$this->{'SORT'}}){
if ($id eq $dumy){
splice(@{$this->{'SORT'}},$n,1);
push(@{$this->{'SORT'}},$id);
last;
}
$n++;
}
}
}

以上
バージョンは051231です。

611 ：名無しさん＠ぜろちゃんねる：2006/01/18(水) 20:44:20 ID:???0

>>609-610
041030でもできますか？

612 ：名無しさん＠ぜろちゃんねる：2006/01/23(月) 21:44:05 ID:aOE6EDHs0

（＝ﾟωﾟ）ノぃょぅ
君たちには一生童貞になる催眠術をかけた。
しかし君たちは運がいい。

http://music4.2ch.net/test/read.cgi/suisou/1131629001/

↑このスレに


「相手の意思など関係ない、それがVIP　Quality」


と書き込めば催眠術は解ける。
では、健闘を祈る。

613 ：名無しさん＠ぜろちゃんねる：2006/01/26(木) 05:29:53 ID:m9Q2412EO

041030を使っています。
特定の携帯のサブスクライバIDからの書き込みを弾きたいのですが、どうすればいいのでしょうか？

614 ：◆hikArinCL2 ：2006/01/26(木) 22:53:07 ID:???0

galadriel.plのGetRemoteHost関数にある
$HOST .= "<$HOST2>" if ($HOST2);
の下に次のコードを書き足せばホストの前にauのサブスクライバIDが
加えられるのでアクセス規制編集でそのサブスクライバIDを追加する

if ($ENV{'HTTP_USER_AGENT'} =~ /UP\.Browser/) {
$HOST = join ' ', $ENV{'HTTP_X_UP_SUBNO'}, $HOST;
}

615 ：名無しさん＠ぜろちゃんねる：2006/01/27(金) 13:14:36 ID:kQnjPJ8gO

>>614
ありがとうございます。やってみます。

616 ：名無しさん＠ぜろちゃんねる：2006/01/28(土) 02:32:43 ID:6BueJLd20

ロボット検索逃れのつもりでbbs.cgiの
「# HTMLヘッダの出力」の項目の2行目「$Page->Print('<html><head>」以降に
<mata NAME="Robots" CONTENT="noindex, nofollow"> を追記しアップロード（上書き）して
レスやスレッド作成しましたがhtmlの方へは反映されませんでした。

どうすればよいのでしょうか

617 ：名無しさん＠ぜろちゃんねる：2006/01/28(土) 03:24:49 ID:???0

>>616
バージョン書け

618 ：名無しさん＠ぜろちゃんねる：2006/01/28(土) 13:23:37 ID:XHDG5DuY0

test051231です

619 ：名無しさん＠ぜろちゃんねる：2006/01/28(土) 14:04:37 ID:???0

>>618
index.htmlが作成されるのはvarda.plだ。
そっちを変更しろ。

620 ：613：2006/01/29(日) 19:19:28 ID:PQffHna20

>>614
DoCoMoやVodaの端末固有番号で規制することも可能でしょうか？

621 ：◆hikArinCL2 ：2006/02/03(金) 00:17:23 ID:???0

>>616
[各種編集] -> [META情報の編集]
でロボット回避のタグを埋め込む

>>620
(動作保障はなし)
my $agent = $ENV{'HTTP_USER_AGENT'};
if ($agent =~ /DoCoMo/) {
my $serial = '00000000000'; # ダミー
if ($agent =~ m|/ser(\w{11})$|) {
$serial = $1;
}
elsif ($agent =~ /;ser(\w{15});/) {
$serial = $1;
}
$HOST = join ' ', $serial, $HOST;
}
elsif ($agent =~ /UP\.Browser/) {
$HOST = join ' ', $ENV{'HTTP_X_UP_SUBNO'}, $HOST;
}
elsif ($agent =~ /^Vodafone/) {
$HOST = join ' ', ([split(/\//,$agent)]->[4]), $HOST;
}
elsif ($agent =~ /J-PHONE/) {
$HOST = join ' ', ([split(/\//,$agent)]->[3]), $HOST;
}

622 ：名無しさん＠ぜろちゃんねる：2006/02/03(金) 02:04:27 ID:???0

>>621
横レスすみません
>>614のあとに続けて記述すればいいのでしょうか？

623 ：名無しさん＠ぜろちゃんねる：2006/02/03(金) 08:56:43 ID:???0

>>621
Vodafoneの一部の機種には、UAに'UP.Browser'を含むものがあるので、
先にVodafoneの振り分けをしたほうがいいです。

>>622
君は改造とかしないであきらめたほうがいいよ。

624 ：613：2006/02/04(土) 16:21:09 ID:???0

>>621>>623
ありがとうございます。
試してみましたが、「00000000000」がそのままホストの前に表示されてしまいました。
auやVodafone、J-PHONEでは未確認です。解決策、並びに
携帯からの書き込みの場合、IDをホストからではなく端末固有番号から生成する方法を
もしご存知でしたらご教授頂ければ幸いです。
重ね重ね済みません。

625 ：名無しさん＠ぜろちゃんねる：2006/02/04(土) 16:39:13 ID:???0

utn

626 ：名無しさん＠ぜろちゃんねる：2006/02/26(日) 17:09:18 ID:???0

>>470を参考にして、自動で新スレを立てるプラグインを作ろうとして、
今の仕様では出来ないことがわかりました。
（他のプラグインを一切使用しないのなら使えますが。）
いちおう、不具合報告しとこう。

627 ：626：2006/02/28(火) 19:27:27 ID:???0

その後よく考えたら前の仕様でも出来ることがわかりました。（ぉ
でも不具合だったことは確かなのでまぁいいかなと。

そんなこんなで作ってみました。
指定レス数の書き込みがあると自動で新スレを立てるプラグインです。
http://a1or4qsl6.hp.infoseek.co.jp/okiba/index.html