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

[表示 : 全て最新50 1-99 101- 201- 301- 401- 501- 601- 701- 801- 901- 2chのread.cgiへ]
Update time : 02/23 15:56 / Filesize : 341 KB / Number-of Response : 991
[このスレッドの書き込みを削除する]
[＋板最近立ったスレ＆熱いスレ一覧 : ＋板最近立ったスレ／記者別一覧] [類似スレッド一覧]


↑キャッシュ検索、類似スレ動作を修正しました、ご迷惑をお掛けしました

1 名前：sage mailto:sage [04/02/23 17:36 ID:???]: #================================
# スレッドの説明
#================================

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

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

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

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

前スレ　pc2.2ch.net/test/read.cgi/php/1063780103/
849 名前：nobodyさん mailto:sage [2005/11/22(火) 16:49:08 ID:???]: 【 CGI名】LineBBS
【配布先】ttp://www.cj-c.com/cgi_s/lbbs.htm
【ソース】ttp://2ch-library.com/uploader/src/up1582.txt
【改造内容】　
　　コメントを送信後、書き込みの記事が反映されたページにでるのですが、
　　これを自分のHPのTOPPAGE表示にしたい。（反映したかどうかは見れなくていい）
　　FORM　部分の
　　　　<form action="$cgi_f" method="$met"$T name=c>
　　　　<input type=hidden name=mode value=wri>
　　が怪しいと思ったので、<INPUT>タグを消してみたけど変わらず、
　　name=cを消すとエラーになってしまいました。
　　ソースをみてみたけど、name=cが何を指しているのかわかりませんでした。

　　期限など特にありません。ﾖﾛｼｸお願いします。
　　
850 名前：nobodyさん mailto:sage [2005/11/22(火) 17:14:04 ID:???]: >>849
327行目に追加
print 'Location: homepage.html'."\n\n"; exit;
851 名前：849 mailto:sage [2005/11/22(火) 18:47:55 ID:???]: >>850
ありがとうございます。
BBS自体をいじっていない状態では無事にTOPPAGEへと移動しました＾＾
ただ、使用しているBBSの状態ではエラーがでてしまいました。

