#┏━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ #┃■(SS)C−BOARDテンプレート #┠────────────────────────────────────── #┃記事画面の設定ファイルです。 #┃通常のHTMLと同じ感覚で編集することが出来ます。 #┃なお、途中にある「$〜」はそれぞれプログラムによって任意の文字列に #┃置き換えられます。 #┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 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; #── NEWアイコン my $r_select = shift; #── セレクトアイコン my %type = qw(prt Parent chl Child); print <<"<<<<<<<<<<<<<<<<<<<<<< HTMLです >>>>>>>>>>>>>>>>>>>>>>";
${$r_branch} | ${$r_no}$MSG{'subject'} $MSG{'name'}@{[(&ETC::name_matching($MSG{'name'},$CNF::master{'name'},$CNF::master{'mode'})) && ($CNF::STY::bse{'master_icon'}) ? "" : '']} $MSG{'date'} | ${$r_genre_icon}${$r_clip}${$r_read}${$r_new}${$r_select} |
|
|
|
$CNF::STY::clip{'icon'}〜添付ファイル〜 |
・名前 | : $file{'name'} |
・サイズ | : $file{'size'} |