■スレッドリストへ戻る■ 全部 1- 101- 201- 301- 401- 501- 601- 701- 801- 901- 1001- 最新50

【スレッド】2ch型掲示板 その5【フロート型】

436 : ◆sUY48rs. :02/06/20 18:03 ID:???
>435
kageの更新履歴より

Ver.0.99.1.52 02/05/21 00:38 (Part64 610)
・PATH_INFO仕様の外部板に対応。
PATH_INFO仕様に対応した外部板のホスト名を
pathinfo.txtにずらずら書き並べてください。

ということで、2ch以外のサーバーで掲示板設置してPATH_INFOに対応したい場合は
ファイル作ってずらずら書き並べればOK・・・のはず

437 :コナン ◆SEX69q3Q :02/06/20 18:06 ID:???
>>436
ありがとうございました。

438 :pear ◆FRUIT8pk :02/06/20 18:14 ID:???
他の人のソース見てたら、自分のがとっても無知に感じるなぁ
まったくわかんねーや

439 :nobodyさん :02/06/20 18:28 ID:???
盛りあがってますな( ´ー`)y¬
                    ~~~

440 :nobodyさん :02/06/20 19:20 ID:???
洗練されたソースでもコメント入って無いと解析に時間かかる…

441 :実験中毒 ◆3JIkKEns :02/06/20 19:39 ID:???
コンペに出したのとは別の、練習用に使っていたスクリプトでよかったらあげますよん。
すんげぇきたないけど、欲しい人います?

442 :nobodyさん :02/06/20 19:51 ID:???
>>425
telnetでperlコマンドやったらこんなのでた。
syntax error at bbs.cgi line 132, near "=~ |"
syntax error at bbs.cgi line 158, near "}) "
syntax error at bbs.cgi line 178, near "}"
Execution of bbs.cgi aborted due to compilation errors.

「=~ |」と「}) 」と「}」はNGワード?

443 :nobodyさん :02/06/20 20:42 ID:???
>>441
うむ。おくれー。

444 :実験中毒 ◆3JIkKEns :02/06/20 21:27 ID:???
http://www8.ocn.ne.jp/~hoehoe/bbs0_31_cgi.txt
どっかで見たようなスクリプトに、ごちゃごちゃに手を加えただけのものです。
http://www8.ocn.ne.jp/~hoehoe/bbs1_05_cgi.txt
コンペに出したやつの基本型です。

知識が無いのでどちらもへぼい仕上がりです。
もう修正とかする気のないやつなので、バグとか直してなかったり、
変な記述があったりしますが、適当に直して使ってちょ。
一応、どっちも新形式のスクリプトです。

ちなみに、>141 をベースにいろいろ書いたのがコンペ用だったりします。。

445 :nobodyさん :02/06/20 22:11 ID:???
おぉー、、見させてもらったよー。


446 :nobodyさん :02/06/20 22:20 ID:???
不具合でまくってたモ板のヤツはちょっと・・・

447 :nobodyさん :02/06/20 22:29 ID:???
新スクリプトは破雲のやつが一番で気が良かったと思う

448 :nobodyさん :02/06/20 23:17 ID:???
うん。おみくじ良かった。
外部からPOSTできるのも良かった。
PROXY規制が無いもの良かった。

449 :破雲 ◆6Xvfle8c :02/06/21 01:02 ID:???
>>448
それは書き込みやすいようにスイッチをoffにしてただけですヨン

450 :nobodyさん :02/06/21 12:06 ID:???
コンペってどこでやってたの?

451 :nobody :02/06/21 13:39 ID:???
>>450
実験板
http://ooo.2ch.net/jikken/

452 :  :02/06/21 19:57 ID:???
72 KB [ 2ちゃんねるの一日1,600万PVを支える Big-Server.com ]

こんな漢字の表示はどうしたらよいのでしょう…

453 :nobodyさん :02/06/21 20:37 ID:???
>>452
そうやって初心者を釣ろうとしたって騙されないよ

454 :nobodyさん :02/06/21 23:12 ID:???
print qq{72 KB [ 2ちゃんねるの一日1,600万PVを支える Big-Server.com ]};
ほれ。

455 :コナン ◆SEX69q3Q :02/06/22 00:04 ID:???
>>449
破雲さんのも見てみたい・・・と言ってみる(w

456 :nobodyさん :02/06/22 00:22 ID:???
2chでよくある圧縮の仕組みについて知っておられる方がおられたら詳しく教えていただきたい。

457 :nobodyさん :02/06/22 01:30 ID:???
mod_gzip?

458 :nobodyさん :02/06/22 01:30 ID:???
つーか、コナンての、ただのクレクレ厨なウザコテだな。

459 :nobodyさん :02/06/22 01:31 ID:???
>>456
ただ単にdatを倉庫に送ってるだけ

460 :nobodyさん :02/06/22 01:32 ID:???
スレ圧縮?gzip?

461 :nobodyさん :02/06/22 01:34 ID:???
>>450
モー板(狼)

462 :nobodyさん :02/06/22 10:34 ID:???
♪を PATH_INFO でも対応できるように改造してるんだけど、2ch 側の
細かい仕様が解りませぬ。探したんだけど、どっかにリソース(資料)
無いですか?

463 :nobodyさん :02/06/22 11:12 ID:???
PATH_INFOは使える鯖と使えない鯖がある。

464 :nobodyさん :02/06/22 12:09 ID:???
>>456
>>462
なんか謎…


465 :pear ◆FRUIT8pk :02/06/22 13:06 ID:???
>452
容量を表示するってことなら、

$size = int((-s $file) / 1024);
print $size . "KB";

とかでできると思う

466 :nobodyさん :02/06/22 13:31 ID:???
>>465
本題からは外れるが、なぜ "." を使う?


467 :462 :02/06/22 13:32 ID:???
自己解決

ここにあった。ついでに、さっくりとできてしまった…
http://www.skipup.com/~niwatori/index3.htm

468 :nobodyさん :02/06/22 14:44 ID:???
>>467
PATH_INFO出来たら公開してちょ。

469 :nobodyさん :02/06/22 18:09 ID:???
>>466
明示のために使う方が正しいに決まっている。

470 :nobodyさん :02/06/22 18:21 ID:???
どっちでもいいやん・・・どっちでも使えるんだし(;´Д`)

