#!/usr/bin/perl
# ↑ Perl処理系のパスを指定。不明な場合はプロバイダかサーバー管理者に確認。
# マルチ里親募集型掲示板 [ハイパー里親募集BBS]
# - Version 2.16 / Aug 4, 2003 / Freesoft
# - Copyright(C)2003 WEB POWER. All Rights Reserved.
# - 最新版・最新情報は (管理人) ';
# ○ 使用規制ワード (複数個の場合はホワイトスペースで区切る)
# * しつこい宣伝URLなどを登録しておくとよいでしょう。
# * 正規表現は使えません。形態素解析等はされません。
# * 例えば、「カー」は「サーカー」「カーテン」「スカーフ」等の「カー」を含
# むすべてのメッセージに反応します。意図しないメッセージまで規制する場合
# があります。短い単語は避け、規制は必要最小限にしましょう。
@NGWord = qw(cheap link=http:// pharmacy penis naked comment vagina teens nude anal porn lolita fuck pussy hardcore asian-girls pharmacy mammamia propecia 馬鹿 バカ 殺すぞ お前 販売 258bag.com);
#---<パスについて>-------------------------------------------------------------
#
# ・ パスとはサーバー内での場所です。httpで始まるURIとは違うものです。
# ・ 相対パスとはスクリプトの場所を基準としたパスの指定です。
# ../ => 1つ上のディレクトリ ./ => 同じディレクトリ
# ・ 絶対パスとはサーバー内の一番上のディレクトリを基準としたパスの指定です。
# /usr/lib/sendmail /home/foo/public_html/cgi-bin/script.cgi
# ・ 仮想アドレスとはURIの一部分(ドメイン名以降)を指します。
# http://www.domain.com/~foo/cgi-bin/script.cgi
# ^ ドメイン名の後のスラッシュ"/"以降の部分
# (/~foo/cgi-bin/script.cgi のこと)
# ○ 日本語変換ライブラリ jcode.plの[パス]
require 'jcode.pl';
# ○ CGI標準入出力ライブラリ stdio.pl の[パス]
# * 必ず同梱のものを使ってください
require 'stdio.pl';
# ◎ メール送信コマンド sendmail の[パス]
# * メール送信関連機能を使用しない(できない)場合はコメントアウト
$sendmail = '/usr/sbin/sendmail';
# ○ データ格納用ディレクトリの[パス]
# * このディレクトリのパーミッションは<777>or<707>にする
$DataDir = 'data/';
# ○ データファイルのファイル名 (ファイル名であってパスではない)
# * データを記録するファイル
$DataName = 'data.txt';
# ○ 添付ファイル格納用ディレクトリのパス
# * このディレクトリのパーミッションは<777>or<707>にする
# * このディレクトリはWebから直接参照できる場所を指定
$FileDir = 'file/';
# △ ↑の場所をURL(http://..)で指定する
$FileUrl = 'http://www.wnlll.com/search/wanoya2/file/';
#------------------------------------------------------------------------------
# ○ 里親募集一覧ページ : 里親募集名表示部分の背景色 (1と2を交互表示)
$bgColor1 = '#ffffff'; $bgColor2 = '#F4F4D3';
# ○ 里親募集一覧ページ : 管理者が立てた里親募集名表示部分の背景色
$bgColor8 = '#FFCCCC';
# ○ 里親募集一覧ページ : 項目名の背景色と文字色
$bgColor3 = '#99cccc'; $ftColor3 = '#ffffff';
# ○ 里親募集作成・投稿ページ : タイトルバーの背景色と文字色
$bgColor4 = '#99cccc'; $ftColor4 = '#FFFFFF';
# ○ 里親募集作成・投稿ページ : フォーム項目名の背景色と文字色
$bgColor5 = '#ffcccc'; $ftColor5 = '#FFFFFF';
# ○ 里親募集閲覧ページ : 里親募集のタイトルバーの背景色と文字色
$bgColor6 = '#e6e6fa'; $ftColor6 = '#6600cc';
# ○ 里親募集閲覧ページ : 管理者が立てた里親募集のタイトルバーの背景色と文字色
$bgColor0 = '#e6e6fa'; $ftColor0 = '#6600cc';
# ○ 里親募集閲覧ページ : メッセージのタイトルバーの背景色と文字色
$bgColor7 = '#ffcccc'; $ftColor7 = '#6600cc';
# ○ 里親募集閲覧ページ : 管理者が投稿したメッセージのタイトルバーの背景色と文字色
$bgColor9 = '#99cccc'; $ftColor9 = '#6600cc';
# ○ 引用部分の文字色
$quote_color = '#808080';
# ○ BODY要素の属性 (の****の部分)
$SET{'Body'} = ' bgcolor=#ccccff link=#cc33cc vlink=#0000FF alink=#bf0000 background=image/bk7_t.jpg TOPMARGIN=0 LEFTMARGIN=0 MARGINHEIGHT=0 MARGINWIDTH=0';
# ○ タイトル (等で表示)
$SET{'Title'} = 'Ｗａｎ里親探し';
# ● 各ページの上部に表示する文字列
$SET{'Header'} =<<'_EOF_';
<!-- ヘッダー広告を挿入する場合はここにHTMLを記述 -->
<div align="center">
<TABLE border="0" cellspacing="0" cellpadding="0">
<TR>
<TD align="center" valign="middle"><img src="../image/sear_oyawan.gif"></TD>
</TR>
</table>
<p align=center><a href="search.cgi?mode=newtopic">里親を募集する</a> || <a href="search.cgi">里親募集一覧</a> || <a href="search.cgi?mode=mylist">ウォッチリスト</a> || <a href="http://www.wnlll.com/search/index.html">里親トップ</a></p>
<p><font color="ff0000">2009/9/27--こちらの掲示板は金銭の発生する里親里子は基本的に認めておりません。
<br>ＷＮＬＬＬでは、責任もって飼ってくださる里親の方、<br>諸事情でどうしても手放ければならない方の情報を公開する目的で運営しております。<br>再度ご確認ください。</font></p>
_EOF_
# ↑ ここまで (_EOF_行は削除しない)
# ○ 里親募集一覧ページのフッター
$SET{'Footer'} =<<'_EOF_';
<!-- フッター広告を挿入する場合はここにHTMLを記述 -->
_EOF_
# ↑ ここまで (_EOF_行は削除しない)
# ○ 投稿フォームの下に表示する文字列
$SET{'Center'} = <<'_EOF_';
<dl>
<dd><b><font color=blue>★ワンポイント</font></b>
<dd> ※ "#{xx}" で当該里親募集へリンクを設定できます。(例: #{10})
<dd> ※ ">>xx" で同一里親募集内の当該メッセージへのリンクを設定できます。(例: >>26 >>1-100)
<dd> ※ 名前欄に 「#passcode」を加えることでパスコードになります。("passcode"は6〜10バイトの任意の文字列)
<dd> ※ メールアドレスを公開しないでメールを受け取るには[アドレス非公開]をチェックします。
</dl>
</font>
<!-- フッター広告を挿入する場合はここにHTMLを記述 -->
_EOF_
# ↑ ここまで (_EOF_行は削除しない)
# ○ 投稿の際の承諾事項(確認ページに表示しない場合は無効)
# * 確認ページの投稿ボタンの上に表示されます。
$SET{'Warning'} = <<'_EOF_';
<dl>
<dd><b><font color=red>！ご注意！</font></b>
<dd> - <font color=red>ご自身の投稿されたメッセージに関する全責任は投稿者自身に帰します。</font>
<dd> - 誹謗中傷、個人情報、著作権侵害等の投稿は削除されます。場合によっては法的責任を問われる場合があります。
<dd> - 投稿内容は管理者の裁量により、連絡なしに削除・編集される場合があります。
<dd> - 投稿内容は不特定多数が閲覧可能な状態となります。出典明記無しに引用・転載される場合があります。
<dd> - アクセスログはすべてサーバーに記録されます。%REMOTE_HOST (%REMOTE_ADDR)
</dl>
</font>
<p align="center"><b>投稿内容をご確認の上、上記事項に承諾されましたら下の投稿ボタンを一度だけ押してください</b></p>
_EOF_
# ↑ ここまで (_EOF_行は削除しない)
#---<特殊な設定>---------------------------------------------------------------
#
# 通常は自動的にセットされるため設定不要。ただし、CGI-WRAP等を採用して
# いるサーバー(interQ等)は、設定する必要がある。
# * 設定した場合は、$の前のシャープ"#"を取り除く
# ◎ サーバー名 (通常は設定不要)
# * "www.hostname.jp"と"hostname.jp"のようにアクセスできるホスト名が複数ある
# 場合、標準として使うホスト名を指定します。
#$SENV{'SERVER_NAME'} = 'www.hostname.jp';
# ◎ このCGIの仮想パス (通常は設定不要)
# * URLが不自然に長くなっていく場合は設定してください。
# * ホスト名の"/"以降の部分が仮想パスです。
#$SENV{'SCRIPT_PATH'} = '/~foo/cgi-bin/sbbs.cgi';
# ◎ URLが不自然に長くなっていく場合はコメントを解除
#$ENV{'PATH_INFO'} = "";
#───────────────────────────────────────#
# 初期設定ここまで (以下1バイトでも変更した場合の動作保証＆サポートは一切なし) #
#━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━#
$VERSION = "\x48\x59\x50\x45\x52\x5f\x54\x48\x52\x45\x41\x44\x5f\x42\x42\x53\x2f\x32\x2e\x31\x36"; # 修正禁止.
$stdio::ver = $stdio::ver;
if ($stdio::ver != 6.27) {
showErrorMessage('301 初期設定 [例外発生]', undef, "ライブラリエラー", "ライブラリ[stdio.pl]は同梱のバージョン(6.27)を使用してください。");
}
# 漢字コード認識
if (ord "漢" == 0xb4 || ord "漢" == -76) {
$jcode = "euc";
$CharSet = '; charset=EUC-JP';
} elsif (ord "漢" == 0x8a || ord "漢" == -118) {
$jcode = "sjis";
$CharSet = '; charset=Shift_JIS';
} elsif (ord "漢" == 0x1b) {
$jcode = "jis";
$CharSet = '; charset=ISO-2022-JP';
}
#$MetaContentType = qq|<meta http-equiv=Content-Type content="text/html$CharSet">\n| if ($CharSet);
# 独自環境変数の設定
setEnv();
$SET{'MaxSize'} *= 1024;
$DataFile = $DataDir . $DataName;
$SET{'SearchAll'} = $SET{'SearchAll'} ? '' : ' disabled="disabled"';
# バッファをフラッシュする
$| = 1;
# 標準入力からデータ読込
%STDIN = ();
stdio::setQueryString(*STDIN, 1, $jcode, 1);
# メイン関数呼出
main();
exit(0);
#----------------------------------------------------------
# ■ メインルーチン (void) = main(void)
#
# 呼出元 : (開始)
# 引 数 : (なし)
# 戻り値 : (なし)
#----------------------------------------------------------
sub main #(void)
{
fileStringCheck($STDIN{'Code'}, $STDIN{'unique'}, $STDIN{'topic'});
# パスワード設定ページ
if (!-f "$DataFile.passwd.cgi") {
setPassword();
# パスワード読込
} else {
open(IN, "$DataFile.passwd.cgi");
$E{'Passwd'} = <IN>;
close(IN);
chomp($E{'Passwd'});
}
# 新しい里親募集作成ページ
if ($STDIN{'mode'} eq 'newtopic') {
showNewTopic_addPage();
# 引用
} elsif ($STDIN{'quote'} ne "") {
quote($STDIN{'Code'});
# 里親募集拡張
} elsif ($SET{'ExtendTopic'} && $STDIN{'extend'} ne "") {
showNewTopic_addPage(undef, undef, $STDIN{'Code'});
# ファイル添付
} elsif ($STDIN{'mode'} eq 'attach') {
attachFile($STDIN{'unique'});
# 里親募集作成
} elsif ($STDIN{'mode'} eq 'mktopic') {
outputNewTopic();
# メッセージ書き込み
} elsif ($STDIN{'mode'} eq 'newmsg') {
outputNewMessage();
# メッセージ削除
} elsif ($STDIN{'mode'} eq 'remove') {
removeMessage($STDIN{'Code'});
# 里親募集の一括削除
} elsif ($STDIN{'mode'} eq 'multiremove') {
Remove_MultiThread();
# 全文検索
} elsif ($STDIN{'Keyword'} ne "" && $STDIN{'target'} eq 'all' && $SET{'SearchAll'} eq "") {
searchAll();
# メッセージ一覧表示
} elsif ($STDIN{'mode'} eq 'view' && $STDIN{'target'} ne 'title') {
showTopicMessages();
# ウォッチリストへの追加・削除
} elsif ($STDIN{'mode'} eq 'add' || $STDIN{'mode'} eq 'rmlist') {
Edit_Mylist();
# 匿メール送信ページ表示
} elsif ($STDIN{'mode'} eq 'mail') {
showSendmailFormPage($STDIN{'topic'}, $STDIN{'Code'});
# 匿メール送信
} elsif ($STDIN{'mode'} eq 'sendmail') {
anonymousSendmail($STDIN{'topic'}, $STDIN{'Code'});
# 管理モードログインページ
} elsif ($STDIN{'mode'} eq 'admin') {
Show_AdminPage();
}
# 里親募集一覧表示
showTopics();
return;
}
#----------------------------------------------------------
# ■ 里親募集一覧表示 (void) = showTopics(void)
#
# 呼出元 : main()
# 引 数 : (なし)
# 戻り値 : (なし)
#----------------------------------------------------------
sub showTopics #()
{
#--- 変数宣言 ---#
local(@record, %COOKIE);
my($lines, $top, $under);
%COOKIE = ();
stdio::getCookie(*COOKIE, "$SET{'CookieName'}.2");
$noread_cookie = $COOKIE{'R'};
if ($STDIN{'target'} eq "title") {
$STDIN{'target'} = "" if ($STDIN{'Keyword'} =~ /^[\s ]*$/);
$mylist = qq|<font color="gray">※<b>$STDIN{'Keyword'}</b>の検索結果を表\示しています。(最大50件)</font>|;
$query = qq|;mode=search;target=title;mhmode=$STDIN{'mhmode'};aimai=$STDIN{'aimai'};Keyword=| . stdio::urlencode($STDIN{'Keyword'});
$search = qq|;mode=view;target=thread;mhmode=$STDIN{'mhmode'};aimai=$STDIN{'aimai'};Keyword=| . stdio::urlencode($STDIN{'Keyword'});
} elsif ($STDIN{'mode'} eq 'mylist') {
foreach (split /\//, $COOKIE{'W'}) {
push @mylist, $_;
}
if (!@mylist) {
$mylist = '<font color="gray">※ウォッチリストに登録されている里親募集はありません</font>';
} else {
$mylist = '<font color="gray">※ウォッチリストに登録されている里親募集のみを表\示しています</font>';
}
$query = ';mode=mylist';
}
$STDIN{'start'} = 1 if (!$STDIN{'start'} || $IN{'start'} =~ /\D/);
# データファイル読み込み $STDI
$lines = stdio::readFile1($DataFile, *record, $STDIN{'start'}, $SET{'TopicMax'}, $E{'UseLock'}, undef, @mylist);
if ($lines == -2) {
showErrorMessage('110 排他制御中 (排他的ロック)', 'しばらくお待ちください', '只今 混雑しています', '只今、システムに多大なアクセス要求が寄せられ、処理しきれない状況です。10秒後に自動的に再試行されます。申し訳ありませんが、今しばらくお待ちください。<br> 再度、このエラーが表示された場合、ある程度の時間をおいて、もう一度アクセスしてください。', 1);
} elsif ($lines == -3) {
showErrorMessage('101 ファイル読込エラー', undef, 'データファイルの読み込みに失敗しました', 'データファイルからの読み込みに失敗しました。誤った設定がなされている可能性があります。データファイルの属性(パーミッション)が正しく設定されているかを確認してください。');
}
# HTML表示開始
print "Content-Type: text/html", $CharSet, "\n";
print "\n";
print <<_EOF_;
<html>
<head>
<title>$SET{'Title'}
$SET{'Header'}
_EOF_
$top = <<_EOF_;
_EOF_
# for Administrator only
if (checkAdminMode()) {
my($size) = $stdio::size;
$stdio::size = $stdio::size;
$size += (-s "$DataDir$DataName");
1 while $size =~ s/([\dA-Fa-f]+)([\dA-Fa-f]{3})/$1,$2/;
$under = <<_EOF_;
※ [新]マークの付いている里親募集は、一度閲覧した後に新しいメッセージが投稿された里親募集です。背景色がこの色 の里親募集は、管理人が立てた里親募集です。
管理者専用 使用ディスクスペース : $size bytes (添付ファイルは除く)
_EOF_
}
print "この掲示板には里親募集がありません " if (!showList(*record, $STDIN{'start'}, $lines-1, $SET{'TopicMax'}, $query, "showTopicType", $top, $under));
if ($STDIN{'mhmode'} eq "OR") {
$checked{'OR'} = ' selected';
} elsif ($STDIN{'mhmode'} eq "BOOLEAN") {
$checked{'BOOLEAN'} = ' selected';
} else {
$checked{'AND'} = ' selected';
}
if ($STDIN{'aimai'}) {
$checked{'aimai'} = ' checked';
}
print <<_EOF_;
$SET{'Footer'}
_EOF_
# ↑ ページ内に掲示板管理者への連絡方法(メールアドレス or 問い合わせページへのリンク)は必ず明示してください。
# !注意! この部分を無許諾に削除・改竄されますと不正使用(著作権侵害・ライセンス違反)となります。
# !WARN! If you remove this part without an author's agreement, you infringe on copyright and will be punished by law.
print <<_EOF_;
';
# ○ ファイル添付里親募集に付けるマーク
$SET{'AttachImage'} = '
';
# ○ 未読新記事里親募集に付けるマーク
$SET{'NoreadImage'} = '
';
# ○ 時間帯 (GMT=英国ロンドンとの時差 日本は9時間)
$SET{'TimeZone'} = 9;
# ○ ページあたりの最大記事表示件数
$SET{'PageMax'} = 20;
# ○ ページあたりの最大里親募集表示件数
$SET{'TopicMax'} = 50;
# ○ 里親募集の拡張を許可 (0:しない／1:する)
$SET{'ExtendTopic'} = 1;
# ○ 解決マーク機能を (0:付けない／1:付ける)
# * 管理モードの場合、いつでも解決チェックができます。
$SET{'UseSolved'} = 1;
# △ 解決済み里親募集への投稿を許可 (0:しない／1:する)
# * 解決済み里親募集への投稿を許可しない場合、悪戯防止のため、
# 解決チェックを里親募集作成者に限定することを推奨します。
# * 管理モードの場合、いつでも投稿及び解決キャンセルができます。
$SET{'PostSolved'} = 1;
# △ 解決チェックは (0:里親募集作成者or管理者のみ／1:誰でも)
$SET{'SetSolved'} = 1;
# ● 管理者メールアドレス
$SET{'AdminEmail'} = 'info@wnlll.com';
# ○ 匿メール機能を (0:使わない／1:使う)
$SET{'UseTokumail'} = 1;
# ○ 投稿があったら管理者宛にメール通知 (0:しない／1:する)
$SET{'SendMail'} = 1;
# ○ クッキーの名前 (通常変更不要)
$SET{'CookieName'} = 'HyperThread';
# ○ 添付ファイル1個の制限キロバイト数
# * ファイル添付機能を使わない場合は 0 にする
# * 巨大なファイルは受信できません。(最大 128KB)
$SET{'MaxSize'} = 128;
# △ 添付可能ファイルの個数
$SET{'MaxFile'} = 3;
# △ 里親募集への投稿の際もファイル添付を許可 (1:する／0:しない)
$SET{'AttachRepaly'} = 1;
# ○ メッセージがある里親募集の削除を許可 (0:する／1:しない)
$SET{'NoRemove'} = 0;
# ○ ID(IPを暗号化したもの 同じIPでも日付ごとに異なる)表示 (1:する／0:しない)
$SET{'ID-ON'} = 1;
# ○ 里親募集内に投稿フォームを (1:付ける／0:付けない)
$SET{'FORM_ON'} = 1;
# ○ 新規里親募集作成を管理者のみに限定 (1:する／0:しない)
# * 里親募集作成時には、里親募集作成フォームに管理者用パスワードを入力する。
$SET{'AdminOnly'} = 0;
# ○ 投稿前に確認ページを表示 (1:する <推奨>／0:しない)
# * 表示する場合でも、ユーザーが任意で2回目以降はスキップできます。
$SET{'Confirm'} = 1;
# ○ 全文検索機能を (1:使う／0:使わない)
# * データ容量が大きい場合(数メガバイトある)は使わないでください。
# (サーバー負荷が大きくなります。必要な場合は「Namazu」を使いましょう)
$SET{'SearchAll'} = 1;
# ○ 管理者投稿メッセージの名前と後に付ける識別子
$SET{'AdminPlus'} = ' (管理人)';
# ○ 使用規制ワード (複数個の場合はホワイトスペースで区切る)
# * しつこい宣伝URLなどを登録しておくとよいでしょう。
# * 正規表現は使えません。形態素解析等はされません。
# * 例えば、「カー」は「サーカー」「カーテン」「スカーフ」等の「カー」を含
# むすべてのメッセージに反応します。意図しないメッセージまで規制する場合
# があります。短い単語は避け、規制は必要最小限にしましょう。
@NGWord = qw(cheap link=http:// pharmacy penis naked comment vagina teens nude anal porn lolita fuck pussy hardcore asian-girls pharmacy mammamia propecia 馬鹿 バカ 殺すぞ お前 販売 258bag.com);
#---<パスについて>-------------------------------------------------------------
#
# ・ パスとはサーバー内での場所です。httpで始まるURIとは違うものです。
# ・ 相対パスとはスクリプトの場所を基準としたパスの指定です。
# ../ => 1つ上のディレクトリ ./ => 同じディレクトリ
# ・ 絶対パスとはサーバー内の一番上のディレクトリを基準としたパスの指定です。
# /usr/lib/sendmail /home/foo/public_html/cgi-bin/script.cgi
# ・ 仮想アドレスとはURIの一部分(ドメイン名以降)を指します。
# http://www.domain.com/~foo/cgi-bin/script.cgi
# ^ ドメイン名の後のスラッシュ"/"以降の部分
# (/~foo/cgi-bin/script.cgi のこと)
# ○ 日本語変換ライブラリ jcode.plの[パス]
require 'jcode.pl';
# ○ CGI標準入出力ライブラリ stdio.pl の[パス]
# * 必ず同梱のものを使ってください
require 'stdio.pl';
# ◎ メール送信コマンド sendmail の[パス]
# * メール送信関連機能を使用しない(できない)場合はコメントアウト
$sendmail = '/usr/sbin/sendmail';
# ○ データ格納用ディレクトリの[パス]
# * このディレクトリのパーミッションは<777>or<707>にする
$DataDir = 'data/';
# ○ データファイルのファイル名 (ファイル名であってパスではない)
# * データを記録するファイル
$DataName = 'data.txt';
# ○ 添付ファイル格納用ディレクトリのパス
# * このディレクトリのパーミッションは<777>or<707>にする
# * このディレクトリはWebから直接参照できる場所を指定
$FileDir = 'file/';
# △ ↑の場所をURL(http://..)で指定する
$FileUrl = 'http://www.wnlll.com/search/wanoya2/file/';
#------------------------------------------------------------------------------
# ○ 里親募集一覧ページ : 里親募集名表示部分の背景色 (1と2を交互表示)
$bgColor1 = '#ffffff'; $bgColor2 = '#F4F4D3';
# ○ 里親募集一覧ページ : 管理者が立てた里親募集名表示部分の背景色
$bgColor8 = '#FFCCCC';
# ○ 里親募集一覧ページ : 項目名の背景色と文字色
$bgColor3 = '#99cccc'; $ftColor3 = '#ffffff';
# ○ 里親募集作成・投稿ページ : タイトルバーの背景色と文字色
$bgColor4 = '#99cccc'; $ftColor4 = '#FFFFFF';
# ○ 里親募集作成・投稿ページ : フォーム項目名の背景色と文字色
$bgColor5 = '#ffcccc'; $ftColor5 = '#FFFFFF';
# ○ 里親募集閲覧ページ : 里親募集のタイトルバーの背景色と文字色
$bgColor6 = '#e6e6fa'; $ftColor6 = '#6600cc';
# ○ 里親募集閲覧ページ : 管理者が立てた里親募集のタイトルバーの背景色と文字色
$bgColor0 = '#e6e6fa'; $ftColor0 = '#6600cc';
# ○ 里親募集閲覧ページ : メッセージのタイトルバーの背景色と文字色
$bgColor7 = '#ffcccc'; $ftColor7 = '#6600cc';
# ○ 里親募集閲覧ページ : 管理者が投稿したメッセージのタイトルバーの背景色と文字色
$bgColor9 = '#99cccc'; $ftColor9 = '#6600cc';
# ○ 引用部分の文字色
$quote_color = '#808080';
# ○ BODY要素の属性 (の****の部分)
$SET{'Body'} = ' bgcolor=#ccccff link=#cc33cc vlink=#0000FF alink=#bf0000 background=image/bk7_t.jpg TOPMARGIN=0 LEFTMARGIN=0 MARGINHEIGHT=0 MARGINWIDTH=0';
# ○ タイトル (