| 記事No | ： 184 |
| 投稿日 | ： 2007/04/10(Tue) 21:27:22 |
| タイトル | ： WebPatioで誰でも画像をUP出来るようにしたい |
| ID情報 | ： XiaoXiao |
| 投稿者 | ： XiaoXiao |
| URL | ： http://xxxleastxxx.blog28.fc2.com/ |
初めまして、ここの掲示板「WebPatio」が気に入り使わせてもらっています
掲示板を使っていてスレ作成者だけでなくレスしてくれる人にも画像をUP出来るように改造したいと思っています
まず「read.cgi」内部の「if」文で「スレ作成者」だけと指定されているのでそこを弄ればいいと考えました
しかし、いざ実践してみるとなかなかうまくいかずエラーが出てしまいます
もしよければ力を貸して貰えないでしょうか？
| 記事No | ： 212 |
| 投稿日 | ： 2007/04/12(Thu) 17:04:49 |
| タイトル | ： Re: WebPatioで誰でも画像をUP出来るようにしたい |
| ID情報 | ： tems |
| 投稿者 | ： BAL |
| URL | ： http://f43.aaa.livedoor.jp/~sumure/ |
> 初めまして、ここの掲示板「WebPatio」が気に入り使わせてもらっています
> 掲示板を使っていてスレ作成者だけでなくレスしてくれる人にも画像をUP出来るように改造したいと思っています
> まず「read.cgi」内部の「if」文で「スレ作成者」だけと指定されているのでそこを弄ればいいと考えました
> しかし、いざ実践してみるとなかなかうまくいかずエラーが出てしまいます
> もしよければ力を貸して貰えないでしょうか？
これでどうでしょうか。
●init.cgi基本設定に追加
# 返信記事にも画像をアップする (0=no 1=yes)
$resup = 1;
●read.cgi
#-------------------------------------------------
# スレッド閲覧
#-------------------------------------------------
-- 途中省略 --
# 表示範囲を定義
$from = $res - ($t_max * $p);
$to = $from + $t_max;
$i = 0;
while (<IN>) {
$i++;
if ($i <= $from) { next; }
if ($i > $to) { last; }
chop;
($no,$sub,$nam,$eml,$com,$dat,$ho,$pw,$url,$mvw,$myid,$tim,$upl{1},$upl{2},$upl{3}) = split(/<>/); ## ←修正
$com = &auto_link($com, $in{'no'});
print "<tr bgcolor=\"$col1\"><td bgcolor=\"$col3\" width=\"100%\">";
print "<img src=\"$imgurl/file.gif\"> <b>$sub</b> ";
print "<span class=\"num\">( No.$no )</span></td>";
print "</tr><tr bgcolor=\"$col1\"><td bgcolor=\"$col2\">\n";
print "<dl><dt>日時： $dat<dt>名前： <b>$nam</b>";
if ($eml && $mvw ne '0') {
print " <<a href=\"mailto:$eml\" class=\"num\">$eml</a>>";
}
if ($url) {
print "<dt>参照： <a href=\"$url\" target=\"_blank\">$url</a>\n";
}
print "<br><br>\n<dd>$com</dl>\n";
#▼ここから▼
local($dd_flg);
foreach $i (1 .. 3) {
local($ex,$w,$h) = split(/,/, $upl{$i});
next if (!$ex);
if (!$dd_flg) {
print "<dd>";
$dd_flg++;
}
if (defined($imgex{$ex})) {
local($w, $h) = &resize($w, $h);
print "<a href=\"$uplurl/$tim-$i$ex\" target=\"_blank\">";
print "<img src=\"$uplurl/$tim-$i$ex\" align=\"top\" border=\"0\" width=\"$w\" height=\"$h\" hspace=\"3\" vspace=\"5\"></a>\n";
} else {
print "[<a href=\"$uplurl/$tim-$i$ex\" target=\"_blank\">$tim-$i$ex</a>]\n";
}
}
#▲ここまで追加▲
if ($job ne "past") {
#-------------------------------------------------
# 個別記事閲覧
#-------------------------------------------------
-- 途中省略 --
local($flag, $top);
open(IN,"$logdir/$in{'f'}.cgi");
$top = <IN>;
while (<IN>) {
local($no,$sub,$nam,$eml,$com,$dat,$ho,$pw,$url,$mvw,$myid,$tim,$upl{1},$upl{2},$upl{3}) = split(/<>/); ## ←修正
if ($start == $no) { $flag=1; }
if (!$flag) { next; }
# 記事表示
print "<tr bgcolor=\"$col1\"><td bgcolor=\"$col3\" width=\"100%\">";
print "<img src=\"$imgurl/file.gif\"> <b>$sub</b> ";
print "<span class=num>( No.$no )</span></td></tr>\n";
print "<tr bgcolor=\"$col1\"><td bgcolor=\"$col2\">";
print "<dl><dt>日時： $dat<dt>名前： <b>$nam</b>";
if ($eml && $mvw ne '0') {
print " <<a href=\"mailto:$eml\" class=\"num\">$eml</a>>\n";
}
if ($url) {
print "<dt>参照： <a href=\"$url\" target=\"_blank\">$url</a>\n";
}
$com = &auto_link($com, $in{'f'});
print "<br><br>\n<dd>$com\n"; ## ←修正
#▼ここから▼
local($dd_flg);
foreach $i (1 .. 3) {
local($ex,$w,$h) = split(/,/, $upl{$i});
next if (!$ex);
if (!$dd_flg) {
print "<dd>";
$dd_flg++;
}
if (defined($imgex{$ex})) {
local($w, $h) = &resize($w, $h);
print "<a href=\"$uplurl/$tim-$i$ex\" target=\"_blank\">";
print "<img src=\"$uplurl/$tim-$i$ex\" align=\"top\" border=\"0\" width=\"$w\" height=\"$h\" hspace=\"3\" vspace=\"5\"></a>\n";
} else {
print "[<a href=\"$uplurl/$tim-$i$ex\" target=\"_blank\">$tim-$i$ex</a>]\n";
}
}
#▲ここまで追加▲
if (($ptn == 3 && $end == $no) || ($flag && $ptn == 1)) { last; }
}
close(IN);
print "</td></tr>\n"; ## ←追加
if (!$flag) {
#-------------------------------------------------
# フォーム内容
#-------------------------------------------------
-- 途中省略 --
# 新規スレは画像フォーム
if ($job eq "new" || $resup) { ## ←修正
●regist.cgi
#-------------------------------------------------
# 記事投稿処理
#-------------------------------------------------
-- 途中省略 --
# トリップ
$i_nam2 = &trip($i_nam);
# パスワード暗号化
if ($in{'pwd'} eq "") { $pwd = ""; }
else { $pwd = &encrypt($in{'pwd'}); }
#▼ここから▼
# ファイルアップ
local($upl_flg, %ex, %w ,%h);
if ($in{'upfile1'} || $in{'upfile2'} || $in{'upfile3'}) {
require $upload;
($ex{1},$w{1},$h{1},$ex{2},$w{2},$h{2},$ex{3},$w{3},$h{3}) = &upload($time);
# 画像アップのときはフラグを立てる
if ($ex{1} || $ex{2} || $ex{3}) { $upl_flg = $time; }
}
#▲ここまで追加▲
# 新規投稿（新規スレッド作成）
-- 途中省略 --
# スレッド名重複チェック
if ($flg) {
close(DAT);
&error("<b>「$in{'sub'}」</b>は既存スレッドと重複しています。<br>別のスレッド名を指定してください");
}
#▼ここから▼
# ファイルアップ
#local($upl_flg, %ex, %w ,%h);
#if ($in{'upfile1'} || $in{'upfile2'} || $in{'upfile3'}) {
#require $upload;
#($ex{1},$w{1},$h{1},$ex{2},$w{2},$h{2},$ex{3},$w{3},$h{3}) = &upload($time);
# 画像アップのときはフラグを立てる
#if ($ex{1} || $ex{2} || $ex{3}) { $upl_flg = $time; }
#}
#▲ここまでコメントアウト▲
# 現行index更新
-- 途中省略 --
# 記事数チェック
if ($m_max < $res+1) { &error("最大記事数をオーバーしたため投稿できません"); }
elsif ($m_max == $res+1) { $maxflag = 1; }
else { $maxflag = 0; }
# スレッド更新
$res++;
unshift(@file,"$no<>$sub<>$res<>1<>\n");
push(@file,"$newno<>$in{'sub'}<>$i_nam2<>$in{'email'}<>$i_com<>$date<>$host<>$pwd<>$in{'url'}<>$in{'mvw'}<>$my_id<>$time<>$ex{1},$w{1},$h{1}<>$ex{2},$w{2},$h{2}<>$ex{3},$w{3},$h{3}<>\n"); ## ←修正
| 記事No | ： 215 |
| 投稿日 | ： 2007/04/12(Thu) 22:19:16 |
| タイトル | ： Re^2: WebPatioで誰でも画像をUP出来るようにしたい |
| ID情報 | ： naruyosi |
| 投稿者 | ： なるよし |
| URL | ： http://w5.abcoroti.com/~nim/ |
編集時の処理部分がないと思います。
---[lib/edit_log.pl line:98- @WebPatio v3.12]----------------
98| # 画像
99| if (!$in{'no'} || $resup) { # ←編集
：
：
301| # 親記事は添付フォーム
302| if (!$in{'no'} || $resup) { # ←編集
----------------------------------------------------
| 記事No | ： 220 |
| 投稿日 | ： 2007/04/13(Fri) 18:54:06 |
| タイトル | ： Re^3: WebPatioで誰でも画像をUP出来るようにしたい |
| ID情報 | ： tems |
| 投稿者 | ： BAL |
| URL | ： http://f43.aaa.livedoor.jp/~sumure/ |
> 編集時の処理部分がないと思います。
親記事に画像修正機能が付いていますので返信記事の画像も修正できた方が確かに便利です。但し、返信記事時を修正した時にスレッド一覧に表示される修正したスレッドのタイトルに「Re:」が付くのでこの箇所はいじらない方が良いでしょう。
> # 親記事修正のとき
> if (!$in{'no'} || $resup) { # ←編集
| 記事No | ： 222 |
| 投稿日 | ： 2007/04/13(Fri) 23:52:11 |
| タイトル | ： Re^4: WebPatioで誰でも画像をUP出来るようにしたい |
| ID情報 | ： naruyosi |
| 投稿者 | ： なるよし |
| URL | ： http://w5.abcoroti.com/~nim/ |
BALさんありがとうございます。
一覧のデータはいじらないほうが好ましいですね。
ご指摘、ありがとうございます。
| 記事No | ： 240 |
| 投稿日 | ： 2007/04/16(Mon) 18:12:55 |
| タイトル | ： Re^5: WebPatioで誰でも画像をUP出来るようにしたい |
| ID情報 | ： kila5207 |
| 投稿者 | ： 綺羅 |
真似して変更してみたけどレスに添付出来ない｡･ﾟﾟ･(ノд≦*)･ﾟﾟ･｡ｴｰﾝ
他にも変更するところあるんですか？
よろしくお願いします(＞▽＜;; アセアセ
| 記事No | ： 244 |
| 投稿日 | ： 2007/04/16(Mon) 20:49:27 |
| タイトル | ： Re^6: WebPatioで誰でも画像をUP出来るようにしたい |
| ID情報 | ： naruyosi |
| 投稿者 | ： なるよし |
| URL | ： http://w5.abcoroti.com/~nim/ |
> 真似して変更してみたけどレスに添付出来ない｡･ﾟﾟ･(ノд≦*)･ﾟﾟ･｡ｴｰﾝ
> 他にも変更するところあるんですか？
> よろしくお願いします(＞▽＜;; アセアセ
綺羅さん、質問なのですが、
●init.cgi基本設定に追加
# 返信記事にも画像をアップする (0=no 1=yes)
$resup = 1;
の項目は追加しましたか？
| 記事No | ： 246 |
| 投稿日 | ： 2007/04/16(Mon) 22:17:06 |
| タイトル | ： Re^7: WebPatioで誰でも画像をUP出来るようにしたい |
| ID情報 | ： kila5207 |
| 投稿者 | ： 綺羅 |
| URL | ： http://bonds.orz.ne.jp/bbs/patio.cgi |
># 返信記事にも画像をアップする (0=no 1=yes)
>$resup = 1;
>の項目は追加しましたか？
一応追加してますねぇ(;´Д`A ```
追加する場所悪いのかﾅｧ・・・
＜追加場所＞
# 投稿キー画像の背景色
# → $bcと合わせると違和感がない
$back_col = '#F0F0F0';
# 返信記事にも画像をアップする (0=no 1=yes)
$resup = 1;
#===========================================================
# ◎設定完了
#===========================================================
| 記事No | ： 252 |
| 投稿日 | ： 2007/04/17(Tue) 00:21:50 |
| タイトル | ： Re^8: WebPatioで誰でも画像をUP出来るようにしたい |
| ID情報 | ： kila5207 |
| 投稿者 | ： 綺羅 |
| URL | ： http://bonds.orz.ne.jp/bbs/patio.cgi |
なるよしさんレス有り難うございました
なんとか自力で解決出来ました
edit_logの書き換えがうまく言ってなかったようです
お手数おかけしました
ｍ(ｏ・ _ ・ｏ)ｍ