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

1 ：nobodyさん：2006/03/32(土) 04:52:20 ID:WJnup8Dd

#================================
# スレッドの説明
#================================

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

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

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

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

312 ：nobodyさん：2008/05/08(木) 10:00:49 ID:???

【CGI名】　スレッド天国 ver.1.10
【配布先URL】http://cgipon.specters.net/
【置き場所】http://cgipon.specters.net/tengoku/download.html
【ヘルプ内容】ログのスレ上げをなくしたいです。　
（親スレに子レスが付くと、その親スレごと一番上にあがるやつです）
あげ荒らしが猛威をふるってるんで急ぎでお願いしたいです。

3060行位からそれらしい部分があるようにもみえるのですけど
perl素人すぎるのか、もの凄く複雑そうに見えちゃって
どこいじればいいのか かいもく検討がつきません。
どこいじればいいのか教えて下さい。（ぺこり

313 ：nobodyさん：2008/05/14(水) 17:55:06 ID:1VhcNHK7

【.　 CGI名 　.】　phpexit ver.1.1.4
【配布先URL】　http://chibinowa.net/
【. 置き場所 .】　http://chibinowa.net/webapp/phpexit.html
【ヘルプ内容】

　項目の追加をお願いします。
　配布先にスクリーンショット画面がありますが、
　一覧部分の「webplog>perl」の部分（カテゴリの部分）の上部に、2件の項目を追加したく思っています。
　追加項目の内容は、1件はテキストエリア、2件目はコメント欄と同じくらいの文章です。

　個人で、テキストエリアの追加は出来たのですが、肝心の一覧にその部分が表示されず、行き詰っています。

　lib/cmd/edit.php、item.php　などを弄ってあります。

　ご助言お願い致します。

314 ：nobodyさん：2008/05/16(金) 23:46:50 ID:oqDS1N2X

313です。自己解決しました。

315 ：nobodyさん：2008/05/17(土) 02:10:38 ID:Td8Jyj+I

【.　 CGI名 　.】　Photo Memo
【配布先URL】　http://www.sa-k.jp/memo/cgi/p_memo.htm
【. 置き場所 .】　http://www.sa-k.jp/memo/cgi/p_memo/p_memo.cgi
【ヘルプ内容】

10枚までの同時アップロードなのですが、20枚までに増やせないでしょうか。
ファイルを開いて1〜10まである項目を無理矢理20まで増やしてみたのですが、
途中でエラーが出てしまい、どこをどういじったのかもわからず…
たくさんあって半日くらいかかっていじってみたのですが、結局わかりませんでした。
よろしくおねがいします。

316 ：nobodyさん：2008/05/17(土) 04:44:29 ID:???

