#
#C-BOARD Moyuku Viewt@C Text
#
#eʋʂ̕\pXNvgłB
#rɂu$`v͂ꂼvOɂĔCӂ̕
#u܂B
#

package DESIGN;

#
#   ʕ
#
sub init {
	my $mode		= shift; # [h
	local *title	= shift; # Tu^Cg
	my $robots		= shift; #

	print <<"__MyHTML__";
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html lang="ja">
<head>
 <meta http-equiv="Content-type" content="text/html; charset=Shift_JIS">
 <meta http-equiv="content-script-type" content="text/javascript">
 <meta http-equiv="content-style-type" content="text/css">
 <meta name="robots" content="$robots">
 <meta name="keywords" content="$CNF::base{'meta2'}">
 <meta name="description" content="$CNF::base{'meta3'}">
 <script language="JavaScript" src="./include/c-board.js"></script>
 <link rel="stylesheet" type="text/css" href="$CNF::place{'css'}{'url'}/c-board.css">
 <link rel="alternate" type="application/rss+xml" title="RSS2.0 ŐVc[" href="$CNF::place{'this'}{'path'}?id=$::FORM{'id'}&cmd=rss200&mode=1">
 <link rel="alternate" type="application/rss+xml" title="RSS2.0 ŐVL" href="$CNF::place{'this'}{'path'}?id=$::FORM{'id'}&cmd=rss200&mode=2">
 <link rel="alternate" type="application/rss+xml" title="RSS1.0 ŐVc[" href="$CNF::place{'this'}{'path'}?id=$::FORM{'id'}&cmd=rss100&mode=1">
 <link rel="alternate" type="application/rss+xml" title="RSS1.0 ŐVL" href="$CNF::place{'this'}{'path'}?id=$::FORM{'id'}&cmd=rss100&mode=2">
 <title>$CNF::base{'title'}$title</title>
</head>
<body>

__MyHTML__
}



