ぜろちゃんねるアシストスクリプト

1 ：◆masa6ZQkmE ：03/10/16 13:40 ID:EIjJ21rM

ぜろちゃんねるをアシストするスクリプトを作るスレ

配布中ｱｼｽﾄｽｸﾘﾌﾟ�d

ぜろちゃんヘッドラインVer 3.2
http://bbs.marsa.org/headline03.lzh

332 ：名無しさん＠ぜろちゃんねる：03/12/14 14:00 ID:???

>>331
403

333 ：名無しさん＠ぜろちゃんねる：03/12/14 15:34 ID:???

>>332
アク禁くらってたのは君か

334 ：masa(ry：03/12/14 16:30 ID:???

>>332
一旦、ｱﾄﾞをｺﾋﾟってから、貼り付けで移動してみ。

335 ：くるたん ◆XGE80X.EXE ：03/12/18 01:02 ID:???

挨拶が遅れましたが、素人Perlerのくるたん ◆XGE80X.EXEです。
よろしくお願いします。

2chのちゃっかりカウンターのようなものを作ってみました。
http://ssx.s41.xrea.com/cgi/count.zip
ご自由にお使いください。

336 ：名無しさん＠ぜろちゃんねる：03/12/18 01:40 ID:???

>>335
初心者に毎回丁寧なサポート乙。

337 ：名無しさん＠ぜろちゃんねる：03/12/18 14:26 ID:???

キャップ自動生成ＣＧＩの登録キャップ表示で最後の１件が表示されないんだけどうちだけ？

338 ：名無しさん＠ぜろちゃんねる：03/12/23 12:14 ID:???

削除支援のスレ対応版まだぁ？

339 ：名無しさん＠ぜろちゃんねる：03/12/24 13:29 ID:qeEXlE/U

でてるよ

340 ：名無しさん＠ぜろちゃんねる：03/12/26 13:27 ID:???

>>339
リンク切れしてた。

341 ：名無しさん＠ぜろちゃんねる：03/12/26 14:01 ID:???

トップからみてみ

342 ：名無しさん＠ぜろちゃんねる：03/12/26 15:14 ID:???

>>341
topからでも無理っす・・・・

343 ：名無しさん＠ぜろちゃんねる：03/12/26 16:22 ID:???

http://www.hikarin.net/script/sakubeta111.zip

344 ：名無しさん＠ぜろちゃんねる：03/12/26 16:28 ID:???

>>343
ありがとうございます。。

345 ：名無しさん＠ぜろちゃんねる：03/12/27 16:08 ID:???

http://world2ch.net/headline/headline.cgi

346 ：名無しさん＠ぜろちゃんねる：04/01/01 11:29 ID:XWhnqAjY

新バージョンで形式が変わったためか、ヘッドラインにエラーが発生していると見られる

347 ：masa(ry：04/01/02 18:49 ID:XrFHRSq+

headline.cgi Ver5.7
http://srd.s8.xrea.com/headline5.7.zip

2003-12-30になるに伴い、bbss.cgiの記述が変更されたために呼び出し方式を変更

今後、機能としてカテゴリ別を追加予定

348 ：名無しさん＠ぜろちゃんねる：04/01/02 21:03 ID:1rRShfZo

otsu

349 ：masa(ry：04/02/28 11:02 ID:6gHkGSJ+

category.cgi ver1.0
http://srd.s8.xrea.com/dl/category1.0.zip

今現在では、カテゴリーを変えたりするだけですが
そのうち、カテゴリー作成・編集・削除もできる用になるかもしれません。
変更した場合は、contents.htmlも更新されますので、admin.cgiでやるよ楽かも

以下のアドレスで実験してみてください。
http://srd.s8.xrea.com/test/category.cgi
アカウント：test
パスワード：pass

350 ：masa(ry：04/02/28 11:04 ID:???

あと、fileutil.cgiを弄くってfileutil.cgiが設置されている場所以上にあがれないようにした
安全(?)なヤツありますが、管理人ﾀｿ配布しちゃっていいっすか？

んで、それを改造してディレクトリの中身を表示するヤツも作ったんですけど。
それも大丈夫ですか？

351 ：名無しさん＠ぜろちゃんねる：04/02/28 14:06 ID:???

>>350
キボン

352 ：管理人 ★：04/02/29 00:01 ID:???

>>350
全然桶です。ていうか私もほしいですｗ

353 ：名無しさん＠ぜろちゃんねる：04/02/29 00:31 ID:???

お墨付きｷﾀ━━━━(ﾟ∀ﾟ)━━━━ !!!!!

354 ：masa(ry：04/02/29 10:07 ID:???

改造って言うか
else{ # パスが./のみ
$Path .= '../';
}

355 ：masa(ry：04/02/29 10:14 ID:???

>>354 _|￣|○ﾐｽｯﾀ
弄くったっていいますか、423行から425行を消しただけなんですが。
else{ # パスが./のみ
$Path .= '../';
}
こいつがどんどん上に行く原因です。

_/＼○_ﾄﾞｿﾞｰ　http://srd.s8.xrea.com/dl/fileutil.txt

356 ：名無しさん＠ぜろちゃんねる：04/02/29 10:22 ID:???

ファイルうｐは出来るの？

357 ：masa(ry：04/02/29 10:53 ID:???

>>356
_|￣|○�_です。

358 ：名無しさん＠ぜろちゃんねる：04/02/29 11:09 ID:???

ファイルうｐ機能追加してー
でも423-425だけで恐ろしいことになるとは
元持ってるけど

359 ：名無しさん＠ぜろちゃんねる：04/02/29 11:09 ID:???

・・・・
大変
>>354-355
載せちゃまずいだろ

360 ：名無しさん＠ぜろちゃんねる：04/02/29 11:12 ID:???

コード追加でまたあの現象の予感

361 ：masa(ry：04/02/29 12:09 ID:???

>>359 >>360
一応、ほかのところも編集してますので、大丈夫かと

362 ：名無しさん＠ぜろちゃんねる：04/02/29 12:30 ID:???

でも>>354-355
が原因ならまずいでしょ

363 ：名無しさん＠ぜろちゃんねる：04/02/29 15:16 ID:???

早速頂きますた、が、これっていつ使うもんなんでしょうか・・？
パーミッション変えるの楽なだけ・・？

364 ：はりねずみ ◆HaRinezUmI ：04/02/29 18:11 ID:???

>>363
FTPソフトに慣れてる人なら使う必要はないものじゃないかな

365 ：名無しさん＠ぜろちゃんねる：04/02/29 18:29 ID:???

iswebでﾐｽって板消せなくなったときとか

366 ：名無しさん＠ぜろちゃんねる：04/02/29 20:16 ID:???

配布時の説明では、基本的にはisweb用かな。

367 ：名無しさん＠ぜろちゃんねる：04/03/01 08:32 ID:???

CGIでさくせいされたファイルが鯖側のものでFTPで消せない鯖用のものかと
IP.cgiもFTPで消せない鯖とか借りてるのでありがたく使っています

368 ：はりねずみ ◆HaRinezUmI ：04/03/01 18:15 ID:???

>>365-367
あ、、iswebとか特殊な鯖のためでもあるのかー。

369 ：masa(ry：04/03/04 19:15 ID:Cv5AIRR2

category.cgi ver2.9
http://srd.s8.xrea.com/dl/category2.9.zip

追加機能
新規カテゴリー作成
既存カテゴリー削除
既存カテゴリー名変更

以下のアドレスで実験してみてください。
http://srd.s8.xrea.com/test/category.cgi
アカウント：test
パスワード：pass

370 ：名無しさん＠ぜろちゃんねる：04/03/05 07:30 ID:???

タグは大丈夫なの？

371 ：名無しさん＠ぜろちゃんねる：04/03/05 07:31 ID:???

おお
ちゃんと対策されてる
昨日壊してスマソ

372 ：masa(ry：04/03/05 13:24 ID:sImvxg0Q

category.cgi ver3.0
http://srd.s8.xrea.com/dl/category3.0.zip

タグの使用を禁止

以下のアドレスで実験してみてください。
http://srd.s8.xrea.com/test/category.cgi
アカウント：test
パスワード：pass

>>371
管理者しか使用しない予定でしたので、タグは禁止してませんでしたが
タグの使用を謝った場合のため、タグを禁止しました。

373 ：名無しさん＠ぜろちゃんねる：04/03/05 21:03 ID:???

一人２つ以上作ると
作成前　実験3
作成カテゴリー　実験4
作成後　実験31078488116

374 ：masa(ry：04/03/06 11:14 ID:???

>>373
一応、その不具合は解消しましたが
新規カテゴリー作成の時に半角英数字を使用すると
削除するときに不具合が出ます

375 ：名無しさん＠ぜろちゃんねる：04/03/06 12:45 ID:???

>>374
jump.cgiほしいでつ
ダメですか･･･？

376 ：masa(ry：04/03/06 22:32 ID:???

>>375
とりあえず、配布してみるテスト
使い方は
junp.cgi?アドレス
http://ime.nu/みたいに?を省く場合は
jump.cgiのディレクトリに

.htaccess
ErrorDocument 404 /jump.cgi

をおくと?を省ける
http://srd.s8.xrea.com/dl/jump.txt

自分のime.nu見たいな物も晒してみるテスト
http://ime.marsa.org/

377 ：名無しさん＠ぜろちゃんねる：04/03/07 00:10 ID:???

txtが化けてる・・

378 ：masa(ry：04/03/07 07:08 ID:???

>>377
jump.txtソース参照汁

379 ：名無しさん＠ぜろちゃんねる：04/03/07 08:51 ID:???

>>378
ありがとうございます
激しく感謝

380 ：名無しさん＠ぜろちゃんねる：04/03/08 13:02 ID:H+qE8AT2

http://jump.riaf.org/tolkien.s7.xrea.com/jikken/

PHP版らしぃ
こっちはヘッダーに404が入ってないんだよな
どうやってやってるんだ？
IPはXREAみたいなんだが

381 ：名無しさん＠ぜろちゃんねる：04/03/08 14:10 ID:???

http://ime.nu/www.yahoo.co.jp/
http://get.nu/www.yahoo.co.jp/
http://nun.nu/www.yahoo.co.jp/
http://ime.marsa.org/www.yahoo.co.jp/
http://jump.riaf.org/www.yahoo.co.jp/
http://warpz.net/?www.yahoo.co.jp/

382 ：◆ERFyY54AcA ：04/03/11 19:27 ID:???

いままででてきたime関係を継ぎ足したりして、
http://ime.nu/www.yahoo.co.jp/
みたいに?無し（.htaccess無し）でアクセスできるスプリクトを作ってみたんだが、
どうも
http://クッションアドレス/www.yahoo.co.jp/
では問題なくリンクできるんだけど
http://クッションアドレス/http://www.yahoo.co.jp/
だと、表示が
http:/www.yahoo.co.jp
リンクが
http://設置ドメイン/www.yahoo.co.jp
になっちゃうんだよね
次レスでスプリクト貼ります

383 ：◆ERFyY54AcA ：04/03/11 19:31 ID:???

#!/usr/local/bin/perl
#まず、このcgiのおいてあるフォルダの中にwarning.cgiとゆうファイルをあっぷ。
#その中に、　URL<>警告文　で書いておけば、リンク先アドレスにURLがあれば警告文を表示（多分

print "Content-Type: text/html\n\n";
$ENV{'PATH_INFO'} =~ tr/+/ /;
$ENV{'PATH_INFO'} =~ s/%([0-9A-Fa-f][0-9A-Fa-f])/ pack('H2', $1) /eg;
$url="$ENV{'PATH_INFO'}";
$url =~ s|/||;
if($url =~ /http:/ ) {
$url = "$url";
}else{
$url = "http://$url";
}
my $warn;
open (WARN,"./warning.cgi");
foreach(<WARN>){
my ($url,$message)=split /<>/,$_;
$ENV{'QUERY_STRING'} =~/$url/ and $warn=$message;
}
close WARN;
print <<HTML;
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html lang="ja">
<head>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; CHARSET=Shift_JIS">
<title>別のページにジャンプしようとしています。</title></head>
<body><b><a href="$url" target="_top">$url</a><br></b>
別のサイトにジャンプしようとしています。宜しければ上記のリンクをクリックしてください
<br>リンク先はブラクラやウイルスなど危険なサイトのこともあります。<br>
当サイトではリンク先で起きた損害などについて一切責任を負いません。<br><br>
<a href="http://www.jah.ne.jp/~fild/cgi-bin/LBCC/lbcc.cgi?url=$url">ブラクラチェッカー</a><br>
<a href="view-source:$url">\ソ\ースを\表\示</a><br><br><hr><br>
HTML
$warn and print "$warn\n";
print <<HTML;
広告<br></body></html>
HTML
sub err { print 'ERROR'; exit; }

384 ：◆ERFyY54AcA ：04/03/11 19:32 ID:???

だれか>>382の問題
修正出来る方お願いします
いろんなスプリクトの付け足しとかなんで、
著作権表示とか出してません

385 ：名無しさん＠ぜろちゃんねる：04/03/11 21:59 ID:???

ひでぇコードだな

386 ：◆ERFyY54AcA ：04/03/11 22:51 ID:???

>>385
本当に適当なんで・・

387 ：◆ERFyY54AcA ：04/03/11 22:52 ID:???

途中でenter押しちゃった・・
実はperlの知識がほとんどないもんで・・

388 ：名無しさん＠ぜろちゃんねる：04/03/12 08:58 ID:???

こんなのでどうだ？

#!/usr/local/bin/perl

# 使い方：　http://このCGIを設置したパス/このCGI名/ジャンプ先
#
# 　　　ジャンプ先は http:// 省略も可。（省略時はhttp://とみなす）
#
# 　例　http://www.example.com/cgi-bin/jump.cgi/example.net/hoge.html
# 　例　http://www.example.com/cgi-bin/jump.cgi/http://example.net/bbs.cgi?start=1&end=5
# 　例　http://www.example.com/cgi-bin/jump.cgi/ftp://example.net/
#
# 警告リストを使うなら、このcgiと同じディレクトリにファイル名 warning.cgi でUPする。
#
# 書式： URL<>警告文 （1行ずつ。URLはhttp://なども含めて書くこと）
#
# 　※　リストのURLとジャンプ先URLは先頭から比較され、完全一致または
# 　　　長いほうのURLに短いほうのURLが含まれていれば警告が出る。
#

389 ：名無しさん＠ぜろちゃんねる：04/03/12 09:00 ID:???

print "Content-Type: text/html\n\n";

$url = $ENV{'PATH_INFO'};
$url =~ tr/+/ /;
$url =~ s/%([0-9A-Fa-f][0-9A-Fa-f])/ pack('H2', $1) /eg;
$url =~ s/(\w+)?:\/\///g;
$url =~ s/(\w+)?:\///g;
$prot = $1;
$len = length($url);
if ($len % 2 == 0) {
　$dmy1 = substr($url, 0, $len / 2);
　$dmy2 = substr($url, $len / 2);
　if ($dmy1 eq $dmy2) {
　　$url = $dmy1;
　}
}
$url = $prot? "$prot:/" . $url: 'http:/' . $url;
$url .= $ENV{'QUERY_STRING'}? "?$ENV{'QUERY_STRING'}": '';
if (-e "./warning.cgi") {
　open (WARN, "./warning.cgi") || &err;
　while(<WARN>){
　　($warurl, $message) = split (/<>/, $_);
　　if (index ($warurl, $url) == 0 || index ($url, $warurl) == 0) {
　　　$warning = "参考：以下をWarningリストで発見しました<br><b>$warurl</b> $message";
　　　last;
　　}
　}
　close (WARN);
}

390 ：名無しさん＠ぜろちゃんねる：04/03/12 09:00 ID:???

print <<HTML;
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html lang="ja">
<head>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; CHARSET=Shift_JIS">
<title>別のページにジャンプしようとしています。</title>
</head>
<body>
<p><b><a href="$url" target="_top">$url</a></b></p>
別のサイトにジャンプしようとしています。宜しければ上記のリンクをクリックしてください
<br>リンク先はブラクラやウイルスなど危険なサイトのこともあります。<br>
当サイトではリンク先で起きた損害などについて一切責任を負いません。<br>
<p>$warning</p>
<a href="http://www.jah.ne.jp/~fild/cgi-bin/LBCC/lbcc.cgi?url=$url">ブラクラチェッカー</a><br>
<a href="view-source:$url">\ソ\ースを\表\示</a><br><br><hr><br>
広告<br>
</body>
</html>
HTML

exit;

sub err {
　print 'ERROR';
　exit;
}

391 ：masa(ry：04/03/12 13:50 ID:???

>>388-390
これはローカルのみ可能でweb(XREA)では�_

392 ：◆ERFyY54AcA ：04/03/12 15:37 ID:???

mod_perlありは無理なのかな？
>>388-390
ありがとう！
今から設置テストしてみます

393 ：◆ERFyY54AcA ：04/03/12 15:43 ID:???

mod_perlじゃなくて28行目からエラーがでてるみたいです

394 ：masa(ry：04/03/12 16:20 ID:???

>>◆ERFyY54AcA
多分、君が望んでいたものっぽいやつ

http://srd.s8.xrea.com/dl/jump.txt


使い方：　http://このCGIを設置したパス/このCGI名/ジャンプ先
使い方：　http://このCGIを設置したパス/このCGI名?ジャンプ先

　　　ジャンプ先は http:// 省略も可。（省略時はhttp://とみなす）

例　http://srd.s8.xrea.com/jump.cgi/example.net/hoge.html
例　http://srd.s8.xrea.com/jump.cgi/http://example.net/bbs.cgi?start=1&end=5
例　http://srd.s8.xrea.com/jump.cgi/ftp://example.net/

例　http://srd.s8.xrea.com/jump.cgi?example.net/hoge.html
例　http://srd.s8.xrea.com/jump.cgi?http://example.net/bbs.cgi?start=1&end=5
例　http://srd.s8.xrea.com/jump.cgi?ftp://example.net/

warningファイル
書式： URL<>警告文 （1行ずつ
　※　リストのURLとジャンプ先URLを比較して、リストのURLがジャンプ先URLに
　　　あった場合、警告文を表示させる

395 ：◆ERFyY54AcA ：04/03/12 16:22 ID:???

ｷﾀ━━━━(ﾟ∀ﾟ)━━━━ !!!!!
ありがとう
設置してみます

396 ：◆ERFyY54AcA ：04/03/12 16:26 ID:???

だめだ・・
例　http://srd.s8.xrea.com/jump.cgi?example.net/hoge.html
はOKだけど
例　http://srd.s8.xrea.com/jump.cgi/http://example.net/hoge.html
はだめ

397 ：masa(ry：04/03/12 16:27 ID:???

>>394
追記
動作テストはXREAのみですので他の鯖で上手く
動くかわかりませんので悪しからず

398 ：masa(ry：04/03/12 16:29 ID:???

>>396
できれば使用鯖を教えてくれませんか？

あと、連続ｽﾏｿ

399 ：◆ERFyY54AcA ：04/03/12 17:38 ID:???

自宅鯖でつ（Win鯖）
Apache2.0.28+Winのperl

400 ：名無しさん＠ぜろちゃんねる：04/03/12 18:47 ID:???

＞masa(ry
XREAの$ENV{'PATH_INFO'}が鯖によっておかしい場合があるのを知らないのか？

http://srd.s8.xrea.com/jump.cgi/example.net/hoge.html　の場合

/example.net/hoge.html/example.net/hoge.htmlと2重に返すことがある

だから長さが偶数バイトなら半分にして比較するようにしたんだよ

それをふまえて修正してくれ

あと、ループの中でif($url =~ /$warurl/){みたいに正規表現を使うよりは
indexなど文字列関数のほうがはるかに高速

401 ：名無しさん＠ぜろちゃんねる：04/03/12 18:57 ID:???

>>388-390は以下で動作確認したんだけどなぁ
XREA　S10、S27、S41、S53
Apache1.3.29+ActivePerl5.8.0 805
Apache2.0.48+ActivePerl5.8.0 805

28行目からエラーか・・・

402 ：名無しさん＠ぜろちゃんねる：04/03/12 19:09 ID:???

この部分、Winではこのままじゃ無理

if ($ENV{'PATH_INFO'}){
　$url = $ENV{'PATH_TRANSLATED'};
　$url =~ s/$ENV{'DOCUMENT_ROOT'}//;

403 ：masa(ry：04/03/12 19:52 ID:???

>>400
_|￣|○そうだったのか･･･

ん〜、Apache入れてないからやりようが無いか・・・
Apache入れて再度やってみるかな

404 ：masa(ry：04/03/12 20:54 ID:???

>>◆ERFyY54AcA

http://srd.s8.xrea.com/dl/jump.txt
とりあえず、
Apache 2.0.48
Perl 5.8
これで動作確認しました。

405 ：◆ERFyY54AcA ：04/03/12 20:59 ID:???

おお
うまく動きました！
ありがとう！

406 ：名無しさん＠ぜろちゃんねる：04/03/12 21:06 ID:???

>>404
$ENV{'PATH_TRANSLATED'}の利用もいいと思う。
WinのApache 2.0.48だとhttp://を含んだPATH_TRANSLATEDは空で返ってくるな。

if ($ENV{'PATH_INFO'}){
if ($ENV{'PATH_TRANSLATED'} eq '') {
$url = $ENV{'PATH_INFO'};
} else {
$url = $ENV{'PATH_TRANSLATED'};
}
$url =~ s|\\|\/|g;
$url1 = $ENV{'DOCUMENT_ROOT'};
$url1 =~ s|\\|\/|g;
$url =~ s/$url1//;
$url =~ tr/+/ /;
$url =~ s/%([0-9A-Fa-f][0-9A-Fa-f])/ pack('H2', $1) /eg;
$url =~ s|(\w+)?:\/||g;
$prot = "$1:/";
if ($prot eq ':/') { $prot = "http:/"; }
$url .= $ENV{'QUERY_STRING'}? "?$ENV{'QUERY_STRING'}": '';
$url = "$prot$url";
}else{
$url = $ENV{'QUERY_STRING'};
$url =~ tr/+/ /;
$url =~ s/%([0-9A-Fa-f][0-9A-Fa-f])/ pack('H2', $1) /eg;
$url =~ s|(\w+)?:\/\/||g;
$prot = "$1://";
if ($prot eq '://') { $prot = "http://"; }
$url = "$prot$url";
}

407 ：名無しさん＠ぜろちゃんねる：04/03/12 21:27 ID:???

1行抜けていた

if ($ENV{'PATH_INFO'}){
if ($ENV{'PATH_TRANSLATED'} eq '') {
$url = $ENV{'PATH_INFO'};
} else {
$url = $ENV{'PATH_TRANSLATED'};
}
$url =~ s|\\|\/|g;
$url1 = $ENV{'DOCUMENT_ROOT'};
$url1 =~ s|\\|\/|g;
$url =~ s/$url1//;
$url =~ tr/+/ /;
$url =~ s/%([0-9A-Fa-f][0-9A-Fa-f])/ pack('H2', $1) /eg;
$url =~ s|(\w+)?:\/\/||g;
$url =~ s|(\w+)?:\/||g;
$prot = "$1:/";
if ($prot eq ':/') { $prot = "http:/"; }
$url .= $ENV{'QUERY_STRING'}? "?$ENV{'QUERY_STRING'}": '';
$url = "$prot$url";
}else{
$url = $ENV{'QUERY_STRING'};
$url =~ tr/+/ /;
$url =~ s/%([0-9A-Fa-f][0-9A-Fa-f])/ pack('H2', $1) /eg;
$url =~ s|(\w+)?:\/\/||g;
$prot = "$1://";
if ($prot eq '://') { $prot = "http://"; }
$url = "$prot$url";
}

408 ：masa(ry：04/03/12 21:29 ID:???

>>406
if($ENV{'PATH_INFO'}){
if($ENV{'PATH_TRANSLATED'} eq ''){
$url = $ENV{'PATH_INFO'};
}else{
$url = $ENV{'PATH_TRANSLATED'};
}
$url =~ s|\\|\/|g;
$url1 = $ENV{'DOCUMENT_ROOT'};
$url1 =~ s|\\|\/|g;
$url =~ s/$url1//;
$url =~ tr/+/ /;
$url =~ s/%([0-9A-Fa-f][0-9A-Fa-f])/ pack('H2', $1) /eg;
$url =~ s|(\w+)?:\/||g;
$prot = "$1:/";
$url .= $ENV{'QUERY_STRING'}? "?$ENV{'QUERY_STRING'}": '';
}else{
$url = $ENV{'QUERY_STRING'};
$url =~ tr/+/ /;
$url =~ s/%([0-9A-Fa-f][0-9A-Fa-f])/ pack('H2', $1) /eg;
$url =~ s|(\w+)?:\/\/||g;
$prot = "$1://";
}
if($prot eq ':/'){ $prot = "http:/"; }elsif($prot eq '://'){ $prot = "http://"; }
$url = "$prot$url";

こんな感じに省略できるな。
あと、XREAでも動作確認したし
http://srd.s8.xrea.com/dl/jump.txt
入れ替えておきました。

409 ：masa(ry：04/03/13 23:03 ID:zhBlTavY

headline.cgi 7.0(仮)
http://srd.s8.xrea.com/test.html

とりあえず、こんな感じで製作途中です。
レイアウトを作るのがﾏﾝﾄﾞｸｾなので
某検索サイトよりパクリました(ﾏﾃ
<!-- レイアウト誰か作ってくれないかなぁ -->

410 ：名無しさん＠ぜろちゃんねる：04/03/15 22:03 ID:???

>>409
マジすごいっす。
こんなheadlineになったら嬉しいです。
でも訴えられないかなｗ

411 ：◆ERFyY54AcA ：04/03/15 22:06 ID:???

Ahooだから大丈夫でしょ

412 ：◆3X1b8VAs/E ：04/03/16 21:19 ID:Wu8NR6WU

誰か、実況板のスレ自動圧縮システム作れる人います？
もしいたら神なんだが・・・

413 ：◆ERFyY54AcA ：04/03/16 21:55 ID:???

なぜ
http://srd.s8.xrea.com/
にJIMﾀﾝが

414 ：はりねずみ ◆HaRinezUmI ：04/03/16 22:12 ID:???

>>412
それに限らずdat落ちの機能を付けられたら便利だね。

dat落ちのタイミングって
・圧縮
　　スレの数が○個を超えたらdatの最終更新時間順に○個まで減らす
・即死
　　スレが立って1日？以内にスレの容量が○KB
　　もしくはレス数が○個以上にならないとdat落ち
・普通のdat落ち
　　レス数が980以上？もしくは512KB？を超えて○時間レスが付かないとdat落ち
・n日ルール
　　スレが立ってから○日経つとdat落ち
？が付いてるところとかは正確な数値は分からんけどこんな感じであってるかな。
他にもありましたっけ？

415 ：masa(ry：04/03/16 22:43 ID:76Gf4o1c

>>413
ﾊﾞﾚﾀｶｰ

>>414
ん〜、定期巡回で条件に該当する.datを***するって感じでやるのかな？
bbs.cgiを起動させるたびに巡回させてたんじゃ、負荷がかかるし。

定期巡回でチェックするんだったら何時間ごとにチェックとか
毎月、指定した日時にチェックするとか、いろいろあるけどね

どっちにしても、組み込むのではなくて
新しくスクリプトを作るほうが、いいのでは？(dat.cgiとかさ〜)
<!--組み込むとのなるとスクリプト毎に組みなおさないといけないからね〜-->

416 ：◆3X1b8VAs/E ：04/03/16 22:44 ID:???

>>414
そうそうソレソレ、ぜひホスィ

417 ：masa(ry：04/03/16 22:45 ID:???

sage忘れてた_|￣|○

>>412
>実況板のスレ自動圧縮システム
詳細ｷﾎﾞﾝ

418 ：◆3X1b8VAs/E ：04/03/16 22:47 ID:???

>>417
２ちゃんの実況ch板で、スレ数を一定（１０〜２０ぐらい）
に保つために、>>414のような事が行われるシステム。

419 ：masa(ry：04/03/16 22:52 ID:???

>>418
んで、圧縮ってのは
どんな感じで圧縮されんの？
(たとえば>>1に>>1−20を入れるとか)

420 ：◆3X1b8VAs/E ：04/03/16 23:13 ID:Wu8NR6WU

>>419
あー、そうじゃなくて、圧縮は強制dat落ちさせる事。
分からなかったらスマソ

421 ：masa(ry：04/03/16 23:19 ID:???

>>420
んと、30スレが立ったら
合計スレ数が10〜20スレにするために
最終更新日がどうたらこうたらで
ｲﾗﾈdatを落とすってことか

422 ：名無しさん＠ぜろちゃんねる：04/03/16 23:49 ID:94dmVGl+

>>421
つまりそういうこと。
大体の基本パターンは、x時間ごとにスレ数が多いか
自動で見て落とすっていうパターンだと思う

423 ：masa(ry：04/03/17 01:05 ID:???

ん〜、やっぱり、スレ自動圧縮システムは
bbs.cgiとかに組み込むしかないのかなぁ。
スレ立て時に現在スレ数を確認して
一番古い更新日時とスレ立て時の日時を比べて
一定の期間が離れていたらpoolに落として
スレ立て処理を行う

即死とか、他のは
read.cgiに組み込めば可能っぽいが
read.cgiで読み込むとき、datディレクトリを開いて
条件のあう.datをpoolに落とす

read.cgiに組み込むと負荷が大きくなりそうだ

bbs.cgiとかだとレスの時は素通りでスレ立てのみ
反応させて処理を行う

こんな感じかな

424 ：名無しさん＠ぜろちゃんねる：04/03/17 15:20 ID:???

デーモンを常駐できればいいかもしれないけど、それを許容
してくれる鯖は多分ないだろうな・・・。
訪問者によって起動されるcgiに組み込む場合、特に排他制御が
問題にならない？複数ファイルが絡んでくると尚更にね。
いや・・・よほど注意深く組まないと、同時投稿があった際に
とんでもない事になりはしないかとｗ

425 ：名無しさん＠ぜろちゃんねる：04/03/17 15:28 ID:???

あと細かい事ですけど、read.cgiで起動するシステムの場合、
仮に訪問者全員が2chブラウザだと一生起動されませんね・・・

426 ：masa(ry：04/03/17 18:45 ID:???

>>2chﾌﾞﾗｳｻﾞ
そりゃそうだ。

自動ってのが問題かな
手動なら簡単だろうが

427 ：7M. ◆dq7M./4Uw. ：04/03/17 20:25 ID:???

私の場合こんな感じに処理してるんですが…
perl書きたての頃に書いたからムダな処理しまくり。。。
sort使えよと小一時間（ry
ttp://moreover.hp.infoseek.co.jp/cgi-bin/comp.txt

でもこれだとこのcgiを起動しない限り圧縮は行われないですねぇ。
自動あっしくとは程遠いとゆーかなんとゆーか。

428 ：masa(ry：04/03/17 20:34 ID:???

>>427
へー、作ってたのか
やっぱ、自動圧縮発動条件は
bbs.cgiとsubbbs.cgiに組み込むしかないのかな。


<!--
そーいえば7Mﾀﾝは今、何歳なんだろうか
あと、暇つぶしのドメイン取得 http://www.0ch.info/
-->

429 ：7M. ◆dq7M./4Uw. ：04/03/17 20:35 ID:???

あ、>>427のスクリプトは当然手動です（汗
すんまそ。

430 ：7M. ◆dq7M./4Uw. ：04/03/17 20:39 ID:???

＞へー、作ってたのか
＞やっぱ、自動圧縮発動条件は
＞bbs.cgiとsubbbs.cgiに組み込むしかないのかな。
んー…
まぁ時限発動式スクリプトはちと鯖的に厳しいですからね…


＞<!--
＞そーいえば7Mﾀﾝは今、何歳なんだろうか
＞あと、暇つぶしのドメイン取得 http://www.0ch.info/
＞-->
/*
ぴちぴちの18歳だす。
*/

431 ：masa(ry：04/03/17 20:41 ID:???

>>430
ｃ⌒っ*ﾟーﾟ)φ　ﾒﾓﾒﾓ...7Mﾀｿは18歳っと

432 ：masa(ry：04/03/17 20:47 ID:???

自動圧縮はスレ立て時にチェックかけて
即死とかは手動って形になっちゃうのかなぁ
bbs.cgi subbbs.cgiに即死とか組み込むとなると
かなり鯖に負荷がかかるかもしれないし