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

1 ：名無しさん＠０ちゃんねる：2003/03/03 23:49 ID:ex.0cnXQ: ぜろちゃんねるスクリプトに、
haneやらkageやらdameやら
teletypeやらpreやらnukeanasanやら
おみくじやら何やらの機能を付けたりして改造するスレです。
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 を利用して、荒らしをするケータイをピンポイントで規制する

この２つを実現したいのですが、どうしたらいいんでしょうか？
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: ２ちゃんねるを見ていたらおもしろそうな書き込みを見つけたのでコピペ

> 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: ありがとうございます。さっそくつかってみます
501 ：名無しさん＠ぜろちゃんねる：2005/05/18(水) 00:46:47 ID:4MaoSmW60: <新Ver - 050429>
http://0ch.mine.nu/public/scripts/test050429.zip
で新規スレッドを立てる時にアイコンを選択できるようにしたいんですが
どうすればいいでしょうか？
502 ：名無しさん＠ぜろちゃんねる：2005/05/18(水) 20:54:08 ID:???0: >>501
仕様が曖昧すぎる。
503 ：名無しさん＠ぜろちゃんねる：2005/05/18(水) 22:07:50 ID:???0: スレッド作成画面にアイコン選択プルダウンを追加
新規スレッドを立てると選択したアイコンがテキストとともに表示される。

∧＿∧ 　　こんにちわー
（´∀｀）　　よろしくね

