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

★三　【スクリプト� ..

449:nobodyさん
04/09/20 00:23:32 tFiVPHxE
>>447
ver.1.2の「改造方法を掲載している所」を貼るのがいいと思うよ。
運と心象が良いとエロイ人が微妙なヒントをくれるよ。

450:nobodyさん
04/09/20 09:46:44
KﾖNTのWebPatioが出来る以前に同じ名前のスレッドフロート掲示板を作ったことがあったんだけど、
Niftyの商標に引っかかりそうだったんでさっさと排除したんだよなぁ。

KﾖNTはそのあたりのことを気にとめているのだろうか。

451:nobodyさん
04/09/20 09:53:35
スレ違い

452:445
04/09/20 17:14:59 MKPCc/Nf
自己解決しました
お騒がせしました

453:nobodyさん
04/09/22 11:34:26
<?php print(">>452\n?"); ?>

454:nobodyさん
04/09/23 10:23:18 fGLKapG0
SSIで表示するカウンターを改造し、
gif画像連結ライブラリを使ってimgタグで呼び出すものを作ったのですが、
Content-Lengthを入れると表示されなくなってしまいます。

@files = ();
for ($i = 0; $i < length($count); $i++) {
$n = substr($count, $i, 1);
push(@files, "$n.gif");
}

require "gifcat.pl";
print "Content-type: image/gif\n\n";

binmode(STDOUT);
print &gifcat'gifcat(@files);
exit;
このような感じなのですが、どうすればうまくいくのでしょうか・・・？

455:nobodyさん
04/09/23 13:41:37

■ 自分で改造するアドバイスが欲しい場合には
★三　【スクリプト改造工房 PART 8 】　★三
ｽﾚﾘﾝｸ(php板:79番)（テンプレ）

456:nobodyさん
04/09/23 19:53:52
>>454
print "Content-type: image/gif\n";
print "Content-length: ".$length."\n\n";
とかするんじゃないのか?

457:nobodyさん
04/09/23 20:00:38
［スクリプト名］Ezbo type3
［スクリプト内容］アイコン型掲示板
［配布先URL］URLﾘﾝｸ(homepage2.nifty.com)
［置き場所］URLﾘﾝｸ(www.tiara.cc)

ここのアイコン掲示板CGIなんですが、2chのように半角カナが使えません。
ですが、半角カナの使えないCGI掲示板は殆どの場合、簡単な修正で
半角カナを使えるようにする事が出来ると聞きました。
（Web初心者板で聞きました。詳細はWebProg板に行くように誘導されました）

このCGIの場合、どの辺をどのように書き換えたら良いのでしょうか？

458:nobodyさん
04/09/23 20:24:00
大抵はjcode.plを読み込んでるから、それをjcodeg.plに変えれば結構半角になる。
jcode.plは適当に検索で探してみて。

459:nobodyさん
04/09/23 20:53:54
つーかjcode.plのバージョンあげるだけ

460:nobodyさん
04/09/23 20:55:13
>458
CGI部分のjcode.plをjcodeg.plに直し、
jcodeg.plも同じフォルダにアップしてパーミッションをjcode.plと同じにしましたが
CGIスクリプトエラーで止まってしまいます。
元に戻すと普通に掲示板として動いています。
あとは何がいけないのでしょうか…

461:nobodyさん
04/09/23 21:03:45
>459
457のCGIに同梱されているjcode.plのバージョンは2.13です。
公式サイト？(URLﾘﾝｸ(srekcah.org))でも2.13が最新のようですが…

462:nobodyさん
04/09/27 12:14:26
>>461
スレ間違ってるぞ
ｽﾚﾘﾝｸ(php板:272番)

463:457
04/09/29 13:30:30
何とか自己解決しました。

464:nobodyさん
04/09/30 19:03:57
>458-459 >462
(　´,_ゝ｀)ﾌﾟｯ

465:nobodyさん
04/09/30 19:18:25
>464 (　´,_ゝ｀)ﾌﾟｯ

466:459
04/09/30 20:01:12
【言い訳】
何も読まずに適当に答えたんだYO!!
以前jcode.plのverが古くてEUCで半角ｶﾅが無理な時があったんだYO!!!!!!!!!!111111111111

