★三　【スクリプト改造工房 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/
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 ID:$id";
}

# トリップ
$nam =~ s/◆/◇/g;
if ($nam =~ m/#(.+)/) {
my $trip = ' ◆' . substr(crypt($1, substr($1, 1)), -10);
$nam =~ s/#(.+)/<\/b>$trip/;
}
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/;
}
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 ($rd) $yobi#$rnam $re$Pr\n";

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

print"/$name ($date) $yobi#$nam $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 = "$cname : $linkto $chat [$date_now] \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>投稿キー</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機能の実装アドバイスｷﾎﾞﾝ(｀・ω・´)
950 名前：nobodyさん mailto:sage [2006/03/06(月) 20:32:57 ID:???]: >>949
>>1
951 名前：nobodyさん mailto:sage [2006/03/06(月) 20:34:21 ID:??? BE:690749287- ]: ｽﾏｿ
>>949は無かった事に。
952 名前：nobodyさん mailto:sage [2006/03/06(月) 20:35:09 ID:??? BE:246696454- ]: ｳﾊ、>>950を見てなかった。
>>950ｓｽﾏｿ
953 名前：nobodyさん mailto:sage [2006/03/06(月) 20:48:12 ID:???]: ﾄﾞﾝﾏｲ愛Ch
954 名前：nobodyさん mailto:sage [2006/03/07(火) 21:39:24 ID:???]: # 投稿用パスワード
$from_pass='7699';

if ($in{'pwd'} ne "0000"){
$err .= "パスワードが違うお＾＾";
}

日記にこういう投稿パスがあるんですがこれをもう一つパスを増やしたいのですがどうすればいいのでしょうか？
今のパスワードが0000なんでもう一つ1111というパスワードでも投稿できるようにしたいのですが・・・。
955 名前：nobodyさん mailto:sage [2006/03/07(火) 22:19:51 ID:???]: 【.　 CGI名　.】　RYUCHAT
【配布先URL】 oda.minidns.net/file/data/chat.zip
【ヘルプ内容】

携帯対応にしたい……というのは、まる投げ向きだと思うので

・ログ行数の変更を可能にしたい
・「commandXXX」「cut」（ゆいちゃっと）の実装

