【 スクリプト改造依頼スレ】(丸投げ) part7再々

1 名前：nobodyさん [2008/09/29(月) 08:45:53 ID:NUE8FA6d] スクリプトを改造したいけど知識不足で自分ではできない人が依頼するスレです。 ひょっとしたら誰かがやってくれるかもしれません。 【 CGI&PHP名 】 詳しく記入する事 【 配布先URL 】 再配布OKなら記入、NGなら作者に聞く事 【 依頼期限 】　常識の範囲内で 【 依頼内容 】 〜を導入したい等 ※ まずは再配布禁止か可能かよく調べる事 ※ 再配布可能で元サイトが閉鎖している場合各自あぷろだ等にアップロードする事 ※ 依頼内容は誰にでもわかりやすく書く事 ※ 最後にテンプレがきちんと埋まっているか確認する事 前スレ 【 スクリプト改造依頼スレ 】(丸投げ) part7再 pc11.2ch.net/test/read.cgi/php/1220469709/ 191 名前：nobodyさん mailto:sage [2009/04/25(土) 06:03:21 ID:???] >>179 43行目 空行に↓を追加 $s = '-s';# ｻﾑﾈｲﾙ画像は拡張子の前に-sを付ける 130行目 空行に↓を追加 -f "$imgdir$no-$j$s$t[$i]" or &reducedsize("$imgdir$no-$j$t[$i]",$w[$i],$h[$i],"$imgdir$no-$j$s$t[$i]"); 131行目 ↓に変更 $msg =~ s|$image|<a href=\"$imgurl$no-$j$t[$i]\" target=\"_blank\"><img src=\"$imgurl$no-$j$s$t[$i]\" border=0 align=top $wh></a>|i; 246〜248行目 ↓に変更 unlink("$imgdir$no-1$t[0]","$imgdir$no-1$s$t[0]") if ($t[0]); unlink("$imgdir$no-2$t[1]","$imgdir$no-2$s$t[1]") if ($t[1]); unlink("$imgdir$no-3$t[2]","$imgdir$no-3$s$t[2]") if ($t[2]); 続く 192 名前：nobodyさん mailto:sage [2009/04/25(土) 06:04:08 ID:???] 274行目 ↓に変更 unlink("$imgdir$no-$j$t[$i]","$imgdir$no-$j$s$t[$i]"); 328行目 ↓に変更 unlink("$imgdir$no-1$t01","$imgdir$no-1$s$t01"); 332行目 ↓に変更 unlink("$imgdir$no-2$t02","$imgdir$no-2$s$t02"); 336行目 ↓に変更 unlink("$imgdir$no-3$t03","$imgdir$no-3$s$t03"); 610行目に ↓を追加(変更じゃないよ追加だよ) -f "$imgdir/$no-$i$s$tail" and unlink "$imgdir/$no-$i$s$tail"; 777行目に ↓のｻﾌﾞﾙｰﾁﾝを追加 sub reducedsize {     use Image::Magick;     my $image = Image::Magick->new;     $image ->Read("$_[0]");     $image ->Resize(width => "$_[1]",height => "$_[2]");     $image ->Write("$_[3]"); }

---

---

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

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