投稿画面の部分のソースをHTMLに貼り付けて、
TOPPAGEのHTMLに埋め込む形を取っているんです。
（一見、メールフォームみたいにみえるようになっています）
この場合どうしたらいいでしょうか(´･ω･`)
ご迷惑おかけしますorz
852 名前：nobodyさん mailto:sage [2005/11/22(火) 19:06:54 ID:???]: >>851
変更前のには上の修正をして動くのね？
使用しているBBSという意味が分からないけど、
成功したスクリプトを基準にしてもう一度設定しなおして。
849の書き方からするに動く原理とかあんまり分かってないようなので、動くのを基準にやり直すことお勧めします。
853 名前：849 mailto:sage [2005/11/22(火) 20:00:45 ID:???]: >>852
そうですね、わざわざ出来ないようになっている掲示板に
手をかけるのもあれなので、もとからページ移動先を
設定できるものを探して設置できるようにしました。
ご迷惑をおかけしました。
854 名前：nobodyさん [2005/12/04(日) 18:28:32 ID:i00gwMB7]: 誘導されて来ました。
【.　 CGI名　.】　YY-BOARD v5.5
【配布先URL】　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;
855 名前：854 mailto:sage [2005/12/04(日) 20:24:04 ID:???]: 解決しました。すみません。
856 名前：nobodyさん [2005/12/05(月) 00:58:41 ID: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";
}
857 名前：nobodyさん mailto:sage [2005/12/05(月) 03:27:22 ID:???]: 最初っから表示する範囲を受け取る必要がある。
で指示された範囲の商品を表示して下部に表示してないページのリンクを貼る。
googleの検索結果のページを参考にするといい。
858 名前：856 [2005/12/05(月) 07:14:22 ID:sAr+SdXn]: googleは何でくぐればいいんですか？
859 名前：nobodyさん mailto:sage [2005/12/05(月) 10:44:12 ID:???]: >858
もうちょっと日本語の読解力をつけてくれ
それとも日本人じゃないのか？

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

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

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

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

うまい解決方法が見つかりません。
期限は特にありません。
お手数をおかけしますが、よろしくお願いします。
864 名前：863 mailto:sage [2005/12/13(火) 19:00:02 ID:???]: 追記
スクリプトURLが抜けていたので記載します。

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

よろしくお願いします
865 名前：nobodyさん mailto:sage [2005/12/13(火) 23:55:26 ID:???]: それーiframeでいいんじゃねーの？
866 名前：nobodyさん mailto:sage [2005/12/14(水) 14:53:21 ID:???]: >>865
レス有難うございます。
iframeでやって見ましたが、やはり全てのページに反映されてしまいます。
867 名前：nobodyさん mailto:sage [2005/12/14(水) 17:25:30 ID:???]: >>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変数見つからなかったからこんな感じでどうよ。
868 名前：867 mailto:sage [2005/12/14(水) 17:31:45 ID:???]: ダメだ、エントリ増えたらhome.htmlの表示も増えたｗ
./inc/func.phpも修正しないとダメっぽいが時間切れ。
つか作者に聞いてみるのも一つの手だよ。
869 名前：867 mailto:sage [2005/12/14(水) 17:34:25 ID:???]: うは、よく見たら修正しないといけないのは view.php の方かも。
まぁ頑張れ、以上。
870 名前：nobodyさん mailto:sage [2005/12/14(水) 19:03:20 ID:???]: >>867
も・もちつけ！
871 名前：nobodyさん mailto:sage [2005/12/14(水) 20:05:57 ID:???]: >>867の情報を元に大体の見当は付いたが、素人がこれ改変するの大変だよ。
indexページ別に作って、blogに飛ばす方が遥かに楽だと思う。
872 名前：863 mailto:sage [2005/12/15(木) 09:05:03 ID:???]: >>867-871
色々考えていただいて有難うございました。
また、何かあればよろしくお願いします。
873 名前：nobodyさん mailto:sage [2005/12/17(土) 00:22:11 ID:???]: 【スクリプト名】Web Patio 2.2
【配布元URL】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>
874 名前：nobodyさん mailto:sage [2005/12/17(土) 00:22:32 ID:???]: 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(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");
875 名前：nobodyさん mailto:sage [2005/12/31(土) 19:11:38 ID:???]: ttp://www.minicgi.net/（休止中）
ここで配布されてた「Miniりすと」をいじって、その後戻そうとしたんですが
タグ許可の辺りと、画像のアップロードの辺りでつまづきました
配布されてた状態に戻したいんですが、どこを直せばいいのやら・・・お願いします
ttp://49uper.com:8080/html/img-s/102699.zip
876 名前：nobodyさん mailto:sage [2006/01/01(日) 01:21:23 ID:???]: 元の状態に戻す一番簡単な手段は弄った物を破棄し、新しく始めからやる事だ。
変更点を残したいのなら差分を取って必要な箇所を書き換えれば済む話だ。
配布されていた状態がどのような物だったのか、我々は知る術を持たない。

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

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

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

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

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

T-BookmarkPlus Final
www.de-bug.net/cgi/bmpfmain.html
マニュアル
www.de-bug.net/cgi/bmpmain.html
894 名前：nobodyさん [2006/02/16(木) 11:02:10 ID: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か何かにして他の人たちにも使ってもらいたいのですがどのようにしたら出来るのでしょうか？
よろしくお願いします。
895 名前：nobodyさん mailto:sage [2006/02/16(木) 11:15:31 ID:???]: ↑どこかのスレで見かけたぞ
マルチうぜえ。

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

CJ-CLUBのサポート掲示板のログを見て参考にしたのですが、出来ませんでした。
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の知識が全く無いので、これ以上何をやっていいのかがわかりません＾＾；
どなたか教えていただけないでしょうか？
902 名前：nobodyさん mailto:sage [2006/02/16(木) 18:01:53 ID:???]: >>901
ｽｸﾘﾌﾟﾄを見ずにﾚｽ

print 名前;
の所を
print &trip(名前トリップキー付);
903 名前：901 mailto:sage [2006/02/16(木) 18:28:59 ID:???]: >>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";

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

です。
一つ一つ試してみたんですが、全部ムリでした。
906 名前：nobodyさん mailto:sage [2006/02/16(木) 18:55:08 ID:???]: >>905
あーごめんごめん、
ﾛｸﾞﾌｧｲﾙに書き出す前にﾄﾘｯﾌﾟｷｰをﾄﾘｯﾌﾟに変換してﾛｸﾞに書き出せばいいんじゃないかな。
表示部分でやってもﾀﾞﾒだ。
管理人にﾄﾘｯﾌﾟｷｰを抜かれる。
907 名前：901 mailto:sage [2006/02/16(木) 19:14:03 ID:???]: >>906
すいませんその方法がわからないです＾＾；
Perlプログラムの知識は全く無いんで。
基礎用語が少しだけわかる程度です。
908 名前：nobodyさん mailto:sage [2006/02/16(木) 19:21:19 ID:???]: >>907
じゃ、なんでこのｽﾚに来たんだよ。
このｽﾚはｱﾄﾞﾊﾞｲｽをもらって自分で何とかするｽﾚ。
お前はこっちに逝け！
【スクリプト改造依頼スレ】(丸投げ) part4
pc8.2ch.net/test/read.cgi/php/1127916965/
909 名前：901 mailto:sage [2006/02/16(木) 19:28:29 ID:???]: 了解。スレ違いでしたか＾＾；
すいませんでした、移動します。
910 名前：nobodyさん mailto:sage [2006/02/18(土) 06:17:16 ID:???]: 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;
911 名前：nobodyさん mailto:sage [2006/02/18(土) 06:18:30 ID:???]: 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++; }
}
912 名前：nobodyさん mailto:sage [2006/02/18(土) 22:59:32 ID:???]: >>910-911
index.htmlの該当部分selectタグを削除。
内部処理までも削除したいならレスして。
913 名前：nobodyさん [2006/02/19(日) 14:52:19 ID:U1Aplwrb]: 他スレで質問しましたら、こちらに誘導されましたので質問させていただきます。

【.　 CGI名　.】　T-Chat 2
【配布先URL】　www.mytools.net/cgitools/chat2.html
【. 依頼内容】　チャットの投稿した文字が発言画面に反映される文字数100文字以内、または5行程度に制限したい場合どの場所を変更すればいいのでしょうか？
テキストを　ytamago.hp.infoseek.co.jp/tesu.txt　にアップしましたので、どうかアドバイスお願いします。
914 名前：nobodyさん mailto:sage [2006/02/19(日) 16:59:30 ID:???]: >>913
210行目のadd_newdataのサブルーチンの中で、
length ($chat) >= 200 # 単純に日本語一文字2バイトと計算
($chat =~ /\n/) >= 5 # 改行文字が何個あるか
とか使って好きなように制限して下さい。
915 名前：913 [2006/02/19(日) 21:07:39 ID: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;
}
916 名前：nobodyさん mailto:sage [2006/02/19(日) 22:32:21 ID:???]: >>915
せめて、if () {} ぐらいの形にはしておこうよ。
917 名前：nobodyさん mailto:sage [2006/02/25(土) 12:08:29 ID:???]: (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;
}

をどこかに挿入すればいいことまでは分かったのですが、どこに入れればいいのか分からなくて。
どなたか分かる方、お願いします。
918 名前：nobodyさん mailto:sage [2006/02/25(土) 12:12:45 ID:???]: ↑文字化けすみません。
¶para;は＆ｐａｒａｐａｒａ；の半角で。
919 名前：nobodyさん mailto:sage [2006/02/26(日) 12:46:22 ID:???]: 誰かあぼーん機能付けてる人いる？
そういうのがググってもなかなか見つからないんだけどさorz
920 名前：nobodyさん [2006/02/26(日) 20:31:09 ID:qTrOQ0Y+]: >>919
早く死ねば？
921 名前：nobodyさん mailto:sage [2006/02/26(日) 20:48:08 ID:???]: おや？>>919-920があぼーんで見えないぞ
922 名前：917 mailto:sage [2006/02/27(月) 09:07:28 ID:???]: 誰もレスないみたいですができました。
バックアップに書き込む部分の$ato[$i] <= 0があったからいけなかったようです。
もし考えてくれた人いましたら、ありがとうございました。
923 名前：nobodyさん mailto:sage [2006/02/28(火) 03:19:28 ID:???]: サイト内検索を探しててこれttp://www.yumemaboroshi.net/cgi2786/
イイなって思ったんですけど何故か500になるんですよね
どこがおかしいんでしょうか？
924 名前：nobodyさん [2006/03/01(水) 01:11:13 ID: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を問題なく区別して生成させる方法がわかる方、ぜひご指摘ご教授下さいませ
925 名前：nobodyさん mailto:sage [2006/03/01(水) 04:11:48 ID:???]: >>924
substr(文字列, 開始位置, 長さ)
926 名前：nobodyさん mailto:sage [2006/03/01(水) 07:12:12 ID:???]: >>924
$host使ってるからだろ
927 名前：nobodyさん [2006/03/01(水) 22:01:36 ID:p75SPwPu]: 【.　 CGI名　.】　White Board
【配布先URL】　powder-snow.milk.tc/
【依頼期限】　なるべく早めにお願いします
【. 依頼内容】　当サイトの掲示板でnemuの部屋の雑談板のように頻繁にアドレス乱立スレが立ちます。
今は雑談板を閉鎖しているのですが待っている方もみえます、以前は串制限やホスト名を制限していましたが無意味な結果が現状です
上記のcgiにBBQを組み込みたいのですがどこに組み込んで良いのかわかりません
if (gethostbyname(join(".",reverse(split(/＼./,$ip))).".niku.2ch.net") eq "＼x7f＼x00＼x00＼x02")
これをどこに組み込めば良いのかどうか宜しくお願いします
928 名前：nobodyさん mailto:sage [2006/03/01(水) 22:19:28 ID:???]: >>927
マルチすんな
929 名前：nobodyさん mailto:sage [2006/03/01(水) 22:23:39 ID:???]: >>928
スレ違いなのでこちらにレスしたまでなのですが・・・
930 名前：nobodyさん mailto:sage [2006/03/02(木) 02:09:07 ID:???]: >>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に登録されています。本当にありがとうございました。");}
931 名前：nobodyさん [2006/03/02(木) 14:57:47 ID:k+t5Sn1v]: 質問です。
web-libertyのメール送信ＣＧＩを改造したいのですが。
www.web-liberty.net/download/mail/index.html
送信されるメールには、必ずメール本文に
「送信者」「件名」「送信アドレス」「本文」「ホスト」「日時」が表示されます。
メルアド、送信者名、アドレスが二つ表示され、鬱陶しいのでこれを「本文」「ホスト」「日時」のみの表示に変えたいのですが・・・。
267～271行目の辺りにある「$value」を「$in{'text_sys'}」に置き換えてみました。
すると送信されるメールの表示が「本文」×４「ホスト」「日時」のようになってしまいました。
本文の表示を一つに減らすにはどうしたらいいのでしょうか？
回答お願いしますm(_ _)m
932 名前：nobodyさん mailto:sage [2006/03/02(木) 16:15:28 ID:???]: >>931

作者に訊け。
その方がここで訊くより早い。
933 名前：nobodyさん [2006/03/04(土) 16:00:22 ID:e/z2f5Uv]: 【.　 CGI名　.】　ぜろちゃんねる、携帯絵文字対応BBS「SmallPICT」（Ver2.161）
【配布先URL】　0ch.mine.nu/public/scripts/、hdml.cside.com/DLcgi/spict/
【依頼期限】　なるべく早いとうれしいです。
【. 依頼内容】　２ちゃん形式の掲示板に携帯絵文字対応BBSを組み込んで欲しいです。
　　　　　　　　PCで書き込み・閲覧が出来ればいいです。
　　　　　　　　（携帯からの閲覧や、２ちゃんブラウザでの利用は出来れば嬉しいですが、
　　　　　　　　　出来なければ別に必要ありません。）
　　去年お願いした方が途中でいなくなってしまわれたので是非お願いします。
934 名前：nobodyさん mailto:sage [2006/03/04(土) 16:33:14 ID:???]: >>933
ここは丸投げｽﾚではありません。
935 名前：nobodyさん [2006/03/05(日) 09:11:21 ID:TAl9VaKX]: >>932
聞いたらサポート外といわれましたorz
936 名前：nobodyさん [2006/03/05(日) 11:36:03 ID: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);
937 名前：nobodyさん mailto:sage [2006/03/05(日) 23:28:03 ID:???]: こんなの仕込んで適当にループを抜ければ済むと思うが、
if ($count < $in{'page'}) {next;}
if ($count > $in{'page'} + 10) {last;}

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

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

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

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

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

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

できれば上記の改造部分に関して、ご指導いただけるとありがたいです。
943 名前：nobodyさん mailto:sage [2006/03/06(月) 00:23:08 ID:???]: （あと、名前のところに「一」と入れているんですが、たまに文字化けするようでｽﾐﾏｾﾝ）
944 名前：940 mailto:sage [2006/03/06(月) 01:19:09 ID:???]: >>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("投稿キーを入力してください"); }

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

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

テキスト文、見られなくてすみませんでした。m(..)m
949 名前：nobodyさん mailto:sage [2006/03/06(月) 20:26:38 ID:??? BE:789427788- ]: アッhan！BBSにhane&kage機能の実装アドバイスｷﾎﾞﾝ(｀・ω・´)

[ 続きを読む ] / [ 携帯版 ]

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef