トップページ⇒php
990コメント450KB

★三　【 スクリプト改造工房 PART 8 】　★三

レス数が950を超えています。1000を超えると書き込みができなくなります。
0001sage04/02/23 17:36ID:???
#================================
# スレッドの説明
#================================

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

質問するときは以下の点に注意して書いて下さい

(1) そのスクリプトの内容と置いてある場所を明記する (txtファイルでUPすればなお良い)
(2) どんな風に改造して欲しいのか？ (完成イメージHTMLを用意すればなお良し)
(3) 出来るだけ詳しく書くこと。少しは自分で考えること。できれば御礼も言ったほうが良い

※答えてくれないからといって逆ギレする厨はお断り

前スレ　http://pc2.2ch.net/test/read.cgi/php/1063780103/
0850nobodyさん2005/11/22(火) 17:14:04ID:???
>>849
327行目に追加
print 'Location: http://homepage.html'."\n\n"; exit;
08518492005/11/22(火) 18:47:55ID:???
>>850
ありがとうございます。
BBS自体をいじっていない状態では無事にTOPPAGEへと移動しました＾＾
ただ、使用しているBBSの状態ではエラーがでてしまいました。

投稿画面の部分のソースをHTMLに貼り付けて、
TOPPAGEのHTMLに埋め込む形を取っているんです。
（一見、メールフォームみたいにみえるようになっています）
この場合どうしたらいいでしょうか(´･ω･`)
ご迷惑おかけしますorz
0852nobodyさん2005/11/22(火) 19:06:54ID:???
>>851
変更前のには上の修正をして動くのね？
使用しているBBSという意味が分からないけど、
成功したスクリプトを基準にしてもう一度設定しなおして。
849の書き方からするに動く原理とかあんまり分かってないようなので、動くのを基準にやり直すことお勧めします。
08538492005/11/22(火) 20:00:45ID:???
>>852
そうですね、わざわざ出来ないようになっている掲示板に
手をかけるのもあれなので、もとからページ移動先を
設定できるものを探して設置できるようにしました。
ご迷惑をおかけしました。
0854nobodyさん2005/12/04(日) 18:28:32ID:i00gwMB7

誘導されて来ました。
【.　 CGI名 　.】　YY-BOARD v5.5
【配布先URL】　http://www.kent-web.com/bbs/yybbs.html

デコード処理
sub decode {local($buf,$key,$val);
undef(%in);
if ($ENV{'REQUEST_METHOD'} eq "POST") {
$post_flag=1;
if ($ENV{'CONTENT_LENGTH'} > 51200) { &error("投稿量が大きすぎます"); }
read(STDIN, $buf, $ENV{'CONTENT_LENGTH'});
} else {$post_flag=0;
$buf = $ENV{'QUERY_STRING'};}
foreach ( split(/&/, $buf) ) {
($key, $val) = split(/=/);
$val =~ tr/+/ /;
$val =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("H2", $1)/eg;

掲示板の最大文字数制限をしたくてソースを見ていました。
上の51200をいじれば最大文字数も変更できるのかと思い
50に変えたのですが、500文字の書き込みも普通に投稿できます。
どうすれば、制限することができるのでしょうか。それともここは関係ないのでしょうか。
他にあやしいところは下あたりです。よろしくお願いします。

記事登録
sub regist {local($flag,$oyaChk,@lines,@data,@new,@tmp);
# フォーム入力チェック　&formCheck;
# 時間取得　&get_time;
08558542005/12/04(日) 20:24:04ID:???
解決しました。すみません。
0856nobodyさん2005/12/05(月) 00:58:41ID:sAr+SdXn
こんばんは。力なき私に力を貸してください。
今商品閲覧のサイトを作っているのですが
以下のCGIをうってDISPAYしようと試みましたが、下に延々と続いてしまいます。
希望的には5列表示し、2段になったら、下の方に次のページと表示したいのですが
できません。。。商品は$good_idが1からどんどん増えていくのでそこで
ifで表示させるのかなと思いやってみたのですが出来ません。
皆様方どうかちからを貸してください。
print "<FORM METHOD=POST ACTION=\"$cgifile\">\n";
print "<TABLE CELLPADDING=0 CELLSPACING=0 WIDTH=310 BORDER=0>\n";
print "<TR><TD background=\"$img_pass/table-up.gif\" width=155 height=12></TD><TD background=\"$img_pass/table-up.gif\" width=155 height=12></TD></TR>\n";
print "<TR><TD VALIGN=TOP width= 155 background=\"$img_pass/table-middle.gif\"><center>\n";
print "<a href=\"window.cgi?page_id=$page_id&num=1&count=$goods_id\" onClick=\"newwindow()\" target=\"new\"><IMG SRC=\"$pic_dir/$picture\" width=\"$img_w\" height=\"$img_h\" BORDER=0></a>\n";
print "</center></TD></TR>\n";
print "<TR><TD class=\"main2\" background=\"$img_pass/table-middle.gif\"><center><IMG src=\"$img_pass/title.gif\" width=\"100\" height=\"20\"><br>$name</center></TD></TR>\n";
print "<TR class=\"main2\"><TD background=\"$img_pass/table-middle.gif\"><center><IMG src=\"$img_pass/size.gif\" width=\"100\" height=\"20\"><br>$com</B></center>\n";
print "<TR class=\"main2\"><TD background=\"$img_pass/table-middle.gif\"><center><IMG src=\"$img_pass/price.gif\" width=\"100\" height=\"20\"><br>$price_disp 円</B></FONT></center>\n";
print "<TR><TD background=\"$img_pass/table-bottom.gif\" width=155 height=12></TD></TR>\n";
print "</TABLE>\n";
print "</FORM>\n\n";
}
0857nobodyさん2005/12/05(月) 03:27:22ID:???
最初っから表示する範囲を受け取る必要がある。
で指示された範囲の商品を表示して下部に表示してないページのリンクを貼る。
googleの検索結果のページを参考にするといい。
08588562005/12/05(月) 07:14:22ID:sAr+SdXn
googleは何でくぐればいいんですか？
0859nobodyさん2005/12/05(月) 10:44:12ID:???
>858
もうちょっと日本語の読解力をつけてくれ
それとも日本人じゃないのか？

なんにしろ、html出力の部分だけ貼られても
アドバイスのしようが無いんだが。
そこ以外の部分で適切な処理すればできると思うよ。
08608562005/12/05(月) 18:55:00ID:sAr+SdXn
http://webcartsystem.com/よりカートをお借りしています。
webcart.proです。上は私がカートdispayをいじっていますが、
なぜか同じように羅列してしまいます。皆様方●投げ状態ですけど、
すいません。
0861nobodyさん2005/12/05(月) 20:18:01ID:???
>>860
まず病院へ行ってらっしゃい
0862nobodyさん2005/12/07(水) 06:41:58ID:???
http://up.isp.2ch.net/up/4ee0f8d3772d.zip

うなぎスクリプト+subject2rss.cgiで，sageで更新をbold表示出来るようにしたいのですが，上手くできません。自分なりに日付表示を付け加えてみたつもりなのですが...

改良方法，ご教授ください
0863nobodyさん2005/12/13(火) 18:54:31ID:OxkXO5pu
【スクリプト名】　stereolog
【使用言語】　PHP
【配布元URL】　http://tar100mg.com/stereolog/

【ヘルプ内容】
現在、自鯖にうｐして、カスタマイズ中です。
トップページのみ、右カラムの記事表示件数を0にし、
include('XXXX.html');という形で差し替えできるファイルを読み込みたいと考えています。
その他のページ(カテゴリトップなど)は現状のままで、トップページの右カラムだけの変更です。
index.phpにinclude('XXXX.html');を追加してみたりしましたが、全ページに表示されてしまいます。

うまい解決方法が見つかりません。
期限は特にありません。
お手数をおかけしますが、よろしくお願いします。

08648632005/12/13(火) 19:00:02ID:???
追記
スクリプトURLが抜けていたので記載します。

【スクリプトURL】
http://tar100mg.com/stereolog/log/file/stereolog_067b.zip
上記スクリプトにあるテンプレート【tarpop2】を利用しています。

よろしくお願いします
0865nobodyさん2005/12/13(火) 23:55:26ID:???
それーiframeでいいんじゃねーの？
0866nobodyさん2005/12/14(水) 14:53:21ID:???
>>865
レス有難うございます。
iframeでやって見ましたが、やはり全てのページに反映されてしまいます。
0867nobodyさん2005/12/14(水) 17:25:30ID:???
>>863
そもそも修正すべきファイルが間違っているような希ガス。
右カラム触りたいなら ./style/tarpop2/blogbody.php でしょ。

if(
!isset($_GET['id'] ) && !isset($_GET['month']) && !isset($_GET['cat'] ) && !isset($_GET['view'] )
){
// Home時
include('home.html');
}
else{
// それ以外
あれこれ
}

homeを示すglobal変数見つからなかったからこんな感じでどうよ。
08688672005/12/14(水) 17:31:45ID:???
ダメだ、エントリ増えたらhome.htmlの表示も増えたｗ
./inc/func.phpも修正しないとダメっぽいが時間切れ。
つか作者に聞いてみるのも一つの手だよ。
08698672005/12/14(水) 17:34:25ID:???
うは、よく見たら修正しないといけないのは view.php の方かも。
まぁ頑張れ、以上。
0870nobodyさん2005/12/14(水) 19:03:20ID:???
>>867
も・もちつけ！
0871nobodyさん2005/12/14(水) 20:05:57ID:???
>>867の情報を元に大体の見当は付いたが、素人がこれ改変するの大変だよ。
indexページ別に作って、blogに飛ばす方が遥かに楽だと思う。
08728632005/12/15(木) 09:05:03ID:???
>>867-871
色々考えていただいて有難うございました。
また、何かあればよろしくお願いします。
0873nobodyさん2005/12/17(土) 00:22:11ID:???
【スクリプト名】Web Patio 2.2
【配布元URL】http://www.kent-web.com/bbs/patio.html
【使用言語】Perl

Web Patio にアップロード機能を付加しようと試みました。
表示部分に関してはとりあえず後回しと考えていたので手をつけていません。

まじめにプログラムをしたことがないので根本的に間抜けな事をしているの
かもしれませんが、よろしかったら突っ込みお願いします。

----------やってみたこと----------

同じフォルダにcgi-lib.plを置く

新規投稿のform部分に追加
<form enctype="multipart/form-data"　～ >
<input type=file name=upfile size=40>
0874nobodyさん2005/12/17(土) 00:22:32ID:???
init.cgiに追加
　require './cgi-lib.pl';
　$imgdir = './img/';
　$imgurl = "http://（該当URL）/img/";
　$imgurl = "./img/";
　$clip_err = 1;
　$maxData = 51200;
　$gif = 1;# GIFファイル
　（略）
　$mp3 = 0;# MP3ファイル
　$cgi_lib'maxdata = 102400;
　$MaxW = 300;# 横幅
　$MaxH = 150;# 縦幅
　JoyfulNote(http://www.kent-web.com/bbs/joyful.html)から
　sub upload 部分を丸写し
　376: next if ($key eq "upfile"); 追加

regist.cgiに下記部分を
追加
　69: if ($in{'upfile'}) { ($tail,$W,$H) = &upload; }

改変
　027: local($sub,$key,$flag,$i,$tail,$W,$H,@top);

　138: print OUT "0<>$in{'sub'}<>$i_nam2<>$in{'email'}<>$i_com<>$date<>
　$host<>$pwd<>$in{'url'}<>$in{'mvw'}<>$my_id<>$tail<>$W<>$H<>\n";

　207: push(@file,"$newno<>$in{'sub'}<>$i_nam2<>$in{'email'}<>$i_com<>
　$date<>$host<>$pwd<>$in{'url'}<>$in{'mvw'}<>$my_id<>$tail<>$W<>$H<>\n");
0875nobodyさん2005/12/31(土) 19:11:38ID:???
ttp://www.minicgi.net/（休止中）
ここで配布されてた「Miniりすと」をいじって、その後戻そうとしたんですが
タグ許可の辺りと、画像のアップロードの辺りでつまづきました
配布されてた状態に戻したいんですが、どこを直せばいいのやら・・・お願いします
ttp://49uper.com:8080/html/img-s/102699.zip
0876nobodyさん2006/01/01(日) 01:21:23ID:???
元の状態に戻す一番簡単な手段は弄った物を破棄し、新しく始めからやる事だ。
変更点を残したいのなら差分を取って必要な箇所を書き換えれば済む話だ。
配布されていた状態がどのような物だったのか、我々は知る術を持たない。

因って、弄る前の状態でバックアップを取っていない貴方に問題がある。
0877nobodyさん2006/01/17(火) 10:08:27ID:???
>875
流れてるんで再upしてくれ
0878nobodyさん2006/01/18(水) 21:44:48ID:???
【スクリプト名】：[ReverseAccess][Yomi-Search Ver4.21]
【ReverseAccess配布元】:http://www.cj-c.com/cgi_s/access.htm
【Yomi-Search Ver4.21配布元】:http://yomi.pekori.to/yomi-search.shtml
【改造内容】Yomi-Search Ver4.21でリンク集を運営しています。
Yomi-Searchのアクセスランキング専用のURL（転送アドレス）で
他サイトが当サイトをリンクした場合でもReverseAccessに集計出来るようにしたいのです。
あるいは、アクセスランキングが直接ReverseAccessのカウントをアップできるように出来ないでしょうか
Perlの事は、全然わからず苦戦しています。
皆さんどうぞ宜しくお願い致します。＞＜
0879nobodyさん2006/01/19(木) 02:02:39ID:???
>>878
いまいち言っていることがわからん
0880nobodyさん2006/01/20(金) 12:50:43ID:t3QT2E9W
【スクリプト名】EAZYimode
【配布先】http://www.net-easy.com/imode/imode.html

掲示板のコメント部分で禁止用語の設定ができるように
したいのです。いろいろやってみたけど、ダメですた･･･。
ご教授お願いします。
0881nobodyさん2006/01/20(金) 16:46:57ID:???
>>880
いろいろやってみたスクリプトを晒しなさい。
ここはそういうｽﾚ
0882nobodyさん2006/01/20(金) 20:39:12ID:???
YY-BOARDでトリップ機能を付けてたんだが新しくIDにしたくなってみた。
トリップはいらないんだけど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>/;
}
0883nobodyさん2006/01/20(金) 23:05:26ID:???
$nam =~ s/◆/◇/g;
if ($nam =~ m/#(.+)/) {
my $id = ' ◆' . substr(crypt($1, substr($1, 1)), -10);
$nam =~ s/#(.+)/<\/b>$id<b>/;
}
08848802006/01/21(土) 02:51:42ID:???
http://s3p.net/~channel2/webpro/marunage/joyful/joyful.cgi?mode=thr&no=291

>>881さん
　ウプしてみました。添削お願いします。
　
0885nobodyさん2006/01/21(土) 07:50:52ID:???
>>883
無理でした・・・。
0886nobodyさん2006/01/24(火) 18:53:55ID:???
あげ
0887nobodyさん2006/01/24(火) 22:27:37ID:v6rsgVgC
【ＰＨＰスクリプト名】－Webメーラー－
【配布先】ttp://php.s3.to/
【ソース】ttp://php.s3.to/net/webmailb.phps
【改造内容】
入力した数字の回数だけ同じ送信を繰り返したい。

まったくない知識で少々ググってfor構文を使ってみたがうまくいかず。もし失敗して無限ループにでもなったら大変なので、断念。
よろしくおねがいします。
0888nobodyさん2006/01/25(水) 11:30:34ID:???
それ何てスパム？
0889nobodyさん2006/01/28(土) 05:52:08ID:d/2+tkD1
はじめまして。チャットを設置したいのですが、
右クリックして、ソースを見ると、ipが表示されるようになっていました。
ソースを見てもipが表示しないようにするには、どこの箇所を修正すればいいのでしょう？
それとチャットで発言すると、左側に日時が表示されるのですが、コメントの右側に表示させるにはどうすればいいですか？
教えてください。お願いします。

配布元のサンプル：http://www.mytools.net/cgi/test/chat2/tchat.cgi?room=test1
テキスト：http://ytamago.hp.infoseek.co.jp/tesu.txt
0890nobodyさん2006/01/28(土) 08:10:14ID:???
>>889
【 スクリプト改造依頼スレ 】(丸投げ) part4
http://pc8.2ch.net/test/read.cgi/php/1127916965/l50
08918892006/01/28(土) 20:43:56ID:???
>>890
スレ違いでしたね＾-＾；
ありがとうございました。
0892nobodyさん2006/02/03(金) 23:30:12ID:tv+w3slT
yomiFanでログデータの追加。URLをもうひとつ記入できるようにする改造。
でURL部分の追加は掲載されていてそれは適応したんですが、その第二URLにタイトルを追加する方法は
どうすればいいんでしょう？。テンプレの部分はわかるのですが、各所CGIのどの部分をいじればいいかわからないため
どなたか教えてください。
0893nobodyさん2006/02/15(水) 01:19:40ID:F6j2ktQX
よろしくお願いします。
T-BookmarkPlus Finalバージョンを使っているのですが、
このスクリプトで「新着リスト」と「更新リスト」を表示する場合
どういう改造が必要でしょうか？
もともと新着アイコンや更新アイコンが付けられる仕組みなので
もしかしたらURLにオプションを指定すれば見れるかとも思ったのですが、
どう組み合わせてもうまくいかないので、やはり改造が必要なのかなと。
アドバイスお待ちしています。

T-BookmarkPlus Final
http://www.de-bug.net/cgi/bmpfmain.html
マニュアル
http://www.de-bug.net/cgi/bmpmain.html
0894nobodyさん2006/02/16(木) 11:02:10ID:eLE66xLL
# 管理用パスワード & 管理人名
$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か何かにして他の人たちにも使ってもらいたいのですがどのようにしたら出来るのでしょうか？
よろしくお願いします。
0895nobodyさん2006/02/16(木) 11:15:31ID:???
↑どこかのスレで見かけたぞ
マルチうぜえ。

>これを.txtか何かにして
アフォか。perlについてちっとは勉強してからこいっての。
0896nobodyさん2006/02/16(木) 11:16:37ID:???
一部分を見せられても訳わからんし、第一何がしたいのかも良くわからん。
もう一回出直してきた方がいいかも。
0897nobodyさん2006/02/16(木) 12:29:19ID:0NGzx21f
はじめまして。
ttp://tackysroom.com/
こちらのサイトで配布されている
『スキスキ２』というCGIについてですが、
途中の質問に画像をアップロードする機能を付けるよう改造したいと思っています。
色々調べてみて、フォームを付けてみたりしたのですが、
なにをしてもエラーが出てしまいます･･･
どのように改造したらアップロードできるようになるのでしょうか。
アドバイスよろしくお願いします。
0898nobodyさん2006/02/16(木) 15:21:16ID:???
>894
ろくに知識もないのに何かを配布するとかやめろ。マジ迷惑。
やりたいなら、しっかり勉強して、配付するものの内容や配布の仕方・使い方等、
お前自身で使う人たちのサポートがきちんとできるレベルの知識をつけてからにしてくれ。
0899nobodyさん2006/02/16(木) 15:37:32ID:???
お前らは黙って答えてればいいお(^ω^#)ﾋﾟｷﾋﾟｷ
0900nobodyさん2006/02/16(木) 15:59:18ID:???
>>897
自分がどのような改造を施したのかスクリプトをうｐしなさい。
話はそれからだ。
0901改造依頼です2006/02/16(木) 17:48:39ID:vUs8kAED
CJ-CLUBのChild Treeをトリップ実装したいのですが・・。
配布元はhttp://www.cj-c.com/cgi_s/cbbs.htmです。

CJ-CLUBのサポート掲示板のログを見て参考にしたのですが、出来ませんでした。
http://www.cj-c.com/sp/cbbs.cgi?mode=al2&namber=9723&rev=&no=1&KLOG=10
これは同じ配布元のI-BOARDのスクリプトなので多少の違いがあるんだと思うんですが・・。

サポート掲示板にあったサブルーチンだと、500エラーが起こったので他の掲示板のサブルーチンから引用して↓のようにしました。
sub trip {
local( $data ) = @_;
$data =~ s/◆/◇/;
if ($data =~ /(#|＃)(.+)$/) {
$tripword = $2;
$salt = substr($tripword."H.", 1, 2);
$salt =~ s/[^\.-z]/\./go;
$salt =~ tr/:;<=>?@[\\]^_`/ABCDEFGabcdef/;
$c_tripword = substr(crypt($tripword, $salt),-8);
$data =~ s/(#|＃)(.+)$/◆$c_tripword/;
}
return $data;
}

