#┏━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
#┃■(ＳＳ)Ｃ−ＢＯＡＲＤテンプレート（とほほ改tr ver1）
#┠──────────────────────────────────────
#┃記事画面の設定ファイルです。
#┃通常のＨＴＭＬと同じ感覚で編集することが出来ます。
#┃なお、途中にある「$〜」はそれぞれプログラムによって任意の文字列に
#┃置き換えられます。
#┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
package DESIGN;
require './cmd/etc.pl';
%SUB = (
%SUB,
tree => <<'__SUB__',
#┏━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
#┃ ツリー表示
#┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
sub tree {
local *MSG = shift; #── 記事
my $type = shift; #── タイプ
my $r_branch = shift; #── インデント
my $r_link = shift; #── リンク
my $r_no = shift; #── 記事番号
my $r_genre_icon = shift; #── ジャンルアイコン
my $r_clip = shift; #── クリップアイコン
my $r_read = shift; #── 未読アイコン
my $r_new = shift; #── ＮＥＷアイコン
my $r_select = shift; #── セレクトアイコン
my %type = qw(prt Parent chl Child);
#とほほ修正開始
$MSG{'body'}=~ s/<.+?>//g;
$MSG{'body'}=~ s/<.+?//g;
$MSG{'body'}=~ s/>.+?\n//g;
$MSG{'body'}=~ s/>.+?//g;
$MSG{'body'}=~ s/\n//g;
#とほほ修正終了
print <<"<<<<<<<<<<<<<<<<<<<<<< ＨＴＭＬです >>>>>>>>>>>>>>>>>>>>>>";
<<<<<<<<<<<<<<<<<<<<<< ＨＴＭＬです >>>>>>>>>>>>>>>>>>>>>>
}
#────ここまで───────────────────────────────
__SUB__
tree_split => <<'__SUB__',
#┌──────────────────────────────────────
#│ツリー間のスペース
#└──────────────────────────────────────
sub tree_split {
print <<"<<<<<<<<<<<<<<<<<<<<<< ＨＴＭＬです >>>>>>>>>>>>>>>>>>>>>>";
<<<<<<<<<<<<<<<<<<<<<< ＨＴＭＬです >>>>>>>>>>>>>>>>>>>>>>
}
#────ここまで───────────────────────────────
__SUB__
all => <<'__SUB__',
#┌──────────────────────────────────────
#│記事表示
#└──────────────────────────────────────
sub all {
local *MSG = shift; #── 記事
my $r_width = shift; #── 題名の幅
my $r_no = shift; #── 記事番号
my $r_new = shift; #── ＮＥＷアイコン
my $r_mail = shift; #── メールアイコン
my $r_web = shift; #── ＷＥＢアイコン
my $r_genre_icon = shift; #── ジャンルアイコン
my $r_delete_input = shift; #── 削除ボタン
my $r_attach = shift; #── 添付ファイル情報
my $r_tree_all = shift; #── ツリー全体表示リンク
my $hit = shift; #── 閲覧数
my $sage_info = shift; #── Ｓａｇｅチェック情報
my $r_agent = shift; #── ユーザー情報
my $r_body_color = shift; #── 本文色
print <<"<<<<<<<<<<<<<<<<<<<<<< ＨＴＭＬです >>>>>>>>>>>>>>>>>>>>>>";
|
|
${$r_genre_icon}${$r_new}
$MSG{'name'}@{[(&ETC::name_matching($MSG{'name'},$CNF::master{'name'},$CNF::master{'mode'})) && ($CNF::STY::bse{'master_icon'}) ? "![\"この掲示板の管理者です\"](\"$CNF::place{'image'}{'url'}/master_icon.gif\") " : '']}
${$r_mail}${$r_web}
- $MSG{'date'} -
|
|
|
|
|
${$r_tree_all}
|
$hit
$sage_info
${$r_agent}
|
<<<<<<<<<<<<<<<<<<<<<< ＨＴＭＬです >>>>>>>>>>>>>>>>>>>>>>
}
#────ここまで───────────────────────────────
__SUB__
delete_input => <<'__SUB__',
#┏━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
#┃ 削除ボタン
#┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
sub delete_input {
my $no = shift; #── 記事番号
my $tree = shift; #── ツリー番号
return(\<<"<<<<<<<<<<<<<<<<<<<<<< ＨＴＭＬです >>>>>>>>>>>>>>>>>>>>>>");
|
|
| $CNF::STY::all{'delete'}{'button'} |
パスワード
|
<<<<<<<<<<<<<<<<<<<<<< ＨＴＭＬです >>>>>>>>>>>>>>>>>>>>>>
}
#────ここまで───────────────────────────────
__SUB__
tree_all => <<'__SUB__',
#┏━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
#┃ ツリー全体表示リンク
#┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
sub tree_all {
my $tree = shift; #── ツリー
return(\<<"<<<<<<<<<<<<<<<<<<<<<< ＨＴＭＬです >>>>>>>>>>>>>>>>>>>>>>");
|
・ツリー全体表\示
|
<<<<<<<<<<<<<<<<<<<<<< ＨＴＭＬです >>>>>>>>>>>>>>>>>>>>>>
}
#────ここまで───────────────────────────────
__SUB__
attach_info => <<'__SUB__',
#┏━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
#┃ 添付ファイル情報
#┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
sub attach_info {
local *file = shift;
return(\<<"<<<<<<<<<<<<<<<<<<<<<< ＨＴＭＬです >>>>>>>>>>>>>>>>>>>>>>");
<<<<<<<<<<<<<<<<<<<<<< ＨＴＭＬです >>>>>>>>>>>>>>>>>>>>>>
}
#────ここまで───────────────────────────────
__SUB__
attach_delete_info => <<'__SUB__',
#┏━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
#┃ 添付ファイル削除済み情報
#┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
sub attach_delete_info {
return(\<<"<<<<<<<<<<<<<<<<<<<<<< ＨＴＭＬです >>>>>>>>>>>>>>>>>>>>>>");
〜添付ファイル〜
［削除されました］
<<<<<<<<<<<<<<<<<<<<<< ＨＴＭＬです >>>>>>>>>>>>>>>>>>>>>>
}
#────ここまで───────────────────────────────
__SUB__
);
1;
# $Id: msg.txt,v 1.1.1.6 2004/07/30 09:00:00 N.Hirai Exp $;
