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

1 ：名無しさん＠０ちゃんねる：2003/03/03 23:49 ID:ex.0cnXQ: ぜろちゃんねるスクリプトに、
haneやらkageやらdameやら
teletypeやらpreやらnukeanasanやら
おみくじやら何やらの機能を付けたりして改造するスレです。
375 ：名無しさん＠ぜろちゃんねる：04/06/25 17:03 ID:ALI9kTwA: >81
325のJoyful2ch-MeですがURLが変わってしまいました
http://www.supra.cx/index.html
376 ：名無しさん＠ぜろちゃんねる：04/07/08 10:09 ID:YT78faYY: ０ちゃんねるを利用させてもらってます、凄く良いシステムですよね。
この掲示板の発言数ランキング機能をつけたいのですが
Perlの素人ができるものでしょうか？既存のCHATや掲示板のランキング
のスクリプトを流用して可能ならば、大まかな方法をそれとなく教えて
もらいたいです。いきなりすみません・・・
377 ：376：04/07/08 10:10 ID:YT78faYY: http://www.cj-c.com/sp/cbbs.cgi?mode=ran&no=2
http://www.cj-c.com/sample/upb.cgi?mode=ran
こんなのです。。
378 ：7M. ◆dq7M./4Uw. ：04/07/08 13:25 ID:???: ttp://moreover.hp.infoseek.co.jp/cgi-bin/rescnt.txt
ちゃんと動かしてないから正常に作動するかはしらないけど、（無責任
379 ：376：04/07/08 17:51 ID:YT78faYY: >>378 7Mさん、ありがとうございます！組み込んでみます。
うまくできたら報告しまーす！
380 ：名無しさん＠ぜろちゃんねる：04/07/08 19:22 ID:???: 一様通りすがりですが、使って見ました。

161行目の
($path,$name) = split /=/;
の部分を
($path,$name) = split /<>/;
に変えたらできました。
381 ：名無しさん＠ぜろちゃんねる：04/07/09 11:33 ID:???: >>378 これを設置してみたいんですが、どこのフォルダに
おけばいいんですか？
382 ：名無しさん＠ぜろちゃんねる：04/07/09 16:32 ID:NSiPdQFk: testディレクト内
383 ：376：04/07/09 19:19 ID:bkjKLtNI: できましたー！７Mさんありがとうございました！
384 ：名無しさん＠ぜろちゃんねる：04/07/15 17:53 ID:???: 2chのread.cgiのように最新のレスを含まないときに「新着レスの表示」を「続きを読む」に変えられないでしょうか？
また、1000に達したときにここの部分を表示しないように出来ませんか？

どなたか宜しくお願いします。
385 ：名無しさん＠ぜろちゃんねる：04/07/15 21:44 ID:???: >>384
2chでも最新のレスを含まないときに「新着レスの表示」になるよ。
っていうか、2ｃｈの場合は昼間と全部読めない時間帯でそういう点など
いくつか微妙に表示が変わる部分がいくつかあるんだよね。
386 ：名無しさん＠ぜろちゃんねる：04/07/15 23:10 ID:???: >>384
２ちゃんの動きがそうなら、正式版で対応してもらえると思うので
そっちにかいた方がいいかも。
このスレは２ちゃんに無い機能とかをつけるためのスレだから。
（でも、最近リリースが無いのでここでもいいような気もするけど）
387 ：384：04/07/16 19:50 ID:???: >>385
いくつかの鯖を見ましたが、やはり最新のレスが含まれないときには
「続きを読む」と文字列が変わるようですが、こちらの勘違いなのでしょうか？
（こちらの言葉足らずだったかも知れません。手を煩わせて申し訳ないです。）

>>386
ご指摘ありがとうございます。
しかし、正式に対応するものなのかどうか自信があまりありませんので、
できればこのスレでご回答いただけないでしょうか？
388 ：名無しさん＠ぜろちゃんねる：04/07/18 14:10 ID:???: >>387
read.cgiの以下の個所を変更する

・100行目を以下のように変更

PrintThreadFoot($T,$M,$G,$A);　# フッタ部分

・215行目を以下の様に変更

my　($T,$M,$G,$A) = @_;

・240行目あたりから以下のように追加・変更

if($A->GetResNum() < $rmax){
　$path = $G->CreatePath($M,0,$M->Get('BBS'),$M->Get('KEY'),"$ed-");
　if($A->GetResNum() == $ed){
　　$T->Print("<a href=\"$path\">新着レスの\表\示</a></center><hr>");
　}
　else{
　　$T->Print("<a href=\"$path\">続きを読む</a></center><hr>");
　}
}

