982コメント390KB

スクリプト改造工房 Part3

■ このスレッドは過去ログ倉庫に格納されています

0001名無しさん＠お腹いっぱい。

2001/05/02(水) 21:59ID:nr93n3do

「こういうふうにスクリプトを改造したいけどやりかたわかんないよー」
という人がいましたらここで聞いてください。
ひょっとしたらアドバイス出来るかもしれません。

前スレ
Part1 http://tako.2ch.net/test/read.cgi?bbs=perl&key=958370869
Part2 http://tako.2ch.net/test/read.cgi?bbs=perl&key=986986227
＃板移動に伴い「CGI改造工房」→「スクリプト改造工房」に改名

なお、質問するときは
1）そのスクリプトのある場所（URL必須、拡張子".txt"でアップすればなお良し）
2）どんな風に改造して欲しいのか？（完成イメージHTMLを用意すればなお良し）
を必ず明記しよう。

0312名無しさん＠お腹いっぱい。

01/08/26 19:58ID:pZXUWIx.

どうしたいのか全然解んないよ、これ添付ファイル付けれる奴だと
思うんだけど、単にCommentみたいなテキストフィールドを追加したいの?
良く理解出来ないんで、大雑把に書いとく

投稿部分に変数名に合わせたフィールドを追加（comment2とか）
　　　　↓
$in{comment2} って感じで出てくるから記事表示部とログ書き込み部にそれを追加

0313名無しさん＠お腹いっぱい。

01/08/27 01:39ID:Capa5Cts

> if ($secg < 10) { $secg = "0$secg"; }
こんなダサいこと最初にやり始めたのは誰なんだ？

KENT

0314230

01/08/28 12:02ID:0OFf5.gc

　fifnel板（petit2ch風味）改造について230で質問させていただいた者です。
不躾ながら、又質問させていただこうと思いました。
プチボードは一行レスがつくとどうしても長くなる為、2chのように「レスを全部読む」機能
をつけて、ラスト10レスのみを表示させたいと思っています。
　こちらの機能も、自分で何とかやってみよう、と思い、2ch掲示板のスクリプトを参考に、
http://url/petit.cgi?mode=res&resno=$numの形式でレスを全て表示させようとしましたが、失敗しました。

心やさしい方、出来ましたら改造よろしくお願いいたします。
＃231さん、ありがとうございました。著作権表示に加えさせていただきました。
petit board 2ch風味 by fifnel　-> http://www28.tok2.com/home/up2ch/petit.txt

0315230

01/08/28 12:05ID:0OFf5.gc

すいません、スクリプトはこちらで見てください。
トクトクって拡張子をtxtからjpgにして置くとちゃんとtxt表示されるんですね。
txtのままだと広告が入って見づらかったので、直しました。

0316230

01/08/28 12:05ID:0OFf5.gc

http://www28.tok2.com/home/up2ch/petit.jpg

0317名無しさん＠お腹いっぱい。

01/08/28 13:05ID:0OFf5.gc

知らんかった

0318名無しさん＠お腹いっぱい。

01/08/28 13:12ID:paG6GuIk

>>315-317 自動判別しないブラウザだと壊れた画像が表示される。

0319230

01/08/28 13:23ID:0OFf5.gc

http://cgi4ever.netfirms.com/petit.txt
アップしなおしました。ソースを表示で見て下さい。
引き続きレスを全部読む、をお願い致します。

>>318
ありがとうございました。

0320名無しさん＠お腹いっぱい。

01/08/28 19:17ID:zmbZVQFg

何だか礼儀正しい人だとおもいました
で、設置してみたらレスがグチャグチャになっちゃうんで
一気に萎えちゃったよぅ　　（´Д｀；）

0321230=314

01/08/28 19:45ID:8UDvGpp6

>>320さん
申し訳ありませんでした。昔私が改造し損ねたままにしておいたものをUPしてしまいました。
ファイル入れ替えました。今度は大丈夫かと。
http://members.tripodasia.com.hk/reach01r/petit.txt
http://www.dx.sakura.ne.jp/~fbrand/fifnel/bbs/　設置サンプルです。fifnelさんのメインBBSです。