467:nobodyさん
04/09/30 20:43:01
（ ´,_ゝ`)ﾌﾟﾌﾟﾌﾟﾌﾟﾌﾟｹﾞﾗｯﾁｮｯ

468:nobodyさん
04/10/01 00:53:40
>>463　これだけ騒がせたんだからどう解決したか書こうよ。

469:nobodyさん
04/10/01 01:12:18
解答出てからえらい時差のある事故解決だったな

470:丸投げ寸前です･･･
04/10/01 11:05:01 6lZQYFV2
スクリプトの内容はここです↓
URLﾘﾝｸ(f46.aaacafe.ne.jp)
配布元は【レッツPHP】の掲示板です。
URLﾘﾝｸ(php.s3.to)
やりたいことは２つあります。
1つは、ラジオボタンを設置して【男／女】を掲示板に表示させたいのです。
ラジオボタンは設置できるのですが、【$dat.='～～】のソースが分かりません。
何処を？どう拡張したらいいのか教えてくださいませんか？
２つ目は、名前と本文が無記入(未記入)でも【エラー】を出さずに送信できる
(書き込める)ようにしたいのですが、こちらも全く分かりません。
よろしく回答お待ちします。
これは？丸投げの方がよかったでしょうか？でも、ぜひお願いします<(_ _)>

471:nobodyさん
04/10/01 14:45:39
未記入エラーはログ書き込みの時にやってるから、370-390行あたりの
不要なエラーチェックをコメントアウトするだけ。

表示したいって希望だから、既に性別情報は適当な書式でログに入ってんの？
なら、file() で Dat 読んでから、explode() してる個所(L.321-332)の list() に性別情報用の
変数を加える。$dat .= はただのHTMLだから分かるだろ。

list($xxx, $yyy, . . ., $sex) = expl . . . ; としたなら、性別を挿入したい個所で
$dat .= '<span class="opt">ここはあなたの性別よ： ' . $sex . '</span>'; とでもすればOK。

472:nobodyさん
04/10/01 14:53:01
> 何処を？どう拡張したらいいのか

参考までに。
そこのスクリプトはたいていextract()つかって外部変数を展開してくるので、
HTMLフォームのname属性で指定した名前が直接変数名になる。

書き換えるべきところは、ログ記入個所と、ログ読み出し&表示個所。

どうかとは思うがそれを書いた人の流儀にのっとれば、関数の頭でglobal宣言して
必要な外部変数を得て、ログを書式かしてる部分（"$foo<>$bar<>$hoge\n"みたいなとこ）に追加する。
この場合は、regist() と past_log() 。

んで読み出す方は 471 でも書いたけど、list() = explode(); のパターンなので、ここで
追加したログ項目を拾ってHTMLに埋め込む、という流れ。

473:nobodyさん
04/10/01 23:48:13
>469
アドバイスの通りでは解決せず、自分で調べたからねー

474:nobodyさん
04/10/02 00:05:03
で、アドバイスとは違うどんな解決方法があったんだい?

475:丸投げ寸前です･･･
04/10/02 00:40:37 GZSz8bwn
>>471
ありがとうございます。
めちゃ勉強になりました。中途半端な知識しかなかったものですから
本当にたすかりました。やっぱ、最後は２chだと痛切に感じています。

>>472
親切にお答え頂き、ありがとうございます。
習うより慣れろをモットーに頑張って１週間。。。
お手上げ状態でした。
頑張ります。お返事ありがとうございました。

476:nobodyさん
04/10/04 20:05:11 TuRS65Ar
【CGI名】　超マニア広辞苑　ver2.0　(03/10/12)
【配布元URL】　URLﾘﾝｸ(www.bellcity.ne.jp)（上のメニューCGIを押すと切り替わる左メニューダウンロードより配布）
【置き場所】　URLﾘﾝｸ(cgi.f58.aaacafe.ne.jp)（自分で改造を試みたものを設置しています。）
CGIのテキストファイル
URLﾘﾝｸ(cgi.f58.aaacafe.ne.jp)（自分でいじったもの）
URLﾘﾝｸ(cgi.f58.aaacafe.ne.jp)（配布状態）
【依頼内容】
・登録した単語ごとにデータファイルを作成。あまり長いようならファイル分割（1.2.のようにリンクがはられるようになればベストです）
（小説置き場として利用としようと考えているので長いものが続くとkologというデータファイルの大きさが莫大になり重くなりそうなので）
・意味登録時のタグ利用許可
・現在は意味登録は削除のみ可ですが修正も可に。
・単語登録時にジャンルを分け、辞書を選択するとジャンルごとに分けた上で五十音順表示表示
↑こちらは配布元でβ版として稼動していますのでそちらを確認いただけるとイメージしていただきやすいと思います。
URLﾘﾝｸ(kazuman.web.infoseek.co.jp)
辞書名を選ぶとジャンルごとに五十音順に並んでソートされます。
・ソートを五十音ではなく任意で選べるように、または登録日付順に行う。

依頼内容が多くてすみません。
自分でいじったものは管理人のみの登録に制限し、見た目と単語を選んだときの表示のされ方を変えました。
今回このCGIを使って小説ページを作ろうと思い、初めてCGIの中を読みながらいじってみたのですが、機能のつけたしとなるとお手上げ状態になりました。
一つでも二つでも良いのでアドバイスいただけますようお願いいたします。

※このような質問は丸投げでしょうか。スレ違いでしたら申し訳ありません。

477:nobodyさん
04/10/05 21:26:16
次の依頼どうぞ

478:nobodyさん
04/10/05 21:31:51
　　　|l 　|l　l　|l　|　|i
　　|i 　l　|i　l|　li　 |
　　　　　　　∩
　　　_,,..,,n,r'ﾞ <⌒つ
　　./ ﾟ 3　ヽ　）´　　　
　）　l　ﾟ ll ∩　ノ　そ
Σ　`'ｰ---‐''　　（
　 ⌒ヽ/V⌒v､/⌒　ﾋﾞﾀﾞｧｧｧﾝ!!

479:nobodyさん
04/10/05 23:31:01
>>478　どうした！？　丸投げされたのかっ！！！

480:nobodyさん
04/10/06 14:58:38
【.　 CGI名　.】　PHPウェブログシステム３ #304
【配布先URL】　URLﾘﾝｸ(www.netmania.jp)
【ヘルプ内容】　
リンクの所に貼ったリンクを別ウィンドウで開きたいのですが
どこをどういじればいいのやらで。。。
要は、 target="_blank"入れたいんです。
出来ればでいいので、よろしくお願いします。

481:nobodyさん
04/10/06 15:41:32
>>480
そういうのはhtmlやらCSSで何とかなる部分でしょ？
自分でやれ。

482:480
04/10/06 16:50:13
やべーすみません
自己解決しましたです。
もし今調べてる方がいらっしゃったら、
大変ご迷惑おかけしましたです。

483:nobodyさん
04/10/08 21:48:28
こういうクズがいると本当に気分が悪い

484:nobodyさん
04/10/08 21:53:23
>>483
２日の前のどうでもいいレスにわざわざやつあたりするお前の方が気分悪い

485:nobodyさん
04/10/09 13:14:46
本人降臨

486:初心者です。
04/10/09 21:17:20 fCvsZBf9
フリーの掲示板の設置が上手く出来たのですが、スクリプトの改造で
以下の戻り先URLの設定でターゲットの設定は出来ないのでしょうか?
_topに戻りたいのですが、戻れません。

# 戻り先URL
$home = 'URLﾘﾝｸ(xxxxx.com)';

以下の使いました。
URLﾘﾝｸ(www.kent-web.com)
です。ご指導下さいませ。

htmlの中には
<a href="$home"> は記述がありませんでした。
超初心者ですいません。

誰か教えて下さいませ。大変困ってます。<(_ _)>

487:nobodyさん
04/10/09 21:23:47
ｽﾚﾘﾝｸ(php板:682番)が読めないのか？
日本語もわからないなら帰れ。

初心者だからなんて理由にならん。
ここはそういうやつが来る板ではない。

488:nobodyさん
04/10/09 21:41:53
すいませんm(__)m 自己解決しました。
調べてくれてる方人すみませんでしたm(__)m

489:nobodyさん
04/10/09 21:58:54
△▲　WebProg 初心者の質問 Part10　▼▽
ｽﾚﾘﾝｸ(php板:324番)

490:nobodyさん
04/10/09 22:05:28
>>487 >>489
揃って同じレスしてるお前のが初心者

