■掲示板に戻る■ 全部 1- 101- 201- 301- 401- 501- 601- 701- 801- 901- 最新50 [PR]ぜろちゃんねるプラス[PR]  
レス数が1000を超えています。残念ながら全部は表示しません。

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

1 :名無しさん@0ちゃんねる:2003/03/03 23:49 ID:ex.0cnXQ
ぜろちゃんねるスクリプトに、
haneやらkageやらdameやら
teletypeやらpreやらnukeanasanやら
おみくじやら何やらの機能を付けたりして改造するスレです。


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
連続改行が3個あったら2個なるようにしてみては?

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)も気に入らなければ、消し
> たり、好きな表示に変えてもらっても構いません。
> 「2ちゃんねる型」というものに関しては、どうやらひろゆき氏が著作権だか何かを持っているらしいです。
>
> なお、この文書は一部2ちゃんねるの初心者向きな説明も入っていますので、生粋の2ちゃんねらは軽く読み
> 飛ばしてください。

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
を利用するには、↓の書き換えでいいのでしょうか?

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

2、次に、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
■悪徳商法マニアックス吉本敏洋の正体は2ちゃんねる!

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

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さんから
こちらのスレに誘導して頂きました。

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

どうか、どうかよろしく御願いいたします。


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のタグを見ても、ちょっとわからないので
教えてくださいませんか?

「>>1(スレ立て時)以外のレスに記載される情報はは日付けのみで、時間は記載されない」
という形にしたいのです。

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 = "<font color=red>$name@$capn ★</font>"; }
  else{           $name = "<font color=red>$capn ★</font>";}
}

試してないから、不具合がおきても知らん。

452 :名無しさん@ぜろちゃんねる:05/03/11 23:13 ID:???
>>451
それおかしい。

453 :名無しさん@ぜろちゃんねる:05/03/12 01:34 ID:???
>>452
いや、別におかしくはない。
つーか、おかしいと言うならどこがおかしいのか示さないと。

まさか、全角スペース含めて丸々コピペしたわけじゃあるまいな?

454 :名無しさん@ぜろちゃんねる:05/03/12 18:19 ID:???
2chのように、「スレッド一覧」のページに
公告が載らないようにしたいのですが
どこをいじればいいんでしょうか?


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が「5」となっていますがよくわからないのです。
甘くするというのは、数字を増やせばいいのでしょうか?

あと、2chでいうスレ立て規制アリゴリズム
「一度スレを立てた場合、
他のプロバイダの人達がいくつスレを立てた後じゃないと、次の立てちゃ駄目」
といった設定は、どこの数字を弄ればいいのでしょうか?


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:???
キャップついてる人の名前の色を任意の色に変えるのは可能でしょうか。
前に使ってた2ちゃん風掲示板のキャップ管理はそうなってました。
よろしくお願いします。

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)? ("<font color=$color>","</font>") : ("","");
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
♪サッチャンハネ、コウツウジコデ、ハネラレタ、ダカラ、カオガトレテ、
ドッカトオクヘ、トンデチャッタ♪悲しいね、さっちゃん♪
さっちゃんは即死で死んじゃったの。このレスを見た人は…
さっちゃんが0時に行ってあなたの首をかまで切り取っちゃうよ♪
いやなら、さっちゃんが行くまでに、9回違うスレにレスを送ってね♪
あ、さちゃんの顔は、こんな顔だから、
探してくれるのもイイよ♪オネガイネ…。http://www.operaou.com/image/cmail/rei0204.gif
これマジだよ!!信じなかった私の友達は首を狩られて死んじゃったし


466 :名無しさん@ぜろちゃんねる:05/03/26 21:31 ID:MkjR8f0I
□!!!これを見た貴方は3日以内に死にます!!!■
■死にたくなければ、このレスをコピーして他のスレに □
□10回貼り付けて下さい。1時間以内にです!もし無 ■
■した場合は、今日寝ている間に富子さんがやってきて□
□貴方の首を絞めに来ます。富子さんは太平洋戦争の■
■時に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 を実況掲示板として利用しています。

