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

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

配布中ｱｼｽﾄｽｸﾘﾌﾟ㌧

ぜろちゃんヘッドラインVer 3.2
http://bbs.marsa.org/headline03.lzh
310 ：名無しさん＠ぜろちゃんねる：03/12/10 16:10 ID:???: >>309
read.cgiをかなりいじらないと無理。

っていうかね、2chはdat落ちの場合
http://ex.2ch.net/2000000000.dat
というdatを開くのよ。だから全く同じというのは無理。

表示される文字を変えたいだけなら
read.cgi 390-391行目を変更
311 ：名無しさん＠ぜろちゃんねる：03/12/10 16:32 ID:???: >>310
うおぉおおおおおおおおおお！
ありが㌧
312 ：はりねずみ ◆HaRinezUmI ：03/12/10 19:51 ID:???: >>310
( ･∀･)つ〃∩ ﾍｪｰﾍｪｰﾍｪｰﾍｪｰﾍｪｰ

初めて知った。。
313 ：masa(ry：03/12/11 00:25 ID:???: 0chに実装して欲しい機能の一つですかねぇ。
314 ：309：03/12/11 23:02 ID:JnsKHC+c: >>310どうもです。ここは、管理人さんに大いに期待です。
315 ：masa(ry：03/12/12 01:36 ID:???: 取りあえず、ためしに作ってみた。
dat落ち
http://bbs.marsa.org/test/read.cgi/jikken/1070622420/
316 ：名無しさん＠ぜろちゃんねる：03/12/12 07:47 ID:???: （・∀・）ｲｲ！
317 ：masa(ry：03/12/12 11:24 ID:???: _|￣|○実は、datから読み込んでいない罠
318 ：masa(ry：03/12/12 12:12 ID:???: 何とか、datから呼び出して表示させてみた
http://bbs.marsa.org/test/read.cgi/jikken/1070622420/
http://bbs.marsa.org/test/2000000000.dat
319 ：名無しさん＠ぜろちゃんねる：03/12/12 14:06 ID:???: >>318
やり方教えてﾎｽｨ
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
ども!
ありが㌧ございます
323 ：名無しさん＠ぜろちゃんねる：03/12/12 17:26 ID:???: >>321
datファイルサイズが取得できてない
@fstat = stat('2000000000.dat');
$fsz = int($fstat[7] / 1024);
$T->Print("${fsz} KB");
324 ：masa(ry：03/12/12 17:34 ID:???: >>323
_|￣|三　Σ○　ｱｲﾀﾀ、計算するdatを選択し忘れた(汗

訂正して、再うｐしました。
落としちゃった方はｽﾐﾏｾﾝ、再度落として設置してください。
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:???: キャップ自動生成ＣＧＩの登録キャップ表示で最後の１件が表示されないんだけどうちだけ？
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><a href="$url" target="_top">$url</a> 
別のサイトにジャンプしようとしています。宜しければ上記のリンクをクリックしてください
 リンク先はブラクラやウイルスなど危険なサイトのこともあります。 
当サイトではリンク先で起きた損害などについて一切責任を負いません。 
<a href="http://www.jah.ne.jp/~fild/cgi-bin/LBCC/lbcc.cgi?url=$url">ブラクラチェッカー</a> 
<a href="view-source:$url">\ソ\ースを\表\示</a> <hr> 
HTML
$warn and print "$warn\n";
print <<HTML;
広告 </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リストで発見しました $warurl $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>
<a href="$url" target="_top">$url</a>
別のサイトにジャンプしようとしています。宜しければ上記のリンクをクリックしてください
 リンク先はブラクラやウイルスなど危険なサイトのこともあります。 
当サイトではリンク先で起きた損害などについて一切責任を負いません。 
$warning
<a href="http://www.jah.ne.jp/~fild/cgi-bin/LBCC/lbcc.cgi?url=$url">ブラクラチェッカー</a> 
<a href="view-source:$url">\ソ\ースを\表\示</a> <hr> 
広告 
</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になったら嬉しいです。
でも訴えられないかなｗ

209KB

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

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