試してないんで動かなかったら適当にデバグしてね。
あと全角空白はTABまたは半角空白にして
389 ：384：04/07/18 19:48 ID:???: >>388
わざわざご伝授いただきありがとうございます。
早速やってみたいと思います。
本当にありがとうございました。
390 ：名無しさん＠ぜろちゃんねる：04/07/18 20:19 ID:???: 管理モードで表示されるリモホが不完全なので完璧に表示されるようにしたいのです。
何か方法はありますか？ちなみに2003年10月のバージョンを使ってます。
391 ：名無しさん＠ぜろちゃんねる：04/07/21 16:41 ID:???: >>390
peregrin.pl弄ればＯＫ
392 ：名無しさん＠ぜろちゃんねる：04/07/23 14:48 ID:???: 0ch BBS 2004-02-21を使用しております。
メール欄にsageを書き込んでも下がらないようにするにはどのようにしたら宜しいのでしょうか？

もう1件ありまして、特定のスレを常時age（一番上に固定）する場合も
分かりましたらご教授下さい。
393 ：名無しさん＠ぜろちゃんねる：04/07/25 01:55 ID:???: >>391
ありがとうございました。なんとか表示されました（つД｀）
394 ：名無しさん＠ぜろちゃんねる：04/07/28 15:11 ID:???: >>392

＞メール欄にsageを書き込んでも下がらないようにする

varda.pl
223～230行目あたりのifブロックの
$B->SetAGE($M->Get('KEY'));
以外の行をすべてコメントアウト。

＞特定のスレを常時age（一番上に固定）する

鯖の負担を考えなければ、
age処理を行った後に、
常時ageスレのスレッドキーでもう一回age処理、ってのが
いちばん手っ取り早そうだけどね。
395 ：名無しさん＠ぜろちゃんねる：04/09/08 06:19 ID:DGSl0px2: ニュー速VIPの新機能使えるように改造してみないか？
http://ex7.2ch.net/test/read.cgi/news4vip/1094574635/
396 ：名無しさん＠ぜろちゃんねる：04/10/10 14:51 ID:???: >>395
もう某所で開発しているらしい。
が、向こうも忙しいようなので
向こうのサポートページで知恵を出して頂ければ有り難い。

DL元↓
http://tgu-log.hp.infoseek.co.jp/vip_quality.html

サポート
http://tgu-log.hp.infoseek.co.jp/cgi-bin/2ch/nullre/
397 ：名無しさん＠ぜろちゃんねる：04/10/19 00:27 ID:7FekWsMo: 総合質問スレの118です。
教えてもらったリンク先を見てふと気が付いたのですが、0chって書き込みログが見れますよね。
そこに、サブスクライバIDをそのまま表示するようにするにはどうやればいいのでしょうか？
現在はwbcc.s...ezweb.ne.jpという風に全て表示されない状態です。

ご指導よろしくお願いしますm(__)m
398 ：名無しさん＠ぜろちゃんねる：04/10/19 06:46 ID:???: m
399 ：名無しさん＠ぜろちゃんねる：04/10/19 23:03 ID:???: >>397
peregrin.plの190～195行目を削除
400 ：名無しさん＠ぜろちゃんねる：04/10/20 14:49 ID:oLG1dLHk: 030614にはperegrin.plというのは無いでつ
ムリポなんでしょうか（ ´Д⊂ヽ
401 ：名無しさん＠ぜろちゃんねる：04/10/21 03:22 ID:???: >>400
そんな古いの使っちゃ駄目。
402 ：名無しさん＠ぜろちゃんねる：04/11/12 00:09 ID:UT1KNNrA: 空改行を抑止するにはどこをどう弄ればいいでしょうか？
比較的長文の書き込みが多いので、書き込み行数自体はゆるめにしてあるのですが…。
バージョンはtest041030 です。
403 ：名無しさん＠ぜろちゃんねる：04/11/12 01:08 ID:???: >>402
連続改行が３個あったら２個なるようにしてみては？
404 ：y@su ◆8oZYsxYASU ：04/11/12 23:52 ID:C6LMFN5Y: 2chブラウザ対応の板を作ってるんだけど、
ぜろちゃんねるの作り方を真似て書き直したりしてもOKなんですか？
405 ：y@su ◆8oZYsxYASU ：04/11/12 23:53 ID:C6LMFN5Y: あ、なんか変だな。
406 ：名無しさん＠ぜろちゃんねる：04/11/13 00:10 ID:???: >>404
./test/readme/readme.txt　参照

