#┏━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
#┃■(SS)C−BOARDテンプレート
#┠──────────────────────────────────────
#┃記事画面の設定ファイルです。
#┃通常のHTMLと同じ感覚で編集することが出来ます。
#┃なお、途中にある「$〜」はそれぞれプログラムによって任意の文字列に
#┃置き換えられます。
#┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
package DESIGN;
require './cmd/etc.pl';
#┏━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
#┃ トピック表示ヘッダー
#┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
sub topic_head {
print <<"<<<<<<<<<<<<<<<<<<<<<< HTMLです >>>>>>>>>>>>>>>>>>>>>>";
<<<<<<<<<<<<<<<<<<<<<< HTMLです >>>>>>>>>>>>>>>>>>>>>>
}
#────ここまで───────────────────────────────
#┏━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
#┃ トピック表示フッター
#┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
sub topic_foot {
print <<"<<<<<<<<<<<<<<<<<<<<<< HTMLです >>>>>>>>>>>>>>>>>>>>>>";
<<<<<<<<<<<<<<<<<<<<<< HTMLです >>>>>>>>>>>>>>>>>>>>>>
}
#────ここまで───────────────────────────────
#┏━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
#┃ トピック表示
#┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
sub topic {
local *MSG = shift; #── 親記事
local *MSG_l = shift; #── 最終投稿記事
my $type = shift; #── タイプ
my $r_no = shift; #── 記事番号
my $r_genre_icon = shift; #── ジャンルアイコン
my $r_clip = shift; #── クリップアイコン
my $r_new = shift; #── NEWアイコン
my $r_read = shift; #── 未読アイコン
print <<"<<<<<<<<<<<<<<<<<<<<<< HTMLです >>>>>>>>>>>>>>>>>>>>>>";
${$r_no}$MSG{'subject'} |
${$r_genre_icon} |
${$r_clip} |
$MSG{'name'}@{[(&ETC::name_matching($MSG{'name'},$CNF::master{'name'},$CNF::master{'mode'})) && ($CNF::STY::bse{'master_icon'}) ? "" : '']} |
$MSG{'date'} |
${$r_new} |
$MSG{'reply'} |
${$r_read} |
|
$MSG_l{'name'} |
$MSG_l{'date'} |
<<<<<<<<<<<<<<<<<<<<<< HTMLです >>>>>>>>>>>>>>>>>>>>>>
}
#────ここまで───────────────────────────────
1;
# $Id: tpc.txt,v 2.1 2003/12/12 09:00:00 N.Hirai Exp $;