スクリプト改造工房 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を用意すればなお良し）
を必ず明記しよう。
0348296
02/03/25 12:02ID:jj3+leP3の
ＣＧＩをテキスト化↓
http://www.h2.dion.ne.jp/~i-deai/sozai/bunhen.txt
前質問して変換した文字を
}
sub pr_html {
print "<TEXTAREA>$bunsyo</TEXTAREA>";
としたら文字がテキストエリアに表示されるようになったんですが
iモードからみるとテキストの中に表示されないんです（泣）
原因わかる方いらっしゃいますか？
0349nobodyさん
02/03/25 12:22ID:gl1wRNze0350296
02/03/25 12:33ID:jj3+leP3はい
0351nobodyさん
02/03/25 12:37ID:???この人のソースを見てPerlの勉強をしろという
人はいますか？
0352nobodyさん
02/03/25 12:58ID:???http://www.nttdocomo.co.jp/p_s/imode/tag/textarea.html
0353nobodyさん
02/03/25 14:36ID:???http://www.we-box.com/cgi/rb2main.html
$mynameって↑の所が配布しているスクリプトに書いてあったの？
て書くか過去ログとか読んでみた？
0355nobodyさん
02/03/25 19:00ID:???なんか駄目なのか初心者の私には分からないけど。
0356356
02/03/26 16:38ID:Ag222T8Yhttp://www.geocities.com/rtewat/petit.txt
こちらのKENT氏の掲示板に
http://www.geocities.com/rtewat/petit_up.txt
こちら側の画像アップロードを付けたいと思ったのですが、
Petit Boardのバージョンが違っているために
うまく機能を取り付けることができませんでした。
どなたか取り付けられるほどのスキルをお持ちの方がおられましたら
画像アップロード機能を取り付けて頂けませんでしょうか？
0359nobodyさん
02/03/26 23:18ID:???>やだ。
じゃなくて、オマエにはできないんダロ！！
えらそうにすんな！！
0363nobodyさん
02/03/27 20:09ID:Vxg6xCJc2chでいえば10件というようにトップでの子記事(レス)の件数を設定する方法はあるでしょうか？
また、子記事の件数を制限させる方法があるでしょうか？
検索しても見つけることができなかったので教えてくださいませ。
0364nobodyさん
02/03/27 20:19ID:???書き方は略
0365aaa
02/03/27 21:09ID:Vxg6xCJcヒントください
参照サイトがあればうれしいなぁ
0367nobodyさん
02/03/27 22:08ID:L1nxqVfL0368nobodyさん
02/03/27 22:45ID:???http://www.perl.com/
0370nobodyさん
02/03/27 23:40ID:???はるか昔、WEBプログラミング板がレンタルサーバー、CGI板(tako鯖時代)だったころに
そんな改造があったような、、、。tako鯖は今でも過去ログみれるんかなぁ
0371nobodyさん
02/03/27 23:45ID:???0372kateinojijou
02/03/28 16:58ID:???なった犬をお引取りし、不幸な犬が増えないよう日々活動しております。ワンちゃん
は、こちらで引き取った後、大事にして下さる
里親さんを探し、見つかるまでの間こちらが責任を持ってお世話させていただきま
す。 なかなか里親さんが見つからなくても、保健所に連れて行ったり、捨てるとい
うこと は一切ありませんので、ご安心ください。
○：●：○：●：○：●：○：●：○：●：○：●
http://isweb37.infoseek.co.jp/family/atp2001/
0373nobodyさん
02/03/30 14:02ID:I3eyv3Uq↓のimgboard v1.22 R6のスクリプト下さい。
0374nobodyさん
02/03/30 14:22ID:???0375asuka
02/03/30 17:56ID:???方法をどなたか教えてください
0376asukaka
02/03/30 21:12ID:???0377nobodyさん
02/03/31 00:30ID:3oCdf+4hBBSをパスワードで入室制限のものに改造したいのですが、出来るでしょうか？
またパスワードで入室制限付きのBBSスクリプトを配布しているところはありませんか？
0378nobodyさん
02/03/31 02:43ID:???まあ落ち着きなさい。
>BBSをパスワードで入室制限のものに改造したいのですが
できます。で、どのスクリプトを改造したいんですか？
>パスワードで入室制限付きのBBSスクリプト（略）
ああ、まだ探してもいないんですね。じゃあこちらへ。
http://pc.2ch.net/test/read.cgi/php/1013282469/
0379377
02/03/31 10:06ID:b7Nmir5mレスありがとうございます。
>パスワードで入室制限付きのBBSスクリプトは探したのですが、見つかりませんでした。
ttp://pocket.727.net/dl/
ここのV12.2を現在使用しています。
これを改造したいのです。
こういう質問は「探してますスレ」にいくものなのですか？
0380377
02/03/31 10:08ID:b7Nmir5mこの形が気に入っているので、出来ればこれを改造したいのです。
さもなくば、同じ形態のものでパス付きのスクリプトがあると助かるのです。
0381nobodyさん
02/03/31 10:12ID:IBwhX0HV>>1←参照レス機能を有効にする方法はありますか？
単独表示する方法は見つけたんですが。
0382nobodyさん
02/03/31 14:20ID:???玄人さんからみれば笑われそうなソースのような気がするが、
なんとなくできたので貼り付けてみる
ログを表示させる前にパスワードのチェックをさせるって流れです。
msgbrd.cgiの最初のほう $Ver_No = '12.201'; の下にでも以下の行書いて
$view_password ="keijibanmitai"; # " 〜 "の中がパスワード
あと100行目あたりからを以下のように
elsif($IN{'cmd'} eq 'ver'){
&Ver;
}
else{
&Password_check; # ここ変更
}
exit(0);
#####
# ここからを付けたし
>>383 につづく
0383nobodyさん
02/03/31 14:20ID:???#####
# ここからを付けたし
sub Password_check {
if ($IN{'view_check'} eq $view_password || $IN{'p'} ne "") { &Main; }
elsif ($IN{'view_check'} eq "" || $IN{'view_check'} ne $view_password) {
print "Content-type: text/html\n\n";
&Printhead;
print<<"_EOM_";
<form method="POST" action="$Maincgi">
閲覧パスワードを入れてください
<input type="text" name="view_check"> <input type="submit" value="送信">
</form>
</body></html>
_EOM_
exit;
}
}
#ここまでを付けたし
#####
sub Main{
とりあえずローカルで試したらそれっぽく動いてるので大丈夫かと。
もっと凝ったことしたかっらた、Perl覚えて自分でなんとかしてください。
0384nobodyさん
02/04/01 00:36ID:UbWdTSJx0385探してるんです
02/04/01 09:49ID:TtQlzVFzこのcgiですが、認証後に表示されたページ以外は見れなく
することはできないものでしょうか。
他のスレッドにも書き込んだのですが、
ここがピッタリのところだと思いますので
今一度書かせていただきました。
0387nobodyさん
02/04/01 13:41ID:???ということをやろうと思いましてやってみたのですが、
許可をしたアドレスからもはじかれてしまいます。
どこかが間違っているのでしょうか？
お願いします。
##特定したURL以外アクセス禁止(１ならする、0ならしない）
$badurl = '1';
##上記で1にした場合そのURL指定（CGIを設置するページ）
#リンク許可ページのＵＲＬ (正確に記入。複数指定可)
$url[1] = 'http://';
$url[2] = 'http://';
$url[3] = '';
$url[4] = '';
if($badurl) {
$url[0] = $script;
$ENV{'HTTP_REFERER'}=~ s/%(..)/pack("C",hex($1))/eg;
if($ENV{'HTTP_REFERER'}){
for(@url){
if($_ && $ENV{'HTTP_REFERER'} =~ /^\Q$_\E/){
$flag = 1;
last;
}
}
}
if($badurl && $flag != 1) { &error("CGIへの直リンクは禁止です"); }
}
0388nobodyさん
02/04/01 13:54ID:???0389探してるんです
02/04/01 13:55ID:d8PhHCawむりですか・・・
レス有り難うございました。
385で書いたようなcgiを使いたいときは
どこかに発注しなければいけないんでしょうかね。
その場合費用はいくら位なのでしょうか。
ご存じの方はご教示下さい。
0390nobodyさん
02/04/01 14:06ID:???0392nobodyさん
02/04/01 15:57ID:???0393nobodyさん
02/04/01 20:27ID:???0394377
02/04/01 20:44ID:7BoT4DGKありがとうございます。とても感謝しています。
早速やってみます。
のチャットでチャットの利用状況を下のように簡単に表示させることってできますか？
[1号館] 待 空 満 空 空 空 空
[2号館] 待 空 空 空 空
[3号館]空 空 空 空 空
0396nobodyさん
02/04/02 13:08ID:???0397nobodyさん
02/04/02 13:22ID:???0399395
02/04/02 13:42ID:???満
空
空
って感じで縦に表示されてしまいます。横に並べるにはどうしたらいいでしょうか？
CGIをテキスト化したもの
http://www.h2.dion.ne.jp/~i-deai/sozai/scan.txt
0400nobodyさん
02/04/02 13:52ID:vQkiGH9y縦に並ぶと言うことは、満なり空なりの後に<BR>タグが入っている事ですよね？
ということは？
0401nobodyさん
02/04/02 13:55ID:???0403395
02/04/02 14:14ID:???0404400
02/04/02 14:21ID:vQkiGH9yスクリプトが吐き出したソースを眺めてごらん。
0405nobodyさん
02/04/03 00:41ID:GttiUx1RこのＢＢＳを使いたいのですが、投稿時にタグが使えないようです。
使えるようになりますか？
スクリプトのダウンロードは下記です。
http://www.t-okada.com/cgi/s_downloader1/
0406nobodyさん
02/04/03 01:13ID:???0407405
02/04/03 01:15ID:GttiUx1R0408nobodyさん
02/04/03 01:15ID:???0409nobodyさん
02/04/03 01:22ID:???スクリプトをわざわざダウンロードさせる気ですか？
しかもメールアドレス書かせてそこに送りますなんて
仕組みのとこ気分的に非常にイヤですな。
txt形式にしてどこかにUPしる！と言いたいとこだが、
下の2行のような記述あるとこ探して削除してみ。
○○○ =~ s/</</g;
○○○ =~ s/>/>/g;
それでもダメならスクリプトをtxt形式にしてどこかに
UPしる！
0410nobodyさん
02/04/03 01:24ID:???○○○ =~ s/</</g;
○○○ =~ s/>/>/g;
0411nobodyさん
02/04/03 01:25ID:???アホ発見！
0413405
02/04/03 03:19ID:GttiUx1R検索で探してみたのですが、見あたりません。
メインのcgiの中にあるんですよね。
どこかにアップします。少しお待ち下さい。よろしくお願いします。
0414405
02/04/03 18:19ID:2YgAzoOmアップしました。
どなたかよろしくお願いします。
0416405
02/04/03 20:19ID:anNonN4Hはい
http://www.miniflo.com/cgi/up/source/064.txt
0417nobodyさん
02/04/03 20:30ID:???sl1_bbs_r.cgi と sl1_bbs_o.cgi と sl1_bbs_a.cgi も・・・・か？
0418nobodyさん
02/04/03 21:13ID:???このcgi
0419nobodyさん
02/04/03 22:25ID:???0420nobodyさん
02/04/03 22:39ID:???0421405
02/04/04 02:57ID:Psb3orCtお世話になります。
このＢＢＳはこのまま設置しようとしても構文エラー頻発します。
あらゆる所をかきかえなくてはなりません。
勿論必要なところは書き替えてます。
#!/usr/local/bin/perl を
#!/bin/perlに変えるとか、パーミッションの設定とかは出来ています。
エラーが無くなれば、今度は警告が出ます。結局まだ設置出来てません。
何なんでしょうか？
設置しようとしているサーバーはwakwakです。
0422nobodyさん
02/04/04 03:07ID:???sl1_bbs_cfg.cgiみせてみれ
0423nobodyさん
02/04/04 03:08ID:???sub check_data {
my ($value_data) = @_;
# $value_data =~ s/</</ig;
# $value_data =~ s/>/>/ig;
$value_data =~ s/\|\|\|//g;
$value_data =~ s/\r\n/<BR>/g;
$value_data =~ s/\r/<BR>/g;
$value_data =~ s/\n/<BR>/g;
&jcode'convert(*value_data,$mycode);
if ($mycode eq 'sjis') { &jcode'h2z_sjis(*value_data); }
if ($mycode eq 'euc') { &jcode'h2z_euc(*value_data); }
return $value_data;
}
こうする。
0424nobodyさん
02/04/04 03:10ID:???$value_data =~ s/</</ig;
$value_data =~ s/>/>/ig;
この2行を探して先頭に#を付けるだけ。
0425nobodyさん
02/04/04 03:11ID:???0426nobodyさん
02/04/04 03:16ID:???http://www.wakwak.com/info/connection-setup/ftp/custom-cgi.html
0427405
02/04/04 03:52ID:Psb3orCtありがとうございます。
sl1_bbs_r.cgi
の中にありました。
0428nobodyさん
02/04/04 03:59ID:???ソースを見たところ、あんまりいいたくはないけど
もっと処理速度を上げられる書き方があるのに．．という箇所が随所に
見られました。今後Perlを勉強してチューンナップしていってください。
0429nobodyさん
02/04/04 06:28ID:LDcuVgD6知り合いが使っていた言葉なのですが
0431nobodyさん
02/04/04 17:53ID:???えぇと、このアップロード掲示板の表示をソートしたときに
逆順にソートできないでしょうか？
新しい投稿を上にもってきたいのです。
0432nobodyさん
02/04/05 01:15ID:???たったこれだけの処理で２５００ステップもあるから、もっとコンパクトに
整理して書き直したほうがいいのでは？ ざっと見ただけで動作確認はしません
でしたが、一応以下に書いておきます。
2427行および2456行を↓のように書き替える。
@array= reverse sort @array;
0434nobodyさん
02/04/05 13:53ID:vHWX7n4+↑にあるTbookmarkplusについてなのですが、
登録画面と、変更・削除画面を分けたいのです。
よろしくお願いします。
0435nobodyさん
02/04/05 14:11ID:???http://www.b-u-g.net/cgi-bin/bstbp/cbbs.cgi?mode=al2&namber=57&rev=&no=0
ほほぉ〜マルチポストですか。なかなかの教えて君っぷりですな。
二度とくるな。
0436nobodyさん
02/04/05 14:13ID:UiVSKNUeここの ＣＯＭ ＣＨＡＴをiモード対応にしたいです。
0437nobodyさん
02/04/05 15:06ID:???Locationでログに飛ばしてみては？
0438436
02/04/05 15:15ID:UiVSKNUe0439nobodyさん
02/04/05 15:22ID:???そのチャットのどういうところに惹かれてそのチャットをi-mode対応にしたいの？
すでにi-mode対応の別のチャットにCOM CHATの機能をつけるという手段もあるべ。
0440436
02/04/05 15:28ID:UiVSKNUeここのＤＸチャットの携帯版と同じような
機能をつけたいんだけど・・・・
0441436
02/04/05 15:34ID:UiVSKNUehttp://www.cgiboy.com/
0442nobodyさん
02/04/05 17:44ID:???perlの知識ほぼ0で改造を考える君は凄いと思う。
0443436
02/04/05 18:22ID:u7CcrBBeあとは＄とか
0444nobodyさん
02/04/05 19:27ID:79Gl0aG1そこに色名を入れてもらい、その色で記事を表示するようにしたいのです。
（従来の■による色選択も活かしたまま、追加したい）
スクリプトは下記にアップさせてもらいました。
http://www.geocities.co.jp/HeartLand/1575/board.txt
どうかよろしくお願いします。
0445nobodyさん
02/04/05 21:25ID:YOkmh3/V教えてやろうか？
ラジオの部分をテキストにしやがれ。
0447春厨房
02/04/06 00:48ID:+tk8w0bj下のしりとりCGIで、「名前」と「しりとりの言葉」以外に、「コメント」の欄もつけたいんですが、
そのためにはどこをどう改造すれば宜しいでしょうか？
どうか教えてくださいまし。よろしくおねがいします。
↓
http://www.geocities.co.jp/SiliconValley-Cupertino/4960/siritori.txt
0448hanamogera ◆kkkKkkko
02/04/06 01:27ID:NYi0ELItやってみますので、12:00マデ待ってください。
でも、その前に誰かやっちゃうかも。
■ このスレッドは過去ログ倉庫に格納されています