レスを全部読む、機能と、petit.cgi表示時には末端10レスをスレッドに表示、が私の希望です。

--
まとめてみました。

0322230=314

01/08/28 19:53ID:8UDvGpp6

http://www28.tok2.com/home/up2ch/petit.cgi
配布してあるものをそのまま設置。
fifnelさんの掲示板はアレンジしてあったので。

0323318

01/08/29 01:18ID:YevndLiI

　お礼言われちゃったので少しやってみる。
未テスト。
　全レス表示はモード追加するか別ファイルで作るかせんといかんので
後日か、別の人か、自作かになる。

＞最新10レス
　446行あたりの
foreach $line (@lines) {
を
for(my $i = 0; $i < $表示レス数 and $line = $lines[$i]; $i++) {
にして、
　初めの『設定項目』あたりに
$表示レス数 = 10;
とかを追加する。
　変数名は適当なのに変えてくれ。

＞関係ないがバグ取り
　173行とかの色は000000でなく#000000と頭に#をつけるよろし。

0324314

01/08/29 02:52ID:hlHEKPjk

ウーン、レス全てが表示されなくなってしまった。
>>318さんありがとうございました。
頑張ってみます。

0325318

01/08/29 03:58ID:YevndLiI

>>324
ああっ、すみません！
スレごとのレス数じゃなくて板全ての発言数でやってました・・・

0326名無しさん＠お腹いっぱい。

01/08/29 12:57ID:OkEBscjU

どれを落せば良いんだ　　（・∀・）?

0327326

01/08/29 13:10ID:OkEBscjU

んと　242行目の　@lines = reverse(@lines); これコメントあうち
で　446行目の　レスメッセージを表示の上に以下挿入

#######################################################
$cc = 0;
foreach $pair (@lines){
($rnumb,$rkb,$rdb,$rnameb,$remb,$rsubb,$rcomb,$rurlb,$rhob,$rpb,$rcb) = split(/<>/, $pair);

if ("$sing" ne "$rkb"){
$cc = 0;
}
if (("$num" eq "$rkb")&&($cc < $res_view)) {
unshift (@linesb,$pair);
$sing = $rkb;
}
$cc++;
}
#######################################################

んでもって448行目の@lines を@linesb にんでちょっとしたに
レスを全部読むをつける

0328326

01/08/29 13:15ID:OkEBscjU

ああインデントが　　　（-＿－
474行目にこれ挿入
#######################################################

print "<br><a href=\"./$script?mode=resview&thread=$num\">レスを全部読む</a>";
print "　<a href=\"#menu\">掲示板のトップへ</a> <a href=\"$script\">リロード</a>";

#######################################################

なんかゴチャゴチャするから放置スレに書こうか。。
http://corn.2ch.net/test/read.cgi?bbs=php&key=990300726&ls=50

0329326

01/08/29 13:22ID:OkEBscjU

うざいから　ここに上げた　　　（爆
一日で消すからよろぴく、、あんまり動作確認してないっす
配列こねくり廻してるからすげ遅そうッス

www2.makani.to/akutoku/upload/dat/999058833.txt

0330326

01/08/29 13:26ID:kt3pSaeg

ああ。。。　　$res_viewって所今３になってるから適当にいじって
汚くコメント入ってるから適当に整理して、ほとんどコピペだから適当に

0331314

01/08/29 16:12ID:DRY/FidA

ファイルが無い～（泣　１日経ってませんよね。。。
変だな～＜www2.makani.to/akutoku/upload/dat/999058833.txt

0332３２６

01/08/29 19:08ID:kt3pSaeg

んまっ、じゃこっちで。

http://home.kimo.com.tw/jhvnsqtpe/petit.txt
今気付いたけど、レスを読む画面にクレジット入れるの忘れてた。。
ちゃんと付けといて

0333314

01/08/29 21:04ID:DRY/FidA

ありがとうございます、無事出来ました。
マジ感謝です(T_T)

0334MiniBBS-EX1.18

01/08/29 21:43ID:n2S171Ys

MiniBBS-EX1.18を初期設定のまま使ってますが、下記の様に設定を変更したいです。
どなたか教えていただけないでしょうか。

・投稿欄のＥメール欄の下にある「公開しないでメールを受けたい」
　および「公開する又は記入しない」の選択をなくし、Ｅメール欄に
　入力してもしなくてもよいようにしたい。
・記事の投稿者名を大きくしたい。
・記事への返信を不可能にしたい。

スクリプトの場所：　http://www.rescue.ne.jp/cgi/minibbs-ex/

0335すいません

01/08/29 22:04ID:DRY/FidA

yybbsで、レス記事にレス番号をつけたいのですが、何方かご教授願います。

15 名前:名無しさん

こんな感じに。インクリメントを理解してません。。

0336名無しさん＠お腹いっぱい。

01/08/29 23:21ID:VbjuCPCY

理解しろよ　　ｗ

line 416 $hoge = ();#---追加
line 420 if ($reno eq "") { $i++; $hoge = ();}#---修正
line 471 print "<td>$hoge</td><td><font color=\"$color\">$comment</font></td></tr></table>\n";#---修正
line 472 $hoge++;#---追加

0337便乗しようっと＠≠335

01/08/30 01:06ID:HEStrGwI

プチボードの時は？＜レス番号つける

0338名無しさん＠お腹いっぱい。

01/08/30 11:13ID:oDDcn6yA

ﾊｧ?(ﾟДﾟ) プチボードって何?　　ｼﾗﾈｰﾖ

0339便乗しようっと＠≠335

01/09/03 16:22ID:Nc2zbCIQ

http://www.kent-web.com/のpetit boardです。

0340便乗

01/09/03 19:01ID:hQsTWuf2

プチボードに、２ｃｈのような上位10スレなどのタイトルつけたいんだけど

0341名無しさん＠お腹いっぱい。

01/09/03 19:06ID:EbbrgK8E

>>340
http://dx.sakura.ne.jp/~fbrand/fifnel/app/#petit

0342さらに便乗

01/09/03 19:30ID:Nc2zbCIQ

＞yybbsで、レス記事にレス番号をつけたいのですが、何方かご教授願います。
＞15 名前:名無しさん
＞こんな感じに。インクリメントを理解してません。。
これをhttp://dx.sakura.ne.jp/~fbrand/fifnel/app/#petitの2ch風アレンジの複数行モードでもやりたいのですが、
どうすればいいでしょうか。
http://dx.sakura.ne.jp/~fbrand/fifnel/bbs2/のように
No.1 ふぃふ xx年yy月zz日
と、No.でレス記事番号をつけたいです。

0343名無しさん＠お腹いっぱい。

01/09/09 02:47ID:ZccdRMt2

http://www.sky-t.com/hf/cgi/woman.cgi
のようなレスのときパスワード記入、パスワードは管理人が任意に設定可能、
みたいな掲示板を探してます。
http://hp.bird.to/cgi-bin/bbsp4.cgi
↑ベースはこんな感じがいいのですがって全然違いますか？
上記のような機能がついていればこの掲示板でなくても可能です。
当方ＣＧＩはアップロードに苦労するほどの超初心者です。
どなたか知っていれば教えてください。お願いします

0344名無しさん＠お腹いっぱい。

01/09/09 03:31ID:???

んー、スレ立ててないのに免じて答えてあげたいんだけども
そんなBBSは一杯有ると思うよ。
一応僕が尊敬してるKENTさんのBBSを紹介するよ　：-)

http://www.kent-web.com/bbs/sample/aska.cgi
http://www.kent-web.com/bbs/sample/yybbs.cgi
上(aska)は見た目が違う(テーブルじゃ無い)けど、機能は同じ、
下(yy)は見た目は同じ(テーブルとアイコン表示)だけど、機能が違う(レスが付けられる)。

どっちかを貰って改造すれば、良いと思うんだけど、もしかしたらaskaに
テーブル付けてタグをループに入れるのとかは結構大変かもしれないなあ。
後、ここのスクリプトは結構改造ものが有るから丁度いいのが有るカモ
しれないけど、僕は知らない。
上の方の検索とかで探してみると良いよ。どこのWEBでもサンプル設置
してあるからね。　もしかしたらその物ズバリってのが有るカモしれない。

0345344

01/09/09 03:38ID:???

ああ、改造してって言ってるのか　ｗ
取り合えず【こんなCGI探してます】スレの検索で色々探せば?
>当方ＣＧＩはアップロードに苦労するほどの～～
ならaskaを普通に設置してまずは動かしてみなよ。
ここのはFAQとか沢山有るから、みんなに大人気なんだ　（････

0346名無しさん＠お腹いっぱい。

01/09/09 10:05ID:???

ＤＬ面倒なので誰かテキストアプしてくれよ＞ヘッドラインつけたい人々

0347名無しさん＠お腹いっぱい。

01/09/10 18:45ID:IA/gamiU

0348　　

01/09/10 19:10ID:???

そこに気付いてない奴多し、落して解凍してメンドイんだよ
無料ページにテキストも上げられない奴に、何教えても無駄無駄～

0349名無しさん＠お腹いっぱい。

01/09/10 20:35ID:V3sRXBmo

配布している所：http://www2a.biglobe.ne.jp/~yama/cgi.html
txtのある場所ｗ：http://www.bekkoame.ne.jp/~yama1356/host_pl/host.pl.txt

これがうまく作動しません。ちょっと自力で

# リモートアドレスを取得
$addr = $ENV{'HTTP_X_FORWARDED_FOR'};

# HTTP_X_FORWARDED_FOR 対策
if($addr =~ /(.*)\.(.*)\.(.*)\.(.*)\, (.*)/) {
$addr = "$1\.$2\.$3\.$4";
} elsif($addr =~ /unknown\, (.*)\.(.*)\.(.*)\.(.*)/) {
$addr = "$1\.$2\.$3\.$4";
} elsif($addr =~ /(.*)\.(.*)\.(.*)\.(.*)\, unknown/) {
$addr = "$1\.$2\.$3\.$4";
}

# リモートホストに変換
$host = $addr;
$host = gethostbyaddr(pack('C4',split(/\./,$host)),2) || $addr;

こういうものを組み込んで見たら作動した・・・。
それが完全なものか分からないのでその部分だけ教えて下さい。

これは書き込む所が違ったかな？
一応改造なんですが・・・・・・。

0350な＝

01/09/10 21:17ID:???

えっと上手く行かないと言うのはリモホが取れないと言う事ですか?
$ENV{'HTTP_X_FORWARDED_FOR'};の値はREMOTE_ADDRやREMOTE_HOSTと
違ってクライアント（アクセス制限される人）が改竄出来ます。
だから普通は$ENV{'HTTP_X_FORWARDED_FOR'};は見ないんです。

0351名無しさん＠お腹いっぱい。

01/09/10 21:23ID:gPFl9Thk

あ、すみません、あの$addr = $ENV{'HTTP_X_FORWARDED_FOR'}・・・・
奴はｆ2ｓでリモートホストを取得させるのに使う奴なんです。
これはちゃんと取れるサーバーでやるんでアレは「埋め込んでみたらできた」
ってことで・・・・・。

0352な＝

01/09/10 21:30ID:???

んー、上手く言ってるのかなぁ?
これをrequireして
&host'teku_win;ってするとアクセス制限されるとエラー画面に
飛ばされるだけだよ。BBSのかの一行目に入れるとログも何も見れなく
なる。要はホスト=IP変換して、上の方の$pwd* と突きあわせてるだけ
だから、不安なら自分のHOST追加したりして確認してみれば?

他の理由だったらｺﾞﾒｿ。ちょっと出ていくから
帰ったらまた読むよ。

0353な＝

01/09/10 21:34ID:???

あ、その正規表現自分で足したのか、、取り合えず(.*)だと甘くないかな。
ｽﾏｿ、また後で

0354名無しさん＠お腹いっぱい。

01/09/10 21:49ID:???

良くこれを配る気になるもんだ　　（-＿-

0355349

01/09/10 22:18ID:???

一行目変えて#!usr/bin/perlの下にrequireと記述して掲示板にアクセスしたが失敗。
他に制限ファイルないですかね？(版違い?)
とりあえずproxyの排除ができればいいんですが・・・・・・。

0356名無しさん＠お腹いっぱい。

01/09/10 22:32ID:???

全体に言いたい事が分からない　：-）
>一行目変えて#!usr/bin/perlの下にrequireと記述して掲示板にアクセスしたが失敗。
アクセス出来ませんでした。が出ておしまい、勿論ROMも出来ない。
上でも言ってるけど、逆引き出来てるかが分からないのなら制限HOSTに自分のHOSTを
追加して確認してみてくれ。
X_FORWARDED_FORに常にIPADDRESSが格納されてるなら

#!/usr/bin/perl
print "Content-type: text/plain\n\n";
$host = gethostbyaddr(pack('C4',split(/\./,$ENV{'HTTP_X_FORWARDED_FOR'})),2);
print "$host\n";

こんなのを入れて上手くいってるか確認してみればいい。
もし逆引きに失敗したら(そう言うサーバーも有る)
|| $addr;　
でIPADDRESSが入るから、制限HOSTにIPADDRESSを
指定してないと常に閲覧投稿可能な状態になる
それが嫌なら || の後ろからでもエラーに飛ばしてしまえ。
俺はf2sが良く解らんからこれくらいしかいえないよ

0357つーか・・・

01/09/10 22:48ID:???

>>#／usrr／locls／bin／perrl
こんなの使いたくない　　(ｗ

0358349

01/09/10 22:59ID:MpE.AsKU

む、言いたいことが分からないか・・・・・。
ＣＧＩはf2sに置かないことにしてますから普通にホストの取得はできます。
つまり正常な所でやってもそのhost.plは作動しないってことです。
自分のリモートホストでやってみましたが。。。。。
356さんは何もしないでもできたんですか？

>>357
俺も最初見てなんだこりゃって思ったｗ

0359356

01/09/10 23:34ID:???

f2s使ってるんじゃ無いのか　（-▽-；）
漏れも一応テストしてみたけど、ちゃんと動いたぞ。ちゃんとONになってるか?
要は逆引きしてHOSTと登録した文字を照合してるだけだから失敗しようが無いんだが。。

一応言っとくと'HTTP_X_FORWARDED_FOR'は普通のサーバーならADDRESSが入るとは
限らない、代理サーバーの設定によっては空だ、つまりザルって訳
あとPROXY*だけを完全に*排除する方法は無い、だから色んな変数参照して
それらしいのを判断するわけ、甘けりゃ抜けられるしきついと誤爆してしまう

0360356

01/09/10 23:37ID:???

#!/usr/bin/perl
require './host.pl';
&host'teku_win;
print "Content-type: text/plain\n\n";
$host = gethostbyaddr(pack('C4',split(/\./,$ENV{'REMOTE_ADDR'})),2);
print "$host\n";
print "$ENV{'REMOTE_ADDR'}\n";
print "\n\n\n\nEND";

0361名無しさん＠お腹いっぱい

01/09/11 00:42ID:MdsP5WUU

KENTさん配布のpetitボードの改造について質問させてください。
cgiで表示しているスクリプトですが、htmlで表示させることは可能でしょうか？
html表示の方がサーバー負荷が軽いと聞いたのですが、
改造はむつかしいものなのでしょうか？

0362名無しさん＠お腹いっぱい。

01/09/11 00:48ID:???

一般的には別に難しくないと思いますが、
KENTって誰ですか？petitボードってなんですか？掲示板ですか？
過去ログ見て依頼の仕方でも学んできてください。

0363名無しさん＠お腹いっぱい

01/09/11 00:50ID:MdsP5WUU

>>362
すいません。
KENT（http://www.kent-web.com/
プチ☆ボード（http://www.kent-web.com/bbs/petit.html
こちらになります。

0364名無しさん＠お腹いっぱい

01/09/11 02:19ID:???

久しぶりに見たけど前にもまして冗長になってﾈｰ?
selectでちょちょいとは行かないようだ、 5分で挫折した
俺には改造を強烈に拒んでるように見えた

0365名無しさん＠お腹いっぱい。

01/09/11 03:05ID:???

KENTのスクリプトに最適化を施そうとするもあまりの酷さに絶句…。
最適化したところでどうせPerlだしもう諦たい…ヽ(´ー`)ノ
と思うも知人に「最適化なら任せろ」と断言しちまったからなぁ…。うぅ。

0366名無しさん

01/09/11 06:09ID:???

(ﾟДﾟ)ﾊｧ?
Kentのスクリプトが酷い？？
漏れはKentのスクリプトを読むとその余りの美しさに感動の涙を流してしまうぞ。

お前らはこれでも読んどけ
↓↓↓
http://fswvfr.tripod.com.ar/raib.txt

0367349

01/09/11 07:50ID:FZAwiLII

ヤケクソでこんなことやってみた。

57行目のgethostbyaddr(pack('C4',split(/\./,$ho_wi)),2);
だけを残そうとして54、55の最初に#をつけてみた。

できた・・・・・。
謎すぎ

0368名無しさん＠お腹いっぱい

01/09/11 11:45ID:???

何言いたいのか分からない人ばっかりなんですけど
ここは外国人のスレですか?

0369349

01/09/11 12:32ID:???

訂正：54、55の最初→54、55行目の最初・・・・ね

0370名無しさん＠お腹いっぱい。

01/09/11 12:43ID:???

>>368
いくら滅茶苦茶な日本語でもそれを日本語と判断できないお前が外国人。

0371名無しさん＠お腹いっぱい

01/09/11 13:55ID:???

>364
一応、sub regist の下でselectしてログ表示部分丸ごとコピペすれば
大丈夫だね後はQUERYが空ならhtmlに飛んでもらうとして、、、

HTML表示にする事で付きまとう問題
(カウンタが動かない、クッキーはJAVASCRIPT読みに改造、その時起こる文字化け)
にはどう対応するつもりなんでしょ?>質問した方
一応JAVAスクは板違いね、ちょっとはマシにはなりそうですが・・・

0372名無しさん＠お腹いっぱい

01/09/11 13:56ID:???

後フォーム長の調整なんかも出来なくなります

0373名無し

01/09/11 16:59ID:???

↑ んな能書きはどうでも良いから全部やってクレヤ
と言う感じじゃ無いかと・・・

0374名無しさん＠お腹いっぱい。

01/09/11 18:35ID:???

ｸﾚｸﾚくんは所掌がはっきりせんからｲﾔ
ﾄﾞｷｭｿクライアント宜しくどんどん仕事が広がっていく

0375363

01/09/11 20:16ID:MdsP5WUU

結構むつかしい改造になっちゃうのでしょうか・・。
軽々しく依頼してしまい、申し訳ないです。

0376名無しさん＠お腹いっぱい。

01/09/11 20:43ID:???

まあ、どんなに厄介な改造だろうが
依頼してかまわないと思うよ。そういうスレだし
ただやる奴が現れるかどうかは別問題だけどね。

0377名無しさん＠お腹いっぱい。

01/09/13 23:43ID:???

あがってほしいage!!!

0378名無しさん＠お腹いっぱい。

01/09/19 17:02ID:???

age

0379名無しさん＠お腹いっぱい。

01/09/20 03:09ID:???

ここに依頼するということは自分の頭の悪さを認めるということです。
貴方はそれでもいいのですか。

0380名無しさん＠お腹いっぱい。

01/09/21 03:46ID:???

>>379
自ら「初心者です」などとのたまうような恥知らずばかりですから。

0381名無しさん＠お腹いっぱい。

01/09/25 09:27ID:ErFieO12

http://shortmessage.hypermart.net/
ここで配付されている一行掲示板ShortMessageで、
新しい書き込みが下に追加されるように改造したいのですが。。。
どなたか教えて下さい。お願いします。

ソース
http://www.geocities.co.jp/HeartLand-Namiki/9384/shortmessage.txt

0382名無しさん＠お腹いっぱい。

01/09/25 09:35ID:???

JAPU氏が会社作ったからそこで頼め（ｗ

0383名無しさん＠お腹いっぱい。

01/09/25 14:09ID:???

>>381
while ($logmax <= @readed) { pop(@readed); }
unshift(@readed,"$name\t$comment\t$date\n");
↓
while ($logmax <= @readed) { shift(@readed); }
push(@readed,"$name\t$comment\t$date\n");

0384381

01/09/25 16:19ID:???

>>383
出来ました！
ありがとうございました。

0385名無しさん＠お腹いっぱい。

01/09/28 00:11ID:n9dzVmQQ

>>28
>だけだとファイルが無いときに自動で作ってくれなくはないでしょうか。

0386385

01/09/28 00:14ID:n9dzVmQQ

すんません誤爆しました

0387名無しさん＠お腹いっぱい。

01/10/02 02:44ID:79J.0mBg

http://www3.airnet.ne.jp/dor/bug/cgitools/bookmarkp/tbookmarkp.cgi
この「分野一覧」の
Ver.Final (4)
Ver.Finalβ (1)
Ver.1.20 (32)
Ver.1.20β (2)
という部分を、
Ver.Final (4) 　Ver.Finalβ (1)
Ver.1.20 (32) 　Ver.1.20β (2)
と表示させていきたいんですがどうすればいいのでしょうか。
どなたかご教授お願いします、、

ソース
http://nac_h.tripod.co.jp/tbookmarkp.txt

0388387

01/10/02 03:54ID:???

うわわ、よく読んだら出来ました！
申し訳ありません…

0389名無しさん＠お腹いっぱい。

01/10/02 04:00ID:???

497行目に $count = 1;
526行目に $count++;

514行目を if ($count/2 == int($count/2)){$htmlbuf .= "</TR>\n<TR>\n";}
524行目を　$htmlbuf .= "<TD COLSPAN=\"$checkbox\"$cb_flag>　<B>$sgname</B></TD>";
　　　　　　if ($count/2 == int($count/2)){$htmlbuf .= "</TR>\n<TR>\n";}

0390名無しさん＠お腹いっぱい。

01/10/02 04:00ID:???

あら遅かったか　　　ねよ。。

0391387

01/10/04 23:41ID:???

＞389-390
すみませんわざわざありがとうございました、、

0392当方へたれですが

01/10/05 19:09ID:y9heCKyc

>>66
35:require './jcode.pl';#日本語コード変換
163:　　&jcode'convert(*value,'sjis');
をコメントアウトして，

232:　print "Content-type: text/html; charset=Shift_JIS\n\n";
234:　print "<META HTTP-EQUIV=\"Content-type\" CONTENT=\"text/html; charset=x-sjis\">\n";
のcharset指定を消すと，日本語変換はされない。と思います。

あと，
174:　print "<form action=$script method=$method>\n";
350:　print "<form action=$script method=$method>\n";
363:　print "<form action=\"$script\" method=\"$method\">\n";
を
print qq/<form action="$script" method="$method" accept-charset="UTF-8">\n/;
とかaccept-charset指定するようにしておけば，UTF-8以外の投稿をはじけるはず。
accept-charsetを使うなら，上のcharsetで同じUTF-8使うようにしといたほうがいいかも。

0393392

01/10/05 19:10ID:???

すんません，誤爆しました・・・

0394名無しさん＠お腹いっぱい。

01/10/05 19:12ID:???

どこの誤爆かは分かる。
スレ的にもこっちが合っている。

0395あっちの66

01/10/05 20:13ID:IlecsqKU

392さん、本当にありがとうございます！
参考にさせていただいて、頑張ります！

こっちのスレの方が良かったですね。すみませんです。

0396名無しさん

01/10/09 17:03ID:zp21xSuI

ゆいちゃっとProで
[リロード] 参加者(0)： ROM：(1)
を参加者とROMを逆に置き換えたいんですが、改造の仕方がわかりません
分かる方いますか？
それと、管理人 >あいうえお(10/9(火)16:49 )　←のように
発言の最後の所に発言するたびに、時間が表示されるんですが
されないようにするにはどこを消せばいいんですか？
分かる方教えて下さい。お願いします。

0397名無しさん＠お腹いっぱい。

01/10/09 17:07ID:???

>>396
スクリプト見せれ。
できたら拡張子を".txt"にしてアップしたやつのURL出してね。

0398たまひめでん

01/10/09 22:26ID:485Lm8iI

KENT WEBのJoyful Note V1.03を親スレッドの
返信レスを20迄等、返信レスを制限したいのです。
改造、お願いします。

0399名無しさん＠お腹いっぱい。

01/10/09 22:29ID:???

>>398
スクリプト見せれ。
できたら拡張子を".txt"にしてアップしたやつのURL出してね。

0400お役所仕事

01/10/09 22:31ID:???

ああ、書類足りないわそれ、
ハイ次の人

0401たまひめでん

01/10/09 23:06ID:???

>>399,400
さんへ
ガーン、忘れてました。。
CGIの勉強もしたいので、暫くは自分でやってみようと思います
どーしても、判らない時、アドバイス等頂けましたら幸いです。

0402名無しさん＠お腹いっぱい。

01/10/10 00:10ID:???

>>401
頑張りな。

0403よいち

01/10/10 19:47ID:n8dYHpRc

すみません。改造の仕方を教えて下さい。

KENT WEBのaskaBBSに、訪問者が表示件数変更出来るようにしたいです。
例えばカール板みたいな感じで...。

askaBBS　http://www.kent-web.com/bbs/aska.html?
カール板　http://www.zero-web.net/perl/bbs.html

宜しくお願いします。

0404方法を書けば良いの?

01/10/11 00:17ID:???

まず表示件数のメニューを付ける
↓
次に何かのアクション(リロードボタンとか新規投稿とか返信とかの)が
あった時にSet-cookieみたいなサブルーチンがある筈だからそこに
上の表示件数($User_p_viewと仮定)の値を足す(ASKA=～～～みたいな形式のクッキーを吐いてる筈)
↓
Get-cookieした時に表示件数($User_p_view)に値が設定されていたら、多分1ページ辺りの
記事表示数($Default_p_viewと仮定)みたいのが設定項目に有る筈だから、それを$User_p_viewで上書きする、
この代入が総ページ数の
算出なんかをした後だと、不整合が起きるから適宜上書きの場所を決める

こんな感じ、漏れは最近Perlのソース見てないからちょっと勘弁　　(笑

0405よいち

01/10/11 17:35ID:563HBBg.

404さん、レス有難うございます。

HTMLは少し判るので、1番目のプルダウンメニュー付けたりとかは出来ました。
それで、2番目のcookieのサブルーチンの場所も判ったんですけど
どうやって書き換えればいいのかがわかりません。

できればもう少し具体的に教えていただきたいのですが。
他力本願で申し訳ないですけど宜しくお願いしますｍ(_ _)ｍ

0406111

01/10/11 17:52ID:8p2Cw8ao

http://210.236.188.140:8080/

0407名無しさん＠お腹いっぱい。

01/10/11 18:03ID:???

0408名無しさん＠お腹いっぱい。

01/10/11 18:09ID:???

>>406
こういうアホはほんと新でほしいね。

0409名無しさん＠お腹いっぱい。

01/10/11 18:23ID:???

スレ違いで悪いけど、>>406 のサーバで使ってるpublicfileって
使ってる人いる？公式ページによると、ファイル公開専用で、
Apacheより軽いと書いてあるんだが。いま落としてみた。

0410409

01/10/11 18:26ID:???

おっと書き忘れ。エロサイトの宣伝屋は氏ね＞406

0411JAPU@見知らぬ国のトリッパー ◆180pJAPU

01/10/11 18:32ID:???

djb のやつね。
機能を最小限に絞っているから軽くて安全という話は良く聞く。
でも、イマイチ物足りなそうで私は使ってない。

ちなみに、CGI とかは全く使えないぞ。

0412名無しさん＠お腹いっぱい。

01/10/11 19:09ID:2.aobSCc

>>411
どもどもJAPUさん。
publicfile少しいじって遊んでみます。

＃いいトリップ見つけましたね。180ページ？

■ このスレッドは過去ログ倉庫に格納されています