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

package DESIGN;

#
#   ʕ
#
sub init {
	my $mode	 = shift; # [h
	local *title	 = shift; # Tu^Cg
#ƂقُCJn
if($CNF::view{'page'}{'rss'}{'mode'} == 0)
	{$rss_mode = "RSS0.91 ŐVc[ieLj";}
elsif($CNF::view{'page'}{'rss'}{'mode'} == 1)
	{$rss_mode = "RSS0.91 ŐVc[iŐVLj";}
elsif($CNF::view{'page'}{'rss'}{'mode'} == 2)
	{$rss_mode = "RSS0.91 ŐVLic[Ɋ֌WȂnj";}
else{$rss_mode = "G[: TCgǗ҂֘A";}
if($CNF::base{'meta1'} == 1 ){$robots = "NOINDEX,NOFOLLOW";}
if($CNF::base{'meta1'} == 2 ){$robots = "NOINDEX,FOLLOW";}
if($CNF::base{'meta1'} == 3 ){$robots = "INDEX,NOFOLLOW";}
if($CNF::base{'meta1'} == 4 ){$robots = "INDEX,FOLLOW";}
#ƂقُCI

	print <<"<<<<<<<<<<<<<<<<<<<<<< gslkł >>>>>>>>>>>>>>>>>>>>>>";
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html lang="ja">
<head>
 <meta http-equiv="content-script-type" content="text/javascript">
 <meta http-equiv="content-style-type" content="text/css">
 <link rel="stylesheet" type="text/css" href="$CNF::place{'css'}{'url'}/c-board.css">
<!--###ƂقُC###-->
<META name="robots" content="$robots">
<META name="keywords" content="$CNF::base{'meta2'}">
<META name="description" content="$CNF::base{'meta3'}">
<link rel="alternate" type="application/rss+xml" title="RSS2.0 ŐVLic[Ɋ֌WȂnj" href="$CNF::place{'this'}{'path'}?cmd=r2s;mode=2;id=$::FORM{'id'}">
<link rel="alternate" type="application/rss+xml" title="RSS2.0 ŐVc[ieLj" href="$CNF::place{'this'}{'path'}?cmd=r2s;mode=0;id=$::FORM{'id'}">
<link rel="alternate" type="application/rss+xml" title="RSS2.0 ŐVc[iŐVLj" href="$CNF::place{'this'}{'path'}?cmd=r2s;mode=1;id=$::FORM{'id'}">
<link rel="alternate" type="application/rss+xml" title="$rss_mode" href="$CNF::place{'this'}{'path'}?cmd=rss;id=$::FORM{'id'}">
<SCRIPT language="JavaScript" src="c-board.js"></SCRIPT>
<!--###ƂقُC###-->
 <title>$CNF::base{'title'}$title</title>
</head>
<body>
<!--ƂقُC--><a name="btop"></a>
<<<<<<<<<<<<<<<<<<<<<< gslkł >>>>>>>>>>>>>>>>>>>>>>
}
#܂ń


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

	print <<"<<<<<<<<<<<<<<<<<<<<<< gslkł >>>>>>>>>>>>>>>>>>>>>>";
$CNF::base{'header'}
<!--ƂقُC-->
   <A name="atop"></A>
<table border=0 cellspacing=0 cellpadding=0 width="$CNF::STY::bse{'width'}">
 <tr>
  <td align="left" width="50%" nowrap>
<!--ƂقُC-->
   <table border=0 cellspacing=0 cellpadding=0>
	<tr>
	 <td><img src="$CNF::place{'image'}{'url'}/mnu_table_left.gif" width=14 height=28 alt=""></td>
	 <td background="$CNF::place{'image'}{'url'}/mnu_table_back.gif" nowrap>$menu</td>
	 <td><img src="$CNF::place{'image'}{'url'}/mnu_table_right.gif" width=14 height=28 alt=""></td>
	</tr>
  <TR>
  <td align="center" colspan="2" nowrap>
   <span class=MenuOut>$page{'info'}</span>
$page{'next'}$page{'split'}$page{'prev'}</td>
</TR>
   </table>
<!--ƂقُC-->
  </td>
 </tr>
</table>
${&line}
<<<<<<<<<<<<<<<<<<<<<< gslkł >>>>>>>>>>>>>>>>>>>>>>
}
#܂ń


#
#   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 <<"<<<<<<<<<<<<<<<<<<<<<< gslkł >>>>>>>>>>>>>>>>>>>>>>";
<table border=0 cellspacing=0 cellpadding=0 width="$CNF::STY::bse{'width'}">
 <tr>
  <td align="left" width="50%" nowrap>
<!--ƂقُC-->
   <table border=0 cellspacing=0 cellpadding=0>
  <tr>
  <td align="center" nowrap colspan="2">
   <span class=MenuOut>$page{'info'}</span>
$page{'next'}$page{'split'}$page{'prev'}</td>
 </tr>
	<tr>
	 <td><img src="$CNF::place{'image'}{'url'}/mnu_table_left.gif" width=14 height=28 alt=""></td>
	 <td background="$CNF::place{'image'}{'url'}/mnu_table_back.gif" nowrap>$menu</td>
	 <td><img src="$CNF::place{'image'}{'url'}/mnu_table_right.gif" width=14 height=28 alt=""></td>
	</tr>
   </table>
