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

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

    print <<"<<<<<<<<<<<<<<<<<<<<<< gslkł >>>>>>>>>>>>>>>>>>>>>>";
[<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}
<<<<<<<<<<<<<<<<<<<<<< gslkł >>>>>>>>>>>>>>>>>>>>>>
}
#܂ń


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

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


#
#   Ytt@C
#
sub attach_info {
	my $r_file = shift;

    return(\<<"<<<<<<<<<<<<<<<<<<<<<< gslkł >>>>>>>>>>>>>>>>>>>>>>");
̧:
<a href="$CNF::place{'file'}{'url'}/${$r_file}{'name'}">
 ${$r_file}{'orgname'}
</a>
<br>
<<<<<<<<<<<<<<<<<<<<<< gslkł >>>>>>>>>>>>>>>>>>>>>>
}
#܂ń


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

1;

# $Id: msg.txt,v 1.4 2006/03/09 09:19:39 susumu Exp $;
