#!/usr/local/bin/perl
use KCatch;
# 文字コードライブラリ取込
require './jcode.pl';
# タイトル名を指定
$title = "兵高教組行きつけの居酒屋";
# タイトルの色
$t_color = "#008080";
# タイトルの大きさ（ポイント数:スタイルシートで有効）
$t_size = '18pt';
# タイトル文字のフォントタイプ
$t_face = "ＭＳ Ｐゴシック";
# 本文の文字大きさ（ポイント数:スタイルシートで有効）
$b_size = '11pt';
# 壁紙を指定する場合（http://から指定）
$backgif = "";
# 背景色を指定
$bgcolor = "#E1F0F0";
# 文字色を指定
$text = "#000000";
# リンク色を指定
$link = "#0000FF"; # 未訪問
$vlink = "#800080"; # 訪問済
$alink = "#FF0000"; # 訪問中
# 戻り先のURL (index.htmlなど)
$homepage = "../";
# 最大記事数
$max = 100;
# 管理者用マスタパスワード (英数字で８文字以内)
$pass = 'tel4389';
# アイコン画像のある「ディレクトリ」
# → フルパスなら http:// から記述する
# → 最後は必ず / で閉じる
$imgurl = "./img/";
# アイコンを定義（上下は必ずペアで）
@icon1 = ('bear.gif','cat.gif','cow.gif','dog.gif','fox.gif','hituji.gif',
'monkey.gif','zou.gif','mouse.gif','panda.gif','pig.gif','usagi.gif');
@icon2 = ('くま','ねこ','うし','いぬ','きつね','ひつじ',
'さる','ぞう','ねずみ','パンダ','ぶた','うさぎ');
# 管理者専用アイコン機能 (0=no 1=yes)
# → 【使い方】記事投稿時に「管理者アイコン」を選択し、パスワードに
# 「管理用パスワード」を入力して下さい。
$my_icon = 0;
# 管理者専用アイコンの「ファイル名」を指定
$my_gif = 'admin.gif';
# アイコンモード (0=no 1=yes)
$icon_mode = 1;
# 返信がつくと親記事をトップへ移動 (0=no 1=yes)
$topsort = 1;
# タイトルにGIF画像を使用する時 (http://から記述)
$title_gif = "";
$tg_w = 150; # GIF画像の幅 (ピクセル)
$tg_h = 50; # 〃 高さ (ピクセル)
# ファイルロック形式
# → 0=no 1=symlink関数 2=mkdir関数
$lockkey = 0;
# ロックファイル名
$lockfile = './lock/yybbs.lock';
# ミニカウンタの設置
# → 0=no 1=テキスト 2=GIF画像
$counter = 1;
# ミニカウンタの桁数
$mini_fig = 6;
# テキストのとき：ミニカウンタの色
$cnt_color = "#DD0000";
# ＧＩＦのとき：画像までのディレクトリ
# → 最後は必ず / で閉じる
$gif_path = "./img/";
$mini_w = 8; # 画像の横サイズ
$mini_h = 12; # 画像の縦サイズ
# カウンタファイル
$cntfile = './count.dat';
# スクリプトのファイル名
# → フルパスで指定する場合は http:// から記述
$script = './yybbs.cgi';
# ログファイルを指定
# → フルパスで指定する場合は / から記述
$logfile = './yybbs_log.cgi';
# メールアドレスの入力必須 (0=no 1=yes)
$in_email = 0;
# 記事 [タイトル] 部の長さ (全角文字換算)
$sub_len = '30';
# 記事の [タイトル] 部の色
$sub_color = "#006400";
# 記事表示部の下地の色
$tbl_color = "#FFFFFF";
# 家アイコンの使用 (0=no 1=yes)
$home_icon = 1;
$home_gif = "home.gif"; # 家アイコンのファイル名
$home_wid = 16; # 画像の横サイズ
$home_hei = 20; # 〃 縦サイズ
# イメージ参照画面の表示形態
# 1 : JavaScript
# 2 : HTML (JavaScriptが不安定なブラザが多い場合はこちら）
$ImageView = 1;
# １ページ当たりの記事表示数 (親記事)
$p_log = 5;
# 文字色の設定。
@COLORS = ('#800000','#DF0000','#008040','#0000FF','#C100C1','#FF80C0','#FF8040','#000080');
# 投稿フォーム改行形式 (soft=手動 hard=強制)
$wrap = 'soft';
# URLの自動リンク (0=no 1=yes)
$autolink = 1;
print "Content-type: text/html\n\n";
print <<"EOM";
EOM
open(IN,"$logfile") || &error("Open Error : $logfile");
$top = ;
$i=0;
$flag=0;
while () {
($no,$reno,$date,$name,$mail,$sub,
$comment,$url,$host,$pw,$color,$icon) = split(/<>/);
$i++;
# 題名の長さ
if (length($sub) > $sub_len*2) {
$sub = substr($sub,0,$sub_len*2);
$sub .= "...";
}
if ($mail) { $name = "$name"; }
if ($home_icon && $url) { $url = "![HomePage](\"$imgurl$home_gif\") "; }
elsif (!$home_icon && $url) { $url = "<HOME>"; }
if (!$icon_mode) { $comment = "$comment "; }
if (!$reno && $flag) {
print " |
![\"$icon\"](\"$imgurl$icon\")