#┏━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
#┃■(ＳＳ)Ｃ−ＢＯＡＲＤテンプレート(とほほ改ver2.1)
#┠──────────────────────────────────────
#┃記事画面の設定ファイルです。
#┃通常のＨＴＭＬと同じ感覚で編集することが出来ます。
#┃なお、途中にある「$〜」はそれぞれプログラムによって任意の文字列に
#┃置き換えられます。
#┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
 
package DESIGN;

#┏━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
#┃   記事表示ヘッダー
#┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
sub message_head {
	local *page = shift; #── ページ情報

    print <<"<<<<<<<<<<<<<<<<<<<<<< ＨＴＭＬです >>>>>>>>>>>>>>>>>>>>>>";
[<a href="$CNF::place{'this'}{'url'}?id=$::FORM{'id'}">ﾒﾆｭｰ</a>|<a href="$CNF::place{'this'}{'url'}?cmd=$::FORM{'cmd'};page=1;id=$::FORM{'id'}">TOP</a>|$page{'next'}$page{'prev'}]<br>
$page{'info'}
${&line}
<<<<<<<<<<<<<<<<<<<<<< ＨＴＭＬです >>>>>>>>>>>>>>>>>>>>>>
}
#────ここまで───────────────────────────────


#┏━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
#┃   記事表示フッター
#┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
sub message_foot {
	local *page = shift; #── ページ情報

    print <<"<<<<<<<<<<<<<<<<<<<<<< ＨＴＭＬです >>>>>>>>>>>>>>>>>>>>>>";
[<a href="$CNF::place{'this'}{'url'}?id=$::FORM{'id'}">ﾒﾆｭｰ</a>|<a href="$CNF::place{'this'}{'url'}?cmd=$::FORM{'cmd'};page=1;id=$::FORM{'id'}">TOP</a>|$page{'next'}$page{'prev'}]<br>
$page{'info'}
<<<<<<<<<<<<<<<<<<<<<< ＨＴＭＬです >>>>>>>>>>>>>>>>>>>>>>
}
#────ここまで───────────────────────────────


#┏━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
#┃   記事表示
#┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
sub all {
	local *MSG   = shift; #── 記事
	my $r_attach = shift; #── 添付ファイル情報

    print <<"<<<<<<<<<<<<<<<<<<<<<< ＨＴＭＬです >>>>>>>>>>>>>>>>>>>>>>";
[$MSG{'no'}]$MSG{'subject'}<br>
by $MSG{'name'}$MSG{'web'}<br>
$MSG{'ident'}<br>
[$MSG{'date'}]
${&line}
$MSG{'body'}
${$r_attach}
${&line}
<div align="right">
 [<a href="$CNF::place{'this'}{'url'}?cmd=psn;follow=$MSG{'no'};no_quot=1;id=$::FORM{'id'}">返信</a>]
 [<a href="$CNF::place{'this'}{'url'}?cmd=dln;no=$MSG{'no'};tree=$MSG{'tree'};id=$::FORM{'id'}">削除</a>]
</div>
${&line}
<<<<<<<<<<<<<<<<<<<<<< ＨＴＭＬです >>>>>>>>>>>>>>>>>>>>>>
}
#────ここまで───────────────────────────────


#┏━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
#┃   ツリー表示
#┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
sub tree {
	local *MSG = shift; #── 記事
	my $count = shift;
	
	if ($count) {
	    print <<"<<<<<<<<<<<<<<<<<<<<<< ＨＴＭＬです >>>>>>>>>>>>>>>>>>>>>>";
<a href="$CNF::place{'this'}{'url'}?cmd=one;no=$MSG{'no'};id=$::FORM{'id'}" accesskey=@{[($count == 10) ? 0 : $count]}>
@{[($::FLAG{'mobile'}{'imode'})
       ? '&#638' . ($count + 78) . ';'
       : ($::FLAG{'mobile'}{'jsky'}
              ? "\x1b\x24\x46" . chr(59 + $count) . "\x0f"
              : '[' . (($count == 10) ? 0 : $count) . ']')]}
</a>
$MSG{'subject'} by $MSG{'name'} [$MSG{'date'}]
${&line}
<<<<<<<<<<<<<<<<<<<<<< ＨＴＭＬです >>>>>>>>>>>>>>>>>>>>>>
	}
	else {
	    print <<"<<<<<<<<<<<<<<<<<<<<<< ＨＴＭＬです >>>>>>>>>>>>>>>>>>>>>>";
<a href="$CNF::place{'this'}{'url'}?cmd=one;no=$MSG{'no'};id=$::FORM{'id'}">▼</a>
$MSG{'subject'}<br>
<<<<<<<<<<<<<<<<<<<<<< ＨＴＭＬです >>>>>>>>>>>>>>>>>>>>>>
	}
}
#────ここまで───────────────────────────────

