| 行番号 |
修 正 個 所 （赤色の部分を挿入。青色の部分は修正） |
0024|
0025|
0026|
0027|
0028|
0029|
0030|
0031|
0032|
0033|
0034|
0035|
0036|
0037|
0038|
挿入|
挿入|
挿入|
0039|
0040|
0041|
0042|
0043|
0044|
0045|
0046|
0047|
0048|
0049|
0050|
0051|
0052|
0053|
0054|
0055|
0056|
0057|
0058|
0059|
0060|
0061|
0062|
0063|
0064|
0065|
0066|
0067|
0068|
0069|
0070|
0071|
0072|
0073|
0074|
0075|
0076|
0077|
0078|
0079|
0080| |
# タイトル名
$title = "Honey Board 〜 test 〜";
# タイトル文字の色
$t_color = "#DD0000";
# タイトル文字のタイプ
$t_face = "ＭＳ Ｐゴシック";
# タイトル文字サイズ（スタイルシートで有効）
$t_point = '18pt';
# 本文の文字サイズ（スタイルシートで有効）
$b_size = '10pt';
# 記事の文字サイズ（スタイルシートで有効）
$c_point = '12pt';
# スクリプト名
$script = "./honey.cgi";
# ログファイル名
$logfile = "./honey.log";
# 管理用パスワード
$pass = '2525';
# 最大記事数（これを超える記事は古い順に削除されます）
$max = 50;
# 戻り先
$home = "http://www4.plala.or.jp/privateHP/lufa.htm";
# 画像格納ディレクトリ（絶対パスなら http://から記述）
$imgurl = "./img";
# 背景色、文字色
$bgrnd = ""; # 壁紙
$bgcol = "#FFFFFF"; # 背景色
$text = "#000000"; # 文字色
$link = "#0000FF"; # リンク色：未訪問
$vlink = "#800080"; # リンク色：既訪問
$alink = "#DD0000"; # リンク色：訪問中
# 記事タイトル色 / 記事Noの色
$onepnt = "#008000";
# 文字色
@colors = ('#800000','#DF0000','#008040','#0000FF',
'#C100C1','#FF80C0','#FF8040','#000080');
# 記事フォントタイプ
$c_face = "ＭＳ ゴシック";
# 記事表示部「下地」の色 (1=白 2=グレー）
$oya_sita = 1; # 親記事
$res_sita = 2; # レス記事
# Ｅメールアドレスの必須入力 (0=no 1=yes)
$in_email = 0; |
0199|
0200|
0201|
0202|
0203|
0204|
0205|
0206|
0207|
0208|
0209|
0210|
0211|
0212|
0213|
0214|
0215|
0216|
0217|
0218|
0219|
0220|
0221|
0222|
|
#----------------#
# 記事表示処理 #
#----------------#
sub html {
&header;
print "<center>\n";
if ($banner1 ne "<!--上部-->")
{ print "$banner1<P>\n";
}
# タイトル部
if ($ImgT) {
print "<img src=\"$ImgT\"
width=$ImgW height=$ImgH alt=\"$title\">\n";
}
else {
print "<font color=\"$t_color\"
face=\"$t_face\" size=5\"><b>
<span
class=\"title\">$title</span></b></font>\n";
}
print <<"EOM";
<hr width="530">
[<a href="$home" target="_top">トップに戻る</a>]
[<a href="$script?mode=howto">使い方</a>]
[<a href="$script?mode=find">ワード検索</a>]
[<a href="$script?mode=admin">管理用</a>]
<hr width="530">
EOM
|
0294|
0295|
0296|
0297|
0298|
0299|
0300|
0301|
0302|
0303|
0304|
0305|
0306|
0307|
0308|
0309|
0310|
0311|
0312|
0313|
0314|
0315|
0316|
0317|
0318|
0319|
0320|
0321|
0322|
|
# 反転対象部分2
if ($flag == 0) {
print "</tr>";
print "<tr><td><img
src=\"$imgurl\/$gif[5]\" width=$pix
height=$pix></td>\n";
}
else {
print "<td width=$pix><br></td></tr>\n<tr>\n";
}
print "<td bgcolor=\"$iro\"><br></td>\n";
print "<td width=\"$wide\"
bgcolor=\"$iro\">\n";
print "<font color=\"$onepnt\"><b>$sub</b></font>
";
if (!$reno) { print "投稿者：";
}
print "<b>$name</b> <small>$date</small>
";
print "<font color=\"$onepnt\"><small>No\.$no</small></font>
";
if (!$reno) {
print "[<a href=\"$script?mode=res&no=$no\">返信</a>]
\n";
}
print "$url<br>\n";
print "<blockquote><SPAN class=\"kiji\">
<font
color=\"$color\"face=\"$c_face\">$com</font></SPAN>\n";
print "</blockquote></td><td
bgcolor=\"$iro\"><br></td>\n";
if ($flag == 1) {
print "<td><img src=\"$imgurl\/$gif[6]\"
width=$pix height=$pix></td>\n";
}
print "</tr><tr>\n";
|
0964|
0965|
0966|
0967|
0968|
0969|
0970|
0971|
0972|
0973|
0974|
0975|
0976|
0977|
0978|
0979|
挿入|
0980|
0981|
0982|
0983|
0984|
0985|
0986|
0987|
|
#--------------#
# HTMLヘッダ #
#--------------#
sub header {
$HEAD = 1; # ヘッダ表示フラグ
print "Content-type: text/html\n\n";
print <<"EOM";
<html>
<head>
<META HTTP-EQUIV="Content-type"
CONTENT="text/html; charset=Shift_JIS">
<STYLE TYPE="text/css">
<!--
body,tr,td,th { font-size:$b_size }
a:hover { color:$alink }
.title { font-size:$t_point }
.kiji { font-size:$c_point }
big { font-size:12pt }
small { font-size:9pt }
-->
</STYLE>
<title>$title</title></head>
<body background="$bgrnd" bgcolor="$bgcol"
text="$text"
link="$link"
vlink="$vlink" alink="$alink">
EOM
}
|