471 :nobodyさん :02/06/22 19:00 ID:???
>>469
(゚Д゚)ハァ?


472 :nobodyさん :02/06/22 19:11 ID:???
>>470
どっちでもっていうなら、もう一方を出してみなよ


473 :452 :02/06/22 20:20 ID:???
>>453-454
ヽ(`Д´)ノ

>>465
アリガdヽ(´ー`)ノゎ-ぃ

474 :452 :02/06/22 20:52 ID:???
この辺りに書き加えたらいいと思うのですが、
おいらにはこれ以上判らないみたいです(;´Д`)

$st--;
my $nextstr;
if($resno-1>$st){
$nextstr = "続きを読む";
}else{
$nextstr = "新着レスの表\示";
}
my $rsnt=$st+100;

if ($ENV{'PATH_INFO'}) {
print "</dl><hr><center><a href=${st}->$nextstr</a></center>";
print "<hr><a href=\"$path$bbs/\">掲示板に戻る</a> <a href=./>全部</a> 次100 最新50\n";
}else {
print "</dl><hr><center><a href=read.cgi?bbs=$bbs&key=$key&st=$st>$nextstr</a></center>";
print "<hr><a href=\"$path$bbs/\">掲示板に戻る</a> 全部 次100 最新50\n";
}

475 :452 :02/06/22 21:01 ID:???
../$bbs/dat/$key.dat

このファイルの容量を収得して表示するんですよね…
もう少し考えてみます。

476 :453 :02/06/22 21:23 ID:???
>>452
ヽ(`Д´)ノ