#┏━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
#┃   返信
#┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
sub follow {
    print <<"<<<<<<<<<<<<<<<<<<<<<< ＨＴＭＬです >>>>>>>>>>>>>>>>>>>>>>";
返信：<br>
<<<<<<<<<<<<<<<<<<<<<< ＨＴＭＬです >>>>>>>>>>>>>>>>>>>>>>
}
#────ここまで───────────────────────────────

#┏━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
#┃   トピック表示
#┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
sub topic {
	local *MSG = shift; #── 記事
	my $count = shift;

    print <<"<<<<<<<<<<<<<<<<<<<<<< ＨＴＭＬです >>>>>>>>>>>>>>>>>>>>>>";
<a href="$CNF::place{'this'}{'url'}?cmd=one;no=$MSG{'no'};id=$::FORM{'id'}" accesskey=@{[($count == 10) ? 0 : $count]}>
@{[($::FLAG{'mobile'}{'imode'})
       ? '&#638' . ($count + 78) . ';'
       : ($::FLAG{'mobile'}{'jsky'}
              ? "\x1b\x24\x46" . chr(59 + $count) . "\x0f"
              : '[' . (($count == 10) ? 0 : $count) . ']')]}
</a>
$MSG{'subject'}(返:$MSG{'reply'})
${&line}
<<<<<<<<<<<<<<<<<<<<<< ＨＴＭＬです >>>>>>>>>>>>>>>>>>>>>>
}
#────ここまで───────────────────────────────


#┏━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
#┃   添付ファイル情報
#┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
sub attach_info {
my $r_file = shift;
${$r_file}{'size'} =~ s/KB// ;
if (${$r_file}{'size'} > 300){
return(\<<"<<<<<<<<<<<<<<<<<<<<<< ＨＴＭＬです >>>>>>>>>>>>>>>>>>>>>>");
ﾌｧｲﾙ:<br>
${$r_file}{'name'}{'encodeed'}(${$r_file}{'size'}KB)<br>
300KB以上の為表\示不可
<br>
<<<<<<<<<<<<<<<<<<<<<< ＨＴＭＬです >>>>>>>>>>>>>>>>>>>>>>
}
else{
$_ = "${$r_file}{'name'}{'encodeed'}";
$imgurl = "$CNF::place{'file'}{'url'}/${$r_file}{'name'}{'encodeed'}";
substr($imgurl, 0, 7) = "http://pic.to/";
$xx="bmp gif jpg png jpeg BMP GIF JPG PNG JPEG";
if (/\./){$type = $';}
if ($xx =~ /$type/){
return(\<<"<<<<<<<<<<<<<<<<<<<<<< ＨＴＭＬです >>>>>>>>>>>>>>>>>>>>>>");
ﾌｧｲﾙ:
<a href="$imgurl">
${$r_file}{'name'}{'encodeed'}</a>
<br>${$r_file}{'size'}KB<br>
<br>
<<<<<<<<<<<<<<<<<<<<<< ＨＴＭＬです >>>>>>>>>>>>>>>>>>>>>>
}
else{
return(\<<"H");
添付ファイルは$typeの為表\示できません。
H
}}
}
<<<<<<<<<<<<<<<<<<<<<< ＨＴＭＬです >>>>>>>>>>>>>>>>>>>>>>
}
#────ここまで───────────────────────────────


#┏━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
#┃   添付ファイル削除済み情報
#┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
sub attach_delete_info {
    return(\<<"<<<<<<<<<<<<<<<<<<<<<< ＨＴＭＬです >>>>>>>>>>>>>>>>>>>>>>");
ﾌｧｲﾙ: 削除済<br>
<<<<<<<<<<<<<<<<<<<<<< ＨＴＭＬです >>>>>>>>>>>>>>>>>>>>>>
}
#────ここまで───────────────────────────────

1;

# $Id: msg.txt,v 1.1.1.2 2001/11/02 14:25:00 N.Hirai Exp $;