返信画面の改造

「Wing Multi BBS Professional (WMBP)」の返信画面を次のように改造しました。

1. 記事の下に表示されるツリーを、記事の上に移動する
2. 表示している記事をツリー内でハイライトする
3. 元記事を引用しない

記事の下に表示されるツリーを、記事の上に移動する

WMBP では返信画面で記事と入力フォームの間にツリーが表示されるようになっています。

ツリーが記事と入力フォームの間に表示されると、記事を参照しながら返事を書くのが大変です。特にツリーが巨大な場合、入力フォームと記事をスクロールしないといけなくなります。

記事・ツリー・入力フォームがどの順番で表示されるかは、スキンファイル（res.html）内の記述に関係なく、スクリプト（res.pm）に左右されます。

「res.pm」の以下の記述が記事とツリーの描画をつかさどる部分です。

1. main::browse($self->{"moji_code"},$self->{"gzip"});
2. print $skin->replace("header",\%skin);
4. Normalstyle::normalstyle(
5. $self->{"script_name"},
6. $self->{"bbsname"},
7. $skin,
8. 0,
9. $self->{"no"},
10. $self->{"oyano"},
11. $self->{"bbsname_dir"},
12. $self->{"html_url"},
13. $self->{"upload_dir"},
14. $self->{"log_dir"},
15. $self->{"newday"},
16. $self->{"line"}
17. );
19. if ($self->{"bbs_mode"} == 0){
20. require "$self->{'lib_dir'}/treeset.pl";
21. require "$self->{'lib_dir'}/paging.pl";
23. Treeset::new(
24. $self->{"script_name"},
25. $self->{"bbsname"},
26. $skin,
27. $self->{"oyano"},
28. $self->{"line"},
29. 0,
30. $self->{"bbsname_dir"},
31. $self->{"log_dir"},
32. $self->{"tree_file"},
33. $self->{"newday"},
34. $self->{"no"},
35. $self->{"treestyle1"},
36. $self->{"treestyle2"},
37. $self->{"treestyle3"},
38. $self->{"treestyle4"}
39. )->oyatree(\($self->{"kidokustyle"},$self->{"midokustyle"},%k_no));
40. }
41. }

これを以下の記述のように赤部分（記事）と青部分（ツリー）入れ替えてやると、ツリーの下に記事が表示されるようになります。

1. main::browse($self->{"moji_code"},$self->{"gzip"});
2. print $skin->replace("header",\%skin);
4. if ($self->{"bbs_mode"} == 0){
5. require "$self->{'lib_dir'}/treeset.pl";
6. require "$self->{'lib_dir'}/paging.pl";
8. Treeset::new(
9. $self->{"script_name"},
10. $self->{"bbsname"},
11. $skin,
12. $self->{"oyano"},
13. $self->{"line"},
14. 0,
15. $self->{"bbsname_dir"},
16. $self->{"log_dir"},
17. $self->{"tree_file"},
18. $self->{"newday"},
19. $self->{"no"},
20. $self->{"treestyle1"},
21. $self->{"treestyle2"},
22. $self->{"treestyle3"},
23. $self->{"treestyle4"}
24. )->oyatree(\($self->{"kidokustyle"},$self->{"midokustyle"},%k_no));
25. }
27. Normalstyle::normalstyle(
28. $self->{"script_name"},
29. $self->{"bbsname"},
30. $skin,
31. 0,
32. $self->{"no"},
33. $self->{"oyano"},
34. $self->{"bbsname_dir"},
35. $self->{"html_url"},
36. $self->{"upload_dir"},
37. $self->{"log_dir"},
38. $self->{"newday"},
39. $self->{"line"}
40. );
41. }

表示している記事をツリー内でハイライトする

記事の題名の横にはツリー内で「<< TARGET」と表示され、今読んでいる記事がツリーのどこに位置しているか分かるようになっています。これはスキンファイル内の %%target%% で指定されています。

一応、初期設定では茶色の斜体文字で表示されていますが、いまいち分かりにくいので、少し改造をほどこし題名を黄色でハイライトするようにしてみました。

「treeset.pl」内の以下のスクリプトで、スキンファイルに %%target%% と記述した時に挿入される文字列を決めます。

1. "target" => $self->{"target"} eq $no ? "&lt;&lt;TARGET" : "",

上の赤字部分を自分の好きな文字列に変更します（下の例では「current」）
これで %%target%% と書かれると「current」という文字列が挿入されるようになります。

1. "target" => $self->{"target"} eq $no ? "current" : "",

次はスキンファイル「res.html」を変更します。

<!--toptreestyle--><!--treestyle--> 以下に書かれている %%subject%% を次のようにします。

1. <span id="%%target%%">%%subject%%</span>

最後にスタイルシートで <span id="current"></span> の表示方法を指定します。

1. <style type="text/css">
2. <!--
3. #current { background-color: #ffff00; } // 背景＝黄色
4. -->
5. </style>

これで題名が黄色にハイライトされます。<span id="current"></span> で囲む部分を拡大する事で投稿者名や投稿日時もハイライト出来ます。

元記事を引用しない

入力フォームの中に元記事が入っていると、全部引用して最後に自分のコメントだけを入れる人がいます。
それを避けるために最初から入力フォームに元記事を入れないようにしてみました。

1. <textarea name="comment" wrap="off" rows=7 cols=70>%%comment%%</textarea>

次のように書き換えます（ %%comment%% を削除）。

1. <textarea name="comment" wrap="virtual" rows="7" cols="70"></textarea>

［サイト作成のヒント集に戻る］