#
#(rr)b|an`qcev[g(Ƃقىver2.1)
#
#Lʂ̐ݒt@CłB
#ʏ̂gslkƓoŕҏW邱Ƃo܂B
#ȂArɂu$`v͂ꂼvOɂĔCӂ̕
#u܂B
#
 
package DESIGN;

#
#   L\wb_[
#
sub message_head {
	local *page = shift; # y[W

    print <<"<<<<<<<<<<<<<<<<<<<<<< gslkł >>>>>>>>>>>>>>>>>>>>>>";
[<a href="$CNF::place{'this'}{'url'}?cmd=nmb;page=1;id=$::FORM{'id'}">į</a>|<a href="$CNF::place{'this'}{'path'}?cmd=psn;id=$::FORM{'id'}">e</a>|<a href="$CNF::place{'this'}{'url'}?cmd=mnu;id=$::FORM{'id'}">ƭ</a>|$page{'next'}$page{'prev'}]<br />
$page{'info'}
${&line}
<<<<<<<<<<<<<<<<<<<<<< gslkł >>>>>>>>>>>>>>>>>>>>>>
}
#܂ń


#
#   L\tb^[
#
sub message_foot {
	local *page = shift; # y[W

    print <<"<<<<<<<<<<<<<<<<<<<<<< gslkł >>>>>>>>>>>>>>>>>>>>>>";
[<a href="$CNF::place{'this'}{'url'}?cmd=nmb;page=1;id=$::FORM{'id'}">į</a>|<a href="$CNF::place{'this'}{'path'}?cmd=psn;id=$::FORM{'id'}">e</a>|<a href="$CNF::place{'this'}{'url'}?cmd=mnu;id=$::FORM{'id'}">ƭ</a>|$page{'next'}$page{'prev'}]<br />
$page{'info'}
<<<<<<<<<<<<<<<<<<<<<< gslkł >>>>>>>>>>>>>>>>>>>>>>
}
#܂ń


#
#   L\
#
sub all {
	local *MSG   = shift; # L
	my $r_attach = shift; # Ytt@C

    print <<"<<<<<<<<<<<<<<<<<<<<<< gslkł >>>>>>>>>>>>>>>>>>>>>>";
[$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'}">ԐM</a>]
 [<a href="$CNF::place{'this'}{'url'}?cmd=dln;no=$MSG{'no'};tree=$MSG{'tree'};id=$::FORM{'id'}">폜</a>]
</div>
${&line}
<<<<<<<<<<<<<<<<<<<<<< gslkł >>>>>>>>>>>>>>>>>>>>>>
}
#܂ń


#
#   c[\
#
sub tree {
	local *MSG = shift; # L
	my $count = shift;
	
	if ($count) {
	    print <<"<<<<<<<<<<<<<<<<<<<<<< gslkł >>>>>>>>>>>>>>>>>>>>>>";
<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) . ']')]}
$MSG{'subject'}</a><br />by $MSG{'name'} [$MSG{'date'}]
<br /><span><span>$MSG{'body'}</span></span>
<br />[c$MSG{'len2'}]
${&line}
<<<<<<<<<<<<<<<<<<<<<< gslkł >>>>>>>>>>>>>>>>>>>>>>
	}
	else {
	    print <<"<<<<<<<<<<<<<<<<<<<<<< gslkł >>>>>>>>>>>>>>>>>>>>>>";
<a href="$CNF::place{'this'}{'url'}?cmd=one;no=$MSG{'no'};id=$::FORM{'id'}"></a>
$MSG{'subject'}<br />
<<<<<<<<<<<<<<<<<<<<<< gslkł >>>>>>>>>>>>>>>>>>>>>>
	}
}
#܂ń

#
#   ԐM
#
sub follow {
    print <<"<<<<<<<<<<<<<<<<<<<<<< gslkł >>>>>>>>>>>>>>>>>>>>>>";
ԐMF<br />
<<<<<<<<<<<<<<<<<<<<<< gslkł >>>>>>>>>>>>>>>>>>>>>>
}
#܂ń

#
#   gsbN\
#
sub topic {
	local *MSG = shift; # L
	my $count = shift;

    print <<"<<<<<<<<<<<<<<<<<<<<<< gslkł >>>>>>>>>>>>>>>>>>>>>>";
<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) . ']')]}
$MSG{'subject'}</a>(:$MSG{'reply'})
${&line}
<<<<<<<<<<<<<<<<<<<<<< gslkł >>>>>>>>>>>>>>>>>>>>>>
}
#܂ń


#
#   Ytt@C
#
sub attach_info {
my $r_file = shift;
${$r_file}{'size'} =~ s/KB// ;
if (${$r_file}{'size'} > 300){
return(\<<"<<<<<<<<<<<<<<<<<<<<<< gslkł >>>>>>>>>>>>>>>>>>>>>>");
̧:<br />
${$r_file}{'name'}{'encodeed'}(${$r_file}{'size'}KB)<br />
300KBȏ̈ו\\s
<br />
<<<<<<<<<<<<<<<<<<<<<< gslkł >>>>>>>>>>>>>>>>>>>>>>
}
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(\<<"<<<<<<<<<<<<<<<<<<<<<< gslkł >>>>>>>>>>>>>>>>>>>>>>");
̧:
<a href="$imgurl">
${$r_file}{'name'}{'encodeed'}</a>
<br />${$r_file}{'size'}KB<br />
<br />
<<<<<<<<<<<<<<<<<<<<<< gslkł >>>>>>>>>>>>>>>>>>>>>>
}
else{
return(\<<"H");
Ytt@C$typëו\\ł܂B
<<<<<<<<<<<<<<<<<<<<<< gslkł >>>>>>>>>>>>>>>>>>>>>>
H
}}
}

#܂ń


#
#   Ytt@C폜ςݏ
#
sub attach_delete_info {
    return(\<<"<<<<<<<<<<<<<<<<<<<<<< gslkł >>>>>>>>>>>>>>>>>>>>>>");
̧: 폜<br />
<<<<<<<<<<<<<<<<<<<<<< gslkł >>>>>>>>>>>>>>>>>>>>>>
}
#܂ń

1;

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