<!--ƂقُC-->
  </td>
 </tr>
 <tr>
  <td colspan=3><form action="$CNF::place{'this'}{'path'}" method="get"></td>
 </tr>
 <tr>
  <td align="center" valign="top" nowrap>
   <table border=0 cellspacing=0 cellpadding=0>
	<tr>
	 <td nowrap>
	  <span class=MenuOut>y[WF</span>
	  <input type="text" name="page" size=4 class=MenuInput title="\\y[Wԍ͂Ă">
	 </td>
	 <td nowrap><span class=MenuOut>&nbsp;&nbsp;</span></td>
	 <td nowrap><span class=MenuOut>LԍF</span>
	  <input type="text" name="no" size=6 class=MenuInput title="\\Lԍ͂Ă">&nbsp;&nbsp;</td>
	 <td nowrap>
	  <input type="submit" value="G O" class=MenuSend 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">
	 </td>
	</tr>
   </table>
  </td>
  </tr>
  <tr>
<!--ƂقُC--><td nowrap align="center"><span class=Count>${$r_count}</span></td>
 </tr>
 <tr>
<!--ƂقُC--><td colspan=3 align="center">
   <span class="Version"><b>
		<a href="$CNF::place{'this'}{'path'}?cmd=ver;id=$::FORM{'id'}" title="$::C_BOARD_LINK_TITLE">
		$::MYSELF_NAME $::VERSION $::LICENSE_COMMENT</a><br>
   </b></span>
   </form>
  </td>
 </tr>
</table>
$CNF::base{'footer'}
${$r_read}$access
</body>
</html>
<<<<<<<<<<<<<<<<<<<<<< gslkł >>>>>>>>>>>>>>>>>>>>>>
}
#܂ń


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


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

	print <<"<<<<<<<<<<<<<<<<<<<<<< gslkł >>>>>>>>>>>>>>>>>>>>>>";
<form action="$CNF::place{'this'}{'path'}" method="$method">
<table width="100%" height="100%" border=0 cellspacing=0 cellpadding=0>
 <tr>
  <td valign="middle" align="center" height="100%">
   <table border=0 cellspacing=0 cellpadding=0>
	<tr>
	 <td><img src="$CNF::place{'image'}{'url'}/bse_table_lu.gif" width=8 height=7 alt=""></td>
	 <td background="$CNF::place{'image'}{'url'}/bse_table_cu.gif"><img src="$CNF::place{'image'}{'url'}/_.gif" width=1 height=1 alt=""></td>
	 <td><img src="$CNF::place{'image'}{'url'}/bse_table_ru.gif" width=8 height=7 alt=""></td>
	</tr>
	<tr>
	 <td background="$CNF::place{'image'}{'url'}/bse_table_lc.gif"><img src="$CNF::place{'image'}{'url'}/_.gif" width=1 height=1 alt=""></td>
	 <td>
<<<<<<<<<<<<<<<<<<<<<< gslkł >>>>>>>>>>>>>>>>>>>>>>
}
#܂ń
__SUB__


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

	print <<"<<<<<<<<<<<<<<<<<<<<<< gslkł >>>>>>>>>>>>>>>>>>>>>>";
	 </td>
	   <td background="$CNF::place{'image'}{'url'}/bse_table_rc.gif"><img src="$CNF::place{'image'}{'url'}/_.gif" width=1 height=1 alt=""></td>
	</tr>
	<tr>
	 <td><img src="$CNF::place{'image'}{'url'}/bse_table_ld.gif" width=8 height=9 alt=""></td>
	 <td background="$CNF::place{'image'}{'url'}/bse_table_cd.gif"><img src="$CNF::place{'image'}{'url'}/_.gif" width=1 height=1 alt=""></td>
	 <td><img src="$CNF::place{'image'}{'url'}/bse_table_rd.gif" width=8 height=9 alt=""></td>
	</tr>
   </table>
  </td>
 </tr>
 <tr>
  <td align="right">
<!--###ƂقُC###-->
<<<<<<<<<<<<<<<<<<<<<< gslkł >>>>>>>>>>>>>>>>>>>>>>
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 <<"<<<<<<<<<<<<<<<<<<<<<< gslkł >>>>>>>>>>>>>>>>>>>>>>";}

	<INPUT type="button" value="߂" onclick="history.back();"> 
	<INPUT type="button" value="" onclick="window.close();">
   <br>
   <b><span class=BseId>
	 @{[$mode eq 'mst' ? '[ID:' . ($::FORM{'id'} || '-----') . ']' : '']}
	</span>
   </b><br>
<<<<<<<<<<<<<<<<<<<<<< gslkł >>>>>>>>>>>>>>>>>>>>>>
else{
	print <<"<<<<<<<<<<<<<<<<<<<<<< gslkł >>>>>>>>>>>>>>>>>>>>>>";}
<!--###ƂقُC###-->
   <a href="$CNF::place{'this'}{'path'}?cmd=@{[(($::FORM{'cmd'} ne 'lgn') && ($mode eq 'mst')) ? 'lgn' : '']};id=$::FORM{'id'}" title="߂" class=CsnLink>߂</a>
   <br>
   <b><span class=BseId>
	 @{[$mode eq 'mst' ? '[ID:' . ($::FORM{'id'} || '-----') . ']' : '']}
	</span>
   </b><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>
<<<<<<<<<<<<<<<<<<<<<< gslkł >>>>>>>>>>>>>>>>>>>>>>
}
#܂ń
__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 1.1.1.3 2003/11/19 13:00:00 N.Hirai Exp $;