foreach (@lines) {
($noa,$Yeara,$Montha,$Daya,$suba,$tail1a,$W1a,$H1a,$com1a,$tail2a,$W2a,$H2a,$com2a,$tail3a,$W3a,$H3a,$com3a,
$tail4a,$W4a,$H4a,$com4a,$tail5a,$W5a,$H5a,$com5a,$tail6a,$W6a,$H6a,$com6a,$tail7a,$W7a,$H7a,$com7a,
$tail8a,$W8a,$H8a,$com8a,$tail9a,$W9a,$H9a,$com9a,$tail10a,$W10a,$H10a,$com10a,$hosta) = split(/<>/);
ひどい処理だな｡
一応html部から全て項目を増やせば動作するはず｡
あるいは１件１行として全体的にリビルドしてしまうか｡

317 ：nobodyさん：2008/05/24(土) 20:37:38 ID:???

【.　 CGI名 　.】　SN Uploader　　【配布先URL】　http://sugachan.dip.jp/obsolete/snup/
【ヘルプ内容】
拡張子とMIMEが合わなくてもアップロードできてしまいます。
ログには拡張子合わずと記録されてるので簡単に改造できるかなと思いましたら
知識が全然足りずに改造しても動きませんでした。
何方か知識をお貸しください。

318 ：nobodyさん：2008/05/24(土) 20:47:10 ID:???

まず拡張子合わずと記録する部分を見つけるんだ
そしたらそこの条件を見るんだ
そしたらそこでbreakするなりexitするなりしてアップロードできないようにするんだ

319 ：nobodyさん：2008/05/25(日) 07:43:08 ID:???

sub error{
my ($no,$note) = @_;
if (length($note) > 64) { $note = substr($note,0,64).'...'; }
$note =~ s/&/&/g; $note =~ s/\"/"/g; $note =~ s/</</g; $note =~ s/>/>/g; $note =~ s/\r//g; $note =~ s/\n//g; $note =~ s/\t//g; $note =~ s/\0//g;
my ($message,$dispmsg,$flag);
if($no == 98){ $message = ""; }
elsif($no == 99){ $message = "UpFileなし"; }
elsif($no == 101){ $message = "投稿禁止HOST"; }
　　　　　　　　　（略）
# elsif($no == 108){ $flag = 1; $message = "POSTデータ不完全"; $dispmsg = '<tr><td>ファイルをアップロードできませんでした</td></tr><tr><td>POSTデータが不完全です</td></tr>';}
elsif($no == 109){ $flag = 1; $message = "POSTKey不一致"; $dispmsg = '<tr><td>ファイルをアップロードできませんでした</td></tr><tr><td>POSTKeyが一致しません</td></tr>';}
elsif($no == 202){ $flag = 1; $message = "拡張子合わず"; $dispmsg = '<tr><td>ファイルをアップロードできませんでした</td></tr><tr><td>投稿できる拡張子は'.$set{'up_ext'}.'です</td></tr>';}
見つけたけどわからない・・・orz

320 ：nobodyさん：2008/05/25(日) 15:57:11 ID:???

エラーナンバー202を記録してるとこ探せばいいだろｗ

321 ：nobodyさん：2008/05/25(日) 18:41:41 ID:???

{#メイン処理
if(!$in{'upfile'}){ &error(99); }
if($set{'post_flag'} && !check_postkey($in{'postkey'})){ error(109); }
if($set{'dlkey'} == 2 && !$in{'dlkey'}){ unlink("$in{'tmpfile2'}"); &error(61); }
open(IN,$set{'log_file'})||&error(303);
my @log = <IN>;
close(IN);
my ($no,$lastip,$lasttime) = split(/<>/,$log[0]);

if($set{'interval'} && $set{'interval'} && $in{'time'} <= ($lasttime + $set{'interval'}) && $in{'addr'} eq $lastip){ &error(203);}
$in{'ext'} = extfind($in{'orgname'}); if(!$in{'ext'} && $in{'upfile'}){ &error(202); }

my $orgname;
if(split(/\//,$in{'orgname'}) > split(/\\/,$in{'orgname'})){ my @name = split(/\//,$in{'orgname'}); $orgname = $name[$#name]; }
else{ my @name = split(/\\/,$in{'orgname'}); $orgname = $name[$#name];}


ここぐらいしか 202 ってところないけど・・・

322 ：nobodyさん：2008/05/25(日) 19:14:47 ID:???

もしかしてperlのソース読めないんですか？

323 ：nobodyさん：2008/05/25(日) 19:16:16 ID:???

>>322
$in{'ext'} = extfind($in{'orgname'}); if(!$in{'ext'} && $in{'upfile'}){ &error(202); }
この行をどうにかすればいけるぐらいしかわからん

324 ：nobodyさん：2008/05/29(木) 19:57:45 ID:Ql0N4gMP

上げてもよかったのでしょうか…

【.　 CGI名 　.】　Link ＆ Rank
【配布先URL】　http://taitaistudio.com/
【. 置き場所 .】　http://taitaistudio.com/cgi/linkrank.html
【ヘルプ内容】
ユーザーエディット(sub mente)で、サイト名やサイトURLなどに追加して、
新しい変数($kisyu)を追加して、登録者が対応機種を選択出来る
新しい選択欄を追加したいのですが、どうしてもログに追加されません。
挙げ句の果てにはズレてIPが表示されてしまいます。
配布元は改造のサポートは行っていないとの事なので、完全にいきずまってしまいました。
どなたか、御教授よろしくお願い致します。

325 ：nobodyさん：2008/05/30(金) 03:14:29 ID:???

もっと詳しくかつ明瞭に。

326 ：324：2008/05/30(金) 19:04:03 ID:mgybmJwP

ちょっと説明しづらいのですが、
デフォルトでランキングの登録者がサイト名やサイトURL、バナーURL、キーワード、サイト紹介文を決められるのに追加して、
例えば、『サイト詳細』などの新しい項目を作りたいです。

しかし、何度やってもログに記録されずにログから呼び出すことも出来ません。

わかりにくい説明かとは思いますがよろしくお願い致します。

327 ：nobodyさん：2008/05/30(金) 21:07:56 ID:???

「何をどうやった」のかを「具体的に」説明してくれないと
こっちもアドバイスのしようがないんだが

328 ：nobodyさん：2008/05/30(金) 21:26:46 ID:mgybmJwP

全てに新しい変数を追加しました。

329 ：nobodyさん：2008/06/01(日) 16:00:47 ID:???

┓(￣∇￣;)┏

330 ：nobodyさん：2008/06/14(土) 03:25:31 ID:???

置いてある場所
http://www.cj-c.com/cgi_s/cbbs.htm

新規投稿時（親記事）の入力項目（セレクトフォーム）を増やすしたいです。
設定でセレクトフォームをつけれるのですが１つだけで、もう１つ増やしたいのです。
宜しくお願いします。

331 ：nobodyさん：2008/06/16(月) 05:57:41 ID:???

１．設定で現在の書き方を参考に新しい変数を作ってデータを入れる
２．メインcgiのhtml出力しているところを見つけて同じように書く
３．メインcgiの書き込み、読み出ししてるところを見つけて同じように書く
以上