> 本スクリプトはスクリプトとしての著作権は放棄しませんが、再配布、改造、改変などは自由にしてもらって
> かまいません。また、indexやread.cgi使用時に出る著作権表示(0ch BBS ver.xxx)も気に入らなければ、消し
> たり、好きな表示に変えてもらっても構いません。
> 「２ちゃんねる型」というものに関しては、どうやらひろゆき氏が著作権だか何かを持っているらしいです。
>
> なお、この文書は一部２ちゃんねるの初心者向きな説明も入っていますので、生粋の２ちゃんねらは軽く読み
> 飛ばしてください。
407 ：y@su ◆8oZYsxYASU ：04/11/13 07:04 ID:2yxSstCw: >>406
お、ども。書いてあったんですね。
自分のは今のところライブラリを使ってないんでそのぐらいかな。
あとindex.htmlとsubback.htmlをファイルで出力してるのを初めて知った。
色んな2ch型BBSスクリプト見て仕様を理解していってる感じです。。。
408 ：名無しさん＠ぜろちゃんねる：04/11/16 22:53 ID:???: どなたか教えてください。
test040221＋repair040803で指定したスレだけを
強制ID表示にしたくスクリプトを書き直したましたのですが、
指定外のスレについても、1だけはIDが表示されてしまいます。
(2以降はID非表示になります。また、指定したスレは全レスID強制表示になります)

弄ったのはgaladriel.plの670行目付近　sub ConvertDateで、
次のソースを書き加え、logディレクトリにforceid.cgiファイル(スレッドキーを羅列したもの)
を置きました。

※↓my $host = $S->Get('host');　の次行に追加
my $key = $S->Get('key');
my $force=0;
open(forceID_file,'../板ディレクトリ/log/forceid.cgi');
my @force=<forceID_file>;
foreach $forceid(@force){
if($forceid =~/$key/){$force = 1;}
}
close(forceID_file);
※↓CAP権限ない場合の条件分岐に追加
elsif ($force == 1) {$id = " ID:$id";}

長くなってしまい申し訳ありません。
どうか宜しくお願い致します。
409 ：408：04/11/20 20:13 ID:???: すみません、>>408の件、解決しました。

6行目を訂正
if($forceid =~/$key/){$force = 1;}
↓
if( ($forceid =~/$key/) && ($key ne '') ){$force = 1;}

新スレにはkeyが存在しないため、「forceid.cgiファイル」内の
空改行等にマッチングしてしまったことが原因みたいです。

あと、↓も直さないとダメだ・・・
open(forceID_file,'../板ディレクトリ/log/forceid.cgi');
　　　　　　　　　　　 ~~~~~~~~~~~~~~
板が二つ以上あったら対応できないです。
初心者ですみません・・・
410 ：408：04/11/20 20:53 ID:???: 度々すみません。>>409後段ファイルパスの指定について
次のようにしたいのですが、500エラーが出てしまいます。

my $M;
my $keypath = $M->Get('BBSPATH') . '/' . $M->Get('BBS') . '/log/forceid.cgi';
open(forceID_file,$keypath);

試しに2行目を次のようにしてみたら、問題なく動きました。
my $keypath = '../板ディレクトリ/log/forceid.cgi';

melkor.plは、設置サーバーパス以外は弄っていません。
何がいけないのでしょうか。
411 ：名無しさん＠ぜろちゃんねる：04/11/20 23:57 ID:???: >>410
$Mにはちゃんとmelkorオブジェクト入ってるの？
単なる変数の$Mに->Getとかやったら当然エラーだよ。
412 ：408：04/11/21 12:30 ID:???: >>411
ご指摘の通りみたいです。
私はまだオブジェクトという概念が理解しきれていないので、
調べてリトライしてみます。
ありがとうございました。
413 ：名無しさん＠ぜろちゃんねる：04/11/21 19:12 ID:???: 禁断の壷に対応するように改造することはできないのですか？
414 ：名無しさん＠ぜろちゃんねる：04/11/22 10:51 ID:???: 壷は2ch以外は見れないんじゃ？
415 ：名無しさん＠ぜろちゃんねる：04/11/22 21:43 ID:ra0ZXwmk: 掲示板メニューの表示先（デフォルトではブランクつまり別プラウザ）を指定できないっすか？
別のプラウザで開くのでなくて同位置とかに変えるのはどこを変えればいいんすかね？
416 ：名無しさん＠ぜろちゃんねる：04/11/23 13:03 ID:???: >>415
スレ開く時に別窓開きたくない、という意味なら
varda.plのsub PrintIndexMenu
# 先頭メニュー作成
# 残りメニュー作成
で、target属性を変更してみたら？
417 ：◆qRsKcF1Luc ：05/01/11 22:08 ID:???: test
418 ：名無しさん＠ぜろちゃんねる：05/01/12 22:02 ID:JQO4T50+: ID/PASSで入場制限させたいんですが
そういうスクリプトはありますか？
419 ：名無しさん＠ぜろちゃんねる：05/01/12 22:14 ID:ql17BmXA: >418
BASIC認証とか使ってみては？
420 ：名無しさん＠ぜろちゃんねる：05/01/13 12:25 ID:rAHP55/o: BASIC認証http://www.komonet.ne.jp/~php/program/chap24.htm
421 ：418：05/01/13 12:27 ID:???: >419,420
ありがとうございました。
早速やってみます。
422 ：名無しさん＠ぜろちゃんねる：05/01/23 20:58 ID:???: >>161-169辺りでも出ていますが、
##などが付いた行だけ文字色を背景色にできないでしょうか
admin.cgiが動かなくなっても使う時だけ
一時的にファイルを戻せばいいと思うので・・・
423 ：名無しさん＠ぜろちゃんねる：05/01/24 13:30 ID:???: >>422
その機能は実装されていますよ。
elrond.plのコメントアウト個所を元に戻すだけ。
424 ：名無しさん＠ぜろちゃんねる：05/01/27 21:45 ID:???: >>423
スミマセン、そのやり方を教えてもらえませんか？
スクリプトの知識は全く無いので・・・
425 ：名無しさん＠ぜろちゃんねる：05/01/27 22:30 ID:???: >>424
最新版（2004-10-30）のelrond.pl
PrintResReadメソッド内250行目のコメントアウトを元に戻す

