スクリプト改造工房 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を用意すればなお良し）
を必ず明記しよう。
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マデ待ってください。
でも、その前に誰かやっちゃうかも。
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; }
でどう？
■ このスレッドは過去ログ倉庫に格納されています