KENT-WEB サポートコーナー 過去ログ [ 0051 ]


記事No: 184
投稿日: 2007/04/10(Tue) 21:27:22
タイトルWebPatioで誰でも画像をUP出来るようにしたい
ID情報: XiaoXiao
投稿者: XiaoXiao
URLhttp://xxxleastxxx.blog28.fc2.com/

初めまして、ここの掲示板「WebPatio」が気に入り使わせてもらっています
掲示板を使っていてスレ作成者だけでなくレスしてくれる人にも画像をUP出来るように改造したいと思っています
まず「read.cgi」内部の「if」文で「スレ作成者」だけと指定されているのでそこを弄ればいいと考えました
しかし、いざ実践してみるとなかなかうまくいかずエラーが出てしまいます
もしよければ力を貸して貰えないでしょうか?


記事No: 212
投稿日: 2007/04/12(Thu) 17:04:49
タイトルRe: WebPatioで誰でも画像をUP出来るようにしたい
ID情報: tems
投稿者: BAL
URLhttp://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 "&nbsp; &lt;<a href=\"mailto:$eml\" class=\"num\">$eml</a>&gt;";
}
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 "&nbsp; &lt;<a href=\"mailto:$eml\" class=\"num\">$eml</a>&gt;\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
投稿者: なるよし
URLhttp://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
URLhttp://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
投稿者: なるよし
URLhttp://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
投稿者: なるよし
URLhttp://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
投稿者: 綺羅
URLhttp://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
投稿者: 綺羅
URLhttp://bonds.orz.ne.jp/bbs/patio.cgi

なるよしさんレス有り難うございました
なんとか自力で解決出来ました
edit_logの書き換えがうまく言ってなかったようです
お手数おかけしました
m(o・ _ ・o)m


[検索ページ]