スクリプト改造工房 Part4
■ このスレッドは過去ログ倉庫に格納されています
0001名無しさん＠お腹いっぱい。
02/02/05 01:20ID:CZVDHHphという人がいましたらここで聞いてください。
ひょっとしたらアドバイス出来るかもしれません。
前スレ
Part2 http://pc.2ch.net/test/read.cgi/perl/986986227
Part3 http://pc.2ch.net/test/read.cgi/php/988808396
なお、質問するときは
1）そのスクリプトのある場所（URL必須、拡張子".txt"でアップすればなお良し）
2）どんな風に改造して欲しいのか？ （完成イメージHTMLを用意すればなお良し）
を必ず明記しよう。
0449nobodyさん
02/04/06 01:37ID:SGfKyt/H(1)馴れ合い禁止。（一人で来る事。同伴禁止：いても知らぬ顔）
(2)「大盛りねぎだくギョク」を頼むこと。（並盛りねぎだくｷﾞｮｸも可）
(3)各会場ごとに指定時間厳守で現地集合。
(4)食ったら即帰る。
注）吉野家は家に帰るまでが吉野家です。
http://ex.2ch.net/test/read.cgi/entrance/1017935504/l50
http://www2.mnx.jp/carvancle/yoshigyu/ ｽﾚよりぬき等
0450春厨房
02/04/06 10:09ID:YHKRj1tKどうぞよろしくおねがいします。
0451hanamogera ◆kkkKkkko
02/04/06 10:26ID:NYi0ELItスミマセン、寝坊してしまいました。
もしかしたら12:00過ぎてしまうかもしれません。
あと、コメントって書いた人全員の記録しておくんですか？
それからどこに表示するんでしょう？
0452春厨房
02/04/06 11:34ID:zR3Pbdrfおはよう御座います、どうもです♪
よく見てみたら、このしりとりは「言葉」だけしか登録できないみたいでした。
だから、先ほどの「コメント」の欄を追加以外に「名前」追加出来るようにしてくださいまし。
本当に手前勝手ですみません。
-------------------------------------------
はい。コメントは書いた人全員分記録でお願いします。
表示の仕方は、ボックス部分が↓こんな感じでお願いします。
<center>
お名前：<input type="text" name="username" size="30" maxlength="200"><br>
言 葉：<input type="text" name="strings" size="30" maxlength="200"><br>
一 言：<input type="text" name="com" size="30" maxlength="200"><br>
初めの読みをひらがな一文字で：<input type="text" name="first" size="2" maxlength="2"> <br>
最後の読みをひらがな一文字で：<input type="text" name="end" size="2" maxlength="2"> <br>
</center>
表示部は↓こんな感じで宜しくお願い致します。（タグ怪しいかも）
<CENTER><table cellspacing=0 cellpadding=0 width=90%>
<tr><td colspan=2><hr size="1" color=#000000 width="100%"></td></tr>
<tr><td rowspan=2 align=right width=30><input type="checkbox" name="1"></td><td><b><font size="4" color="適当">「（言葉）」</font></b>
<font size="2" color="適当">（名前）(日時)</font> <font size="2" color="適当">No.1</font></td></tr>
<tr><td><font size="2" color="適当">（コメント）</font></td></tr>
</table></CENTER>
どうぞ宜しくお願い致します。時間は全く気にしておりません。ごゆっくりで結構です。
0453hanamogera ◆kkkKkkko
02/04/06 11:36ID:NYi0ELItとりあえずできました。
入力フォームがちょっと汚らしいので、いぢってください。
zip自己解答形式です。
http://www.sgmt.jp/files/siritori.exe
0454hanamogera ◆kkkKkkko
02/04/06 11:48ID:NYi0ELItどうやら同時レスだったみたいです。
今からもう一回やりますので、お待ちください。
0455nobodyさん
02/04/06 12:25ID:???0456hanamogera ◆kkkKkkko
02/04/06 12:29ID:NYi0ELItできました。
ちょっと皆さんもテストしていただけませんが？
http://www.sgmt.jp/cgi-bin/siritori/siritori.cgi
>>455
やめます。
0457春厨房
02/04/06 12:53ID:2fTm3+Oy今からテストさせていただきます。
0458hanamogera ◆kkkKkkko
02/04/06 12:56ID:NYi0ELItラウンジの人は書き込んでくれません(w
access_logはすごいことになってますが。
0459春厨房
02/04/06 14:08ID:1Z1uOFRvすごいです！バッチリです♪
有難う御座いました。
0460春厨房
02/04/06 14:10ID:1Z1uOFRv教えてくださいまし。ほんとに手間かけてすみません・・。宜しくお願いします
0461nobodyさん
02/04/06 14:17ID:???0462nobodyさん
02/04/06 14:17ID:???0463hanamogera ◆kkkKkkko
02/04/06 14:28ID:NYi0ELIthttp://www.sgmt.jp/files/siritori.zip
遅くなってすいません。
0464春厨房
02/04/06 16:01ID:90jMp2AAダウンロード＆設置させていただきました。ばっちり作動しました♪
本当にどうも有り難う御座います。このご恩は忘れません。
それでは失礼します。
0465nobodyさん
02/04/06 17:16ID:hOQwElKs,} {｀i;:r,;'ﾆ (;;;;､` , r'
. ｛i' i:.'ー<.･)}:ﾑ ヾi,
ｷﾀ━━━━━━━ﾉ ／/ -r /:::ミ ('ｰヽ━━━━━━━━━??!!
iﾞ i:/ /二./ /',=､__ﾉi/
ヽ ヽ! {:::} //::::''´`'7!/
ヽ､__ヽ!l::i:::::ii;;;;;;;|,ノ
｀ヽ､`ー""ヽ
`'ｰ-'''"
0467464
02/04/06 19:58ID:SOc4N1tk半角カナを入れるとさすがに文字化けしますが、それ以外なら全く問題無いです♪
お心遣いどうもありがとうございます。
0468nobodyさん
02/04/06 21:00ID:???0469hanamogera ◆kkkKkkko
02/04/07 09:58ID:???jcode.pl使って半角かなを全角に変換したほうがいいと思います。
0470464
02/04/07 12:27ID:0a2d4Jojうーん・・・半角カナは使わないように書いておいたので別にいいです。
・・・すみません。（汗）
0471ｷﾀ━━━━━━━━(ﾟ∀ﾟ)━━━━━━━━!
02/04/07 15:39ID:???,,､‐''"~￣ ￣``''‐､、
／ ＼
/ ヽ
/ ヽ
/ ／ ~~` '' ‐- ､､ ,,__ __ ,,..､､ -‐ '' "~~＼ ヽ
| / __ ￣ __ ヽ |
.| ｛ ´ ‐- ....__ __... -‐ ` ｝ .|
.| 〉,,・^'' - .,, ~ i ~ __,,.- ＾`・､.〈 |
./￣| /,／~ヽ､ `'' ‐--‐ ,.| ､‐-‐'' "~ _ノ~＼,ヽ |￣ヽ
| （` | / ヽ,,_____`‐-､_､..,,___ﾉ八ヽ___,,.._-‐_'"´___,, ノ ヽ .|'´） |
| ｝.| ./' ＼二二・二../ ヽ / ヽ､二・二二／ 'ヽ | ｛ |
.| //| .| ／ | |. ＼ | |ヽヽ|
.| .| | .| ／ | |. ＼ | | | .|
｜ヽ.| | / .| |. ヽ .| .|./ .|
| .| | / | | ヽ | | /
ヽ .| | / .| | ヽ | | /
.ヽ.| | / '二〈___〉二` ヽ | |./
| | `-;-′ | |
iヽ|. ,,... -‐"`‐"`'‐- ､、 |／i
| ヽ /...---‐‐‐‐‐----.ヽ / .|
| ヽ. ,, -‐ ''"~ ~"'' ‐- ､ / |
.| ヽ ! ./ .|
,,| ヽ. | ./ |、
|＼. ヽ ／ ／.|
.|. ＼. ヽ､＿___ ＿__／ ／ .|
0472nobodyさん
02/04/07 21:42ID:XlY3TlqRi-modeで見たときのread.cgiで、
現在の2chのように前の１０レス・次の10レスに対応したいんですが、
教えてください
0473nobodyさん
02/04/07 23:20ID:???0474nobodyさん
02/04/08 12:39ID:Udb0KNLP上記のようなCGIでアクセス制限をかけたＢＢＳがあります。
それでこのＢＢＳをブックマーク出来ないようにする方法はありますでしょうか？
0476nobodyさん
02/04/08 18:54ID:???0478474
02/04/08 23:08ID:5LgVRzDyどういうことですか？
0480nobodyさん
02/04/09 18:23ID:10B4imLY$ref = $ENV{'HTTP_REFERER'};
if ($ref eq "") { print"氏ねやカス！"\n; }
でどう？
0481nobodyさん
02/04/09 18:24ID:???$ref = $ENV{'HTTP_REFERER'};
if ($ref eq "") { print"氏ねやカス！\n"; }
0482age
02/04/10 21:49ID:???0483質問すんません
02/04/10 21:51ID:???0486nobodyさん
02/04/11 13:44ID:???この掲示板にて
レスが一定数を超えると
返信フォームでもレスがつけられないようにし、
なおかつお知らせが出るようにしたいです。
現状
http://members.tripod.co.jp/fukudakanbouchoukan/a.html
↓
このような感じにしたいです。
http://members.tripod.co.jp/fukudakanbouchoukan/b.html
お願いします。
0487nobodyさん
02/04/11 16:55ID:???設定項目の適当なところに追加
# 1スレッドの最大記事数
$res_max = 10;
670行目以降にある返信フォームのとこをいじる
# 関連記事出力
print "- 以下は、記事NO. <B>$in{'no'}</B> に関する<a href='#RES'>返信フォーム</a>です -<hr>\n";
$count=0; # ***** この行追加 *****
while (<IN>) {
($no,$reno,$date,$name,$mail,$sub,$com,$url) = split(/<>/);
(このへん省略)
print "<font color=$sub_color><b>$sub</b></font> 投稿者：<b>$name</b> 投稿日：$date $url <font color=$sub_color>No\.$no</font><br>\n";
print "<blockquote>$com</blockquote><hr>\n";
++$count; # ***** この行追加 *****
}
}
close(IN);
続きは >>488
0488nobodyさん
02/04/11 16:56ID:???# タイトル名
if ($resub !~ /^Re\:/) { $resub = "Re\: $resub"; }
# ***** ↓ここから *****
if ( $count >= $res_max ) {
print "返信が多くなってきたため、新規投稿で新スレを建ててください。<br><br>\n";
print "<a href=\"$script\">掲示板に戻る</a>\n";
} else {
# ***** ↑ここまで追加 *****
print <<"EOM";
<a name="RES"></a>
print "</td></tr></table></form>\n";
print "</blockquote>\n</body>\n</html>\n";
} # ***** この行追加 *****
exit;
}
#----------------#
# デコード処理 #
#----------------#
おわり
0490nobodyさん
02/04/12 17:54ID:Rf4zpV9vhttp://tackysroom.com/sample/smp_tackynote992.cgi
上記日記CGIを、特定の記事数ごとに表示するにはどうしたらよいでしょうか？
設定では月ごとか１日のみかどちらかしか選択できなくて、
１日ごとだと表示が面倒で、月ごとの表示だと重くなってしまうので…
ソースは
http://moe43.tripod.co.jp/cgi/tackynote.txt
です。どなたかよろしければ知恵を貸してやって下さい。
0491nobodyさん
02/04/12 21:43ID:???http://tackysroom.com/sample/smp_tackynotesp.cgi
一週間づつの表示ができる新しいVersionのがあるみたいですけど
これじゃダメなんですか？
0492490
02/04/12 22:29ID:???完全にこちらのミスです。
お手数をおかけして本当に申し訳ありませんでした。
わざわざ教えて下さってありがとうございました。
これからは初歩的（と言うのもバカバカしい…）ミスをしないように気を付けます…
0493nobodyさん
02/04/12 23:00ID:OHj6Fi0Khttp://sirizamurai.s4.xrea.com/sample/r_board.cgi
ここで配布されているr_boardというスレッドフロート式掲示板なのですが
レスをした後にスレのトップではなく掲示板のトップへ戻るように改造できないでしょうか?
0494nobodyさん
02/04/13 06:57ID:a/Dbri8Bワードパッドで開くような、でかいスクリプトを改造する気がしない
#---------------------------------------------------------------main
&decode;
&count;
if (-e "$mainte") { &error('メンテナンス中です。しばらくお待ちください。'); }
if ($in{'command'} eq "write") { &write; }
elsif ($in{'command'} eq "reswrite") { &reswrite; }
elsif ($in{'command'} eq "remove") { &remove; }
elsif ($in{'command'} eq "rjump" ) { &rjump; }
elsif ($in{'command'} eq "download") { &download; }
else { &html; }
exit;
#---------------------------------------------------------------html
を、どうにかしたらいいんじゃない？
0495nobodyさん
02/04/13 07:54ID:???そんなもん、レスの処理の後に Location で飛ばせばいいだけのことだろ。
>494
きみはプログラミングにメモ帳つかってる初心者だろ。
0497nobodyさん
02/04/13 14:44ID:VMPYMAwGが、フォームに入力した日本語が、どうしてもうまく表示されません。
cgi-lib.plというのが悪いような気がするのですが…。
これって、定番のライブラリですが、
うまく日本語化する方法はないのでしょうか？
やってることは、
require './jcode.pl';
と書いて、
&ReadParse（cgi-binでやる）
の後とかその中とかに、
&jcode'convert(*val,'sjis');
と書いたり、いろいろ試したのですが、ダメ。
１週間、ずーといろいろやったのですが、
どうしても、うまく行きません。
0498nobodyさん
02/04/13 14:46ID:???>>1
なお、質問するときは
1）そのスクリプトのある場所（URL必須、拡張子".txt"でアップすればなお良し）
2）どんな風に改造して欲しいのか？ （完成イメージHTMLを用意すればなお良し）
を必ず明記しよう。
0499nobodyさん
02/04/13 14:50ID:VMPYMAwGcgi-lib.plというのは定番ライブラリで、
定番的処理の方法があるんじゃないかと
思って、質問しているのですが…。
どんなスクリプトにも対応できる
標準的なやり方ってないんですか？
0500nobodyさん
02/04/13 14:57ID:VMPYMAwGダメなものですか？
# Convert %XX from hex numbers to alphanumeric
$key =~ s/%([A-Fa-f0-9]{2})/pack("c",hex($1))/ge;
$val =~ s/%([A-Fa-f0-9]{2})/pack("c",hex($1))/ge;
# 次の1行追加
&jcode'convert(*val,'sjis');
# Associate key and value
$in{$key} .= "\0" if (defined($in{$key})); # \0 is the multiple separator
$in{$key} .= $val;
0502nobodyさん
02/04/13 15:44ID:???0503501
02/04/13 16:14ID:???ちなみに495は俺じゃないぞ
0504nobodyさん
02/04/13 17:40ID:???cgi-lib.plって初めて知ったよ。
で、作者様のページのサンプル
http://cgi-lib.berkeley.edu/ex/simple-form.html
で、ちゃんと日本語入力できて表示できてるんだけど・・・
やっぱおまえさんが自力で書いた部分に問題があるんじゃないかと。
0506500
02/04/13 18:24ID:VMPYMAwGたしかに、表示されました。
ということは、jcode.plは
なんのためにあるんですか？
0508nobodyさん
02/04/13 19:10ID:???r_boardの件
801行の
$in{'command'} = 'read';
を削除です
＞497
r_boardのデコードサブルーチン
sub decode {
my ($name,$value);
&ReadParse;
while (($name,$value) = each %in) {
if ($name ne "file") {
&jcode'convert(*value, "sjis", "", "z");
$value =~ s/\&/&/g;
$value =~ s/</</g;
$value =~ s/>/>/g;
$value =~ s/\"/"/g;
$value =~ s/\r\n/<BR>/g;
$value =~ s/\r|\n/<BR>/g;
}
$in{$name} = $value;
}
}
0509nobodyさん
02/04/14 02:16ID:???0510500
02/04/14 04:56ID:ej0dAZG8レスありがとうございます。
初心者なもんで、苦労しましたが、
日本語がうまく表示されない原因は他にありました。
（メタキャラクタをはじくようなサブルーチンがあった。
これで１週間以上ムダにした）
なお、504さんがいうように、
jcode.plなしでも日本語表示できるのですが、
これは、jcode.plは使わなくてもいいということでしょうか？
0513nobodyさん
02/04/14 12:42ID:???無視できない奴
0514nobodyさん
02/04/14 14:15ID:IPbdNQdj丸見えなんですが。
0516nobodyさん
02/04/14 17:05ID:???DBのフィールドが数値型の場合はどこを変更すればいいですか？
http://www.lint.ne.jp/~tomo/asp/lint.ne.jp/dbacc/addasp.htm
0520nobodyさん
02/04/14 19:13ID:SYUFOo/Djcode.plなんかいらないよね〜
あれ、なんで必要なのか知ってる人いる？
0521520
02/04/14 19:14ID:SYUFOo/D0522500
02/04/14 21:04ID:ej0dAZG8ほんとにいらないの？
でも、なんか心配。
0523507
02/04/14 21:38ID:???ブラウザから入力された漢字コード(IEならSJISかな。i-modeは
確実にSJIS)を、変換したい(UNIXなら大抵EUC。メールに入れて
送る時はJIS)ときに使うだけで、変換しないなら要らないよ。
0524ほほ
02/04/15 09:53ID:7Ngfgl5Fhttp://www.kent-web.com/bbs/sample/light.cgi
このcgiに
http://yassu.no-ip.com/haikyo/cgi-bin/log.cgi?room=001
のようにURL指定すると画像張り付くようなことがしたいです。
どのようなソースをどこに付け足せばよいですか教えてください。
漏れがどうにかしてやる！
待ってろ！
デコード処理の近くにある。まず変数を増やせ
$gazou = $FORM{'gazou'};
記事んとこをこうしろ。
print "<IMG SRC=\"$gazou\"><BR><blockquote>$comment<P>$url</blockquote><hr>\n";
URL欄のしたに画像フォームを追加。
<tr><td nowrap><b>画像</b></td>
<td><input type=text size="$url_wid" name=gazou value="http://"></td></tr>
これでどうだ？
0529ほほ
02/04/15 18:38ID:QFUtae+hレスありがとうございます。
>デコード処理の近くにある。まず変数を増やせ
デコード処理がどこだか良くわかりません。
>記事んとこをこうしろ
記事のところというのもどこだかわかりませんでした。
結局わかったのは最後だけです。
前後の行なども書き加えてください。よろしくお願いします。
0531525
02/04/15 21:31ID:rpk7woSOちょっと間違いがあったようです
このままだとエラーが発生することが判明しました。
あと２，３日余裕をくだされば完璧に仕上げさせていただきます。
0532ほほ
02/04/15 22:13ID:5SzFKIQt２．３日でもかまいません。本読んでるんですけど、そこまでたどり着けませんので
よろしくお願いします。
0533525 ◆l0DtPXyM
02/04/16 18:00ID:???出来ました。
http://okunao.tripod.co.jp/light.txt
light.txtをlight.cgiにリネームしてください。
0534ほほ
02/04/16 20:39ID:vj/x5Q1yCGI実行してみました。ビジュアルはほぼ希望どうりです。
ありがとうございます。
あともう少しわがままを聞いてください。
コメントをスペース1っこで画像を貼り付けていったときに
2重投稿エラーが出ると思います。貼り付けた画像を元に
2重投稿エラーを避ける事はできますか？
あとlight.cgiは投稿した後リセット押さないでブラウザでリロードすると
すぐに2重投稿エラーになってしまいます。このへんも回避できますか？
もし、時間があるようでしたらよろしくお願いします。
0536ほほ
02/04/16 21:38ID:B2D4dIFXはい。毎回違う画像を貼ります。
img src っていうのを毎回書くのが面倒なので
できれば画像のとこはURLだけ書き込めばと思ってます。
0537525 ◆l0DtPXyM
02/04/16 21:58ID:???<IMG SRC="***">は書かなくてもURLだけで出来るはずですが、、、
それとご希望の修正をして再うｐしました。
そちらでテスト願います。
0538525 ◆l0DtPXyM
02/04/16 21:59ID:???http://okunao.tripod.co.jp/
の二つのファイルを***.cgiにリネームしてみてください。
0539525 ◆l0DtPXyM
02/04/16 22:12ID:???名前が過去と一緒だと再投稿できないことが判明しました。
これより先はちょっと私には改造できないかもしれません。
ここまでが私の限界です。
0540ほほ
02/04/16 23:30ID:ji+16LdMやって見ました
ブラウザ窓2つ開けて交互に貼り付けて交互に
リロードすると前貼ったやつを貼ってしまいます。
とりあえず当初の希望はできましたのでありがとうございました。
お時間がありましたら、よろしくお願いします。
0542nobodyさん
02/04/17 02:23ID:???それは回避不可。
掲示板自身にリンクはって「リロード」とか書いときなさい。
0544nobodyさん
02/04/17 19:35ID:pUwmOFzdTBOARD004 と TBOARD006 を使っているのですが・・・
鯖屋さんから『CPU占有率90%Over』と言われCGIの停止命令をうけました。
数種類のCGIチェッカーでチェックしてみたのですが、これといって問題はありませんでした。
デザイン/機能的にお気に入りのCGIなので・・・
CPU占有率が軽減できるように最適化（と言うんですかね？）していただけない
ものでしょうか？
よろしくお願いします。
0545nobodyさん
02/04/17 19:48ID:???余談だけど、UNIXでアクティブなプロセスが１こしか無い場合、
そのプロセスのCPU占有率は限りなく100%に近づくものです。
また、複数のプロセスがアクティブな場合、特別なことをしなければ、
各プロセスが均等に占有します。
なので、CPU占有率90%Overと言われても、「あたりまえじゃ！」としか
言いようがありません。鯖変えたほうがいいかも。
0546544
02/04/17 20:38ID:???板違いなのですが・・・
鯖屋さんに言ったんですよ・・・『んじゃ、引っ越せってことですか？』と。
月1,2回はもめるんですよ。対応（っていうかってメールの内容）もムカツクし・・・
何時も（偽装）ヒラ謝りをしながら気を使うんですよね。
契約も残ってるし自ら出て行くのも納得いかないし
よさげな鯖屋さんも見つからないし・・・
print "負けたくないんですよ！鯖屋に！";
でもPerlはprint分位しかわからない。ので
0547544
02/04/18 00:15ID:DhPOYyDw同じような掲示板CGIはあるが…あのCGIでないとコンテンツがしっくりこないんだよ。
サイトの中ではあのCGIが生命線だし今までのカキコ内容は宝なんだよ。
まじで最適化ｷﾎﾞﾝﾇ。新コードで再チャレンジしたいんだ。
Webprog板住人さん鯖屋さんにリベンジさせてください。
まじ宜しくお願いしますわ。
0548nobodyさん
02/04/18 04:22ID:???掲示板CGIでそう負荷がかかるとは思えない。
アクセスが万単位であったり大量の書き込みがあったり改造してたりするのでなければ
いちゃもんつけられてるだけと思われ。
■ このスレッドは過去ログ倉庫に格納されています