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

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

1 :◆masa6ZQkmE :03/10/16 13:40 ID:EIjJ21rM
ぜろちゃんねるをアシストするスクリプトを作るスレ

配布中アシストスクリプd

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

320 :名無しさん@ぜろちゃんねる:03/12/12 14:06 ID:???
age

321 :masa(ry:03/12/12 16:19 ID:???
_| ̄|○取りあえず、公開
read.cgi http://bbs.marsa.org/read.txt
2000000000.dat http://bbs.marsa.org/test/2000000000.dat
使い方は、
read.txtをread.cgiにリネームしてtestフォルダに入れて下さい。

322 :名無しさん@ぜろちゃんねる:03/12/12 16:53 ID:???
>>321
ども!
ありがdございます

323 :名無しさん@ぜろちゃんねる:03/12/12 17:26 ID:???
>>321
datファイルサイズが取得できてない
@fstat = stat('2000000000.dat');
$fsz = int($fstat[7] / 1024);
$T->Print("<font color=red face=\"Arial\"><b>${fsz} KB</b></font>");

324 :masa(ry:03/12/12 17:34 ID:???
>>323
_| ̄|三 Σ○ アイタタ、計算するdatを選択し忘れた(汗

訂正して、再うpしました。
落としちゃった方はスミマセン、再度落として設置してください。

325 :名無しさん@ぜろちゃんねる:03/12/12 20:41 ID:???
ダウソしなくても、
コピペで
dat検索結果出力 - PrintDiscovery
をカエルだけでOK?

326 :masa(ry:03/12/12 21:46 ID:???
>>325
OKでつよ。
あと、read.cgiのバックアップは忘れずに。

327 :7M. ◆dq7M./4Uw. :03/12/13 14:35 ID:???
なるほろ、2000000000.datのサイズを取得してるのか…
ウチはどうせ2000000000.datのサイズなんて3kbくらいだろうから、
適当に3kbってプリントさせてた。(素

328 :masa(ry:03/12/13 15:38 ID:???
read.cgi 0ch BBS 2003-12-12
http://srd.s8.xrea.com/read.txt
これが、管理人さんが作ったヤツの問題を解消したヤツ

329 :dq7(略:03/12/13 16:42 ID:???
>>328
お、そんなもんがあるなら私の作ったしじあいもそこに保管しといてくださいよ。

330 :masa(ry:03/12/13 19:38 ID:???
>>329
一応、おきましたので。他にもあるのなら教えてくださいよ、保管しますから(ニヤリ
それじゃぁ、公開かな。
http://srd.s8.xrea.com/
_| ̄|○取りあえず、保管許可が出たのだけおいてみた。コンテンツ薄いですがスミマセン

331 :7M. ◆dq7M./4Uw. :03/12/13 23:23 ID:???
http://moreover.hp.infoseek.co.jp/cgi-bin/link.txt
こんなのもあるです。

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:???
キャップ自動生成CGIの登録キャップ表示で最後の1件が表示されないんだけどうちだけ?

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
全然桶です。ていうか私もほしいですw

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:???
ファイルうpは出来るの?

357 :masa(ry:04/02/29 10:53 ID:???
>>356
_| ̄|○_です。

358 :名無しさん@ぜろちゃんねる:04/02/29 11:09 ID:???
ファイルうp機能追加してー
でも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:???
一人2つ以上作ると
作成前 実験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になったら嬉しいです。
でも訴えられないかなw

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
2ちゃんの実況ch板で、スレ数を一定(10〜20ぐらい)
に保つために、>>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落ちさせる事。
分からなかったらスマソ

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