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

1 名前：nobodyさん [2006/03/32(土) 04:52:20 ID:WJnup8Dd] #================================ # スレッドの説明 #================================ 「スクリプトを改造したいけどやりかたわかんないよー」という人がいましたら ここで聞いてください。ひょっとしたらアドバイス出来るかもしれません。 質問するときは以下の点に注意して書いて下さい (1) そのスクリプトの内容と置いてある場所を明記する (txtファイルでUPすればなお良い) (2) どんな風に改造して欲しいのか？ (完成イメージHTMLを用意すればなお良し) (3) 出来るだけ詳しく書くこと。少しは自分で考えること。できれば御礼も言ったほうが良い ※答えてくれないからといって逆ギレする厨はお断り 332 名前：nobodyさん mailto:sage [2008/07/25(金) 03:17:16 ID:???] 【CGI名】 DiaryCGI nicky! 【配布先URL】 www.din.or.jp/~raelian/ReadMeNicky.html 【ヘルプ内容】コメント記入時に、メールが送信されるように設定した場合、 通知メール内容にコメント文も載せるようにしたい。 nicky.CGIの2725行にどのような記述をいれれば本文に入るのでしょうか？ 宜しくお願いします。 333 名前：nobodyさん mailto:sage [2008/07/25(金) 04:48:36 ID:???] >>332 2725行？入れるところはそこじゃないと思うよ。 from : $ENV{REMOTE_HOST}($ENV{REMOTE_ADDR}) agent : $ENV{HTTP_USER_AGENT} という行の下に以下を追加する name : $CommentName message : $CommentMsg 文字化けで読めなかったら $CommentName $CommentMsg をjcodeでjisコードに変換する文をsub SendMailRcvNotice{の下の行に追加 334 名前：nobodyさん mailto:sage [2008/07/25(金) 22:21:13 ID:???] >>333 ありがとうございました！ ちゃんとできました！ 335 名前：nobodyさん [2008/08/07(木) 13:46:25 ID:qpI1q2Ei] 【CGI名】 PRTC BBS 【配布先URL】 一般に配布されていません 【ヘルプ内容】暗号化をしたいです www.rescue.ne.jp/cgi/htpasswd/makepwd-des/ このサイトのような感じで(もっと簡素でも構いません) とにかく出力をしたいんです 下記のソースでcgiを動かしたいのですが、初心者でわかりません 知識不足なのはわかっているのですがどうしてもやりたいです よろしくお願いします sub enc_string{ my ($key, $string) = @_; my @map = (('A' ... 'Z'), ('a' ... 'z'), ('0' ... '9'), '+', '&'); my @key = unpack('C*', $key); my $str = ''; my @x = map { int(rand(200)) } (0 ... 2); @key = map {$x[$_] ^ $key[$_]} (0 ... 2); while($string ne ''){ my $n = substr($string, 0, 3, ''); my @n = unpack('C3', $n); map{$n[$_] ^= ($key[$_])} (0 ... 2); 336 名前：335 mailto:sage [2008/08/07(木) 13:47:25 ID:???] @key = unpack('C3', $n); @key = map {$x[$_] ^ $key[$_]} (0 ... 2); my $a = $n[0] >> 2; my $b = (($n[0] & 3) << 4) | ($n[1] >> 4); my $c = (($n[1] & 15) << 2) | ($n[2] >> 6); my $d = $n[2] & 63; $str .= $map[$a] . $map[$b] . $map[$c] . $map[$d]; } my $a = $x[0] >> 2; my $b = (($x[0] & 3) << 4) | ($x[1] >> 4); my $c = (($x[1] & 15) << 2) | ($x[2] >> 6); my $d = $x[2] & 63; return $str.'<>'.$map[$a].$map[$b].$map[$c].$map[$d]; } 337 名前：nobodyさん [2008/08/09(土) 03:15:31 ID:pVYfvjSg] 【盗聴】web-up.cside.biz【個人情報詐取】 pc11.2ch.net/test/read.cgi/php/1218216303/l50 338 名前：nobodyさん mailto:sage [2008/08/18(月) 18:39:47 ID:???] >>335 それは暗号化キーと暗号化対象文字列を引数に取り、暗号化後の文字列二種を '<>' 区切りで返すサブルーチンです。 あとはそのサブルーチンを適切な引数で呼出し、返値を受取って表示するだけです。 この場合、引数は基本的に任意ですから、必要なものを与えてください。 値の与え方が分からない場合は暗号化アルゴリズムについて調べてください。 ルーチンの呼出し方、または返値の受取り方が分からない場合は、Perl のサブルーチン呼出しについて調べて下さい。 プログラムでの値の受取り方、または値の表示の仕方が分からない場合は、CGI の基礎を学ばれるべきだと思います。 339 名前：nobodyさん [2008/08/22(金) 12:34:43 ID:HAxZZ1Pz] △▲　WebProg 初心者の質問 Part17　▼▽ pc11.2ch.net/test/read.cgi/php/1204462146/l50 （スレ違いしみませんでした）） から来ましたm(__)m CGI掲示板スクリプト、ウェブパティオの記事表示順の変更について教えてください。 bbs.capture-game.com/cgi/mobile.html （バージョンは3.19です） のウェブパティオについて質問なのですが 携帯のレス表示画面で単純に新しいレス記事を上から表示するには 何処を変更したらいいでしょうか？ 初心者の質問スレではreverseを使う所まで教えて頂いたのですが、 何分初心者ですので何卒お願い致します。 340 名前：nobodyさん mailto:sage [2008/08/22(金) 12:37:00 ID:???] >(3) 出来るだけ詳しく書くこと。少しは自分で考えること。できれば御礼も言ったほうが良い 341 名前：nobodyさん [2008/08/22(金) 12:58:25 ID:HAxZZ1Pz] >>340 すいません。ご指摘ありがとうございます。 補足です。 【.　 CGI名 　.】　携帯対応ウェブパティオv3.19 【配布先URL】　ttp://www.capture-game.com/modules/wfdownloads/singlefile.php?cid=1&lid=2 【. 置き場所 .】　ttp://www.capture-game.com/modules/wfdownloads/visit.php?cid=1&lid=2 【ヘルプ内容】　携帯電話表示でレス表示画面の並び順を通常12345と並んでいるのを54321という風に新しい書き込みからに並び替えたいです。 lib/phone/read.plをいろいろやってみましたがPerlの知識が乏しいため駄目です。初心者の質問スレではreverseを教えていただきましたが、 どの様なプログラムを何処に入れたらいいか解りません。教えて下さい。何行目を（）しなさいみたいに言っていただけたら幸いです。 なにとぞお願い致します。 342 名前：nobodyさん mailto:sage [2008/08/22(金) 12:59:30 ID:???] >少しは自分で考えること 343 名前：nobodyさん mailto:sage [2008/08/22(金) 13:38:02 ID:???] >>342 もしかして # 投稿順にソート @new = @new[sort {$sort[$b] <=> $sort[$a]} 0 .. $#sort]; regist.plのここですかね？^^; 344 名前：nobodyさん mailto:sage [2008/08/22(金) 17:08:31 ID:???] >>343 で、やってみたか？ 345 名前：nobodyさん mailto:sage [2008/08/22(金) 17:49:49 ID:???] >>344 やってみました＾＾ これと @new = @new[reverse sort {$sort[$b] <=> $sort[$a]} 0 .. $#sort]; これを @new = reverse(@new); @new = @new[sort {$sort[$b] <=> $sort[$a]} 0 .. $#sort]; 試しましたが無理でしたorz 346 名前：nobodyさん mailto:sage [2008/08/22(金) 23:20:22 ID:???] >>345 reverse() までたどり着いてんならあともう一歩だ。がんばれ。 347 名前：nobodyさん mailto:sage [2008/08/23(土) 01:26:37 ID:???] lib/phone/read.plの２２０行目 while (<IN>) { 　　　　↓ for (reverse <IN>){ ってな感じじゃないかな 348 名前：nobodyさん mailto:sage [2008/08/23(土) 01:32:40 ID:???] >>347 while と for では $_ のスコープに関する扱いに違いがある点に注意。 また逐行処理前提で書かれたループ内のコードが適切でない可能性があるよ。 読んでないからどう影響するかはわからんけど応援してみる。 349 名前：nobodyさん mailto:sage [2008/08/23(土) 01:48:47 ID:???] >>346 >>348 ありがとうございます(^o^) >>347 解りやすくありがとうございます＾＾ 出来た！と思ったのですが（ひっくり返りました（感動）） １ページ表示数以上のレスが付くと一番新しいレスが２ページ目に行ってしまいます（涙） 350 名前：nobodyさん mailto:sage [2008/08/23(土) 03:58:22 ID:???] @new = @new[sort {$sort[$a] <=> $sort[$b]} 0 .. $#sort]; でどうだ？ 351 名前：nobodyさん mailto:sage [2008/08/23(土) 09:27:40 ID:???] >>350 ２カ所とも試してみましたが変わりませんでした(;.;) ありがとうございました。 352 名前：347 mailto:sage [2008/08/23(土) 09:49:35 ID:???] >>349 あとは表示するレスの抽出だけみたいだから $i = 0; while (<IN>) { $i++; if ($i <= $from) { next; } if ($i > $to) { last; } chop; ↑の部分（read.pl２２０行目辺り）を $i= 0; my @line; while (<IN>){ $i++; if ($i <= $from) { next; } if ($i > $to) { last; } push(@line, $_); } for (reverse @line){ chop; ってな感じじゃないかな 353 名前：nobodyさん mailto:sage [2008/08/23(土) 16:32:22 ID:???] >>352 見事に出来ました(T.T) 非常に解りやすく教えて頂き本当に感謝致します。 ありがとうございましたm(__)m 354 名前：nobodyさん [2008/08/24(日) 20:26:26 ID:8OT0ZHuq] 【.　 CGI名 　.】　HiLink ver1.12（サンプルAバージョン） 【配布先URL】　www.e-hws.net/ 【. 置き場所 .】　www.e-hws.net/hilink.html 【ヘルプ内容】 リンク登録時に特定のカテゴリーを選択したとき、表示部のテーブル背景色を変更したいです。 hilink.cgiの「表示データ作成」部分に以下のように追加し if ($category eq 'ああああ' ){$cate_clr="red";} elsif ($category eq 'いいいい ){$cate_clr="blue";} else {$cate_clr="#999999";} スキンのmain.htmlで、テーブルタグにbgcolor="$cate_clr"と入れてみましたが うまくいきませんでした。 なにぶん手探りで、何かおかしなことをやらかしているかもしれないのですが なんとかご教授いただけると嬉しいです。 どうかよろしくお願いします。 355 名前：nobodyさん [2008/08/24(日) 20:38:01 ID:ZUYvYMes] 【.　 CGI名 　.】　へっどらいん 【配布先URL】　php.s3.to/ 【. 置き場所 .】　php.s3.to/net/#amezo 【ヘルプ内容】 このへっどらいんで出力させる場合に<script>コードを無効にしてほしいです ないサイトなら問題ないのですがある場合は気になります よろしくお願いします 356 名前：nobodyさん mailto:sage [2008/08/28(木) 12:17:05 ID:???] >>355 headline.phpの144〜146行目 144:　for($j=7; $j<count($files); $j++){//残りはHTMLデータ 145:　　$line.= $files[$j]; 146:　} の下に、以下の行を加える。 $line = preg_replace('/<script[^>]*>.*<\/script>/','',$line); 表示時だけでなくデータ取り込みの際にも<script>を除去したければ、85行目の上にも同じものを入れる。 84:　if($start || !$head[start]){ 85:　　　$new.= $line; 検証してないけど。 357 名前：nobodyさん [2008/09/02(火) 17:46:02 ID:ikXIt5qG] 【　 CGI名 　】配布用web拍手CGI 【配布先URL】www.webclap.com/ web拍手CGI公式サイトさんのところで無料配布のスクリプトをもらってきたのですが、 ファビコンがプロバイダ側のへんてこファビコンなので変えたいのです！ 自サイトのhtmlページでは自作のファビコンで被せてあるのですが、CGIでファビコンを つけるのはどこをどういじったら良いですか？ clapinit.txt (cgi)　このファイルがあやしかったので、 #-------------- # HTMLヘッダー #-------------- sub header{ print "Content-type: text/html\n\n"; print '<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">',"\n"; print '<html lang="ja"><head>',"\n"; print "<title>$title</title>\n"; print "</head>\n"; この内に print "<link rel="shortcut icon" href="favicon.ico">\n"; ↑これを加えてみたのですがダメですた。 他にもいじらないとダメだったりするのでしょうか。 もしかして根本的に間違ってたりするのでしょうか…。 どなたかお助けください。 スクリプトダウンロード先は www.webclap.com/etc/download.html←ここです。 358 名前：nobodyさん mailto:sage [2008/09/02(火) 18:03:23 ID:???] print qq|<link rel="shortcut icon" href="favicon.ico">\n|; 書くならエスケープしないと 359 名前：357 [2008/09/02(火) 18:21:23 ID:ikXIt5qG] 358さん、ありがとうっ！ できました。ヽ(　　´　　∇　　｀　　)ノ エスケープてなんのことかさっぱりですが、助かりました！ ありがとうございましたー。 360 名前：WIvuwbtzwfKUbeCY mailto:unprdk@urrwey.com [2008/09/04(木) 04:46:54 ID:???] 8BjBoM <a href="ywnlxptotivr.com/">ywnlxptotivr</a>, [url=rteiyeyfadlo.com/]rteiyeyfadlo[/url], [link=ogppqltwqlls.com/]ogppqltwqlls[/link], qkrzooqzbhel.com/ 361 名前：nobodyさん mailto:sage [2008/09/04(木) 06:55:50 ID:???] PHP限定で改造やります 改造したものはHPで公衆発信します まず以下の情報を書いてレスよろ [スクリプト名]名前は正確に！！ [配布先URL]二次配布できるかできないか確認するためです。うｐローダに置いてあったらスルー [改造内容]何をどのように改造したいのか詳しく。あいまいな内容は基本的にスルー 362 名前：nobodyさん mailto:sage [2008/09/04(木) 20:31:18 ID:???] >>361 スレの趣旨から反するから改造丸投げはNG 363 名前：nobodyさん mailto:sage [2008/09/04(木) 20:58:58 ID:???] 一部も丸投げもどっちでもいいよ 364 名前：nobodyさん mailto:sage [2008/09/04(木) 23:19:35 ID:???] 関連スレ 【 スクリプト改造依頼スレ 】(丸投げ) part7再 pc11.2ch.net/test/read.cgi/php/1220469709/ 365 名前：RZWXbJawD mailto:epezJffuuGpds [2008/09/15(月) 12:13:38 ID:???] map+1409.txt;50;60 366 名前：nobodyさん mailto:sage [2008/09/20(土) 18:44:46 ID:???] www.dotup.org/uploda/www.dotup.org2048.zip.html ゲームの得点ランキングを作ろうと思い、 名前・得点・コメントを入力してランキングに登録するといった形のものを作りたかったのですが、 値を入力し、送信してもうまく表示されません。 logのファイルに書き込みはできてるみたいですが、正しくかけていないように思えます。 どうすればランキングを表示できるでしょうか？ もうどこが間違ってるのか分からなくなってしまいましたので、アップロードさせていただきました。 どなたか修正・ご指導よろしくお願いします。 www.cgi-web.net/download-top.html様の quizというCGIを元に改造してみたものです。 こちらに誘導されました。よろしくお願いします。 367 名前：nobodyさん mailto:sage [2008/09/21(日) 01:27:40 ID:???] >>366 配布元の制限を読むと、あなたが配布元に連絡していない場合、 今回のアップロードは「スクリプトの無断再配布」に当たり、 同サイトの提示するライセンスに抵触する可能性があります。 権利関係を再確認してください。 368 名前：nobodyさん [2008/09/26(金) 20:08:56 ID:ze4UkUPR] 【.　 CGI名 　.】toshinariスクリプト(Perl) 【配布先URL】www.toshinari.net/ 【ヘルプ内容】 としなり掲示板にリモートホスト、IPを取得できるように改造してください。 できれば/BBSID/log/00000.cgi みたいに掲示板IDディレクトリに新しくlogディレクトリを作成してcgiファイルで保存するようにして それでレス削除画面にリモートホスト、IPを表示させるようにしてくれるといいです。 あと、ここからは希望ですが リモートホスト(IP)規制機能と透明あぼーん機能をつけてください。 報酬はリモートホスト、IP取得が500P リモートホスト(IP)規制機能、透明あぼーんまで追加してくださったら+500P払います 369 名前：nobodyさん mailto:sage [2008/09/26(金) 20:33:39 ID:???] Pって何やねん 370 名前：368 [2008/09/26(金) 20:35:04 ID:ze4UkUPR] >>368 すいません、書き忘れてました ウェブマネーのことです。 371 名前：368 [2008/09/26(金) 20:36:50 ID:ze4UkUPR] 安価ミス・・・ >>368じゃなくて>>369 372 名前：nobodyさん mailto:sage [2008/09/26(金) 20:52:29 ID:???] ケチくさいにもほどがあるな 373 名前：nobodyさん mailto:sage [2008/09/27(土) 00:18:26 ID:???] >>368 「ここからは希望」ってあるがじゃあその前は何なんだ 374 名前：nobodyさん mailto:sage [2008/09/27(土) 04:01:31 ID:???] ま、>>1嫁 375 名前：368 [2008/09/27(土) 07:15:06 ID:DmLoG2K4] すいません。書き直します ダウンロード場所：cgi.toshinari.net/wiki.cgi スクリプト名：toshinariスクリプト どんな風に改造するか： としなり掲示板にリモートホスト、IPを取得できるように改造してください。 /BBSID/log/00000.cgiという感じにlogディレクトリにcgiファイルで保存するようにしてほしいです。 報酬はWM1000Pです。 これからは希望ですが ＩＰ規制と透明あぼーんもつけてもらえれば幸いです。 376 名前：nobodyさん mailto:sage [2008/09/27(土) 07:49:04 ID:???] >>375 で、どこまでやったのさ？ 自分で全然やる気ないなら丸投げスレへ行け 377 名前：368 [2008/09/27(土) 16:52:29 ID:DmLoG2K4] >>376 どこまでやったというと？ がんばってもできないから改造依頼したんですが・・・ あと、dat落ちしていない丸投げスレのURL教えてください。 378 名前：nobodyさん mailto:sage [2008/09/27(土) 16:53:18 ID:???] これはひどい 379 名前：368 [2008/09/27(土) 19:14:47 ID:DmLoG2K4] なんとか自分でできそうです 380 名前：368 [2008/09/27(土) 19:25:04 ID:DmLoG2K4] なんとかできました 381 名前：nobodyさん mailto:sage [2008/09/29(月) 07:51:32 ID:???] >>380 自分で出来んならくんなよ 382 名前：nobodyさん mailto:sage [2008/09/29(月) 08:50:14 ID:???] 関連スレ 【 スクリプト改造依頼スレ】(丸投げ) part7再々 pc11.2ch.net/test/read.cgi/php/1222645553/ 383 名前：nobodyさん mailto:sage [2008/09/29(月) 09:02:12 ID:???] 丸投げスレがまた即死したので立てときました。 こっち（工房）にまとめようという意見もあるようですが、一種の隔離スレみたいな 意味合いもあると思うので、やっぱあった方がいいかと…… 384 名前：YwSCdaoYJixVIpCijR mailto:ConstandinosGokasi87@gmail.com [2008/10/03(金) 04:13:35 ID:???] hi, you have super site., 385 名前：nobodyさん mailto:sage [2008/10/04(土) 02:06:40 ID:???] 【.　 CGI名 　.】　ショッピングカート WebCart 2.3x 【配布先URL】　www.cgis.biz/script_web_cart/ 【ヘルプ内容】　 サンプルを見ていただくとわかると思いますが、商品の並び順が新しい番号が 上にくるようになっています。 これをＮＯ．１から表示するようにしたいのですが、どこを改造すればよいか ご教授ください。 私が見た中で、ここかな？と思ったのは、view.phpの153〜154行目と思ってい ますが、どうでしょうか。 386 名前：nobodyさん mailto:sage [2008/10/04(土) 02:07:50 ID:???] じゃやれよ 387 名前：nobodyさん mailto:sage [2008/10/04(土) 02:16:49 ID:???] >>386 じゃやれよって言われても…どう変えればいいのかわからないから聞いているの ですが？ 自分でできそうだったらすでにやってますが、場所が見当ついても、何を変えれ ばいいのかわからず、作者さんもお忙しいとお聞きしましたので、ここで聞いて みたのですが…。 388 名前：nobodyさん mailto:sage [2008/10/04(土) 02:24:39 ID:???] 分からないなりに当たりつけてやってみなよ まさか100%何も見当付かないってことはあるめえ？ 389 名前：nobodyさん mailto:sage [2008/10/04(土) 04:39:31 ID:???] 言語がわからんってことなら丸投げいけば？ 390 名前：385 mailto:sage [2008/10/05(日) 11:16:52 ID:???] 丸投げスレにて教えてもらいました。 誘導ありがとうございましたm(_ _)m 391 名前：nobodyさん mailto:sage [2008/10/05(日) 18:39:28 ID:???] 回答もらってからこっちを終わらせるとかほんと悪質だなｗ 392 名前：nobodyさん [2008/10/07(火) 23:59:17 ID:Zxtb1+eC] >>899 ありがとうございます 393 名前：nobodyさん [2008/10/27(月) 20:40:50 ID:vjLKC+JQ] 【CGI名】スレ天 【場所】cgipon.specters.net/tengoku/download.html 【ヘルプ】トリップつけれるようにしたい ググったらそれらしいのはなんぼかみつかったけど 入れる場所とかわかりません。 ご教授よろしくおねがいします。 ★ ワンポイント 2chのトリップ生成方法は以下のようになっています。 ($name, $tripkey) = split(/\#(.+)/, $form{'name'}); if($tripkey){ $salt = substr($tripkey.'H.', 1, 2); $salt =~ tr/\x3A-\x40\x5B-\x60\x00-\x2D\x7B-\xFF/A-Ga-f./; $salt =~ s/[^\.\/0-9A-Za-z]/\./g; $trip = '◆'. substr(crypt($tripkey, $salt), -10); } print "$name$trip"; 394 名前：nobodyさん [2008/10/27(月) 20:42:05 ID:vjLKC+JQ] 書き込み処理直前、クッキー発行後 ＜ここから＞ #トリップ機能 $in{'name'} =~ s/◆/◇/g; $in{'name'} =~ s/\x23(.+)$/ "◆".trip($1)/e; ＜／ここまで＞ #----------------# # トリップ生成 # #----------------# sub trip { my $key = shift; $key =~ s/"/"/g; $key =~ s/</</g; $key =~ s/>/>/g; my $salt = substr("${key}H.", 1, 2); $salt =~ tr/\x00-\x2d\x7b-\xff/./; $salt =~ tr/\x3a-\x40\x5b-\x60/A-Ga-f/; return substr(crypt($key, $salt), -8); 395 名前：nobodyさん [2008/11/29(土) 15:46:24 ID:kT4OjumG] 【.　 CGI名 　.】　RNA pre2.0b2 (build 051225) 【配布先URL】　web.archive.org/web/20080207152240/http://foaf.jp/~msano/rnanightly_with_extlib.tar.gz　（少し重いですが、DLできます。783kbです。） 【ドキュメント】web.archive.org/web/20070217110104/www.semblog.org/wiki/index.cgi?RNA%c0%e2%cc%c0%bd%f1(nightly%c8%c7) 【ヘルプ内容】 # スクリプト紹介 ・RNA は、Webサーバ上で動作する、RSSアグリゲータの一種です。 　Perl/CGI で実装されています。 　Web上のいろいろなサイトの更新情報を収集するアンテナとしての機能が主です。 ・www.semblog.org/wiki/?rnaで配布されてるスクリプトの開発版です。 ・開発はストップしてます ・isnot.jp/?p=RNA%A5%E1%A5%E2 にも、スクリプトの処理の流れが書いてあります。 　（Perlがわかるかたにはスクリプトを見たほうが早いかもしれませんが） # したいこと ・楽天ブログのRSS等、RSS内に入ってる広告を除去したいです 　具体的には、"PR:"で始まってるitemを除去したいです 396 名前：395 mailto:sage [2008/11/29(土) 15:48:00 ID:???] # やってみたこと、考えたこと ・lib/RNA.pmの800行目付近、cacheしたサイトのデータをStoreして、sortする前あたりで 　除去したらいいのかなと思ってます $self->__cache_sites($new_cache_data); $self->{SiteList}->{RSSArray} = \@rss_array; unless($config->{DateControl}->{AllowFutureEntries}) { $self->remove_future_entries; } $self->remove_ads; # この辺り？ 397 名前：395 mailto:sage [2008/11/29(土) 15:48:35 ID:???] ・lib/RNA/RSS.pmの remove_future_itemsを参考に見よう見まねで書いてみたりもしましたが、 　「titleが "PR:" で始まってるitemを除去する」という書き方がわかりませんでした sub remove_ads { my $self = shift; my %arg = @_; my @new_items = (); foreach my $item (@{$self->{items}}) { if (index($item->{title}, "PR:") < 0) { push(@new_items, $item); } } $self->{items} = \@new_items; } ・処理するタイミングも間違ってるかもしれません ・できれば今後のために、除去するitemの指定方法に汎用性を持たせていただけるとなお嬉しいです 以上よろしくお願いします 398 名前：nobodyさん [2008/12/12(金) 23:58:00 ID:A0lF4mOo] 【 スクリプト改造依頼スレ】(丸投げ)のほうで投稿したのですが、 投稿した後にこちらのスレで質問したほうがいいという書き込みを見つけたので 同じ内容のものを投稿します。 【 CGI&PHP名 】 CSS Yomi-Search（Yomi-Search改造版） 【 配布先URL 】 ttp://www.w-art.org/ 【 依頼内容 】　マーク順設定で検索したとき、ログの並び順を更新日の新しい順にしたい 現在ログをマーク順で表示させています。 デフォルトではＩＤの新しい順で並ぶようになっていますが、 ↓の方法で更新日の新しい順に並ぶようにしました。 web.archive.org/web/20041222074129/yomi.pekori.to/bbs2/wwwlng.cgi?print+200205/02050051.txt しかし、検索した時にログの表示が変になってしまいます。 上記のアドレス先にも検索した時の表示の対処法が書いてあるのですが、 その通りにやってみると並び順はきちんとなるのですが、同じログが２つ表示されてしまいます。 よろしくお願いします。 399 名前：nobodyさん mailto:sage [2008/12/13(土) 00:13:50 ID:???] で、向こうは書きっぱなしで放置逃亡ですか ならマルチは死ねとしか 400 名前：nobodyさん [2008/12/13(土) 00:28:02 ID:fT/e8zoW] 398です。 すいません。 何度か書き込みをしたことはあるのですが、 削除はしたことがなかったのでその辺を何も考えてませんでした。 えと、削除依頼を出せばいいのかな・・ガイドライン読んできます。 401 名前：nobodyさん mailto:sage [2008/12/13(土) 04:59:44 ID:???] >>400 削除依頼じゃなくてさ、このｽﾚに移動しますって書けばおｋ 402 名前：nobodyさん [2008/12/13(土) 09:48:56 ID:fT/e8zoW] >>401 教えて下さってありがとうございます。 向こうのスレに書き込んできました。 以後気をつけます。 403 名前：nobodyさん mailto:sage [2008/12/13(土) 20:10:29 ID:???] >>402 で、このｽﾚは丸投げじゃないんだから自分で出来るところまでやるってのが第一歩。 404 名前：nobodyさん [2009/01/30(金) 15:25:22 ID:Mp+dTJwq] 【.　 CGI名 　.】　phpexit ver.1.1.4 【配布先URL】　chibinowa.net/ 【. 置き場所 .】　chibinowa.net/webapp/phpexit.html 【ヘルプ内容】 　項目の追加をお願いします。 　配布先にスクリーンショット画面がありますが、 　一覧部分の「webplog>perl」の部分（カテゴリの部分）の上部に、2件の項目を追加したく思っています。 　追加項目の内容は、1件はテキストエリア、2件目はコメント欄と同じくらいの文章です。 　個人で、テキストエリアの追加は出来たのですが、肝心の一覧にその部分が表示されず、行き詰っています。 　lib/cmd/edit.php、item.php　などを弄ってあります。 色々修正してみたり、記述を変えてみましたが、増やした項目部分を登録すると増やしたコメント欄とテキストエリアが同じ内容になってしまったりします。 　1度自己解決したのですが、上記問題が出てしまいましたので、どうかご助言お願い致します。 405 名前：nobodyさん mailto:sage [2009/01/30(金) 23:11:27 ID:???] コメント欄とテキストエリアで出力している変数を別にすればいいのでわ？ 406 名前：nobodyさん mailto:sage [2009/02/04(水) 05:16:41 ID:???] 【.　 CGI名 　.】　0chスクリプト 【配布先URL】　0ch.mine.nu/public/scripts/　0chのtest060227.zip 【ヘルプ内容】 0chのtest060227.zipを使用して掲示板を運営しています。 スレッド一覧（ ./subback.html ）にもmeta.txtの内容を書き込もうと思い いろいろ弄ってなんとか形になりました。※meta.txtは掲示板を作って自分で書き込めます。 しかし、これでよいのかどうか自信がもてないため質問します。 varda.plの191 sub CreateSubback{　} 内に require('./module/legolas.pl'); $Caption = new LEGOLAS; META($this,$Index,$Caption); 151# HTMLヘッダの出力 $Caption->Print($Page,undef); 他に sub META{ 　my ($this,$Page,$Caption) = @_; 　my ($title,$link,$image,$code); 　$Caption->Load($this->{'SYS'},'META'); } ミスはないでしょうか？ 407 名前：nobodyさん mailto:sage [2009/02/04(水) 19:33:07 ID:???] レンタル鯖にてメール送信CGIを設置したくPerlで継ぎはぎしてやってみたんですが、 メールは送信されるのですが、件名とメアドまで本文の方に来てしまって、 件名が（無題）で送信者がanonymousになってしまいます。 どうやったら件名とメアドを認識してくれるのでしょうか？ HTMLの入力フォームは、名前、メアド、件名、本文の４つだけです。 408 名前：404 [2009/02/04(水) 19:36:06 ID:KFPddoVr] >>405 解答ありがとうございました。頑張ってみます！ 409 名前：nobodyさん mailto:sage [2009/02/04(水) 19:36:17 ID:???] ソースをさらせばいい ↓そのソースじゃねーＹＯ！ 410 名前：nobodyさん mailto:sage [2009/02/04(水) 20:04:10 ID:???] >>409 ｿｰｽさらします。Perl知らないんでこれが限界っす･･･。 #!/usr/bin/perl $mailprog = '/usr/sbin/sendmail'; require 'jcode.pl'; #Get the input read (STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); #Split the name-value pairs @pairs = split (/&/,$buffer); foreach $pair(@pairs) { ($name, $value) = split(/=/, $pair); #Un-Webify plus signs and %-encoding $value=~tr/+/ /; $value=~s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg; $FORM{$name} = $value; if ( $name ne "to" ) { push (@fields, $name) unless (grep(/^$name$/, @fields)); } } # set recipient address if form is blank $to = $FORM{'to'}; 411 名前：nobodyさん mailto:sage [2009/02/04(水) 20:04:56 ID:???] 続きです。 ### 送信フォーマット $mail_msg = ""; foreach $field (@fields) { $mail_msg = "$mail_msg-----------------------------------------------\n"; $mail_msg = "$mail_msg($field) $FORM{$field}\n"; } ### ShiftJis to Jis &jcode'convert(*mail_msg, 'jis'); open(MAIL,"| $mailprog $FORM{'to'}")|| die "Can't open $mailprog!\n"; print MAIL $mail_msg; close(MAIL); 412 名前：nobodyさん mailto:sage [2009/02/04(水) 20:12:33 ID:???] メールヘッダがないではないか？ 413 名前：nobodyさん mailto:sage [2009/02/04(水) 23:10:20 ID:???] >>410 まず、スクリプトの先頭に use strict; use warnings; と書いて。 414 名前：nobodyさん [2009/02/05(木) 15:06:41 ID:0clwaODI] 【. CGI名 .】美しい画像掲示板 【配布先URL】ttp://w1.nirai.ne.jp/freeze/appli/file06.html 【ヘルプ内容】 ・ファイルサイズを800000にしたい if($filesize <= 100000){ ここを変更するだけでは下記の行がエラーで上手く表示されません $a_num = $size_w/($a_w+$b_w*$a_h/$b_h+$c_w*$a_h/$c_h+$d_w*$a_h/$d_h+$e_w*$a_h/$e_h); ・画像がない場合の表示 行に画像が1枠しかない場合、残り4枠に'image.jpg' の画像が 表示されるはずが1枠にしか表示されません どうか力を貸して下さい 415 名前：nobodyさん mailto:sage [2009/02/05(木) 15:17:02 ID:???] エラーでメッセージが出ずに行がそのまま出るの？ 416 名前：414 mailto:sage [2009/02/05(木) 16:05:49 ID:???] >>415 ファイル名　oo.jpg アップロード成功！ Warning: Division by zero in bbs.php on line 197 と出て、その行（表示させるテーブル）が凝縮されて画像は表示されません。 417 名前：nobodyさん mailto:sage [2009/02/06(金) 02:28:34 ID:???] じゃもう問題分かったようなもんじゃん 418 名前：414 mailto:sage [2009/02/06(金) 22:45:19 ID:???] >>417 if($filesize <= 100000)をif($filesize <= 800000)に変えるとなぜ $a_num = $size_w/($a_w+$b_w*$a_h/$b_h+$c_w*$a_h/$c_h+$d_w*$a_h/$d_h+$e_w*$a_h/$e_h); がエラーを起こすのか理解できていないので解決できません 419 名前：nobodyさん mailto:sage [2009/02/06(金) 22:45:51 ID:???] いや検証して理解すれよ 420 名前：nobodyさん mailto:sage [2009/02/06(金) 23:33:26 ID:???] 糞スクリプト過ぎるな。 とりあえずその行の直前ででも関係する変数を適当に出力してみれ。 ゼロ除算なのだから、割る数のうちいずれかが0になっている。 値がおかしい変数が見つかったら、その変数に値を設定している部分を全部洗い出して、どういう風に値が変わっていくか調べろ。 421 名前：420 mailto:sage [2009/02/07(土) 01:08:19 ID:???] 配布CGIが糞なのは今に始まった事じゃないから諦めて整理しつつ読んだ。 問題はその変更じゃないな。変な画像が混ざってるんじゃねぇか？ データはそのままで改造前のスクリプトを設置したらちゃんと動くのか？ 422 名前：414 mailto:sage [2009/02/07(土) 13:19:00 ID:???] >>421 アップして表示するのに関しては正常に動きます 画像がない場合の表示はダメです 理想　　　　　　現実 ■□□□□　　　■×××× ■アップした画像 □画像がない場合に表示する画像 ×イメージがない 423 名前：nobodyさん mailto:sage [2009/02/07(土) 13:42:18 ID:???] 表示してみなよ $a_num = $size_w/($a_w+$b_w*$a_h/$b_h+$c_w*$a_h/$c_h+$d_w*$a_h/$d_h+$e_w*$a_h/$e_h); の直前に print "Content-type: text/plain\n\n$a_num = $size_w/($a_w+$b_w*$a_h/$b_h+$c_w*$a_h/$c_h+$d_w*$a_h/$d_h+$e_w*$a_h/$e_h);\n"; exit; みたいに書いてさ・・ 424 名前：414 mailto:sage [2009/02/07(土) 14:58:22 ID:???] >>423 ありがとう。テーブルの幅を変えているからダメなんでしょうか？ 何かやればやるほど色んな不具合が見つかり心が折れそうです これは止めておいた方がいいスクリプトですかね（ ＾ω＾） 425 名前：nobodyさん mailto:sage [2009/02/07(土) 17:41:10 ID:???] いや言われたことやれよ・・・ 426 名前：nobodyさん mailto:sage [2009/02/07(土) 18:01:23 ID:???] まあ、問題の切り分けをしようとも考えない>414にはお似合いのレベルだけどな。 image.jpgがスクリプトと同じディレクトリに無いだけ、に一票。 どう見えるかなんざ枝葉末節の問題に過ぎないんだから、HTMLソースどうなってるのか確認しろよ。 427 名前：nobodyさん mailto:sage [2009/02/07(土) 18:40:53 ID:???] 設置することが最終目標の人たちに対して、 デバッグの仕方教えても仕方ないような気がしてきた。 428 名前：nobodyさん mailto:sage [2009/02/07(土) 18:44:15 ID:???] じゃ改造スレじゃなくて丸投げスレ行けと 429 名前：414 mailto:sage [2009/02/07(土) 19:01:15 ID:???] >>425 テーブル幅・ファイルサイズを変えて色々試しました ファイルサイズが関係無い事はわかったのですが 何がいけないかわからなかったです >>426 422の現実は下記の間違いでした ■□××× 430 名前：nobodyさん mailto:sage [2009/02/07(土) 19:47:38 ID:???] >423 >表示してみなよ >表示してみなよ >表示してみなよ >426 >HTMLソースどうなってるのか確認しろよ。 >HTMLソースどうなってるのか確認しろよ。 >HTMLソースどうなってるのか確認しろよ。 （日本語が分からないようなので3回言いました） 431 名前：nobodyさん mailto:sage [2009/02/07(土) 20:07:27 ID:???] >>428 丸投げスレとかあるのかｗ 432 名前：414 mailto:sage [2009/02/07(土) 21:09:57 ID:???] >>430 表示された式をレスすれば解決してくれるの？ ソースを確認と言われても414のサイトにあるソースの ファイルサイズとテーブル幅以外は変更してないので 確認して貰えれば助かるのですが？

---

---

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

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