ゆいちゃっとからの移植を試みたのですが、どうもうまく行かなかったので……。
どうかよろしくお願いします。
956 名前：nobodyさん mailto:sage [2006/03/07(火) 22:24:15 ID:???]: >>954
それ
if ($in{'pwd'} ne $from_pass){
じゃないの？
957 名前：nobodyさん mailto:sage [2006/03/07(火) 22:45:25 ID:???]: $in{'pwd'} ne '0000' && $in{'pwd'} ne '1111'
958 名前：nobodyさん mailto:sage [2006/03/08(水) 12:58:32 ID:???]: >>957
ども
959 名前：nobodyさん mailto:sage [2006/03/09(木) 03:33:54 ID:???]: >>955

何を試してどううまくいかなかったのか書くと回答してくれるかも。
それができないなら丸投げへGO。
960 名前：955 mailto:sage [2006/03/14(火) 16:59:14 ID:???]: >959
自己解決しました
961 名前：nobodyさん [2006/03/15(水) 00:48:09 ID:sysZJlCW]: 【.　 CGI名　.】　testcgi.txt
【配布先URL】 briefcase.yahoo.co.jp/etcfileのetcフォルダの中にあります。
【ヘルプ内容】
このCGIは検索キーワードを指定しないと作成されたjsファイルがHTML上で
表示されません。(jsファイルはちゃんと出来てるように見えます。)
これを検索キーワードなしで他のパラメーターで取得した物をHTML上で
表示されるようにしたいです。よろしくお願い致します。
962 名前：961 mailto:sage [2006/03/21(火) 09:10:57 ID:???]: 自己解決しました。
963 名前：nobodyさん [2006/03/23(木) 01:15:25 ID:N3IYHv3H]: 【.　CGI名　.】　CLEVER BBS Ver 3.00 [Shift JIS Ver3.00]
【配布先URL】　solodesign.jp/cbp/index.html
【. 置き場所 .】
イメージ：2shin.net/twilight/image.gif
cgi ：2shin.net/twilight/clever.txt
スキン　：2shin.net/twilight/cleverskin.txt
【ヘルプ内容】　ダイアリーの日付の部分を、テキスト形式ではなく画像で表示したいのですが、そういうことはできるのでしょうか？
カウンタのように、0～9までの数字を別々に作っておいて、組み合わせる、というようなことができれば、教えてください。
964 名前：nobodyさん mailto:sage [2006/03/24(金) 04:26:38 ID:???]: KENT WEB Shopping Cartの改造をしました。
メール送信処理でつまずきました。

利用しているプロバイダが
KENTさんのCGIをWin用に設定していましたので
それを参考にメール送信用のスクリプトを追加修正してみました。

参考にしたCGIファイルのもとファイルとWin用、
改造してみたファイル：init.cgi,order.cgi,cart.cgi

上記のファイルをこちらのURLにアップしました。
ttp://folifoli.web.fc2.com/06test/

1.init.cgi：181行目あたりsendmailのパスの代替
　# メールソフトのパス
　require "D:\\ms-smtp\\smtpmail.cfg";
　require "D:\\ms-smtp\\smtpmail.pl";

2.order.cgi：
1.706行目あたり
　メール送信処理部分： sub sendmail {　以降
最後の
sendMail($to,$mailTo,$mail2,$mailFrom,$MailSub,$MailHeader,$MailBody,);
は、参考にしたものが全てこの書式でした。
この部分の$to,$mailTo,$mail2,$mailFromの設定がおかしいのはわかります。が、混乱してしまいました。

3.cart.cgiの最後の方の
チェックモード--# 送信方式--# sendmailチェック
このsendmailチェックの変更が必要かどうか迷っています。
長くなりましたが、よろしくお願いします。
965 名前：nobodyさん mailto:sage [2006/03/24(金) 06:45:05 ID:???]: 追加です。
smtpmail.cfgとsmtpmail.plは、プロバイダが設定しており、内容は公表されていません。簡単そうでしたが、しっかり躓いています。
ここがポイント！というところがありましたら、よろしくです。
966 名前：965 mailto:sage [2006/03/25(土) 02:40:21 ID:???]: 自己解決しました。
参考もとのスペルミスでした。
967 名前：nobodyさん mailto:sage [2006/03/28(火) 13:10:35 ID:???]: 【.　 CGI名　.】　Web Patio v2.2
【配布先URL】　www.kent-web.com/bbs/patio.html
【. 依頼内容】
Web Patioのトリップ機能を、2ch互換にしたいと思ってます。

Patioのトリップは、saltが固定なので2ch互換になりません(´･ω･`)ｼｮﾎﾞｰﾝ
トリップキーの2～3文字目を抽出してsaltに放り込めばいいはずなんですが、
ややこしくて自分じゃむりぽです…orz
968 名前：967 mailto:sage [2006/03/28(火) 13:21:34 ID:???]: P.S.
改造を丸投げしてるわけではありません(´･ω･`)
969 名前：nobodyさん mailto:sage [2006/03/28(火) 13:37:31 ID:???]: あっそ自分でやれ(´･ω･`)
970 名前：967 mailto:sage [2006/03/28(火) 14:16:09 ID:???]: (´･ω･`)ｼｮﾎﾞｰﾝ
971 名前：nobodyさん mailto:sage [2006/03/28(火) 15:00:39 ID:???]: >>967
> ややこしくて自分じゃむりぽです

↑要するに丸投げｗ
972 名前：967 mailto:sage [2006/03/28(火) 16:42:45 ID:???]: では言い方を変えまつ。

トリップキーの変数から二、三文字目の文字列を抽出する際の
アドバイスをいただけませんか？('A`)

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

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