491:nobodyさん
04/10/09 22:48:53
たまーに簡単な質問が来るとスレ違いでも回答ラッシュ

492:nobodyさん
04/10/11 10:12:48
【CGI名】　　　ZeroBoard
【配布先URL】　URLﾘﾝｸ(nzeo.com)
【ヘルプ内容】
日本語化してﾎｼｲです。
韓国産ですので＾＾；

493:nobodyさん
04/10/11 18:11:35
丸投げに池

494:nobodyさん
04/10/12 02:15:20
>>493おお、馬鹿だ

495:492
04/10/12 14:54:38
丸投げに逝ってみます～

496:nobodyさん
04/10/20 01:06:37
どなたか教えてください。
１つのディレクトリ内にある複数の画像を
更新年月日順にソートして１ページに表示するCGIです。

スクリプトはこちら
URLﾘﾝｸ(www.clavis.ne.jp)

各画像の下にファイル名が表示されるのですが、
それぞれの画像のタイムスタンプも表示したい場合
どのようにすればよいのでしょうか。

497:nobodyさん
04/10/20 20:45:15
>>496
よくもこんな糞ソース晒せるもんだなぁ。すばらしいよくらビす。

498:nobodyさん
04/10/21 10:54:18
【CGI名】Miniりすとver4.01
【配布元】URLﾘﾝｸ(minicgi.net)
【内容】トップページに、（さんぷる２（らぐなろくなさんぷる）で言うと）
――――――
｜ノービス　｜　０人　|
――――――
｜ソードマン｜　２人　|
――――――　
｜　･･･
という感じでここの（URLﾘﾝｸ(tackysroom.com)）ように
統計を表示させるようにするにはどこをどう追加すればいいでしょうか？

499:nobodyさん
04/10/23 14:37:00 by3ineVA
URLﾘﾝｸ(www.ghost.jp)で配布してる「exit3v11alpha3.zip　アルファ版リリース3」という自動リンク集です。
このCGIは管理人しか登録できないので、訪問者が各自で登録・修正（出来れば削除）出来るように改造したいと思います。
ネットで調べてちょっといじってみたのですが上手くいきません。
是非ヒントをください。よろしくお願いします。

500:nobodyさん
04/10/23 16:20:45
【.　 CGI名　.】　YY-BOARD v5.33
【配布先URL】　URLﾘﾝｸ(www.kent-web.com)
【. 依頼内容】
BBQ規制とＤＳＢＬ規制を適用したいです。よろしくお願い致します。

501:nobodyさん
04/10/23 16:49:01
>499 500
ここは改造工房だってことはわかっているよな？
まずはお前等の改造中のスクリプトを晒してもらおうか。
話はそれからだ。

安易に丸投げスレに逃げるんじゃねーぞ。

502:500
04/10/23 21:46:31
>>501
了解です。

こんな感じにしてみましたが、両方ともうまく機能してないみたいです。よろしくお願いします。

# dsbl 問い合わせ。
if ($dsbl) {
gethostbyname(sprintf qq|%s.%s.%s.%s.list.dsbl.org.|, reverse split /\./, $ENV{'REMOTE_ADDR'}) and &error("アクセスを許可されていません (dsbl listed.)");
}

# BBQ 問い合わせ。
if ($bbq) {
gethostbyname(sprintf qq|%s.%s.%s.%s.niku.2ch.net.|, reverse split /\./, $ENV{'REMOTE_ADDR'}) and &error("アクセスを許可されていません (BBQ listed.)");
}

$bbq ='1';

$dsbl ='1';

503:nobodyさん
04/10/23 22:50:25
>>502
reverse (split /\./, $ENV{'REMOTE_ADDR'})
かな。

504:500
04/10/23 23:29:56
>>503
症状は、生ホストだとＢＢＱリストに入っていないのにエラーメッセージが出る、串を使うとＤＳＢＬに入っているのにアクセスできる、というものです。

505:nobodyさん
04/10/30 14:11:34
【.　 CGI名　.】　なんちてBLOG　記事INDEX付きバージョン　　　　　　（必須）
【配布先URL】　URLﾘﾝｸ(nyats.com)　　　　　　（必須）
【ヘルプ内容】
現在改造中のものです→URLﾘﾝｸ(shingari1582.hp.infoseek.co.jp)
メインはhtmlなのでcssを挿入してあるのですが、過去ログ表示用のCGI（現在改造中のもの）にもリンクやフォントのcssを入れたいと思いました。
$cssという因数があったので素人考えで適応させたいcss（a:linkから）をそのまま入れてみたのですが、
1行目は実行されても2行目からは反映されませんでした。
とほほさんの所等を参照してみたのですが、CGIに関しては本当に初心者で一体どうやって記事全体に反映されるようなcssを挿入すれば良いのか見当もつかなくて困っています。
何かヒントをいただければ嬉しいです、よろしくお願いします。

506:nobodyさん
04/10/31 01:03:45
URLﾘﾝｸ(hk2ch3.hp.infoseek.co.jp)
パーミッション設定とか色々手を尽くしたのですが
どうしても５００エラーが起こるわけで…＿|￣|○
何故でしゃう。

507:nobodyさん
04/10/31 16:51:11
>>505-506
ファイルがないよ

508:nobodyさん
04/10/31 19:00:48
>>507
505のはファイル名のtypo
URLﾘﾝｸ(shingari1582.hp.infoseek.co.jp)

509:nobodyさん
04/10/31 21:29:48
>>505
動作確認してないけどヒアドキュメントにしたらいいんじゃないの？
下のjavascriptのとこ見てやってみた。

#CSS
$css　=　<<CSSEND;
"<style　type=\"text\/css\">\n<\!--\n
\.doc　\{　　font-size\:　$honbunsize\;　color\:　$honbuncolor\　font-family　:　Verdana;}\n
\.sub　\{　　font-size\:　$titlesize\;　color\:　$titlecolor\;　font-family　:　Verdana;}\n
\.date　\{　　font-size\:　$datesize\;　color\:　$datecolor\;　font-family　:　Verdana;}\n
a:link　{color:000000;text-decoration:none;}
a:hover　{color:666666;text-decoration:none;}
a:visited　{color:000000;text-decoration:none;}
a:active　{color:000000;text-decoration:none;}
FONT　{　font-family　:　Verdana;}
BODY　{　　line-height　:　120%;}\n
-->\n<\/style>";
CSSEND