</dl>で早めに終了して>>465を追加するだけやん

477 :nobodyさん :02/06/22 21:51 ID:???
ぷりんと "<b>", int((-s DAT) / 1024), " `</b>";

478 :nobodyさん :02/06/22 21:59 ID:???
>>477
なんか意外だな
一見ふざけてるようで一番マトモなとこが藁たw


479 :nobodyさん :02/06/22 23:36 ID:???
昔どっかにあったスレッド型で発言順に上になる逆2chみたいなのってソース残ってないかな?

480 :nobodyさん :02/06/23 00:59 ID:???
ahokusa

481 :nobodyさん :02/06/23 01:02 ID:???
>>470-471
use strictでエラーでまくりのタイプ


482 :462 :02/06/23 02:00 ID:???
CGI できて友人にテストして貰ったら html 生成の所で対応して無かった(ゲラ

やってることはスゲー単純で、$ENV{'PATH_INFO'} を %FORM の対応している
連想配列に設定しているだけ。こんなの、うpするまでもないもんだと思うが…

欲しいのか?

483 :466 :02/06/23 02:05 ID:???
>>481
( ゚Å゚)ホゥ
で、その根拠は?
ま、どうせ書けないんだろうけどなw
誰か漏れの疑問に早く答えてよ〜!


484 :nobodyさん :02/06/23 15:06 ID:???
この板だけ保守って要らないから便利だな

485 :nobodyさん :02/06/23 16:04 ID:???
>>466って質問のレベルから言って
$size = int((-s $file) / 1024);
print "$size KB";
とか書いてそうだな。(プ

486 :466 :02/06/23 16:35 ID:???
>>485
プッ

結局、誰もわからないわけか


487 :nobodyさん :02/06/23 17:28 ID:???
飛べない豚はただの豚って事で放置しような・・・

488 :452 :02/06/23 18:02 ID:???
>>465+>>476の方法では無理で、>>477の方法では「0 KB」と表示されるようになりました…。
容量が収得できないみたいです。
お馬鹿なおいらに突っ込みキボン(;´Д`)

if ($ENV{'PATH_INFO'}) {
print "</dl>";
print "<b>",int((-s DAT) / 1024),"KB</b>";

}else {
print "</dl>";
print "<b>",int((-s DAT) / 1024),"KB</b>";

}

489 :nobodyさん :02/06/23 18:11 ID:???
もう、付き合ってられん。少しくらいperl学んできてくれ。

490 :pear ◆FRUIT8pk :02/06/23 18:49 ID:???
>488
$file にサイズ取得したいファイルをあらかじめ代入しておく

491 :nobodyさん :02/06/23 18:52 ID:???
その程度のおつむで2ちゃんねるスクリプトを弄ろうってか。
もうね、アホかと。バカかと。
素人は print 'Hello world.'; でもやってなさいってこった。

492 :466 :02/06/23 18:59 ID:???
めんどうだからマジレスしとく

>>465が書いた例に対し、なぜ、わざわざ "." で結合するのか聞いたけど、
その回答が>>469
> 明示のために使う方が正しいに決まっている。
か?
意味わかんねぇよw
何を明示すんだ?

そもそも$sizeって何に使うんだ?
使いもしねぇ変数作ってどうすんだよ?
おまけに "." 使って結合してるし…

>>465みたいに書きたいなら、普通は
> print int((-s $file) / 1024), "KB";
こう書くのがセオリー
これなら無駄なメモリ転送が起きないからな
ここまで書いてわからんなら氏ね


493 :452 :02/06/23 20:23 ID:???
>>490
>$file にサイズ取得したいファイルをあらかじめ代入しておく

ご丁寧にありがとです。何となく判ってきた…。

>>491
馬鹿って宣言してるから大目に見てちょ。
あとは自分でやってみるョ。

494 :nobodyさん :02/06/23 21:02 ID:???
ボク初心者ですって言えばクレクレしてもいいとは限らない
ボク厨房ですって言えば荒らしてもいいとは限らない
ボク精神病なんですって言えば馬鹿な事してもいいとは限らないのだよ。

495 :pear ◆FRUIT8pk :02/06/23 21:02 ID:???
>492
確かにそっちのほうが良いですね。。
まだまだよくわかってないんで。

496 :452 :02/06/23 21:32 ID:???
なんとかファイルサイズ収得・表示にこぎつけました。(;´Д`)
参考にしたURI:http://www.presso.jp/text/perl/file.html
どなたか添削おながいします。

open( DAT, "<../$bbs/dat/$key.dat" ); #←手前にこの一行を付け足してみました(;´Д`)

if ($ENV{'PATH_INFO'}) {
print "</dl>";
print "<b>",int((-s DAT) / 1024),"KB</b>";

}else {
print "</dl>";
print "<b>",int((-s DAT) / 1024),"KB</b>";

}

497 :452 :02/06/23 21:38 ID:???
とりあえずまとめないと…
print "</dl><b>",int((-s DAT) / 1024),"KB</b>";

498 :pear ◆FRUIT8pk :02/06/23 21:45 ID:???
>492
その "," は、文字列連結演算子の "." と等価の意味合いがあるんですか?

499 :466 :02/06/23 22:30 ID:???
>>498
print の実体は関数で、リストコンテキストを受け取るから、
"," で区切って渡せば前から順番に print してくれる

で、"." は文字列の結合演算子だから、先にメモリ上で結合してから、
その値を print に渡す

内部処理が違うから効率に差は出るけど、表示だけ見ると等価になる


500 :nobodyさん :02/06/23 23:01 ID:???

500ゲットォォォ。
 ̄ ̄ ̄ ̄∨ ̄ ̄ ̄ ̄ ̄ ̄
  __∧∧_
/\(゚ー゚*) l\          (´´
\/| ̄∪ ̄ ̄|\     (´⌒(´
  \|____|≡≡≡(´⌒;;;≡≡≡
         (´⌒(´⌒;;



501 :いい加減にしろ。コーディングスレ逝け。クズ共 :02/06/23 23:02 ID:???










     た か が "." で 熱 く な っ て い る 馬 鹿 共 の 集 う ス レ は こ こ で す か?











502 :nobodyさん :02/06/23 23:18 ID:???
そろそろもう勘弁してください(;´Д`)人

503 :nobodyさん :02/06/24 00:06 ID:???
>>496
つか、開けたら閉じろ。

504 :nobodyさん :02/06/24 00:41 ID:???
これ?
http://17ch.lib.net/test/read.cgi?bbs=morningcall&key=024704127

505 :nobodyさん :02/06/24 00:42 ID:???
あげてしもた。。。
スマソ

506 :nobodyさん :02/06/24 00:54 ID:???
>>504
一番上のスレ以外には書き込み欄が見えないんだけど俺だけ?(;´Д`)
あと背景あの色は人をイライラさせる色ですな

507 :462 :02/06/24 01:21 ID:???
# PATH_INFO 対応
sub decode_pathinfo
{
 my ( $path_info, $resno, $h, $tmp );

 $path_info = $_[0];
 if ( $path_info ne '' ) {
  ( $tmp, $FORM{'bbs'}, $FORM{'key'}, $resno ) = split( /\//, $path_info );
  $resno =~ /(i|l?)([0-9]*)(\-?)([0-9]*)(n?)/;
  $FORM{'ls'} = $1 if ( $1 ne '' );
  $FORM{'st'} = $2 if ( $2 ne '' );
  $h = $3;
  $FORM{'to'} = $4 if ( $4 ne '' );
  $FORM{'nofirst'} = 'true' if ( $5 eq 'n' );

  if ( $FORM{'ls'} eq 'l' ) {
   $FORM{'ls'} = $FORM{'st'};
   delete $FORM{'st'};
}
  elsif ( $FORM{'ls'} eq 'i' ) {
   $FORM{'imode'} = 'true';
   delete $FORM{'ls'};
  }
  elsif ( $FORM{'st'} && $FORM{'to'} eq '' ) {
   if ( $h ne '-' ) {
    $FORM{'to'} = $FORM{'st'};
    $FORM{'nofirst'} = 'true';
   }
  }
 }
}


508 :nobodyさん :02/06/24 01:43 ID:???
ttp://kakiko.tv/
もそうだね。

509 :nobodyさん :02/06/24 02:24 ID:???
my $datfilesize = int((-s "../$bbs/dat/$key.dat")/1024);
print qq(<font color=red face="Arial"><b>$datfilesize KB</b></font>  <font size=2><b>[ 2ちゃんねるの一日1,600万PVを支えるBig-Server.com ]</b></font>);


510 :nobodyさん :02/06/24 02:29 ID:ykcyiIef
http://js-web.cside.com/index.html

511 :pear ◆FRUIT8pk :02/06/24 06:56 ID:???
>499
"," の方が効率はいいってことですね
丁寧にありがとうございます。

512 :perlはあんまシラソ :02/06/24 09:29 ID:L5sFfYHF
perl5.8出るらしいですね。
文字コード変換がperl側でサポートされるとか。

いいねぇ

513 :452 :02/06/24 10:24 ID:???
>>503
了解…。

>>509
感謝…。一発解決です。
今度質問するときはもっと勉強してからにします。

514 :nobodyさん :02/06/24 11:27 ID:???
>>511しつこい。粘着馬鹿

515 :nobodyさん :02/06/24 14:19 ID:???
>>514
プッ


516 :W3C信者 :02/06/24 16:13 ID:???
あめぞう型掲示板で仕様に合致したHTMLを生成するスクリプトはありませんか?

517 :nobodyさん :02/06/24 16:34 ID:???
>>512
Jcode.pmが同梱されるだけと思われ

518 :nobodyさん :02/06/24 16:40 ID:???
なるほど。、, .の見間違いレスに466が怒涛の(知ったか)マジレスってことか・・・


519 :nobodyさん :02/06/24 17:39 ID:???
>>518
んー、まぁ、その、なんだ…
とりあえず氏んでくれ


520 :YBE@17ch ◆YBEdlEW2 :02/06/24 19:48 ID:???
>>506♪スクリプト入れたらすぐ崩壊しますた(;´Д`)
>>507すまんです。sub系の最後に入れると両パターン(*1)でもエラーでます。
分析分析っと、、、

*1:/read.cgi/test/000と/read.cgi?bbs=test?key=000。

521 :nobodyさん :02/06/24 19:57 ID:???
>>520
リメイクしたら直らない?

522 :YBE@17ch ◆YBEdlEW2 :02/06/24 20:05 ID:???
>>521無理っす。ぐはあ。

523 :nobodyさん :02/06/24 20:14 ID:???
直らないか・・・
それはremake.cgiも同じように改造してないからじゃないのか?

524 :nobodyさん :02/06/24 21:00 ID:???
>>520

> すまんです。sub系の最後に入れると両パターン(*1)でもエラーでます。
> 分析分析っと、、、

> *1:/read.cgi/test/000と/read.cgi?bbs=test?key=000。

ごめん。言っている意味が解らん

件のスクリプトは、read.cgi に入れて使うもんで、decode_pathinfo を適切な
所から、適切なパラメーター与えて呼び出すようにすればオッケー

525 :nobodyさん :02/06/24 21:30 ID:???
PATH_INFO形式に出来たけどかちゅーしゃで見るとなってないんだけどこれって仕様?
ブラウザで戻ると昔のまんま(;´Д`)


526 : ◆Mz2000PY :02/06/24 21:32 ID:???
かちゅ〜しゃはデフォルトでは 2ch 以外の URL に PATH_INFO 形式は
使わないので、 pathinfo.txt にその板のアドレスを書かなきゃいけない。

http://selfish.ug.to/newslog/txt/kage.txt
Ver.0.99.1.52 02/05/21 00:38 (Part64 610)
・PATH_INFO仕様の外部板に対応。
PATH_INFO仕様に対応した外部板のホスト名を
pathinfo.txtにずらずら書き並べてください。


527 : ◆JQJvqZpw :02/06/24 21:35 ID:???
http://mtbbs.tr-w.net
これも一応あめぞう型?PATH_INFOにも対応しているみたいだけど・・・。

528 :nobodyさん :02/06/24 21:37 ID:???
pathinfo.txt・・・はじめて聞く名前だ

529 :nobodyさん :02/06/24 21:46 ID:???
http://mtbbs.tr-w.net/x/read.cgi/zatu/1/4
http://mtbbs.tr-w.net/x/read.cgi/zatu/1/6
ジサクジエン(・A・)イクナイ!!

530 :nobodyさん :02/06/24 22:11 ID:???
&decode path_info;を何処に入れたらいいのやら。。。

531 :462 :02/06/24 22:20 ID:???
あのさぁ…

>>524
> 件のスクリプトは、read.cgi に入れて使うもんで、decode_pathinfo を適切な
> 所から、適切なパラメーター与えて呼び出すようにすればオッケー

をちゃんと読んでくれ。それでも、解らないなら使わない方がいいよ

あと、read.cgi とか bbs.cgi で動的 html や html ファイル生成ロジックの
部分も修正しないと【完全な】PATH_INFO 対応にならないぞ

#サブルーチンにした意味が解っていないのかと…(略

532 :nobodyさん :02/06/24 23:08 ID:???
>>529
ワラタ

533 :nobodyさん :02/06/25 00:03 ID:???
sub decode
{
my ($name, $value, %get, $range);
if($ENV{'QUERY_STRING'} ne ""){
foreach(split /&/, $ENV{'QUERY_STRING'}){
($name, $value) = split /=/;
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack('H2',$1)/eg;
$get{$name} = $value;
}
$bbs = $get{'bbs'};
$key = $get{'key'};
$st = $get{'st'};
$to = $get{'to'};
$ls = $get{'ls'};
$im = $get{'imode'};
$nf = $get{'nofirst'};
}
# PATH_INFO分解
if($ENV{'PATH_INFO'} ne ""){
($bbs, $key, $range) = split /\//, substr($ENV{'PATH_INFO'}, 1), 3;

if($range =~ /^l(\d+)/){$ls = $1;}

if($range =~ /^(\d+)\-(\d+)/){
$st = $1; $to = $2;
}elsif ($range =~ /\-(\d+)/){
$to = $1;
}elsif ($range =~ /(\d+)\-/){
$st = $1;
}elsif($range =~ /^(\d+)/){
$st = $1; $to = $1; $nf = "true";
}
if($range =~ /i/){$im = "true";}
if($range =~ /\./){$nf = "false";}
if($range =~ /n/){$nf = "true";}
}
}

534 :nobodyさん :02/06/25 00:57 ID:???
>>533
$bbs = $get{'bbs'};
$key = $get{'key'};
$st = $get{'st'};
$to = $get{'to'};
$ls = $get{'ls'};
$im = $get{'imode'};
$nf = $get{'nofirst'};

なにこれ?なんか意味あんの?

535 :nobodyさん :02/06/25 01:25 ID:???
あるよバカ。
perl本でも読め。

187KB
新着レスの表示

スレッドリストへ戻る 全部 前100 次100 最新50

0ch BBS 2004-10-30