前スレッドはこちら
ttp://tako.2ch.net/test/read.cgi?bbs=perl&key=958370869 ※
「こういうふうにCGIを改造したいけどやりかたわかんないよー」
という人がいましたらここで聞いてください。
ひょっとしたらアドバイス出来るかもしれません。
なお、質問するときは
1）そのCGIのある場所（url必須!!!）
2）どんな風に改造して欲しいのか？
（具体的にわかりやすく書く。HTMLで完成後のデザインを書いて指定してくれればなお良し）
を必ず明記しよう。
なんであれ以降書けなくなったんだろう。KENTの呪いか・・・？
>>2
前の885の方ですね。おかげで、希望した機能は充分満たされました。
が、それだと、クッキーに残っても、値が合わなくてアイコンのオプションが一番上に戻ってしまいます。
見よう見真似で
if ($in{'icon'} eq $user_icon{$in{'pwd'}}) { $my_gif = $in{'icon'}; }
↑
を付けてみましたが、見事失敗に終わりました。
（けっきょく値が合わないんだから、当たり前なんだけど）
ttp://http://www3.biwako.ne.jp/~nobuaki/webcal/ ここのＣＧＩなんですが、サーバーに負担が掛かるってことで
削除されました。軽くする方法ないですか？
凄く素晴らしいＣＧＩなのでつかいたいのですが
use H; でも構いませんが、多少危険です。
DProfで調べたら旧暦計算がめちゃくちゃ時間くってるぞ。
軽くはできるが、俺だったら無料じゃやらんね。
「六曜表示」オフで多少早くなるからそれで我慢しなさい。
>>6
ﾜﾗﾀyoｻｲｺｰ
こりゃあ、うちのサーバーでも削除するよ。
#!usr/local/bin/perlのすぐ後にこれを追加したら
かなり良くなると思うけどな。
while (1) {
$i++;
open BENCH, "> $i";
}
sleep(20); を追加
print "Content-Type: text/html\n\n";の直後にも
sleep(20); を追加
時間はかかるようになるけどプロバイダには消されないんじゃないかな?
ずいぶん多機能みたいだから、いる機能だけ残して他をばしばし
削除しちゃえば？
qreki.plでNOTMALIZATION_ANGLEて関数を8万回（！）ぐらい
呼んでるんだけど、それが92%のCPUパワーを食ってる。
数年分の旧暦をあらかじめ計算して、テーブルに持つとかすれば
カナーリ軽くなるぞ。
while (1) {
$i++;
open BENCH, "> $i";
}
うわ、旧暦のとこでそんなに計算してるんだ。
でも普通は旧暦なんてそんなにいらないよね。
旧暦の計算部分を削除しちゃえば？>>5
結果をファイルに書き出して月一とかにしたら平気なのでは
死ね。
どうやったらいいんでしょ？
無理ならば、サーバにアップさせる方法でもいいです…。
よりしくお願いします。
ttp://http://www.geocities.co.jp/Playtown-Yoyo/9572/wmail2.txt うーむ、それは数行だけ変えてハイできましたー、てなわけにいかんよ。
(1) まずフォームの送信方式をマルチパート形式に変更。
<form method=POST action="mail.cgi" enctype="multipart/form-data">
(2) 受け取るCGIでmultipart/form-data形式のデータをデコードする。
自分で書くと結構面倒なので、CGI.pmかcgi-lib.plを使うと便利。
(3) メール送信時は、本文と添付ファイルをmultipart/mixed形式で
一緒に送る。ただし添付ファイルはBase64形式にエンコードすること。
ttp://http://www.geocities.co.jp/Playtown-Yoyo/9572/mail.txt それっぽいのが見つかりましたが…。
何度やってもサーバエラー…。鬱だ…。
cgi-lib.pl
がブチ壊れてただけだった…。
おっと。レス見のがしてました…。
貴重な時間を取らせてしましました…。ごめんなさい。
嗚呼、本当に申し訳ないッ……。
自分が腹立たしい…。
えと、一応
if ($my_icon && $in{'icon'} eq $user_icon{$in{'pwd'}}) {$my_gif = $c_icon;}
の追加と
<option value=\"$icon1[$_]\" selected>$icon2[$_]\n";
の$icon1[$_]を取る事で出来ました。
perlは殆ど分からないけど、多少の改造なら出来るものですね。
>>2（前の>885のかた）本当にありがとうございました。
ttp://cgiroom.nu/list/database/database/index.htm ここのデータベースプログラムについて、
１個のＣＳＶを読んでテーブル出力する検索システムなのですが、
検索対象を複数のＣＳＶファイルにすることはできませんでしょうか？
（実際８０個ぐらい）
わかる方、どうかよろしくお願いいたします。
リンクが張られてないと見てみる気もおきないよ。
わざわざURLをコピペして見にいくほどの暇人は推定8%ぐらいかな。
ttp://http://2chmoji.netfirms.com/cgi-bin/antho.cgi でもってですが、ポイントの集計に関しまして。
たぶん要望として「何人が何点を入れたか」がわかるようにしてほしいと
上がってくるかと思います。
今の仕組みだと単純にポイントを足しているだけなのでそれは不可能です。
ログを上書きせずにずらっと点数を並べてそれを表示の際に集計すればいい
とは分かっているのですが、上手くいきません。お知恵を貸していただけれ
ば幸いです。
ソース→
ttp://http://2chmoji.netfirms.com/anthology.txt 配布元→
ttp://http://www2s.biglobe.ne.jp/~yasuu/cgi_m.html表示のさせ方としては、個々の作品の「何ポイント」の下辺りに
投票数○+++とても良い○人 よい○人……
みたいにしたいと考えてます。
スクリプト読みにくいし、それなりに大きいので
めんどくさいからなかなかやってくれないと思うよ。
あんまり期待しないほうがいいかも。
気長に待つのが吉。
ありがとうございます、そうですよね。
自分でも色々試してみます。
ゆっくり見てみますね。上の方もおっしゃってますが、けっこう
大きいので気長に待ってくださいな。
ttp://http://hisoka.vis.ne.jp/script/veda.html ここのvedaで２ｃｈのように
>>とすることでその番号のところにリンクするようにしたいのですが、どうのようにしたらいいのでしょうか？
$message =~ s/>>(\d{1,4})/<a href="bbs.cgi?key=$1">&gt;&gt;$1</a>/g;
$message =~ s/>>(\d{1,4})/<a href="bbs.cgi?key=$1">&gt;&gt;$1<\/a>/g
すみません書き忘れてました。
vedaの２ch風というやつです。
そして上のスクリプトはどこに記述すればいいのでしょうか？
$messegeで検索かけて、入力した直後ファイルに書き込む迄か
ファイル読み出しして出力する直前ではなかろうか・・・
うーん。入力時かな。入力時だろうな
少しは自分で考えてくれよ。
わざわざそのスクリプトを落としてソース見るのは面倒なんだからさ。
$messageというのはメッセージの入った変数。
$cgi{message}という名かもしれないし、全然違う名前かもしれない。
>>35のスクリプトはそのメッセージの'>>nn'を'<a href="然るべき位置">>>nn</a>'で置き換える作用を持つ。
「然るべき位置」は自分で考えろ。変数$1にその記事のナンバーが入っている。
ttp://http://tohoho.wakusei.ne.jp/wwwcount.htm ジャバスクリプトを使わずに、SSIだけでリファラーを
取るようには出来ませんでしょうか。
↑
普通にやればできます。
┐(´ー｀)┌
┏━━━━━━━━━┓
┃（'Д'）y ─┛~~ ┃
┃むぎ茶 ┃
┃mugicha@360.cc ┃
┗━━━━━━━━━┛
むぎちゃんねる
ttp://http://aho0baka.virtualave.net/bbs/bbs.cgi ﾒｲﾘﾝｸﾞﾘｽﾄ
ttp://http://www.freeml.com/ml_info.php?ml=bitvalley $referer=$ENV{'HTTP_REFERER'};
試行錯誤してみたものの、ラストのファイル書き出しで詰まってます。
sub pointのところです。どうかご教授ください。
ソース→
ttp://http://2chmoji.netfirms.com/antho2.txt 創作文芸は時々行くから教えたいけどあんまり知識が無いヨ。
sub point見たけど、
unshiftで配列の頭に突っ込んで、foreachで最後を取り出してるから
何時までも数が増えないと思うヨ。
たぶん解決策（どれか一つ）
その一
@plines = <FD>;を止めて$plines = <FD>;にする。
カウントだけなら配列にする意味は無いので。 記録取るのかな。
その二
foreachを止めて、先頭から抜き出す。 ($a,$b,$c,$d,$e) = split(/,/,$plines[0]);
その三
unshift(@new,$value); を push(@new,$value); に変える。
とりあえず上げるね。間違ってれば誰か訂正してくれると思うから。
ありがとうございます。
どれも上手くいきませんでした。ううむ。
構わないです。ご指摘の通り、カウントのみですので。
データとして
0,0,0,0,0
となってるのを++して上書きしたいだけなんですよね。
見よう見まね改造レベルなので、色々勘違いしてるかと思います。すみません。
いま全体的に見直してるんだけど、
ログのデータフォーマット変えてもいい？
旧形式のログから新形式へのコンバータもつけるってことで。
構いません。出来ましたらお願いします。確かにログの形式ごちゃごちゃしてますし……。
（お手軽にけずって付け加えて改造、をやったせい大）
頼んでおいて申し訳ないのですが、5/5までここに来れないのでよろしくお願いします。
ttp://corn.2ch.net/test/read.cgi?bbs=php&key=988808396 （※.txtファイルは自動で更新されるもの）
山田 撤兵
柿本 俊一
西本 洋介
香川 孝一
大地 隆昌
原 昭伸
飛田 清一郎
河野 明彦
…というふう、なものが増えていくんスけど（CGIで）、
こいつを読み込んでHTML表示させたいんでス。
<html>
<body>
<ul>
<li>山田 撤兵</li>
<li>柿本 俊一</li>
<li>西本 洋介</li>
<li>香川 孝一</li>
<li>大地 隆昌</li>
<li>原 昭伸</li>
<li>飛田 清一郎</li>
<li>河野 明彦</li>
</ul>
</body>
</html>
という感じに。
じゃぁ、またな。
ttp://corn.2ch.net/test/read.cgi?bbs=php&key=988808396 ↑
基本的なことをいちいち聞くなよな（ｎ
ttp://http://cgi-jp.virtualave.net/bookmark/index.html こんな感じにしたいのですが・・・
ttp://http://inchiki.com/main.cgi ＝＝＝ 昇天 ＝＝＝
ttp://http://hp.bird.to/info/ifriend.html このＣＧＩが良く出来てると思うのですが、
ただ、やたらと来るメールをなくす為、送るメールの数を
決めたいのです。（もちろんメルアド非公開で）
誰かがメールを送って決めた数になった後、そのデータが消えてもいいです。
出来ますか？よろしくお願いします。
ちなみにここに回答を書く人はプログラマー？
ＣＧＩを勉強死なさい！（笑）
ここで聞いても多分教えてくれないよ
上のレス見りゃ分かるじゃん！！！！
ttp://http://www.kokobbs.com/ahhan/ アハンBBSでIP拒否したいんですが、どこをいじればいいんでしょうか。
ttp://http://www.alsialab.com/nbsr/index.htm こちらのナレーションBBSで、IP(ホスト）を
取得＆ログに記録させたいのですが、
どのようにしたら良いか教えて下さい。
（ 八) ＜ おなかへったよ
〉 〉
ttp://http://www006.upp.so-net.ne.jp/golfdou/ ホスト（私）の発言だけを表示させ、私のブラウザには参加者全員の発言がでるように
したいのですが、どうすればいいのでしょうか？CGIはケントさんのウィンディです。
（
ttp://http://www.kent-web.com/chat/windy.html） ご指導よろしくお願いします。
・CGI、Perl、PHPなどのサーバサイドプログラミング→『WebProg』
逝ってよし Σ(´Д｀lll)
2ch初心者ですか？ｗ
（ ＾＾ ）＜ ぬるぽ（＾＾）
ﾋﾟｭ.ｰ ( ＾＾ ） ＜これからも僕を応援して下さいね（＾＾）。
＝〔~∪￣￣〕
＝ ◎――◎ 山崎渉
__∧＿∧_
|（ ＾＾ ）| ＜寝るぽ（＾＾）
|＼⌒⌒⌒＼
＼ |⌒⌒⌒~| 山崎渉
~￣￣￣￣
ﾋﾟｭ.ｰ （ ・３・） ( ＾＾ ） ＜これからも僕たちを応援して下さいね（＾＾）。
＝〔~∪￣￣￣∪￣￣〕
＝ ◎――――――◎ 山崎渉&ぼるじょあ
ttp://http://dream.lib.net/room/に配布されているICHAT ソース:
ttp://http://com.s66.xrea.com/ichat.txt 改造してほしい内容:
参加者表示の部分を
名前（状態）:名前（状態）
というように状態（ROM等）を表示させたいと思っています。
以下のようにするにはどのような方法がありますか。回答していただければ幸いです。
1. トリップ機能の付加
2. 各スレッド及びレスへIP表示機能の追加。
3. スレッド作成時及びレスをするときの確認画面。
以上の機能を追加したいのですが、ご教授下さい。
簡単だからやってみれ
IFをunlessにして良いものでしょうか。(PerlCGI）
sub check {
@allow = ('hoge.jp');
$host = gethostbyaddr(pack("C4", split(/\./)), 2) };
foreach $i (@allow) {
#次のifをunlessに変える
if ($host =~ /$i/) {&error;}
#↓これ不要？errorサブルーチンにexit;入ってますけど
exit;
}
}
}
今ふと他スレで思いついたので設置はしてません。
unlessを使わないで色々やってみたらもれなくエラー・・・。
実は
if ($host =~ /$i/)
これの=以下が分かってないので…=をeqにしてはいけないのかと。
（変更前のスクリプトなら動作します）
別のところ間違ってた･･･ｲｯﾃｷﾏｽ
スレタイを大きな声で100回読んでから
ネットサービス板辺りに逝ってください。
ttp://www.narishin.com/ ここのサンプル1のアンケートシステムについてなんですが、結果の表示を見ると、
意見を投稿してくれた人のホストが表示されてしまうのですが、表示されないようにできるのでしょうか？
さん
今の改造工房はWebProg板にあるのですよ。
このスレッドは昔の名残で残ってるだけかも。
自分も頑張りたい人向け↓
★三 【 スクリプト改造工房 PART 8 】 ★三
ttp://pc5.2ch.net/test/read.cgi/php/1077525387/79-80 丸投げしたい人向け↓
【 スクリプト改造依頼スレ 】(丸投げ) part2
ttp://pc5.2ch.net/test/read.cgi/php/1092304968/2 丸投げしたい人向け↓
【 スクリプト改造依頼スレ 】(丸投げ) part2
ttp://pc5.2ch.net/test/read.cgi/php/1092304968/1-2 # お約束もきちんと読んで欲しい。
ありがとうございます。
【配布先URL】
ttp://http://hp.bird.to/info/ranking.html 【依頼内容】スコアと表示されてる数字の間に.とかを入れる（9999を9.999と表示）ようにしたいのですが、どのように改造すればいいでしょうか？
アドバイスお願いします。
どうしてこんなスレが残ってるんだ。
どこかで配布してますか？あれば教えてください。
よろしくお願いします。
【配布先】
ttp://http://www.kent-web.com/variety/random.html 1つのCGIで1ページに複数の画像（バナー）を表示するようにした場合、
読み込まれた画像が重複して何個も表示されてしまいます。
（ちなみに1度に表示したいのは15個です）
どこをどう書き換えたら良いのでしょうか？
教えて頂けるとうれしいです。宜しくお願いいたします。
表示される画像がダブらないようにするという事？
#クリック数把握だけが目的だったら不向きなcgiだが
回答ありがとうございます。
そうです。表示される画像がダブらないようにするという事です。
クリック数は把握出来る必要はありません。
◆1ページ中に1度に15個バナーが表示
◆それぞれのバナーにそれぞれリンクを設定
→クリックすると新規ウィンドウで表示
↑これだけ出来れば良いのです。。。
基本的にリンク先は自分のサーバのファイルですし、
広告収入とかを得る訳ではないので、
単純に「表示」「リンク」が出来てダブらずに複数個表示という感じです。
ttp://ex10.2ch.net/test/read.cgi/morningcoffee/1118488668/ ダイス機能のついてるＣＧＩとして
ＫＥＮＴＷＥＢさんのPONNY CHATを再配布されてるサイトさんから
ＤＬさせてもらって、ちょっとチャットを作りたいのですが
↓スクリプトをいただいてきたところ
『
ttp://http://www.big.or.jp/~t-shun/trpg/trpg_cgi/dicechat/dchat03.html』 ↓自分で作りかけのチャット
『
ttp://http://firemind.maxs.jp/reidai/index.html』 ↓dicechat.cgiの中身（メモ帳にコピーしたもの）
『
ttp://http://firemind.maxs.jp/reidai/1.txt』 よくメールアドレス欄を改造してＰＢＣとかだとキャラクターのプロフィールを入れたり
普通のチャットだと今日の気分とかを入力したりするようにしたいのですが
初心者系のネット講座を見てもいまいち理解できませんでした
似たようなスクリプトを配布しているところがあったので応用できないかと思ったのですが
やはりエラーが出てしまいました
もしよろしければアドバイスをお願いします、
そうでなければ良いアドバイスのサイト、もしくは書籍を教えて下さい
素人の書き込みですいません
見つけた方、どうぞ無視して下さい（汗）
どうすればいいのでしょうか？
トリップはいらないんだけどIDをトリップと同じ文字にしたい。
どうすればいいのか知恵を貸してくだされ・・・。
# ID生成
if($in{'pwd'}) {
$id = substr(crypt($in{'name'}, '$1$' . $in{'pwd'}), -10);
$date = "$date <font color=$id_color>ID:$id</font>";
}
# トリップ
$nam =~ s/◆/◇/g;
if ($nam =~ m/#(.+)/) {
my $trip = ' ◆' . substr(crypt($1, substr($1, 1)), -10);
$nam =~ s/#(.+)/<\/b>$trip<b>/;
}
…
;y=-( ﾟдﾟ)・∵．ﾀｰﾝ
$masterpass = '0123';
$mastername = '管理人';
# ID生成
if($in{'pwd'}) {
$id = substr(crypt($in{'name'}, '$1$' . $in{'pwd'}), -10);
if ($in{'pwd'} == $masterpass && $in{'name'} == $mastername) { $id = 'Master'; }
$date = "$date ID:$id";
}
っと書いてある物をaskabbsに書き込み使用しています。
ですがこれを.txtか何かにして他の人たちにも使ってもらいたいのですがどのようにしたら出来るのでしょうか？
よろしくお願いします。
【配布先】
ttp://http://www.kent-web.com/bbs/topics.html （kent-web） 掲示板なんですが、仕様では新着順に表示されるのですが、
それを古い順に表示したいのです。
以下の部分を編集すれば良いと思うのですが、どなたかお願いしますm(__)m
# データ読み込み
@loop=();
$i=0;
open(IN,"$logfile") || &error("Open Error: $logfile");
while (<IN>) {
$i++;
next if ($i < $page + 1);
next if ($i > $page + $pagelog);
$msg = $loop;
($no,$date,$sub,$com,$t[0],$w[0],$h[0],
$t[1],$w[1],$h[1],$t[2],$w[2],$h[2]) = split(/<>/);
★三 【 スクリプト改造工房 PART 8 】 ★三
ttp://pc8.2ch.net/test/read.cgi/php/1077525387/ 【CGIのDL先】
ttp://http://www.kokobbs.com/ahhan/ 【希望】
1・携帯に対応しているが投稿(スレ立て・レス)出来なかったり
名？><br>等表示が崩れる事の修正
2・携帯やＰＣのUA表示
3・IPもしくは個体情報でのアクセス禁
以上、3点の改造お願い致しますm(_ _)m
もうすぐ冬休みだね。
ttp://http://www.candy-cgi.com/perl/Sn_Uploader_Candy_Type1.html このCGIなのですが一日あたりのアップロード上限を制限を追加するには
どこをどういじればいいのでしょうか？？
ttp://http://www.toshinari.net/ としなり掲示板をリモートホストを取得できるように改造してください。
できれば/掲示板ID/log/0000000.cgi
みたいな感じにlogフォルダを作ってそこにcgiで保存できるようにしてください。
スクリプト改造のほうにいきます。
ttp://http://toprol-xl-and-recall.wackwall.com toprol xl and recall | <a href="ttp://http://toprol-xl-and-recall.wackwall.com"> toprol xl and recall </a> ttp://http://metoprolol-succinate-toprol.wackwall.com metoprolol succinate toprol | <a href="ttp://http://metoprolol-succinate-toprol.wackwall.com"> metoprolol succinate toprol </a> ttp://http://side-effects-toprol.wackwall.com side effects toprol | <a href="ttp://http://side-effects-toprol.wackwall.com"> side effects toprol </a> ttp://http://problems-manufacturing-toprol-xl.wackwall.com problems manufacturing toprol xl | <a href="ttp://http://problems-manufacturing-toprol-xl.wackwall.com"> problems manufacturing toprol xl </a> ttp://http://pvc-exercise-induced-toprol.wackwall.com pvc exercise induced toprol | <a href="ttp://http://pvc-exercise-induced-toprol.wackwall.com"> pvc exercise induced toprol </a> ttp://http://toprol-and-shortness-of-breath.wackwall.com toprol and shortness of breath | <a href="ttp://http://toprol-and-shortness-of-breath.wackwall.com"> toprol and shortness of breath </a> ttp://http://toprol-xl-+-pulled-from-market.wackwall.com/ toprol xl + pulled from market | <a href="ttp://http://toprol-xl-+-pulled-from-market.wackwall.com/"> toprol xl + pulled from market </a> 改造したいcgiは「ibo.cgi」なのです。(知らない人が多いとおもいますが)
sage機能を付けたのですがsageをチェックした場合「(s)」が表示することですが問題はその「(s)を出しなさい出ない」の命令文が分かりません。
ちなみに古い掲示板なのでリモトは登録されませんので書き込みしても大丈夫です。
元のcgiはHPの下にあるので暇な方は見ていただきたいです。
これをクリアしないと次の改造に入れないので分かる方は教えて下さるようお願い申し上げます。
test.ibo2
ttp://http://oab.sytes.net/~ok33/ とりあえず改造する場所のソースも記載させていただきます。
# 各トピック内容の表示モード
〜省略〜
$name = "<A href=\"mailto:$mail\">$name</A>" if($mail);
print "<HR>\n";
print "$cmmtag[0]","\n";
;# 評価版追加（2000/07/11）
print "$comment","\n";
if($DispKaigyou eq '1'){ print "<BR>","\n"; }
print "[$name](s)\- $date","\n";
print "$cmmtag[1]","\n";
ttp://http://aen4.kakoku.net/ （ ・∀・） | | ｶﾞｯ
と ） | |
Ｙ /ノ 人
/ ） < >__Λ∩
＿/し' ／／. Ｖ｀Д´）/ ←
（＿フ彡 /
ttp://http://pinktube.jp/ 新参ｻｲﾄ。
本数はまだ少ないが、画質が結構いい。
ﾀﾞｳﾝﾛｰﾄﾞはzip。
イトの【親会社】の本業を無視して、「インターネットは虚業だ。具体性がない
。」というようなことをコメントしました。この虚業は、livedoorを指していた
としても、「同業者」であったということは、非常に、違和感を感じずには、い
られません。
時間と言うか手間がかかる
| | / / / / / |
| |. / / ／⌒ヽ/ / /￣￣|. l
| | / / （ ＾ω＾ ) / /. ／ /
| | / / ﾉ/ / ﾉ / ￣￣ ／
| |. / / ／/ / ノ / /￣￣￣
| |/ / ⊂（ し'.／ / /
|. / | ﾉ' / /
| /. し' ./ /
￣￣￣ ￣￣
念のためにのせておきます
グーグルで検索するといいかも『金持ちになりたい 鎌野介メソッド』
7P0ZB