510:nobodyさん
04/11/01 04:04:37
>>509
パッと見\nはおかしいと思うのだが…

511:nobodyさん
04/11/01 14:22:31 dvWt0D+J
保存先をＣＳＶ形式のファイルからデータベース（ＭｙＳＱＬ）に変更すにはどうすればいいのでしょうか？どなたか、おしえてくださいm(_ _)m
<?php
//error_reporting(E_USER_WARNING); // Warrningを出力しない

//----------------------------------------------------
// 定数の宣言
//----------------------------------------------------
define("BBS_DATA", "./bbs.csv");
define("BBS_COL_DATE", 0);
define("BBS_COL_NAME", 1);
define("BBS_COL_BODY", 2);

//----------------------------------------------------
// 関数の定義
//----------------------------------------------------
// AppendCsvFile関数
// 機　能　CSV形式のデータをファイルの末尾に追加する
// 引　数　$FilePath : 書込むファイルへのパス
// 　　$CsvData : 書込みデータ
function AppendCsvToFile($FilePath, $CsvData) {
if ($FilePath == "") {
return false;
}
$fp = fopen($FilePath, "a");
if ($fp == 0) {
return false;
}
//作成日、名前、発言内容を「,」で連結し、レコードを作成する。
//また、レコード中の改行文字を取り除き行末に改行文字を付加する。
$temp = ereg_replace("[\r\n]", "", join(",", $CsvData)) . "\n";
fputs($fp, $temp);
}

512:nobodyさん
04/11/01 14:23:01
>>511の続き
// LoadCsvFile関数
// 機能 CSV形式のファイルを2次元配列に読込む
// 引数 $FilePath : 読込むファイルへのパス
// 戻り値 $CsvData : 読込んだテキストの２次元配列
function LoadCsvFile($FilePath) {
if (file_exists($FilePath) == false) { // ファイルの存在を確認する
return false;
}
$CsvData = array(); // 配列を作る
$TextData = file($FilePath); // ファイルのデータを読み込む

for ($i = 0; $i < sizeof($TextData); $i++) { // レコードが10件あれば10回
$TextData[$i] = ereg_replace("\n$", "", $TextData[$i]); // 行末の\nを取り除く
$TextData[$i] = ereg_replace("\r$", "", $TextData[$i]); // 行末の\rを取り除く
$CsvData[$i] = split("," , $TextData[$i]); // 「,」を区切りとしてフィールドの値を取り出す
}

return $CsvData; // $CsvDataは二次元配列
}
//------------------------------------------------------------
// ここからが主処理
//------------------------------------------------------------
if (isset($_POST["SUBMIT"])) { //このページが初めてアクセスされたか？
if ($_POST["BODY"] != "") { //発言内容はあるか？
$body = str_replace("\n", "<br>", $_POST["BODY"]); // \n\r(改行文字)をタグ<br>に変換する
$body = str_replace("\r", "", $body);
$name = $_POST["NAME"];
$BBSRecord = array(date("Y/m/d H:i:s"), $name, $body);
AppendCsvToFile(BBS_DATA, $BBSRecord); //「内容」の書込み
}
}

513:nobodyさん
04/11/01 14:23:23
>>512の続き
$BBSData = LoadCsvFile(BBS_DATA); //「内容」の読込み
?>
<html>
<head>
<title>掲示板</title>
</head>
<body><h1 align="center">掲示板</h1>
<a href="bbs.php">最新</a>
<form action="bbs.php" method="POST">
<table border="1" align="center" cellspacing="0">
<tr><td bgcolor="#cccccc" align="center">名　前</td><td><input type="text" name="NAME"></td></tr>
<tr><td bgcolor="#cccccc">発言内容</td><td><textarea name="BODY" cols="40" rows="8"></textarea></td>
<tr><td colspan="2" align="center">
<input type="submit" name="SUBMIT" value=" 投稿 ">
<input type="reset" value=" クリア "></td>
</tr>
</table>
</form>

514:nobodyさん
04/11/01 14:25:07
>>513の続き
<?php
if ($BBSData == false) { // 発言内容がなければ$BBSDataは空っぽ
print "発言はありません。<br>";
} else {
for ($i = sizeof($BBSData) - 1; $i >= 0; $i--) {
print "<hr><font size='3' color='#0000ff'><b>";
print $BBSData[$i][BBS_COL_NAME] . "</b></fomt>";
print "<font size='2' color='#666666'>";
print " [" . $BBSData[$i][BBS_COL_DATE] . "]" . "</font><br><br>";
print "<font size='3' color='#333333'>";
print $BBSData[$i][BBS_COL_BODY] . "</font><br><br>";
}
}
?>
</body>
</html>

515:nobodyさん
04/11/01 15:24:26
>>511-514
マルチうざい

516:505
04/11/01 23:13:08
>508
ファイル名間違えていました…訂正ありがとうございます。
>509
回答有難うございました！
#css以下を書き換えて動作させてみたのですが、反映されませんでした。
mainをちゃんと作ってないのですが、動作させてみたらこんな感じです↓
URLﾘﾝｸ(shingari1582.hp.infoseek.co.jp)（左フレームからログファイルへ入れます）
書き換え前と変わった事は一番上に「""; 」という記号が入った事だけのようです。
ソースを見てみたところ、<meta name="keywords" content=""></head>の後にスタイルシートが来ているので反映されないのかな？と思うのですが…関係ないでしょうか。
元もとのprint OUT $css;の位置がおかしいのかな？とも思うのですが、それだったら\.docからのcssも反映されませんよね。
現在a:hover以下のcssが反映されていないようです。
自分で別にcss用の変数を作ってみたらどうかと思いいろいろいじってみたのですが、表示されなくなってしまったりしてお手上げ状態です…orz
よろしければアドバイスお願いいたします…。

517:nobodyさん
04/11/02 03:54:29
>>516
#CSS
$css　=　<<CSSEND;
<style　type="text/css"></style>
CSSEND

じゃあ、これで。
不要な\と\nと"と;を削除しただけ。
SyntaxErrorはないから多分いけるはず。
動作確認は面倒なのでやってないけど。

#>516のリンク先のhtmlソースには一応css部分出力されてるみたい
#有効になってるかどうかはわからんけど

518:nobodyさん
04/11/04 08:51:40
おはようございます。

URLﾘﾝｸ(haiiro.info)

