#┏━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ #┃■(SS)C−BOARDテンプレート(とほほ改ver1.01.2t) #┠────────────────────────────────────── #┃記事画面の設定ファイルです。 #┃通常のHTMLと同じ感覚で編集することが出来ます。 #┃なお、途中にある「$〜」はそれぞれプログラムによって任意の文字列に #┃置き換えられます。 #┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ package DESIGN; require './cmd/etc.pl'; #┏━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ #┃ 番号順表示ヘッダー #┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ sub number_head { print <<"<<<<<<<<<<<<<<<<<<<<<< HTMLです >>>>>>>>>>>>>>>>>>>>>>"; <<<<<<<<<<<<<<<<<<<<<< HTMLです >>>>>>>>>>>>>>>>>>>>>> } #────ここまで─────────────────────────────── #┏━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ #┃ 番号順表示フッター #┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ sub number_foot { print <<"<<<<<<<<<<<<<<<<<<<<<< HTMLです >>>>>>>>>>>>>>>>>>>>>>";
<<<<<<<<<<<<<<<<<<<<<< HTMLです >>>>>>>>>>>>>>>>>>>>>> } #────ここまで─────────────────────────────── #┏━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ #┃ 番号順表示 #┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ sub number { local *MSG = shift; #── 親記事 my $type = shift; #── タイプ my $r_no = shift; #── 記事番号 my $r_genre_icon = shift; #── ジャンルアイコン my $r_clip = shift; #── クリップアイコン my $r_new = shift; #── NEWアイコン my $r_reply = shift; #── 返信数 my $r_read = shift; #── 未読アイコン #とほほ修正開始 if($::FORM{'id'} eq ""){$link_id = "#$MSG{'no'}";} else{$link_id = ";id=$::FORM{'id'}#$MSG{'no'}";} #とほほ修正終了 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} ${$r_read} <<<<<<<<<<<<<<<<<<<<<< HTMLです >>>>>>>>>>>>>>>>>>>>>> } #────ここまで─────────────────────────────── 1; # $Id: nmb.txt,v 2.1 2003/12/12 09:00:00 N.Hirai Exp $;