#┏━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
#┃■(SS)C−BOARDテンプレート
#┠──────────────────────────────────────
#┃各画面共通の設定ファイルです。
#┃通常のHTMLと同じ感覚で編集することが出来ます。
#┃なお、途中にある「$〜」はそれぞれプログラムによって任意の文字列に
#┃置き換えられます。
#┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
package DESIGN;
#┏━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
#┃ 共通部分
#┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
sub init {
my $mode = shift; #── モード
local *title = shift; #── サブタイトル
print <<"<<<<<<<<<<<<<<<<<<<<<< HTMLです >>>>>>>>>>>>>>>>>>>>>>";
$CNF::base{'title'}$title
<<<<<<<<<<<<<<<<<<<<<< HTMLです >>>>>>>>>>>>>>>>>>>>>>
}
#────ここまで───────────────────────────────
#┏━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
#┃ ヘッダー
#┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
sub head {
local *menu = shift; #── メニュー
local *page = shift; #── ページ情報
print <<"<<<<<<<<<<<<<<<<<<<<<< HTMLです >>>>>>>>>>>>>>>>>>>>>>";
$CNF::pda{'header'}
$menu |
$page{'next'}$page{'split'}$page{'prev'}
|
${&line}
<<<<<<<<<<<<<<<<<<<<<< HTMLです >>>>>>>>>>>>>>>>>>>>>>
}
#────ここまで───────────────────────────────
#┏━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
#┃ フッター
#┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
sub foot {
local *menu = shift; #── メニュー
local *page = shift; #── ページ情報
my $r_read = shift; #── 閲覧数カウント・既読管理用リンク
my $r_count = shift; #── カウンター
local *access = shift; #── アクセスログ・カウンター用HTML
print <<"<<<<<<<<<<<<<<<<<<<<<< HTMLです >>>>>>>>>>>>>>>>>>>>>>";
$CNF::pda{'footer'}
${$r_read}$access
<<<<<<<<<<<<<<<<<<<<<< HTMLです >>>>>>>>>>>>>>>>>>>>>>
}
#────ここまで───────────────────────────────
#┏━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
#┃ 区切り線
#┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
sub line {
return(\<<"<<<<<<<<<<<<<<<<<<<<<< HTMLです >>>>>>>>>>>>>>>>>>>>>>");
<<<<<<<<<<<<<<<<<<<<<< HTMLです >>>>>>>>>>>>>>>>>>>>>>
}
#────ここまで───────────────────────────────
%SUB = (
head2 => <<'__SUB__',
#┏━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
#┃ ヘッダー2
#┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
sub head2 {
my $mode = shift; #── モード
my $method = shift; #── メソッド
print <<"<<<<<<<<<<<<<<<<<<<<<< HTMLです >>>>>>>>>>>>>>>>>>>>>>";