このＣＧＩで　NGワードを設定出来るようにしたいのですが
可能でしょうか？
宜しくお願いします。

519:nobodyさん
04/11/04 12:02:05
>>518
変数にNGワードが入ってたらエラーで弾けばよかろ

520:518
04/11/04 13:11:29 /4YiSBg1
>>519
スミマセン。詳しくお教えいただけないでしょうか？

521:nobodyさん
04/11/04 17:36:00
>>520
これ以上何を聞きたいのだろうか…
丸投げしたいのならスレ違い。
自分で何とかしたいのなら、どこがどう解らないのかを書く。

【スクリプト改造依頼スレ】(丸投げ) part2
ｽﾚﾘﾝｸ(php板)

522:nobodyさん
04/11/06 21:18:18
178 Name_Not_Found [sage] 04/11/06 16:26:41 ID:???
【種別】　ダイスチャット
【言語】　perl
【備考】　URLﾘﾝｸ(www.big.or.jp)
　　　　　　これのようにダイスを振るフォームがあるのではなく、発言欄にコマンドを入れるようなもの。

正確には、COMCHAT-EX（KENT-WEB）に追記することによって
実装できるダイス用の構文が欲しいかも。

179 Name_Not_Found [sage] New! 04/11/06 19:49:11 ID:???
それは改造になるんじゃ?

523:nobodyさん
04/11/06 21:22:07
>>522
>>521

１つ上のレスぐらい読めや

524:nobodyさん
04/11/17 22:33:22
【.　 CGI名　.】LIGHT CHAT
【配布先URL】URLﾘﾝｸ(happy.honesto.net)
【. 置き場所 .】URLﾘﾝｸ(botejako.com)
　　　　　　　　　自分で多少改造したものです。
【ヘルプ内容】
チャットの発言が表示される上の部分に表示される参加者名を
左から発言・入室したのが早い順に更新・発言した際に並び替えて
表示させるようにしたいのですがどうしてもできません。
今の状態だと、入室した順にしかなっていないようです。
参加者リスト(present.dat)の先頭に毎回追加すればいいのだと思うのですが、
push～～をunshift～～に変えてみてもうまくいきません。
それが見当違いのことをしてるかどうかもわかりません。

何かヒントをいただけないでしょうか、お願いします。

525:nobodyさん
04/11/17 22:35:28 A5o7/dm+
書き込みないようなのでageさせてもらいますです。

526:nobodyさん
04/11/22 19:28:58
しかし回答出来る人間は居なかった

　　　　　　－　完( ´∀｀)　－

527:nobodyさん
04/11/22 22:20:50
いやぁ、つまらん改造だから、スクを見る気になれないだけ。
有料なら請け負うが…

528:nobodyさん
04/11/23 00:04:37
一匹釣れたみたいよ>>526

529:nobodyさん
04/11/23 02:43:22
527 ：nobodyさん sage ：04/11/22 22:20:50 ID:???
いやぁ、つまらん改造だから、スクを見る気になれないだけ。
有料なら請け負うが…

527 ：nobodyさん sage ：04/11/22 22:20:50 ID:???
いやぁ、つまらん改造だから、スクを見る気になれないだけ。
有料なら請け負うが…

527 ：nobodyさん sage ：04/11/22 22:20:50 ID:???
いやぁ、つまらん改造だから、スクを見る気になれないだけ。
有料なら請け負うが…

527 ：nobodyさん sage ：04/11/22 22:20:50 ID:???
いやぁ、つまらん改造だから、スクを見る気になれないだけ。
有料なら請け負うが…

530:nobodyさん
04/11/24 05:44:42
527 ：nobodyさん sage ：04/11/22 22:20:50 ID:???
いやん、つまらん改造ですので、スクを見る気になれませんわ。
私を満足させられる対価を頂けますなら請け負いますけれど…

531:nobodyさん
04/11/26 17:09:14
【CGI名】ランキングSP
【配布先URL】URLﾘﾝｸ(hp.bird.to)
【依頼内容】スコアと表示されてる数字の間に.とかを入れる（9999を9.999と表示）ようにしたいのですが、どのように改造すればいいでしょうか？
アドバイスお願いします。

532:nobodyさん
04/11/30 18:53:24
URLﾘﾝｸ(www.rescue.ne.jp)

↑ここのサイトのデータベース改造してます。
regist.cgi、search.cgiは変更しましたがエラーになったのでデフォルト。
regist.htmlのみ変更してます。

複数登録したいのでregist.htmlのリストボックスをチェックボックスに改造中なのですが、
チェックボックスに変更した後、WEB上で動作確認した所
チェックボックスで選択した項目で最後の物のみ反映されて
他の項目は反映されません。

【例】

<input type="checkbox" name="PREF" value="1" border="0">1　　
<input type="checkbox" name="PREF" value="2" border="0">2　
<input type="checkbox" name="PREF" value="3" border="0">3　
<input type="checkbox" name="PREF" value="4" border="0">4
<input type="checkbox" name="PREF" value="5" border="0">5

Aに対して2つの項目を登録するとして

1と4を選択すると4のみ、2と3を選択すると3のみ
と言った状況です。

regist.cgi、search.cgiもいじらなくてはいけない事は分かるんですが、
何処をどうやって良いのか分かりません＿|￣|○

誰か、教えてください。。。

長文、すいませんでした。

533:nobodyさん
04/12/01 04:25:16
こっちに貼っておけば良かったのかな？
URLﾘﾝｸ(www.google.co.jp)

534:nobodyさん
04/12/04 20:50:36 8LV5OOZo
配布されているチャットを改造したいです。

インフォシークなので直リンができないので、中継地点を作ってます。

URLﾘﾝｸ(keizibann.hp.infoseek.co.jp)
↑から入ったチャットの、一番上あたりに、
　参加者の名前を表示させるにはどうすればいいですか？

スクリプトはこれ↓です。
URLﾘﾝｸ(keizibann.hp.infoseek.co.jp)

よろしくお願いします。

535:nobodyさん
04/12/04 21:24:16
URLﾘﾝｸ(help.www.infoseek.co.jp)
通報済み

536:nobodyさん
04/12/05 06:13:44
>>534
知恵袋で質問した人だよね。
漏れは丸投げスレに誘導したんだが、工房スレに来たということは自分で改造できるんだね。

じゃ、改造の流れを説明するぞ。