すると、「名前◆トリップ」と表示されるのではなく、ただ「名前」しか表示されませんでした。
私はPerlの知識が全く無いので、これ以上何をやっていいのかがわかりません＾＾；
どなたか教えていただけないでしょうか？
0902nobodyさん2006/02/16(木) 18:01:53ID:???
>>901
ｽｸﾘﾌﾟﾄを見ずにﾚｽ

print 名前;
の所を
print &trip(名前トリップキー付);
09039012006/02/16(木) 18:28:59ID:???
>>902
らしき部分は３つ見つけたんですが・・・。

print"/ $rname <small>($rd) $yobi<font color=\"$kijino\">#$rnam</font></small> $re$Pr\n";

print"<a href=#$nam>$news $d_may</a>\n";

print"/$name <small>($date) $yobi<font color=\"$kijino\">#$nam</font></small> $end$Pr</td></tr><tr><td nowrap>\n";

この３つどれをそう変えてもトリップは表示されませんでした。
あと、名前欄に◆と入力しても◇にならないんですが・・・。
0904nobodyさん2006/02/16(木) 18:38:13ID:???
>>903
それをおまいはどのように書き換えたのか書いてみろ
09059012006/02/16(木) 18:42:59ID:???
$rname →　&trip($rname);
$nam →　&trip($nam);
$name →　&trip($name);

