#┏━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ #┃■(ＳＳ)Ｃ−ＢＯＡＲＤテンプレート(とほほ改ver1.1.03t) #┠────────────────────────────────────── #┃各画面共通の設定ファイルです。 #┃通常のＨＴＭＬと同じ感覚で編集することが出来ます。 #┃なお、途中にある「$〜」はそれぞれプログラムによって任意の文字列に #┃置き換えられます。 #┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ package DESIGN; #┏━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ #┃ 共通部分 #┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ sub init { my $mode = shift; #── モード local *title = shift; #── サブタイトル #とほほ修正開始 if($CNF::view{'page'}{'rss'}{'mode'} == 0) {$rss_mode = "RSS0.91 最新ツリー（親記事）";} elsif($CNF::view{'page'}{'rss'}{'mode'} == 1) {$rss_mode = "RSS0.91 最新ツリー（最新記事）";} elsif($CNF::view{'page'}{'rss'}{'mode'} == 2) {$rss_mode = "RSS0.91 最新記事（ツリーに関係なく時系列）";} else{$rss_mode = "エラー: サイト管理者へ連絡下さい";} if($CNF::base{'meta1'} == 1 ){$robots = "NOINDEX,NOFOLLOW";} if($CNF::base{'meta1'} == 2 ){$robots = "NOINDEX,FOLLOW";} if($CNF::base{'meta1'} == 3 ){$robots = "INDEX,NOFOLLOW";} if($CNF::base{'meta1'} == 4 ){$robots = "INDEX,FOLLOW";} #とほほ修正終了 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 <<"<<<<<<<<<<<<<<<<<<<<<< ＨＴＭＬです >>>>>>>>>>>>>>>>>>>>>>";
$page{'info'} $page{'next'}$page{'split'}$page{'prev'}
$menu
ページ：  ┃  記事番号：   
${$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 <<"<<<<<<<<<<<<<<<<<<<<<< ＨＴＭＬです >>>>>>>>>>>>>>>>>>>>>>";
<<<<<<<<<<<<<<<<<<<<<< ＨＴＭＬです >>>>>>>>>>>>>>>>>>>>>> if(($::FORM{'cmd'} ne 'lgn')&&($::FORM{'cmd'} ne 'csn')&&($::FORM{'cmd'} ne 'rst')&&($::FORM{'cmd'} ne 'mmn')&&($::FORM{'cmd'} ne 'stn')&&($::FORM{'cmd'} ne 'syn')){ print <<"<<<<<<<<<<<<<<<<<<<<<< ＨＴＭＬです >>>>>>>>>>>>>>>>>>>>>>";}
@{[$mode eq 'mst' ? '[ID:' . ($::FORM{'id'} || '-----') . ']' : '']}
<<<<<<<<<<<<<<<<<<<<<< ＨＴＭＬです >>>>>>>>>>>>>>>>>>>>>> else{ 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 $;