レスが900を越えると自動的に次スレをたつようにしたいのですが
スレを立てる方法が分かりません。どうすればいいでしょうか?

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><b>キリ番 get おめでとうございます!<br>";
      $text .= "次スレをたててください</b><br>";
    }
  }
  ###### ここまで追加 ######

  $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
スレッドを立てた人がパスワードをあらかじめ入力しておいて、
スレッドをたてた人が自分で削除するようにはできないでしょうか?
構造上無理ですか?


476 :◆hikArinCL2 :05/04/06 22:12 ID:???
>>475
三日間放置されているので書く
パスワードをトリップに見立てれば出来なくはないかもしれませんが
新しくCGIを割り当てる必要があるかも

477 :7M. ◆dq7M./4Uw. :2005/04/09(土) 21:52:51 ID:???0
>475
書き込み用cgiを巻き込んで作るなら…
bbs.cgiすること:スレ立てるときpassword入力させる→bbs.cgiそれをどっかにメモっとく。
削除用cgiすること:パスワードとkeyを入力してもらう→メモファイル見に行く→一致してたら削除

巻き込まないなら…
削除用cgiすること:>>1のHNとkey入力してもらう→HNとkey一致してたら削除
当然このパターンは>>1がトリップが使ってない場合、発動しないようにする、と。

前者の方が利用者側からはいいかも知れぬが、後者の方が作る側からはめんどくなかったりするにょるり。、

478 :名無しさん@ぜろちゃんねる:2005/04/10(日) 12:19:59 ID:mDPqZCG0
test041030 を利用しています

最近、ケータイを利用した荒らしが出没してきて困っています。
現在は、リモートホストを簡単に正規表現にしたものを規制ユーザ
リストに入れて対応していますが、これだと巻き添えをくらう利用者
が多いのが難点です。そこで・・・

・ケータイの個別 ID を含めてアクセスログ(HOSTs.cgi)を残す
・個別 ID を利用して、荒らしをするケータイをピンポイントで規制する

この2つを実現したいのですが、どうしたらいいんでしょうか?

479 :名無しさん@ぜろちゃんねる:2005/04/17(日) 17:31:01 ID:VJxYyMk0
『最近の20件』を作るには構造上無理でしょうか?

480 :名無しさん@ぜろちゃんねる:2005/04/25(月) 15:27:37 ID:TV0UOA7c0
>>476,477
ありがとうございます。将来的に誰かに作ってほしいかななんて。。。

481 :7M. ◆dq7M./4Uw. :2005/04/25(月) 20:53:24 ID:???0
>480
私でよかったらそりゃ構いませんけどー。
詳しい仕様教えてくだされー、例えば>477なら前者と後者どっちがいいかなー、とかー。

482 :480:2005/04/26(火) 15:19:34 ID:vj6r/YZA0
スレ立てるときpassword入力させる→スレッド番号とpasswordが一致してれば削除。
書き込みの削除機能までつけるとごちゃごちゃしそうなので必要ありません。