#$text = $G->ConvertSpecialQuotation($M,$text,0); # 特殊テキスト変換
↓
$text = $G->ConvertSpecialQuotation($M,$text,0);# 特殊テキスト変換

同様にPrintResIndexメソッド内の291行目のコメントアウトを元に戻す

#$text = $G->ConvertSpecialQuotation($M,$text,0); # 特殊テキスト変換
↓
$text = $G->ConvertSpecialQuotation($M,$text,0); # 特殊テキスト変換

これで動作するはず。
試してないので動かなかったら勘弁。
426 ：名無しさん＠ぜろちゃんねる：05/01/28 01:07 ID:???: >>425
424ではありませんが、助かりました
ありがとうございました
427 ：424：05/01/28 23:09 ID:???: >>425
ありがとうございます
428 ：名無しさん＠ぜろちゃんねる：05/02/11 06:59 ID:cnroLNWk: BBQ あらしお断りシステム http://bbq.uso800.net/code.html
を利用するには、↓の書き換えでいいのでしょうか？

１、まずは、module/varda.pl の 358 行目を書き換え
　if ($G->IsProxy($host)) {
　　　　　↓
　if ($G->IsProxy()) {

２、次に、module/galadriel.pl の IsProxy をごっそり入れ替える
　　sub IsProxy
　　{
　　　#BBQを利用した串規制
　　　my $RADDR = $ENV{'REMOTE_ADDR'}
　　　$RADDR =~ /^(\d+)\.(\d+)\.(\d+)\.(\d+)$/;
　　　my $query_addr = "$4.$3.$2.$1.niku.2ch.net";
　　　my $addr = join('.', unpack('C*', gethostbyname($query_addr)));
　　　if ($addr eq '127.0.0.2') {
　　　　return 1;
　　　}
　　　return 0;
　　}

書いてはみたものの、まったく自信がありません・・・
429 ：名無しさん＠ぜろちゃんねる：05/02/13 15:45 ID:f11Xtbx2: ■悪徳商法マニアックス吉本敏洋の正体は２ちゃんねる！

悪徳商法マニアックス管理者「吉本敏洋」の正体は、２ちゃんねる運営で
株式会社ウェディングは、２ちゃんねる相手に裁判をしているといえる。
２ちゃんねるプロ固定の隠された悪事と、
それを支援する善人面紀藤正樹弁護士にメスを入れる。

http://www.freeml.com/message/second_work@freeml.com/0022990
http://www.freeml.com/message/onodera@freeml.com/0029517
http://www.freeml.com/message/nijino_kakehasi@freeml.com/0006215
http://www.freeml.com/message/nb007@freeml.com/0000030
http://www.freeml.com/message/miyo34@freeml.com/0004561
http://www.freeml.com/message/minnagennki@freeml.com/0032548
http://www.freeml.com/message/marin30@freeml.com/0011687
http://www.freeml.com/message/maki33@freeml.com/0016433
http://www.freeml.com/message/loveryladys@freeml.com/0010193
http://www.freeml.com/message/kame71@freeml.com/0020096
http://www.freeml.com/message/jyudexi@freeml.com/0020453
http://www.freeml.com/message/gsbland@freeml.com/0003309
http://www.freeml.com/message/fukuoka-net-busi@freeml.com/0007938
http://www.freeml.com/message/exciting@freeml.com/0006672
http://www.freeml.com/message/dondoncm@freeml.com/0028371
http://www.freeml.com/message/cmyk@freeml.com/0001637
430 ：名無しさん＠ぜろちゃんねる：05/02/14 18:16 ID:???: >>428
バージョン書いてくれないと困るな～
とりあえず、以前にこの板で教えて貰ったスクリプト書くね。
俺のはそれで問題なく動いてるから。
ちなみに、test040221 + 040803 です。

#galadriel.pl
sub IsBBQ
{
my $BBQ = 0;

if (gethostbyname(join(".",reverse(split(/\./,$ENV{'REMOTE_ADDR'})
)).".niku.2ch.net") eq "\x7f\x00\x00\x02")
{ $BBQ = 1; } # BBQリストに載っていれば 1

return $BBQ;
}
# BBQここまで

varda.plは、それでいいと思う。
サブルーチン名は適当に書き換えてね。
431 ：名無しさん＠ぜろちゃんねる：05/02/15 07:29 ID:???: >>430さん、スクリプトありがとうございます。
さっそく実装してみたいと思います。

あと、バージョンは test041030 です。
すみませんでした。
432 ：572：05/03/03 18:11 ID:???: http://tolkien.s7.xrea.com/test/read.cgi/jikken/1095620027/576さんから
こちらのスレに誘導して頂きました。

ちょっと類を見ない変更ですが
スレを立てた時（>>１の最初の書込み）だけ
日付けや時間が記載されるが
その後に続くレス等には
日付けや時間が記載されないようにしたいのです。
そんな設定のスクリプトを
どなたか考えて頂けませんか？

どうか、どうかよろしく御願いいたします。
433 ：572：05/03/03 18:12 ID:???: バージョンは test041030 です。
434 ：名無しさん＠ぜろちゃんねる：05/03/03 19:58 ID:A2r8Gxu2: >>432
滅茶苦茶難しい
435 ：名無しさん＠ぜろちゃんねる：05/03/03 20:34 ID:???: >>432-433
galadriel.plの698行目を変更
変更前
$date = "$date$id";
変更後
require('./module/aragorn.pl');
my $A = new ARAGORN;
if($A->GetResNum() == 1){ $date = "$date$id"; }
else{ $date = "$id";}

でどうだろ？自分ので試してないので、できなかったらごめん
436 ：名無しさん＠ぜろちゃんねる：05/03/03 20:57 ID:A2r8Gxu2: >>435
無理みたいだね
437 ：名無しさん＠ぜろちゃんねる：05/03/03 21:36 ID:???: >>435 それだとレス番1も日付表示されなくなっちゃうね。
438 ：名無しさん＠ぜろちゃんねる：05/03/03 22:20 ID:???: 聖少女やっと買えた。田舎だと発売日即日ゲットは
出来ないみたい。しかも一般書店でレジはお姉さんorz

にしても、このあとがきの妙なドライブ感は何だろう。
あえてpgrとでも言っておこうか。
439 ：名無しさん＠ぜろちゃんねる：05/03/03 22:20 ID:???: varda.pl
389行目あたり
sub WriteData内

$date = $G->ConvertDate($U,$I,$S,$date,$id);

↓

if($M->Get('MODE') == 1){$date = "";}
$date = $G->ConvertDate($U,$I,$S,$date,$id);

かなぁ。
俺も試してないけど。
440 ：438：05/03/03 22:26 ID:???: まじで死にそう。誤爆った。orz
441 ：432：05/03/06 15:47 ID:???: >>439
やってみたら、出来ました。
ありがとうございます。

すみません、当初と変わって、
レスに「日付け」だけは記載したいと思うようになりまして
>>439のタグを見ても、ちょっとわからないので
教えてくださいませんか？

「>>１（スレ立て時）以外のレスに記載される情報はは日付けのみで、時間は記載されない」
という形にしたいのです。
442 ：名無しさん＠ぜろちゃんねる：05/03/06 16:01 ID:???: >>441
＞時間は記載されない

>>439でうまくいったんなら、

if($M->Get('MODE') == 1){$date = "";}

を

if($M->Get('MODE') == 1){$date =~ s/\s\d+:\d+//;}

でいけると思うよ。試してないけど。
443 ：432：05/03/06 16:28 ID:???: >>442
出来ましたー。
どうもありがとうございます。
444 ：432：05/03/07 17:38 ID:???: 連続になってしまってすみません。
これもゼロちゃんにおいて類を見ない構想だと思うのですが
「ある特定の人物（例えば管理人）が書込んだ時だけ
そのレスの番号と名前の間に小さな画像が表示される」って
改造は、可能でしょうか？

ここで、「重くなるよ」とご指摘がありそうですが
1cm×1cmほどの画像で構わないし、
且つ、管理人（もしくは特別な役割を与えられた者）という事で
しょっちゅうレス、書込むわけでは無いのでその画像自体もポコポコ貼付けられるわけでは
ございません、、。故に、そこまで重くはならないと思うのですけども。

さすがにこの設定のスクリプトは面倒だろうなと思いかなり恐縮していますが、
神頼みさせて下さて頂きたいです。どなたか考えて頂けませんか？
445 ：432：05/03/07 17:39 ID:???: 状況的には、キャプでもパス入力方法でもなんでも構いません、
「特定の者の書込みには用意された小さな画像が貼り付く」って感じにしたいのです。

★マークを、それぞれの人物に合わせた画像にしたいって感じです。
難しいでしょうか？バージョンは test041030 です。
446 ：名無しさん＠ぜろちゃんねる：05/03/07 19:00 ID:???: >>444-445
細かいことを考えず、ただそれを実現するだけなら改造不要。
キャップ表示名に<img src=～>タグを挿入し、
所属するキャップグループに「コテハン★表示」権限を与える。
★が不要ならvarda.pl 476、477行目の★を削除する。

ただしimgタグに対応してない2chブラウザで不具合が出るかどうかは知らない。
read.cgi及びindex出力時で、コテハン名をimgタグ付きに置換するという方法もありそうだけど、
そうするとimgタグに対応している2chブラウザでも表示できないし、かなり改造が面倒そう。
447 ：名無しさん＠ぜろちゃんねる：05/03/07 20:59 ID:???: imgタグと言う文字を見てちょっと思ったのですが、
携帯の絵文字を表示できるようには出来ないでしょうか？

ttp://www.dp.j-phone.com/dp/tool_dl/web/picword_01.php
こういうコードを貼り付けると表示できたらいいと思ったのですが。
448 ：432：05/03/10 06:21 ID:???: >>446
ありがとうございます。
とても理想通りの形になり、感激しました。
449 ：名無しさん＠ぜろちゃんねる：05/03/11 12:19 ID:???: キャップ使用者のみ名前の色を変えるには
どこを変更すればよいのでしょうか？

よろしくお願いします。
450 ：名無しさん＠ぜろちゃんねる：05/03/11 16:01 ID:???: >>449
既出。
451 ：名無しさん＠ぜろちゃんねる：05/03/11 16:55 ID:???: >>449
test -> module -> varda.pl -> RegularNameMail

# キャップ結合
if ($capn ne "") {
　　if ($S->Get('NAME')) { $name = "$name＠$capn ★"; }
　　else{　　　　　　　　　　　$name = "$capn ★";}
}

試してないから、不具合がおきても知らん。
452 ：名無しさん＠ぜろちゃんねる：05/03/11 23:13 ID:???: >>451
それおかしい。
453 ：名無しさん＠ぜろちゃんねる：05/03/12 01:34 ID:???: >>452
いや、別におかしくはない。
つーか、おかしいと言うならどこがおかしいのか示さないと。

まさか、全角スペース含めて丸々コピペしたわけじゃあるまいな？
454 ：名無しさん＠ぜろちゃんねる：05/03/12 18:19 ID:???: ２chのように、「スレッド一覧」のページに
公告が載らないようにしたいのですが
どこをいじればいいんでしょうか？
455 ：名無しさん＠ぜろちゃんねる：05/03/12 18:31 ID:???: >>454
http://tolkien.s7.xrea.com/test/read.cgi/jikken/1095620027/677-689
456 ：名無しさん＠ぜろちゃんねる：05/03/13 00:58 ID:???: 書込み規制を無くしたいということで、
『varda.plの583行目付近
　return 501;
　をif ($I->Get('RES_KAKISUGI') >= 1){ return 501; }
　にして、RES_KAKISUGIを0に　　　　　　　　　　　　　　　』
というのを読みましたが、
「書込み規制」を無くしたいわけでは無いんです。
甘くしたいんです。

上記の変更では、連続書込み放題になりませんか？
少しは、規制が無いと駄目なんですが。
457 ：名無しさん＠ぜろちゃんねる：05/03/13 01:06 ID:???: >>456
ならそんな変更せずに甘い設定にすればいいだけ。
458 ：名無しさん＠ぜろちゃんねる：05/03/13 02:29 ID:???: >>457
書込み規制のアリゴリズムがよくわからないのですが
詳細に説明するとして、デフォの状態はどーいう状態なのでしょうか？
RES_KAKISUGIが「５」となっていますがよくわからないのです。
甘くするというのは、数字を増やせばいいのでしょうか？

あと、２chでいうスレ立て規制アリゴリズム
「一度スレを立てた場合、
他のプロバイダの人達がいくつスレを立てた後じゃないと、次の立てちゃ駄目」
といった設定は、どこの数字を弄ればいいのでしょうか？
459 ：名無しさん＠ぜろちゃんねる：05/03/13 02:30 ID:???: >>458
ここは質問スレじゃない。
460 ：名無しさん＠ぜろちゃんねる：05/03/24 01:07 ID:???: http://tolkien.s7.xrea.com/test/read.cgi/jikken/1095620027/734
この質問スレへの回答　（スレ立ては自由でレスは管理人（権限持ちの人）のみにしたい）

SETTING.TXTの値を利用する。
例えばBBS_READONLYに新たな設定値を考えて（例えばexとか）、
その値を元に条件分岐するようvarda.plのCheckWriteEnableを改造する。

if (($I->Get('BBS_READONLY') eq 'on') # 読取専用チェック
|| (($I->Get('BBS_READONLY') eq 'caps')
&& (!$U->HasAuthority(13,$bbs)))){
return 203;
}

これをこういう風に↓
（見づらいかもしれないが実際に記述する時は適当にタブをいれて。（入れなくても動くけど）
一応テスト済みだが、そちらでも充分にテストしてくれ。

if ($I->Get('BBS_READONLY') eq 'ex'){ # 特殊モードチェック
if ($M->Get('MODE') == 1){ # レスは権限有りの人だけ
if (!$U->HasAuthority(13,$bbs)){
return 203;
}
}
}
else{
if (($I->Get('BBS_READONLY') eq 'on') # 読取専用チェック
|| (($I->Get('BBS_READONLY') eq 'caps')
&& (!$U->HasAuthority(13,$bbs)))){
return 203;
}
}
461 ：名無しさん＠ぜろちゃんねる：05/03/24 22:36 ID:???: キャップついてる人の名前の色を任意の色に変えるのは可能でしょうか。
前に使ってた２ちゃん風掲示板のキャップ管理はそうなってました。
よろしくお願いします。
462 ：名無しさん＠ぜろちゃんねる：05/03/24 23:11 ID:???: >>461
>>450
463 ：461：05/03/26 02:04 ID:???: >>462　過去ログ読み飛ばしてました、スマソ。
質問厨みたいになって申し訳ない。
>>129を試してみる。
簡易的にできるが、★が標準色のままという欠点。
名前をつけるとname＠cap★のnameの部分も標準色。
nameの部分まで含めてcap登録する事でごまかせますけど。。。
>>451を試してみる。
うまくいった模様。（・∀・）ｲｲ!!
ただ、redならredでキャップの人全員の色がこれまた同じに・・・。

これを回避する方法はなかとですか？？
>>129の方を使った方が簡単にできますかね？

あ～、キャップの色まで管理できるような仕様にならないかしら？
464 ：名無しさん＠ぜろちゃんねる：05/03/26 15:06 ID:???: >>463
たとえばこんな。

>>451と同じ部分を

# キャップ結合
if ($capn ne "") {
my $color = ($capn =~ s/^@(.*?)@//)? $1 : "";
my @color = ($color)? ("","") : ("","");
if ($S->Get('NAME')) {$name = "$color[0]$name＠$capn ★$color[1]";}
else{$name = "$color[0]$capn ★$color[1]";}
}

キャップ表示名を、
@blue@ハンドル名
のように登録。
465 ：名無しさん＠ぜろちゃんねる：05/03/26 17:42 ID:qaBaUqFo: ♪サッチャンハネ、コウツウジコデ、ハネラレタ、ダカラ、カオガトレテ、
ドッカトオクヘ、トンデチャッタ♪悲しいね、さっちゃん♪
さっちゃんは即死で死んじゃったの。このレスを見た人は…
さっちゃんが０時に行ってあなたの首をかまで切り取っちゃうよ♪
いやなら、さっちゃんが行くまでに、９回違うスレにレスを送ってね♪
あ、さちゃんの顔は、こんな顔だから、
探してくれるのもイイよ♪オネガイネ…。http://www.operaou.com/image/cmail/rei0204.gif
これマジだよ！！信じなかった私の友達は首を狩られて死んじゃったし
466 ：名無しさん＠ぜろちゃんねる：05/03/26 21:31 ID:MkjR8f0I: □！！！これを見た貴方は３日以内に死にます！！！■
■死にたくなければ、このレスをコピーして他のスレに　□
□１０回貼り付けて下さい。１時間以内にです！もし無　■
■した場合は、今日寝ている間に富子さんがやってきて□
□貴方の首を絞めに来ます。富子さんは太平洋戦争の■
■時に16歳という若さで亡くなった女の子で、未だに成 □
□仏していないそうです。信じる信じないは貴方次第。　■
■今年になってからこのレスを無視した人で、“呪われ □
□て死亡した人”が続出しています。これは富子さんの ■
■呪い。呪われて死んでもいいのならこれを無視するこ□
□とでしょうね。　　　　　　　　　　　　　　　　　　　　　　　　■
■――貴方がこうしているうちに富子さんが後ろから見□
□ていますよ…。　　　　　　　　　　　　　　　　　　　　　　　■
■□■□■□■□■□■□■□■□■□■□■□■□
467 ：463：05/03/27 16:12 ID:???: >>464
サンクス（・∀・）
試してみます。
プログラムって難しいでつね。。。
とりあえずｺﾋﾟﾍﾟします。O(-人-)O ｱﾘｶﾞﾀﾔ･･
468 ：463：05/03/27 16:29 ID:???: >>464
素晴らしい！これいいですね。
ありがとうございます。
＠を入れなければエラーではなくデフォルトで緑色になるんですね。
これまたいいです。活用させていただきます。
了└|力"├(ﾟ▽ﾟ*)♪
469 ：名無しさん＠ぜろちゃんねる：05/03/27 23:08 ID:???: test041030 を実況掲示板として利用しています。

レスが９００を越えると自動的に次スレをたつようにしたいのですが
スレを立てる方法が分かりません。どうすればいいでしょうか？
470 ：◆hikArinCL2 ：05/03/27 23:43 ID:???: >>469
工夫が要りそう。

・新スレッドを立てる際のひながた(当然ながら無いと本文が空になる)。
・自動投稿用のキャップ(エラーで書きこみがインタラプトされるのを防ぐ)。
を用意した上で、bbs.cgiの
$num = $V->WriteData($G,$S,$M,$I,$A);
if($num){
の下に

$V->UpdateSubject($M,$S,$num);
$M->Set('KEY',$V->MakeNewThreadKey($M));
$M->Set('MODE',2);
$M->MakeAnyPath();
$S->Set('FROM',[ここに何か入れる]);
$S->Set('mail',[メール欄の何かとキャップパス]);
$S->Set('MESSAGE',[ここに本文のひながた]);
$num = $V->WriteData($G,$S,$M,$I,$A);

と追加。試していないのでどうなるかは不明ですが、
スクリプトの構造上これで期待通りに動作するはず。
ただしPerlの知識がかなり必要です。

結局のところ手動で立てたほうが安全で確実だと思います。
471 ：名無しさん＠ぜろちゃんねる：05/03/28 00:12 ID:???: >>470
うおおっ！　ありがとうございます。
早速試してみて、完成したら報告します
472 ：469：05/03/29 02:10 ID:???: >>470
いろいろと試してみたのですが、Perl の勉強が足りないためかなかなか
うまくいきません。少し時間がかかりそうです。

とりあえずの急場しのぎとして、varda.pl の WriteData サブルーチンを
改造して、タイトルに「実況」と入っているスレッドの 900 レス目の書き
込みに広告のようなものをつけるようにしてみました。

sub WriteData {
　　　・
　　（前略）
　　　・
　　$subj = $S->Get('subject');
　　$date = $G->ConvertDate($U,$I,$S,$date,$id);

　　###### ここから追加 ######
　　my ($res) = $A->Load($M,$M->Get('PATH-DAT'));
　　if ($A->GetResNum() == 899) {　　# レス数の判定
　　　　my ($thread) = $A->GetSubject();
　　　　if ($thread =~ /実況/) {　　# スレッドタイトルの確認
　　　　　　$text .= "<hr>キリ番 get おめでとうございます！ ";
　　　　　　$text .= "次スレをたててください ";
　　　　}
　　}
　　###### ここまで追加 ######

　　$work = "$name<>$mail<>$date<>$text<>$subj\n";　# 行データ作成
　　HostCheck($M,$I,$S,$host);

　　###### $A->Load($M,$M->Get('PATH-DAT')) を $res に書き換え #######
　　if ($res || $M->Get('MODE') == 2){　# dat読み込み
　　　　$err = $A->IsStat();　　# 状態取得
　　　　　・
　　　　（後略）
　　　　　・
}
473 ：名無しさん＠ぜろちゃんねる：05/04/02 00:06 ID:vIJ4Hhz2: 本家で四月馬鹿で暦表がいじられてましたが
0chでも実現可能ですか？

関連スレ
暦表記変更申請スレッド　2周年
http://qb5.2ch.net/test/read.cgi/operate/1112336659/

皇紀2665年のガイドライン
http://that3.2ch.net/test/read.cgi/gline/1112285043/
474 ：名無しさん＠ぜろちゃんねる：05/04/02 00:15 ID:vIJ4Hhz2: ×本家で四月馬鹿で
○本家の四月馬鹿で
475 ：質問：05/04/03 18:09 ID:06xx2+Sc: スレッドを立てた人がパスワードをあらかじめ入力しておいて、
スレッドをたてた人が自分で削除するようにはできないでしょうか？
構造上無理ですか？

243KB

掲示板に戻る全部前100 次100 最新50

READ.CGI - 0ch+ BBS 0.7.5 20220323
ぜろちゃんねるプラス