$CNF::base{'title'}$title

#┏━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ #┃■(ＳＳ)Ｃ－ＢＯＡＲＤテンプレート #┠────────────────────────────────────── #┃各画面共通の設定ファイルです。 #┃通常のＨＴＭＬと同じ感覚で編集することが出来ます。 #┃なお、途中にある「$～」はそれぞれプログラムによって任意の文字列に #┃置き換えられます。 #┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ package DESIGN; #┏━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ #┃ 共通部分 #┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ sub init { my $mode = shift; #── モード local *title = shift; #── サブタイトル print <<"<<<<<<<<<<<<<<<<<<<<<< ＨＴＭＬです >>>>>>>>>>>>>>>>>>>>>>"; $CNF::base{'title'}$title <<<<<<<<<<<<<<<<<<<<<< ＨＴＭＬです >>>>>>>>>>>>>>>>>>>>>> } #────ここまで─────────────────────────────── #┏━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ #┃ ヘッダー #┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ sub head { local *menu = shift; #── メニュー local *page = shift; #── ページ情報 print <<"<<<<<<<<<<<<<<<<<<<<<< ＨＴＭＬです >>>>>>>>>>>>>>>>>>>>>>"; $CNF::base{'header'}


	$menu

$page{'info'}

$page{'next'}$page{'split'}$page{'prev'}

${&line} <<<<<<<<<<<<<<<<<<<<<< ＨＴＭＬです >>>>>>>>>>>>>>>>>>>>>> } #────ここまで─────────────────────────────── #┏━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ #┃ フッター #┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ sub foot { local *menu = shift; #── メニュー local *page = shift; #── ページ情報 my $r_read = shift; #── 閲覧数カウント・既読管理用リンク my $r_count = shift; #── カウンター local *access = shift; #── アクセスログ・カウンター用ＨＴＭＬ print <<"<<<<<<<<<<<<<<<<<<<<<< ＨＴＭＬです >>>>>>>>>>>>>>>>>>>>>>";


	$menu

$page{'info'}

$page{'next'}$page{'split'}$page{'prev'}

ページ：

┃

記事番号：

${$r_count}

(SS)C-BOARD $::VERSION $::LICENSE_COMMENT

$CNF::base{'footer'} ${$r_read}$access <<<<<<<<<<<<<<<<<<<<<< ＨＴＭＬです >>>>>>>>>>>>>>>>>>>>>> } #────ここまで─────────────────────────────── #┏━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ #┃ 区切り線 #┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ sub line { return(\<<"<<<<<<<<<<<<<<<<<<<<<< ＨＴＭＬです >>>>>>>>>>>>>>>>>>>>>>");

<<<<<<<<<<<<<<<<<<<<<< ＨＴＭＬです >>>>>>>>>>>>>>>>>>>>>> } #────ここまで─────────────────────────────── %SUB = ( head2 => <<'__SUB__', #┏━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ #┃ ヘッダー２ #┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ sub head2 { my $mode = shift; #── モード my $method = shift; #── メソッド print <<"<<<<<<<<<<<<<<<<<<<<<< ＨＴＭＬです >>>>>>>>>>>>>>>>>>>>>>";


	<<<<<<<<<<<<<<<<<<<<<< ＨＴＭＬです >>>>>>>>>>>>>>>>>>>>>> } #────ここまで─────────────────────────────── __SUB__ foot2 => <<'__SUB__', #┏━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ #┃ フッター２ #┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ sub foot2 { my $mode = shift; #── モード print <<"<<<<<<<<<<<<<<<<<<<<<< ＨＴＭＬです >>>>>>>>>>>>>>>>>>>>>>";

→戻る
@{[$mode eq 'mst' ? '[ID:' . ($::FORM{'id'} || '-----') . ']' : '']}
@{[$mode eq 'csn' ? '【管理人用】' : '']}

<<<<<<<<<<<<<<<<<<<<<< ＨＴＭＬです >>>>>>>>>>>>>>>>>>>>>> } #────ここまで─────────────────────────────── __SUB__ ); sub AUTOLOAD { my $name = ($AUTOLOAD =~ /^DESIGN::(.+)$/)[0]; if (!defined $SUB{$name}) { &::error(\"定義されていない関数($AUTOLOAD)が呼ばれました。"); exit; } eval $SUB{$name}; length($@) && &::error(\"EVAL ERROR: $@"); delete $SUB{$name}; goto &{'DESIGN::' . $name}; } 1; # $Id: bse.txt,v 1.1.1.4 2003/11/19 13:00:00 N.Hirai Exp $;