まずKENTの所(URLﾘﾝｸ(www.kent-web.com))に行ってcomchatをダウンロードして来い。
comchat.cgiの在室者処理の所をパクれ。
変数名をK's Chat Ligthにあうように弄れ。

以上。

537:nobodyさん
04/12/05 06:14:55
＞以上。

これは余計だなお

538:nobodyさん
04/12/05 16:51:08 +UKjgSSz
ここじゃなかったのか、、、。
ついでに寄ったから間違えた。。。

でもありがとう。がんばります。

539:nobodyさん
04/12/12 03:38:36
imgboard.cgiを利用中です。
URLﾘﾝｸ(www.big.or.jp)

これに２ちゃんと同じsage機能をつけたいのですが上手くいきません。

540:nobodyさん
04/12/12 03:39:20
3341行目からの
----------------------------------------------------
if($PM{'res_go_up'} == 1){
undef $tp_match_flag;
local($tp_loop_counter)=0;
foreach $tmp_parent(@NEW_BLOODS){
# 3スレッドまで上へ持って行く
# それ以上にすると負荷が上がるのでやめる
last if($tp_loop_counter >= 3);
if(($tmp_parent eq "$9")||($tmp_parent eq "$11")){
$tp_match_flag = 1;
last;# 検出したら抜ける
}
$tp_loop_counter++;
}
if($tp_match_flag == 1){
push(@GOUP_MESSAGE, $_);
$all_message++;
}else{
push(@MESSAGE, $_);
$all_message++;
}
}else{
push(@MESSAGE, $_);
$all_message++;
}
----------------------------------------------------

541:nobodyさん
04/12/12 03:40:26
を下のように書き換えました

----------------------------------------------------
if($email == $sage){　#### $sage=sageというのを作った
push(@MESSAGE, $_);
$all_message++;
}
else{
undef $tp_match_flag;
local($tp_loop_counter)=0;
foreach $tmp_parent(@NEW_BLOODS){
# 3スレッドまで上へ持って行く
# それ以上にすると負荷が上がるのでやめる
last if($tp_loop_counter >= 3);
if(($tmp_parent eq "$9")||($tmp_parent eq "$11")){
$tp_match_flag = 1;
last;# 検出したら抜ける
}
$tp_loop_counter++;
}
if($tp_match_flag == 1){
push(@GOUP_MESSAGE, $_);
$all_message++;
}else{
push(@MESSAGE, $_);
$all_message++;
}
}
----------------------------------------------------

542:nobodyさん
04/12/12 04:12:51
そうした所レスのメール欄にsageを入れようが入れまいが
書き込むと上に上がらなくなってしまいました。
試しに変更した
if($email == $sage)
を
if($PM{'res_go_up'} == 0)
にしてレスを入れたらちゃんと上がりました。

if($email == $sage)
が間違えているのでしょうか？
どなたご教授頂けないでしょうか？
長くなってすみません。