です。
一つ一つ試してみたんですが、全部ムリでした。
0906nobodyさん2006/02/16(木) 18:55:08ID:???
>>905
あーごめんごめん、
ﾛｸﾞﾌｧｲﾙに書き出す前にﾄﾘｯﾌﾟｷｰをﾄﾘｯﾌﾟに変換してﾛｸﾞに書き出せばいいんじゃないかな。
表示部分でやってもﾀﾞﾒだ。
管理人にﾄﾘｯﾌﾟｷｰを抜かれる。
09079012006/02/16(木) 19:14:03ID:???
>>906
すいませんその方法がわからないです＾＾；
Perlプログラムの知識は全く無いんで。
基礎用語が少しだけわかる程度です。
0908nobodyさん2006/02/16(木) 19:21:19ID:???
>>907
じゃ、なんでこのｽﾚに来たんだよ。
このｽﾚはｱﾄﾞﾊﾞｲｽをもらって自分で何とかするｽﾚ。
お前はこっちに逝け！
【 スクリプト改造依頼スレ 】(丸投げ) part4
http://pc8.2ch.net/test/read.cgi/php/1127916965/
09099012006/02/16(木) 19:28:29ID:???
了解。スレ違いでしたか＾＾；
すいませんでした、移動します。
0910nobodyさん2006/02/18(土) 06:17:16ID:???
ttp://www.rescue.ne.jp/cgi/database/
を改造しようと思うんですが都道府県　男女別 年齢層　の部分を削除するにはどうすればいいですか？
つまりニックネームだけの検索に改造しようと思ってます
ソースはこんな感じです↓