AAがアイコンとして、こんな感じです。
504 ：7M. ◆dq7M./4Uw. ：2005/05/18(水) 22:59:44 ID:???0: 追加もぢゅーる形式で作るなら楽ですな。
(その場合はこちらのスレかしらん。http://0ch.mine.nu/test/read.cgi/jikken/1066279214/l50
でもぷるだうんでやるならもぢゅーる形式でやるのはめんどくさいん。
∵0ch本体のもぢゅーるをいぢる必要があるから。

例えば、める欄に!monaで（　´∀｀）追加とか、!gikoで（ﾟДﾟ）追加とか、
そんなのならできるかも。なのです。はい。

#ゃぁねえ最近の私ったらしゃしゃり出てきすぎで。
505 ：名無しさん＠ぜろちゃんねる：2005/05/19(木) 17:44:21 ID:???0: ぷるだうんでなんとかできませんか？？
506 ：7M. ◆dq7M./4Uw. ：2005/05/19(木) 18:38:01 ID:???0: プルダウンで処理するとなると、
0ch本体のモジュールいじくる必要があります。
これやると、0ch本体が更新された時再び改造し直さなければならなかったり、
モジュールの中からスレ立て用のフォーム吐き出しをしてる部分を探さなきゃいけないし、
そもそも専用ブラウザからは利用できないしなので、、、

どーしてもプルダウンじゃなきゃいけない理由とかが無い限りは、、、
507 ：7M. ◆dq7M./4Uw. ：2005/05/19(木) 18:42:58 ID:???0: と思ったらスレ立て用フォームの吐き出しはbbs.cgiがやっちゃってた。
とゆー事は、
ここまでのまとめ
問題点1.bbs.cgiが更新された時、自分でいじくる必要がある。
　　　　(が、bbs.cgiの更新がそんなに頻繁にあるようには思えないので、
　　　　これは大した問題ではないような気もする)

問題点2.専用ブラウザからはどうする。
　　　　こればっかりはこっち側ではどうにもならない。切って捨てるしか。

これでもOKならプルダウンでもOKっすよ、と。
508 ：名無しさん＠ぜろちゃんねる：2005/05/19(木) 23:40:27 ID:???0: まじですか！ぜひお願いしたいです。
問題点1.自分でいじくります。
問題点2.専用ブラウザ利用者は対象としていないので無視していただいて構いません。
509 ：7M. ◆dq7M./4Uw. ：2005/05/20(金) 19:30:19 ID:???0: 例によって動作確認してない。。。
ちゃんと動くのかどうかは知らん！
http://newsplus.jp/~lab/cgi-bin/aainsert.zip
510 ：名無しさん＠ぜろちゃんねる：2005/05/21(土) 09:31:17 ID:???0: むちゃくちゃ早いですね～！
ありがとうございます。不具合がありましたら報告します。
511 ：7M. ◆dq7M./4Uw. ：2005/05/21(土) 18:00:59 ID:???0: 例によって著作権は放棄…改造再配布転載お好きなように…
512 ：名無しさん＠ぜろちゃんねる：2005/05/22(日) 20:58:25 ID:???0: >>511
試してみましたが、
「スレッド新規作成画面」
超AA挿入機能：（$name）\n
となり、投稿しても反映されませんでした。
（（$name）のところはモナーなどとならず$nameのまま）
またAAではなく画像アイコン（icon01.gifなど）を使いたいのですが可能でしょうか？
513 ：7M. ◆dq7M./4Uw. ：2005/05/23(月) 00:29:20 ID:???0: ぎゃーす…
bbs.cgiの276行目、こう書き換えてください…申し訳ない。
(やっぱ動作確認はしなきゃいけないなぁと思う我でした。)
$Page->Print('<option value="$name">$name');
↓書き換える
$Page->Print("<option value=\"$name\">$name");
アイコンは可能です。
とりあえずコイツが正確に動いてるの確認したら画像のほうも対応していくです。
ぁぃ。ぅぇ。ぉ。
514 ：名無しさん＠ぜろちゃんねる：2005/05/23(月) 06:27:54 ID:???0: プルダウンには「モナー」などの文字が反映されましたが、
投稿後の書き込みには反映されていませんでした。
515 ：名無しさん＠ぜろちゃんねる：2005/05/23(月) 06:52:43 ID:???0: あと別の件ですが、パスワードをいれて削除するやつなんですが、
passwordを入力するとメール欄にそのままpasswordが表示されてしまうのと、
delete.cgiで必要事項を入力してもエラー画面にいっちゃいます。
いっぺんにじゃなくて良いのでよろしくお願いします～。
516 ：7M. ◆dq7M./4Uw. ：2005/05/23(月) 18:00:20 ID:???0: マヂで～。>514
しょうがないなー自分で動かしてみよ…。めんどいけど。

ぱすわーど入れるやつは動作確認してるんで多分そんな事無いと思うんですけど…。
と、ゆーかどんなパスワードを入れたのかとかメール欄をどんなふうにしたのかとか、
少し情報が無いと対応しきれないデス。ぁぃ。

#ちゃんとパスワードの前に!入れましたかー？
517 ：7M. ◆dq7M./4Uw. ：2005/05/23(月) 19:33:42 ID:???0: http://newsplus.jp/~lab/cgi-bin/aainsert.zip
これで大丈夫かな。
518 ：名無しさん＠ぜろちゃんねる：2005/05/24(火) 11:46:33 ID:???0: >>516
!はどこに入れればいいでしょうか？
メール欄に!@passwordと入れば大丈夫でしょうか？
>>475 >>490の件です。すみません。。
519 ：7M. ◆dq7M./4Uw. ：2005/05/24(火) 19:10:53 ID:???0: メイル欄に!passwordで大丈夫だと思いますけど…。
#もしかして肝心の使い方をreadmeに書き忘れたかしら、(汗

まぁ、それはともかくとしてその程度の事なら聞く前にやってみた方が早いですよん…
520 ：名無しさん＠ぜろちゃんねる：2005/05/24(火) 21:16:37 ID:???0: む～ん・・・・。どちらもできない・・・。
メールしませんか？もしよければメアドさらします
521 ：名無しさん＠ぜろちゃんねる：2005/05/24(火) 22:28:54 ID:???0: pass.cgiがどのように作成されてるかを晒したほうがいいかも。
522 ：名無しさん＠ぜろちゃんねる：2005/05/24(火) 22:49:22 ID:???0: pass.cgiがありません。logの中に勝手にできるもんなんですか？
523 ：7M. ◆dq7M./4Uw. ：2005/05/24(火) 22:57:11 ID:???0: あ、そっか…!じゃなくて@にしてたんだっけ。(汗
>519は取り消しで。(滝汗

>522
testフォルダの中にありません？>pass.cgi
それが無ければ、ファイル生成が失敗してるってことだから、
ふぉるだのパーミッション変えてみるとか、、、
524 ：名無しさん＠ぜろちゃんねる：2005/05/25(水) 00:02:41 ID:???0: フォルダ、cgiは755、pl,txtは644で基本問題ないですよね。
明日は帰れないので週末にもう一度チェックしてみますのでよろしくお願いします。
525 ：7M. ◆dq7M./4Uw. ：2005/05/25(水) 17:27:57 ID:???0: サーバーによって違うと思うんでなんとも…。
特にフォルダのパーミッションを色々変えてみてくだされ。
526 ：名無しさん＠ぜろちゃんねる：2005/06/24(金) 12:06:58 ID:VnWVRA5+0: >>525
アイコン表示の件ですが、varda.plは何も変更しなくていいんでしょうか？
掲示板トップのレイアウトはvarda.plですべてやってるみたいなので。。
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の携帯のメール欄表示の方法を教えて下さい。

243KB

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

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