543:nobodyさん
04/12/12 06:05:55
質問を全部読んでないが(^^；
== は数値の比較
eq が文字列の比較

544:539
04/12/12 08:03:13
>>543
ありがとうございます。
if($email eq $sage)が正しいようですね。
しかし今度は下がらなくなった。＿|￣|○

545:nobodyさん
04/12/12 17:10:46 cJqt4xtP
参考：URLﾘﾝｸ(www.kent-web.com)
依頼：携帯から投稿された絵文字が記録されているログを開き
$text = &emoji($text);
の様に絵文字変換ルーチンを通せば
携帯３キャリア相互変換、ＰＣ表示ができる様にさせたい。
&emoji;　の部分をお願い致します。

546:nobodyさん
04/12/12 18:53:39
>>545
まず、>>1の(3)の真ん中を音読してもらおうか？

547:nobodyさん
04/12/14 09:19:31 Q99fVzSY
URLﾘﾝｸ(www.kit.hi-ho.ne.jp)
こちらで配布している「シンプル日記」の改造をお願いします
（作者さんが多忙のせいか、更新放置されているので・・・）

改造項目は日付の横に任意の画像アイコン（セレクトタグで）を載せたいです
自分で改造できなくて情けない・・・
宜しくお願いします

548:nobodyさん
04/12/14 10:10:33
>>547
スレ違い

■ 自分で改造できない場合には
【スクリプト改造依頼スレ】(丸投げ) part2
ｽﾚﾘﾝｸ(php板:2番)（テンプレ）

549:nobodyさん
04/12/14 11:04:42
>>548
ありがとう、移動します
スレ汚してごめんなさい

550:6
05/01/07 23:40:43
【.　 CGI名　.】　電光！ v.5.20
【配布先URL】　URLﾘﾝｸ(cgiscriptmarket.com)
【. 置き場所 .】　URLﾘﾝｸ(www36.tok2.com)
【ヘルプ内容】　
途中までやりましたがココからがわかりません。
・枠がどうしても青色。黒色に変えたい。枠の太さも1pxに。
・日付に「'」が入ってしまう。
・1 名前 : 内容　　5/06 12：40 とひとつのformで表示したい。
・見かけ上だけ消してるだけなので要らないソースは消してしまいたいがどれを消していいかわからない。

お願いします。

551:nobodyさん
05/01/07 23:53:58
>>550
マルチ乙！

552:6
05/01/07 23:59:44
誘導されてきました。。
スレ違いですか？

553:nobodyさん
05/01/08 00:55:46
>>552
丸投げスレとperlスレみたいにあちこち書いてるだろ。
他のスレに書くなら取り消すなり移動する旨ぐらい書け。
だからマルチと言われる。
それに自分でいじってるんだろ？
だからここへ誘導されたんだ。

↓自分がどちらなのかよく考えろ。

■ 自分で改造できない場合には
【スクリプト改造依頼スレ】(丸投げ) part3
ｽﾚﾘﾝｸ(php板:2番)（テンプレ）

■ 自分で改造するアドバイスが欲しい場合には
★三　【スクリプト改造工房 PART 8 】　★三
ｽﾚﾘﾝｸ(php板:79番)（テンプレ）

554:6
05/01/08 16:21:33
こっちが★三　【スクリプト改造工房 PART 8 】　★三で
・枠がどうしても青色。黒色に変えたい。枠の太さも1pxに。
・日付に「'」が入ってしまう。
こっちが★三　【スクリプト改造工房 PART 8 】　★三です。
見かけ上だけ消してるだけなので要らないソースは消してしまいたいがどれを消していいかわからない。 rmで表示したい。
・1 名前 : 内容　　5/06 12：40 とひとつのformで表示したい。

555:nobodyさん
05/01/14 22:12:47
【.　 CGI名　.】　WwwSearch Ver3.15 - 検索フォーム
【配布先URL】　URLﾘﾝｸ(www.tohoho-web.com)
【ヘルプ内容】　検索結果を、5件ごとや10件ごとに表示させるようにしたいです
自分がいじった部分のソースを貼ります

sub search1 {
　　local($dir) = $_[0];
　　local(@filelist, $file, $filename);
　　opendir(DIR, $dir);
　　@filelist = readdir(DIR);
　　closedir(DIR);
　　$begin = $FORM{'page'} * $hyouji;
　　$end = $bigin + $hyouji;
　　if($end > @filelist) {
　　　　$end = @filelist;
　　}

（続く）

556:555
05/01/14 22:13:34
　　　　#foreach $file (@filelist) {
　　　　for ($a = $bigin; $a < $end; ++$a) {
　　　　if ($file eq ".") { next; }
　　　　if ($file eq "..") { next; }
　　　　$filename = "$dir/$file";
　　　　if (-d $filename) {
　　　　　　if ($recursive_flag) {
　　　　　　　　&search1($filename);
　　　　　　}
　　　　} else {
　　　　&search2($filename, $dir);
　　　　}
　　}
　　if ($end < @filelist) {
　　$nextpage = $FORM{'page'} + 1;
　　print "<a href=\"$ENV{'SCRIPT_NAME'}?page=$nextpage\">次へ</a>\n";
　　}

#　}
}

557:555
05/01/14 22:18:04
foreachのかわりにforでまわしてみたんですが
結果は検索が一件もされず「次へ」のみが表示されてしまいます
アドバイス、解決法よろしくお願いします

558:nobodyさん
05/01/15 19:29:07
>>555
久しぶりに改造工房にお客が来たのに放置されているなぁ～

sub search1の@filelistだが、お前はこの配列に検索に引っかかったものが入っていると思っているだろ？
残念。
@filelistには対象ディレクトリの中にある全てのファイルが格納されている。
試しに
closedir(DIR);
のあとに
errexit("@filelist");
って入れてごらんよ。

漏れならsub search1とsub search2を大改造しる。
opendir(DIR, $dir);
で、指定してた拡張子のファイルのみを
@filelistに入れていく。

559:555
05/01/15 23:08:47
>558
指摘、アドバイスありがとうございます
となるとforループ自体がおかしいことになりますね
なんだか煮詰まってテンパってきました
もちょっとガンガってみますです…

560:nobodyさん
05/01/16 03:38:30
KENTのBBSのソースでも眺めれ。
たいていは件数によって次ページ送りの機能がついているから。

561:nobodyさん
05/01/17 11:01:28 gvEGsU/w
丸投げの方で放置されそうな勢いなので、自分で努力しつつこちらで質問します。

【.　 CGI名　.】　HiLink Type-B
【配布先URL】　URLﾘﾝｸ(www.e-hws.net)
簡易表示の方法をちょっと変えたいです。新着順とランキング順しかソート方法が無いのですが、
これをタイトル(サイト名)で50音表示できるように変更したいです。
利用方法としては「ランキング表示」リンクボタン(?)を「50音表示」とし、クリックするとで50音順で
並ぶというものです。
表示方法なんかを改造してるので、行数が合わないと思われるので、名前で場所を伝えます。

sub mainの「表示データ作成」にある「# ランキング表示の場合、ソートする」をどうにかしたら良いんですよね?
$ititleと$jtitleがサイト名のようです。
さらに、その下の「if( $iclicknum < $jclicknum ){」の部分を書き換えれば良いとは思うのですが…
素人ながらに「if( $ititle < $jtitle ){」ってしてみましたが、案の定変化無しです。
どのようにしたら50音順に並べる事が可能ですか?

宜しくお願いします。

562:nobodyさん
05/01/17 18:56:00
>>561
規約は読んだのか？
再配布禁止&&使用者はメールで届出の義務あり

563:555
05/01/18 19:32:37
>560
眺めて悩んでいたらなんかわかってきました
558さん560さん、アドバイスありがとうございました

564:nobodyさん
05/01/18 20:55:07
>>562
このスレは改造工房であり、改造済みのスクリプトを手渡すわけではないので再配布禁止には当たらないかと…
それにまだ改造したものを設置してないので、メールはまだしなくてもよいかと…

要するにヒントだけ与えれば質問者が何とかするって言うスレなので問題はないかと…

>>561
今ちょっと忙しいので、そのうちスクを見てみるわ。

565:nobodyさん
05/01/19 05:16:19
>>561
惜しい。
Perlは数値か文字列かで比較演算子が異なる。
< の代わりに gt を使えば丁度だな。

566:561
05/01/19 10:15:04 sYVj0TcQ
>>564 >>565
フォロー&返答ありがとうございます。

ばっちり出来ました。
文字列は数字じゃないから数字の演算式記号は使えないって事で覚えててOKでしょうか?

アドバイスありがとうございました!

567:730
05/01/23 11:37:56
他スレから誘導されて来ました。

会員制掲示板のPerlCGIスクリプトです。普通の掲示板（KENTさんの書籍のスクリプトを参考に、過去ログ
作成機能と検索機能を削除した）に、IP制限とパス制を組み合わせ改造しました。
✓で特定のIP（@allow）だったら認証画面(&admin)を出し、パスが合ったら掲示板を表示させる（&bbs)。
IPおよびパスが合わなければエラーを返す、･･･つもりでした。しかし下記のスクリプトでは認証画面は
表示しますが、パスを入力しても認証画面、パスミスでも認証画面になるという状態で、
どうにも煮詰まってしまいました。どこがおかしいのかご教授下さい。これでもIP制限は動作しています。

スクリプトはここにアップしました。該当部分だけ。
URLﾘﾝｸ(up.isp.2ch.net)

568:730
05/01/23 12:14:51
ついでにお聞きします。

【スクリプト名】
Web拍手（公式HPから配布版DL。2004年10月。）

【CGIソース】
kaiseki.cgiだけ。
URLﾘﾝｸ(up.isp.2ch.net)

【改造した内容】
●過去15日分のデータを保存し表示するのを、31日分にする。(crap.cgiとkaiseki.cgi)
●アクセス解析機能を追加し、拍手した人のホスト名をaccess.datに保存する。(crap.cgi)
●このスクリプトへアクセスしたときの画面にはaccess.datへのリンクを張る。
●DLしたままのスクリプトでは、解析グラフのタグがぐちゃぐちゃだったので
　そこも変更。時間ごとのグラフも縦表示から横表示に変更し、31日表示を
　しやすくした。
●グラフの画像も横表示に対応させた。
[現在困っていること]
上記改造を加えたあと先週までは問題なく動作していたのですが、今日アクセス
してみたらスクリプトエラーが発生していました。拍手機能は動作しています。
kaiseki.cgiは、上記改造後何も手を加えていないので普通は起こりえないエラーです。
ただ原因として、ローカルに保存していたこのスクリプト（アプロダに挙げたもの）が
間違っていて、サーバーで動作していたのはサーバー側で直接書きなおしたからでミラーリング
していなかった。それをFTPソフトの誤動作で全ファイルを送信したために、動かないローカルの
スクリプトで更新されてしまった･･･というのが考えられます。
＃FTPソフトのログにはこのファイルを送信したという記録はないのですが、一昨日以前のログが
＃消えているのでわからない。

そこでUPしたこのスクリプトを眺めてみたのですが、どこがおかしいのかわかりません。
pcheck.cgi（Perlスクリプト文法チェッカ）ではsyntax errorの発生はありませんでした。
なにか間違っているところがありましたら教えてください。

569:nobodyさん
05/01/23 13:17:49
>>567-568
アップ先が表示できません

570:567
05/01/23 16:52:48
ありゃ。失礼しました。申し訳ないです（大汗）
UPしなおしました。
>>567
URLﾘﾝｸ(yellow.ribbon.to)
>>568
URLﾘﾝｸ(yellow.ribbon.to)

571:555
05/01/23 22:33:51 a5mA126v
再びすみません

【.　 CGI名　.】　WwwSearch Ver3.15 - 検索フォーム
【配布先URL】　URLﾘﾝｸ(www.tohoho-web.com)
【ヘルプ内容】　検索結果を、「次へ」ボタンを押して、次の件をひょうじさせたいです

５件ごとや１０件ごとの表示は最初だけは表示できるようになりました
「次へ」ボタンを押して、次の件をひょうじさせたいのですが
うまくいきません
この文を最後に追加しました

print "<form method=\"POST\" action=\"$script?page=$page&word=$word\">\n";
print "<input type=\"submit\" value=\"次へ\">";
print "</form>";

「次へ」ボタンを押しても検索結果が出てきません
何かたりないのでしょうか
かなり悩みましたが答えが見つかりません
ヒント、アドバイスお願いします

572:nobodyさん
05/01/23 22:37:48
書き忘れました

>571の文の前に

$page=$FORM{'page'};
$word=$FORM{'word'};

を実行しています

$scriptには自身のCGIファイルの名前が入ってます

573:nobodyさん
05/01/24 00:23:35
>>572
掲示板スクリプトを拾って読んでみたら応用できるんじゃない？

574:nobodyさん
05/01/24 00:33:32
>>572
かなり勘で答えるけど、
<form method=\"POST\" action=\"$script?page=$page&word=$word\">
これをこんな風にしたらだめ？
<form method=\"POST\" action=\"$script￥">
<input type=\"hidden\" name=\"page\" value=\"$page\">
<input type=\"hidden\" name=\"word\" value=\"$word\">

それと、$pageが、ボタンを押したら変化する（＝数字が増えたり減ったり）
ようになってますか？
（FORMのほうの数字が固定だったら、最初のページしか動かない。）

575:572
05/01/24 01:12:24
>573
掲示板スクリプト眺めてるんですが
一向にらちがあかないのです；；

>574
ありがとうございます
試してみましたが、結果はやっぱり同じでした
「次へ」を表示するとこまではいいんですが
押しても、検索フォームだけ出て結果は出ないのです

ソースも晒したほうがいいでしょうか？

576:572
05/01/24 01:16:02
>574
うっかりしてました
この文の直前に

$nextpage = $FORM{'page'} + 1;

をしています

print "<input type=\"hidden\" name=\"page\" value=\"$nextpage\">\n";

にしても結果変わらずです

577:nobodyさん
05/01/24 01:33:30
そんな送信する側の記述を書かれたってわかるわけない。
page=$pageとword=$wordという値を受け取ってどういう処理をさせてる？

578:572
05/01/24 09:52:41
>577
sub readform {
　if ($ENV{'REQUEST_METHOD'} eq "POST") {
　　read(STDIN, $query_string, $ENV{'CONTENT_LENGTH'});
　} else {
　　$query_string = $ENV{'QUERY_STRING'};
　}
　@a = split(/&/, $query_string);
　foreach $x (@a) {
　　($name, $value) = split(/=/, $x);
　　$value =~ tr/+/ /;
　　$value =~ s/%([0-9a-fA-F][0-9a-fA-F])/pack("C", hex($1))/eg;
　　$FORM{$name} = $value;
}
}

の後

$page = $in{'page'};
$word = $in{'word'};

を実行してます
（続く）

579:572
05/01/24 10:03:39
（続き）
　if ($word =~ /[\x80-\xff]/) {
　　# 日本語が含まれているフラグ
　　$jflag = 1;# 日本語が含まれている
　　# 一度EUCに変換する
　　&jcode'convert(*word, "euc");
　　# 全角空白を半角空白に置換する(EUCの空白は#A1A1)
　　$word =~ s/([\x80-\xff][\x80-\xff]|[\x00-\x7f])/($1 eq "\xa1\xa1") ? " " : $1/eg;
　　# SJISモードであればSJISに変換する
　　if ($kcode_file eq "sjis") {
　　　&jcode'convert(*word, "sjis");
　　}
　}

sub search1の中から抜粋
　if (defined($FORM{'WORD'})) {
　　# メタ文字を無効化する
　　if (!$jflag) {
　　　$word =~ s/([\+\*\.\?\^\$\[\-\]\|\\])/\\$1/g;
　　}
　　# 検索語を分割する
　　@words = split(/ +/, $word);
　　# 検索する
　　print "<dl>\n";
　　@dirs = split(/ +/, $target_dir);
　　foreach $dir (@dirs) {
　　　&search1($dir);
　　}

次ページ