if ($ENV{'REQUEST_METHOD'} eq "POST") { read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); }
else { $buffer = $ENV{'QUERY_STRING'}; }

if ($buffer eq "") { &error('エラー','使い方が間違っています.'); }

@pairs = split(/&/,$buffer);
foreach $pair (@pairs) {

($name,$value) = split(/=/, $pair);
$name2 = $name;
$value2 = $value;
$FORM2{$name} = $value;

$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
&jcode'convert(*value,'euc');

$value =~ s/</</g;
$value =~ s/>/>/g;
$value =~ s/\n//g;
$value =~ s/\r//g;
$value =~ s/\t//g;
$value =~ s/\,//g;

#フォーム変数へ
$FORM{$name} = $value;
0911nobodyさん2006/02/18(土) 06:18:30ID:???

if (!open(IN,"$file")) { &error('データベース読取エラー','復旧をお待ちください.'); }
@BASE = <IN>;
close(IN);

if ($FORM{'FF'} eq '') { $FF = 0; } else { $FF = $FORM{'FF'}; }
$TO = $FF + $page - 1;
if ($TO > $#BASE) { $TO = $#BASE; }
$hit = 0;
$next_num = '';

foreach $num ($FF .. $#BASE) {

$data = $data2 = $BASE[$num];
&jcode'convert(*data,'euc');
($d,$DATE,$NAME,$EMAIL,$SEX,$AGE,$HANDLE,$PREF,$REM) = split(/\,/,$data);

# 都道府県(一致)
if ($AGE eq $FORM{'AGE'}) { ; } else { next; }
＜＜＜　中略　＞＞＞

# ニックネーム(マッチ)

if ($FORM{'HANDLE'} ne '') {

if ($HANDLE =~ /^([\x00-\x7F]|[\x8E\xA1-\xFE][\xA1-\xFE]|\x8F[\xA1-\xFE]{2})*$FORM{'HANDLE'}/i) { ; } else { next; }
}

# 検索終了処理
if ($hit == $page) { $next_num = $num; last; }
else { push(@NEW,$data2); $hit++; }
}
0912nobodyさん2006/02/18(土) 22:59:32ID:???
>>910-911
index.htmlの該当部分selectタグを削除。
内部処理までも削除したいならレスして。
0913nobodyさん2006/02/19(日) 14:52:19ID:U1Aplwrb
他スレで質問しましたら、こちらに誘導されましたので質問させていただきます。

【.　 CGI名 　.】　T-Chat 2
【配布先URL】　http://www.mytools.net/cgitools/chat2.html
【. 依頼内容 】　チャットの投稿した文字が発言画面に反映される文字数100文字以内、または5行程度に制限したい場合どの場所を変更すればいいのでしょうか？
テキストを　http://ytamago.hp.infoseek.co.jp/tesu.txt　にアップしましたので、どうかアドバイスお願いします。
0914nobodyさん2006/02/19(日) 16:59:30ID:???
>>913
210行目のadd_newdataのサブルーチンの中で、
length ($chat) >= 200 # 単純に日本語一文字2バイトと計算
($chat =~ /\n/) >= 5 # 改行文字が何個あるか
とか使って好きなように制限して下さい。
09159132006/02/19(日) 21:07:39ID:sC6i+j2R
>>914
ありがとうございます。早速書き換えしてみたのですが、エラーが出ます。
私の書き方で不自然な箇所はありますか？

##### 新しいデータの追加
sub add_newdata{
length ($chat) >= 200 #
($chat =~ /\n/) >= 5 #
($chat && $cname) || return;

if($url && $url ne 'http://'){
$linkto="<a href=\"$url\">$linkcharacter</a>";
}
$newdata = "<FONT SIZE=\"3\" COLOR=\"$CT[$clrno]\"><B>$cname</B></FONT> : $linkto $chat <FONT SIZE=\"2\">[$date_now]</FONT><BR>\n";

while(@datas > $maxlines - 1){
pop(@datas);
}
unshift(@datas, $newdata);
$update_flag = 1;
}
0916nobodyさん2006/02/19(日) 22:32:21ID:???
>>915
せめて、if () {} ぐらいの形にはしておこうよ。
0917nobodyさん2006/02/25(土) 12:08:29ID:???
(1)有名ブラゲの俺のペナント２です。
配布元：バンプの部屋ttp://bannpu.com/
該当するスクリプトのみこちら↓にアップしました。
ttp://www.geocities.jp/amaterasusatomori/kousin.txt

(2)名無しが40歳以上になったら勝手に引退するように。
プログラムで言うと$sakusyaが$no_playerで$nenreiが40以上の場合に、¶paraを実行できれば良いらしいのですが…。

if(($sakusya[$i] eq $no_player[$i]) && ($nenrei[$i >= 40])){
¶para;
}

をどこかに挿入すればいいことまでは分かったのですが、どこに入れればいいのか分からなくて。
どなたか分かる方、お願いします。
0918nobodyさん2006/02/25(土) 12:12:45ID:???
↑文字化けすみません。
¶para;は＆ｐａｒａｐａｒａ；の半角で。
0919nobodyさん2006/02/26(日) 12:46:22ID:???
誰かあぼーん機能付けてる人いる？
そういうのがググってもなかなか見つからないんだけどさorz
0920nobodyさん2006/02/26(日) 20:31:09ID:qTrOQ0Y+
>>919
早く死ねば？
0921nobodyさん2006/02/26(日) 20:48:08ID:???
おや？>>919-920があぼーんで見えないぞ
09229172006/02/27(月) 09:07:28ID:???
誰もレスないみたいですができました。
バックアップに書き込む部分の$ato[$i] <= 0があったからいけなかったようです。
もし考えてくれた人いましたら、ありがとうございました。
0923nobodyさん2006/02/28(火) 03:19:28ID:???
サイト内検索を探しててこれttp://www.yumemaboroshi.net/cgi2786/
イイなって思ったんですけど何故か500になるんですよね
どこがおかしいんでしょうか？
0924nobodyさん2006/03/01(水) 01:11:13ID:8WY3+dzV
質問です、ageさせて頂きます。
掲示板に、自作自演防止のため2ちゃんと同様の強制ID表示をつけてるのですが

sub id {
my($id,$sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst,$month,$date,$identify);
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
$identify = substr($host,-2).substr(crypt($host,$year-$mon*100),2);
$id = crypt($identify,$mday."L");
$id = substr($id,-10);
return $id;
}

某所で拾ったこれを組み込んでますが、接続元ホストによって生成するんですけど
$hostが「softbank～.bbtec.net」に対して、すべて同じIDを生成してしまうのです。
間の「～」にはIPアドレスの12桁の数字が入るのですが…
書き込み人によってこの間の数字はそれぞれ違うのですが、IDはどれも
同じになってしまって。
で、自分なりにあれこれ、数字その他をいじったりまったく別のルーチンに差し替えたり
していたら、今度はdion.ne.jpのホストがみんな統一されてしまったりとか。
なぜそうなってしまうのか、自分には…
IDを問題なく区別して生成させる方法がわかる方、ぜひご指摘ご教授下さいませ
0925nobodyさん2006/03/01(水) 04:11:48ID:???
>>924
substr(文字列, 開始位置, 長さ)
0926nobodyさん2006/03/01(水) 07:12:12ID:???
>>924
$host使ってるからだろ
0927nobodyさん2006/03/01(水) 22:01:36ID:p75SPwPu
【.　 CGI名 　.】　White Board
【配布先URL】　http://powder-snow.milk.tc/
【 依頼期限 】　なるべく早めにお願いします
【. 依頼内容 】　当サイトの掲示板でnemuの部屋の雑談板のように頻繁にアドレス乱立スレが立ちます。
今は雑談板を閉鎖しているのですが待っている方もみえます、以前は串制限やホスト名を制限していましたが無意味な結果が現状です
上記のcgiにBBQを組み込みたいのですがどこに組み込んで良いのかわかりません
if (gethostbyname(join(".",reverse(split(/＼./,$ip))).".niku.2ch.net") eq "＼x7f＼x00＼x00＼x02")
これをどこに組み込めば良いのかどうか宜しくお願いします
0928nobodyさん2006/03/01(水) 22:19:28ID:???
>>927
マルチすんな
0929nobodyさん2006/03/01(水) 22:23:39ID:???
>>928
スレ違いなのでこちらにレスしたまでなのですが・・・
0930nobodyさん2006/03/02(木) 02:09:07ID:???
>>927

本来なら作者に聞くべきだ。その方が確実。
しかも、「なるべく早めにお願いします」でスルーしようと思ったがまあ今回だけ。

white.cgiの639行目（if($in{'pass'} eq ""){&error("削除Keyを入力してね");}）の下あたりに

$flag_acc = join('.',unpack('C4',gethostbyname(sprintf(qq|%s.niku.2ch.net.|,join('.',reverse(split(/\./,$ENV{'REMOTE_ADDR'})))))));
if($flag_acc =~ /^127/){&error("BBQに登録されています。本当にありがとうございました。");}

0931nobodyさん2006/03/02(木) 14:57:47ID:k+t5Sn1v
質問です。
web-libertyのメール送信ＣＧＩを改造したいのですが。
http://www.web-liberty.net/download/mail/index.html
送信されるメールには、必ずメール本文に
「送信者」「件名」「送信アドレス」「本文」「ホスト」「日時」が表示されます。
メルアド、送信者名、アドレスが二つ表示され、鬱陶しいのでこれを 「本文」「ホスト」「日時」のみの表示に変えたいのですが・・・。
267～271行目の辺りにある「$value」を「$in{'text_sys'}」に置き換えてみました。
すると送信されるメールの表示が「本文」×４「ホスト」「日時」のようになってしまいました。
本文の表示を一つに減らすにはどうしたらいいのでしょうか？
回答お願いしますm(_ _)m
0932nobodyさん2006/03/02(木) 16:15:28ID:???
>>931

作者に訊け。
その方がここで訊くより早い。
0933nobodyさん2006/03/04(土) 16:00:22ID:e/z2f5Uv
【.　 CGI名 　.】　ぜろちゃんねる、携帯絵文字対応BBS「SmallPICT」（Ver2.161）
【配布先URL】　http://0ch.mine.nu/public/scripts/、http://hdml.cside.com/DLcgi/spict/
【 依頼期限 】　なるべく早いとうれしいです。
【. 依頼内容 】　２ちゃん形式の掲示板に携帯絵文字対応BBSを組み込んで欲しいです。
　　　　　　　　PCで書き込み・閲覧が出来ればいいです。
　　　　　　　　（携帯からの閲覧や、２ちゃんブラウザでの利用は出来れば嬉しいですが、
　　　　　　　　　出来なければ別に必要ありません。）
　　去年お願いした方が途中でいなくなってしまわれたので是非お願いします。
0934nobodyさん2006/03/04(土) 16:33:14ID:???
>>933
ここは丸投げｽﾚではありません。
0935nobodyさん2006/03/05(日) 09:11:21ID:TAl9VaKX
>>932
聞いたらサポート外といわれましたorz
0936nobodyさん2006/03/05(日) 11:36:03ID:hlZ3Pay4
特定のフォルダの中身をすべて表示するというもの
これだとすべてを1ページに表示するので重いです
例えば10個づつ表示してページ後はページ分けを自動作成するってことできますか？

本来htaccessでindexなしでファイルの表示を可能にすれば簡単なのですが
レンタルサーバーにはhtaccesは使えないし匿名FTPもダメなので
よろしくお願いします

opendir(DIR, "$dir");
while ($_ = readdir(DIR)) {
if (substr($_,-4,4) ne "") { #ファイル出力
($size) = (stat("$dir/$_"))[7]; # ファイルサイズ所得
print "<TR>";
print "<TD><A HREF=\"$dir/$_\" TARGET=\"_blank\"><IMG SRC=\"$dir/$_\" $width_height>"; # 画像（リンクあり）
print "<TD><A HREF=\"$dir/$_\" TARGET=\"_blank\">$_</A>"; # ファイル名（リンクあり）
print "<TD ALIGN=RIGHT>$size\n"; # サイズ
}
}
closedir(DIR);
0937nobodyさん2006/03/05(日) 23:28:03ID:???
こんなの仕込んで適当にループを抜ければ済むと思うが、
if ($count < $in{'page'}) {next;}
if ($count > $in{'page'} + 10) {last;}

おいらならIMG出力をやめて高速化だな。ページ分けは一覧性を損ねる。
画像専用にサムネイル機能をつけるかもしれないが。
0938一2006/03/05(日) 23:38:57ID:dp/jbZKG
掲示板にさかんに広告が貼り付けられて困っています。
でもああいうのって自動で、スクリプトを使って貼り付けているみたいです。
そこで掲示板に「投稿キー」という窓を設け、横に「一という字を入力してください」と書き、
実際そこに一という字を入力しないと、投稿が却下されるようにしたいです。

【light.cgi】
http://www.kent-web.com/bbs/light.html

【テキスト】
http://proxy.f2.ymdb.yahoofs.jp/users/f5d2d9e/bc/public/light.txt?bcMwvCEB3F.L2bEE

上記のように書いてみましたが、正しく「一」と記入しても
エラー表示が出て投稿できないようになってしまいました。
0939& ◆7UCJWvNKzw 2006/03/05(日) 23:40:23ID:dp/jbZKG
ちなみに書き換えた一行だけ抜き出すと、

　if ($toukou !~/一/) { &error("一という字を入れてください",'NOLOCK'); }

こんな感じです。
0940nobodyさん2006/03/05(日) 23:57:22ID:???
掲示板スパム対策だったらKENTの一番下にある
「スパム投稿対策LIGHT BOARD」使ったほうがよくないか？
0941一2006/03/06(月) 00:12:44ID:ORH5DdGR
>940
ありがとうございます。
ですが
http://www.kent-web.com/bbs/index.html
ここ見てみましたが、今はないみたいです。
TOPページも見てみましたがなかったでした。
0942& ◆dQG0tg7OyU 2006/03/06(月) 00:22:25ID:ORH5DdGR
すみません。
kentさんのページからは見つかりませんでしたが、検索したら見つかりました。
しかしどうやら、誤動作でちゃんとした投稿がスパムと判定されることもあるようです。

できれば上記の改造部分に関して、ご指導いただけるとありがたいです。
0943nobodyさん2006/03/06(月) 00:23:08ID:???
（あと、名前のところに「一」と入れているんですが、たまに文字化けするようでｽﾐﾏｾﾝ）
09449402006/03/06(月) 01:19:09ID:???
>>938の【テキスト】が見られない（DLできない）のでアドバイスのしようが
ないんですが、依頼文から推測するとこんな感じの事がやりたいのかな？

★ フォームの適当な位置に以下を挿入

<tr>
<td><b>投稿キー</b></td>
<td><input type=text size=2 name=spam value="$spam">(一という字を入力してください)</td>
</tr>


★投稿受付の入力チェック
★if (!$post_flag) { &error("不正なアクセスです"); } の下に以下を挿入

if ($in{'spam'} ne "一") { &error("投稿キーを入力してください"); }


こんな感じでどう？
想像だけで書いちゃったので合ってるのかわかんないけどｗ
0945nobodyさん2006/03/06(月) 11:51:13ID:???
>>937
㌧ｸｽです
0946nobodyさん2006/03/06(月) 16:48:54ID:???
誘導されて来ました。

webサーバーのソフトが欲しい。
perlで、データを編集するソフト。
http://cgiroom.nu/list/database/dataedit/index.htm
これと同じだけど、
全データを配列に格納しない。データが大きいので
メモリがパンクする。
0947nobodyさん2006/03/06(月) 17:53:47ID:???
>>946
スレ違い
0948一2006/03/06(月) 18:31:37ID:???
>944
できました━(ﾟ∀ﾟ)━!
neっていうのを使うんですね。
ありがとうございます！！感涙。

テキスト文、見られなくてすみませんでした。m(..)m
0949nobodyさんNGNG
アッhan！BBSにhane&kage機能の実装アドバイスｷﾎﾞﾝ(｀・ω・´)
0950nobodyさん2006/03/06(月) 20:32:57ID:???
>>949
>>1
レス数が950を超えています。1000を超えると書き込みができなくなります。