| 記事No | ： 8599 |
| 投稿日 | ： 2011/06/19(Sun) 22:30:12 |
| タイトル | ： joyful note ホスト表示について |
| ID情報 | ： yuzuriha |
| 投稿者 | ： ユズリハ |
| URL | ： http://www4.airnet.ne.jp/mayumi/kanri/joyful.cgi |
joyfulnoteをはじめ、いろいろとお世話になっています。
今回、joyfulnoteを利用するにあたって、書き込み元のホストを表示させたいと思っています。
過去ログ等を調べて同様の質問を見つけ、以下のアドバイスの通りに設定を変えてみましたが、表示されるホストがすべて私のものになってしまいます。
私が書き込んだ場合は当然そうなのですが、他の人が書き込みしても表示されるホストは私のものです。
この設定を試す前に私自身でいろいろと試していたのでそのせいかと思い、再度ダウンロードからやり直して以下の設定部分だけ直してみたのですがやはり同じ症状です。
何か他に改善すべき点があるのは明らかなのですが、まったく検討がつきません。
お心当たりのある方おられましたらぜひアドバイスいただければ幸いです。
よろしくお願いします。
admin.cgi 159行目付近
$nam{$no} = $name;
$eml{$no} = $eml;
$sub{$no} = $sub;
$dat{$no} = $date;
$com{$no} = $com;
$col{$no} = $col;
$url{$no} = $url;
$ext{$no} = $ex;
$imw{$no} = $w;
$imh{$no} = $h;
$chk{$no} = $chk;
$host{$no} =$host; ## ←追加
191行目付近及び202行目付近
foreach (@view) {
# チェックボックス
print "<dt><hr><input type=\"checkbox\" name=\"no\" value=\"$_\"><b style=\"color:$subcol\">$sub{$_}</b> - ";
print "<b>$nam{$_}</b> $dat{$_} <font color=\"$subcol\">No.$_</font>【$host{$_}】\n"; ## ←修正
if ($ext{$_}) {
print "<<a href=\"$imgurl$_$ext{$_}\" target=\"_blank\">添付</a>";
if ($ImageCheck && $chk{$_} eq '0') { print ":未許可"; }
print ">";
}
# レス記事
foreach $res ( split(/,/, $res{$_}) ) {
print "<dd><input type=\"checkbox\" name=\"no\" value=\"$res\"><b style=\"color:$subcol\">$sub{$res}</b> - ";
print "<b>$nam{$res}</b> $dat{$res} <font color=\"$subcol\">No.$res</font>【$host{$res}】\n"; ## ←修正
| 記事No | ： 8600 |
| 投稿日 | ： 2011/06/20(Mon) 00:12:47 |
| タイトル | ： Re: joyful note ホスト表示について |
| ID情報 | ： chat |
| 投稿者 | ： ひらり |
こんにちは。
joyful.cgiの124行目付近に以下を追加してください。
$nam{$no} = $name;
$eml{$no} = $eml;
$sub{$no} = $sub;
$dat{$no} = $date;
$com{$no} = $com;
$col{$no} = $col;
$url{$no} = $url;
$host{$no} = $host;#追加
そうしたら、
154行目付近に追加変更。
print "<span style=\"color:$subcol\">No.$_ </span> ";
↓
print "<span style=\"color:$subcol\">No.$_ [$host{$_}] </span> ";
200行目付近に追加変更。
print "$dat{$res} <span style=\"color:$subcol\">No.$res</span> ";
↓
print "$dat{$res} <span style=\"color:$subcol\">No.$res [$host{$res}]</span> ";
返信フォームのところも同じように330行目付近の
$chk{$no} = $chk;
の下に
$host{$no} = $host;
を追加して、
360行目付近
print "<span style=\"color:$subcol\">No.$resfm</span> ";
↓
print "<span style=\"color:$subcol\">No.$resfm [$host{$resfm}]</span> ";
386行目付近
print "$dat{$res} <span style=\"color:$subcol\">No.$res</span> ";
↓
print "$dat{$res} <span style=\"color:$subcol\">No.$res $host{$res}</span> ";
のようにしてみたらどうでしょうか？
バックアップをとってから試してみてください。
| 記事No | ： 8603 |
| 投稿日 | ： 2011/06/20(Mon) 22:08:17 |
| タイトル | ： Re^2: joyful note ホスト表示について |
| ID情報 | ： yuzuriha |
| 投稿者 | ： ユズリハ |
＞ひらり様
アドバイスありがとうございます！
さっそく、ご指摘の箇所を訂正してみましたら無事に表示されました。ありがとうございました。