削除のことまで考えてスレ立ての時にトリップ使う人があまりいないかもしれないので、
できれば前者の方がいいような気がします。
勢いでスレ立てして叩かれて、削除依頼を出されるパターンが多いので(^^;

仕様はこれで足りますか?


483 :7M. ◆dq7M./4Uw. :2005/04/26(火) 23:34:13 ID:???0
足りてますー。
んが、それだと書き込み用cgi(スレ立て部分)もいぢくる必要がありますねぇ。。。
今度時間があったらやってみまふ。、

484 :名無しさん@ぜろちゃんねる:2005/04/27(水) 11:46:40 ID:s7J3a2Zc0
2ちゃんねるを見ていたらおもしろそうな書き込みを見つけたのでコピペ

> 25 :root▲ ★ :2005/04/22(金) 19:21:28 ID:???0 ?##
> Perlのプロファイリング
> http://naoya.dyndns.org/~naoya/mt/archives/001159.html
> bbs.cgiの「どこが」重いのかを調べるのに、使えそう。
http://qb5.2ch.net/test/read.cgi/operate/1113117347/25


485 :名無しさん@ぜろちゃんねる:2005/04/27(水) 14:20:19 ID:???0
>>483
はい。かなりやっかいだと思いますが時間がある時に宜しくお願いします。

486 :7M. ◆dq7M./4Uw. :2005/04/28(木) 21:10:50 ID:???0
ごーるでんうぃーく中だというのに課題がいっぱいの多忙フレッシュマンですから、
かなり時間がかかるかもしれませぬ。。。
覚悟してくだされ。。。すまぬ。

487 :名無しさん@ぜろちゃんねる:2005/04/29(金) 17:22:34 ID:???0
>>486
はい。特に急ぎではありませんので問題ないです。

488 :名無しさん@ぜろちゃんねる:2005/04/29(金) 22:41:52 ID:???0
キャップ無しで携帯からスレッドを立てるには、
どこを弄ったら良いでしょうか?

489 :名無しさん@ぜろちゃんねる:2005/04/30(土) 02:47:58 ID:???0
使ってるバージョン書かないと答えようが無いな。

490 :7M. ◆dq7M./4Uw. :2005/04/30(土) 11:48:59 ID:???0
できたー。
http://newsplus.jp/~lab/cgi-bin/userdel.zip

超人柱版。何があっても責任持てない。

491 :名無しさん@ぜろちゃんねる:2005/04/30(土) 14:03:14 ID:Y0tGDhP20
>>490
487じゃないけど、乙!

492 :488:2005/04/30(土) 14:28:08 ID:???0
バージョンはアップローダー付きのimg0ch_0410_2005です。
スレ違いでしたらすみません…

493 :名無しさん@ぜろちゃんねる:2005/05/01(日) 12:26:47 ID:???0
>>492
確認しようと思ったらそのバージョンDLできないね。
最新版(0501)ではvarda.plのCheckWriteEnable関数内707-709

>707 if($M->Get('AGENT') and $M->Get('MODE') == 2){ # 携帯からスレ立て
>708   return 204 unless $U->HasAuthority(16,$bbs); # 権限記者未満
>709 }

をコメントアウトすればいいと思う。
未確認なのでできなかったらスマソ。

494 :488:2005/05/01(日) 13:19:40 ID:???0
>>493
0410でも殆ど変わらず、キャップ無し投稿に成功致しました!
本当に助かりました。有難うございます。

495 :名無しさん@ぜろちゃんねる:2005/05/04(水) 21:15:21 ID:???0
人柱版の拡張機能作成依頼スレみたいのはないかのー。

名前欄に !tt で本文に<tt> </tt>を挿入できる拡張をキボンヌしてみる

496 :7M. ◆dq7M./4Uw. :2005/05/04(水) 22:14:17 ID:???0
>495
http://0ch.mine.nu/test/read.cgi/jikken/1066279214/l50
ここでいいぢゃな〜い?

http://newsplus.jp/~lab/cgi-bin/0ch_text_pl.txt
※↑動作確認してません。
ちゃんと動かなかったり暴発したりするかも。
したらごめんなさい。(でも平謝りするだけ。

497 :名無しさん@ぜろちゃんねる:2005/05/04(水) 22:51:40 ID:???0
>>496
動いてる動いてる

ただし、名前欄空欄+キャップ使用だとデフォルト名無し+キャップで書き込まれちゃうね

498 :名無しさん@ぜろちゃんねる:2005/05/04(水) 22:52:43 ID:???0
ああ、名前欄空欄=名前欄!ttのみ ってことで。

499 :7M. ◆dq7M./4Uw. :2005/05/05(木) 00:38:19 ID:???0
むぅ。それはですね。
書き込んだとき、名前欄の!ttを削除する処理を行ってるわけですが。
そこらへんを書き込み用cgiが名無しだと勘違いしてるのかもしれませぬ。。。
ただ、書き込み時の名前欄チェックとキャップ付加の部分が
どうゆうフローで行われてるのかよくわからんので、
ちと今の段階ではなおせないかなぁ。。。

500 :487:2005/05/07(土) 02:07:11 ID:???0
ありがとうございます。さっそくつかってみます

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