#
#   wb_[
#
sub head {
	local *menu = shift; # j[
	local *page = shift; # y[W

	print <<"__MyHTML__";
<div style="text-align:center;">
<div style="border:0px solid; margin:0px; padding:0px; width:$CNF::STY::bse{'width'}; text-align:left; margin: 0px auto;">

$CNF::base{'header'}

<!-- 㕔j[ -->
<div style="border:0px solid; width:$CNF::STY::bse{'width'}; text-align:right;">

	<div style="text-align:left;">
	<div style="background-color:$CNF::STY::mnu{'table'}{'back'}; float:left;">$menu</div>
	<br clear="all" />
	</div>
	<div style="width:$CNF::STY::bse{'width'}; text-align:right;">
	<span class=MenuOut>$page{'info'}</span>&nbsp;&nbsp;&nbsp;&nbsp;$page{'next'}$page{'split'}$page{'prev'}
	</div>

${&line}
</div><!-- 㕔j[ -->
__MyHTML__
}



#
#   tb^[
#
sub foot {
	local *menu	= shift; # j[
	local *page	= shift; # y[W
	my $r_read	= shift; # {JEgEǊǗpN
	my $r_count	= shift; # JE^[
	local *access	= shift; # ANZXOEJE^[pgslk

	print <<"__MyHTML__";
<!-- j[ -->
<div style="border:0px solid; width:$CNF::STY::bse{'width'}; text-align:right;">

	<div>
	<span class=MenuOut>$page{'info'}</span>&nbsp;&nbsp;&nbsp;&nbsp;$page{'next'}$page{'split'}$page{'prev'}
	</div>

	<div style="text-align:left;">
	<div style="background-color:$CNF::STY::mnu{'table'}{'back'}; float:left;">$menu</div>
	<br clear="all" />
	</div>
	
	<div style="margin-top:1px;">
	<div class=Count style="float:right; width:150px;">&nbsp;${$r_count}</div>
	<div style="float:right;">
	<form action="$CNF::place{'this'}{'path'}" method="post" style="display:inline;">
	  <span class=MenuOut>y[WF</span>
	  <input type=text name="page" size=4 class=MenuInput title="\\y[Wԍ͂Ă">
	  <span class=MenuOut>&nbsp;&nbsp;</span>
	  <span class=MenuOut>LԍF</span>
	  <input type=text name="no" size=6 class=MenuInput title="\\Lԍ͂Ă">&nbsp;
	  <input type=submit value="G O" class=MenuSend style="background: #ffffff; border: 1 solid #333333" title="w肳ꂽy[WEԍɃWv܂">
	  <input type="hidden" name="mode" value="$::FORM{'cmd'}">
	  <input type="hidden" name="id" value="$::FORM{'id'}">
	  <input type="hidden" name="cmd" value="jmp">
	</form>
	</div>
	<br clear="all" />
	</div>

	<div>
   <span class=Version><strong>
	<a href="$CNF::place{'this'}{'path'}?cmd=ver;id=$::FORM{'id'}" title="$::SYS{'base_link_title'}">
	$::SYS{'name'} $::SYS{'version'}$::SYS{'base_comment'}</a><br />
   </strong></span>
	</div>

</div><!-- j[ -->

<!--ȉtb^[-->
$CNF::base{'footer'}
${$r_read}$access

</div>
</div>
</body>
</html>
__MyHTML__
}



#
#   ؂
#
sub line {
	return(\<<"__MyHTML__");
<hr size=1 width=$CNF::STY::bse{'width'} align="left">
__MyHTML__
}



%SUB = (
	head2 => <<'__SUB__',
#
#   wb_[Q
#
sub head2 {
	my $mode   = shift; # [h
	my $method = shift; # \bh

	print <<"__MyHTML__";
<form action="$CNF::place{'this'}{'path'}" method="$method">
<table width="100%" height="100%" border=0 cellspacing=0 cellpadding=0>
 <tr valign="center">
  <td valign="middle" align="center" height="100%">
   <table border=0 cellspacing=0 cellpadding=0 bgcolor="${'CNF::STY::' . $mode}{'table'}{'border'}">
    <tr><td><img src="$CNF::place{'image'}{'url'}/_.gif" width=2 height=2 alt=""></td>
	<td><img src="$CNF::place{'image'}{'url'}/_.gif" width=2 height=2 alt=""></td>
	<td><img src="$CNF::place{'image'}{'url'}/_.gif" width=2 height=2 alt=""></td></tr>
    <tr><td><img src="$CNF::place{'image'}{'url'}/_.gif" width=2 height=2 alt=""></td>
	<td>
__MyHTML__
}

__SUB__


	foot2 => <<'__SUB__',
#
#   tb^[Q
#
sub foot2 {
	my $mode = shift; # [h

	my $noscript = "";
	if ( $mode eq 'ror' ) {
		$noscript = '<noscript><small>߂肭</small></noscript>';
	}

	print <<"__MyHTML__";
	</td>
	<td><img src="$CNF::place{'image'}{'url'}/_.gif" width=2 height=2 alt=""></td></tr>
    <tr><td><img src="$CNF::place{'image'}{'url'}/_.gif" width=2 height=2 alt=""></td>
	<td><img src="$CNF::place{'image'}{'url'}/_.gif" width=2 height=2 alt=""></td>
	<td><img src="$CNF::place{'image'}{'url'}/_.gif" width=2 height=2 alt=""></td></tr>
   </table>
  </td>
 </tr>
 <tr>
  <td align="right">

__MyHTML__
if(($::FORM{'cmd'} ne 'lgn')&&($::FORM{'cmd'} ne 'csn')&&($::FORM{'cmd'} ne 'rst')&&($::FORM{'cmd'} ne 'mmn')&&($::FORM{'cmd'} ne 'stn')&&($::FORM{'cmd'} ne 'syn')){
	print <<"__MyHTML__";}

  <script type="text/javascript">
  <!--
  document.write('<a href="javascript:history.back();" title="߂" class="CsnLink">߂</a>');
  -->
  </script>
  $noscript
   <br>
   <strong><span class=BseId>
	 @{[$mode eq 'mst' ? '[ID:' . ($::FORM{'id'} || '-----') . ']' : '']}
	</span>
   </strong><br>
__MyHTML__
else{
	print <<"__MyHTML__";}
   <a href="$CNF::place{'this'}{'path'}?cmd=@{[(($::FORM{'cmd'} ne 'lgn') && ($mode eq 'mst')) ? 'lgn' : '']};id=$::FORM{'id'}" title="߂" class=CsnLink>߂</a>
   <br>
   <strong><span class=BseId>
	 @{[$mode eq 'mst' ? '[ID:' . ($::FORM{'id'} || '-----') . ']' : '']}
	</span>
   </strong><br>
   <a href="$CNF::place{'this'}{'path'}?cmd=lgn;id=$::FORM{'id'}" title="Ǘlʂ" class=CsnLink>@{[$mode eq 'csn' ? 'yǗlpz' : '']}</a>
  </td>
 </tr>
</table>
</form>
</body>
</html>
__MyHTML__
}

__SUB__
);


sub AUTOLOAD {
	my $name = ($AUTOLOAD =~ /^DESIGN::(.+)$/)[0];
	if (!defined $SUB{$name}) {
		&::error(\"`ĂȂ֐($AUTOLOAD)Ă΂܂B"); exit;
	}
	eval $SUB{$name}; length($@) && &::error(\"EVAL ERROR: $@");
	delete $SUB{$name}; goto &{'DESIGN::' . $name};
}

1;

# $Id: bse.txt, v 0.9 2010/04/07 00:00:00 S.WATANABE Exp $;
