#!/usr/local/bin/perl
#/usr/local/bin/perl5

#---------------------------- 伊豆
require './jcode.pl';
#---------------------------- ローカル
#use lib './lib';
#require 'jcode.pl';
#----------------------------

#************************************************************************#
# 初期設定
#************************************************************************#
#-------------------------------------------------------------------------------
#$reload= "http://ueda-m/cgi-bin1/info/infod.cgi";		# このファイル
#$data  = './info/info1.dat';		                    # お知らせファイル
#$lockf = "http://ueda-m/cgi-bin1/info/ibbs.lock";		# ロックファイル
#-------------------------------------------------------------------------------
$reload= "./infod.cgi";		# このファイル
$data  = "./info1.dat";	# お知らせファイル
$lockf = "./ibbs.lock";	# ロックファイル
#-------------------------------------------------------------------------------
$met   = "POST";		    # データ受け渡し方法(POST or GET)
$pass  = "y7u8i9o0";		# 管理用のパスワード(半角英数字)

$tface = "ＭＳ 明朝";	# タイトルのフォント
$tsize = 6;			    # タイトルのサイズ
$tcolor= "#FFA09B";		# タイトルの色(16進数)

$text = "#000000";		# 標準フォント色指定(16進数)
$link = "#0000EE";		# 未リンク色の指定  (〃)
$vlink= "#00EEEE";		# 既リンク色の指定  (〃)
$ttb  = "#FEF7B6";		# 説明書上部の表の色(〃)
$k_back="#FFFFFF";		# 記事の中のバック色(〃)
$t_back="#008080";		# 記事タイトルのバック色(〃)
$t_font="#FFFFFF";		# 記事タイトルの色  (〃)
$t_color1="#FFE4B5";    # タイトルの色(お知らせ)
$t_color2="#FFE4B5";    # タイトルの色(得々情報)
$t_color3="#FFE4B5";    # タイトルの色(ご案内)

$max  = 70;			# 親記事最大保持件数
$res_r= 0;			# レスが付くとトップへ？(1=YES 0=NO)
$a_max= 10;			# 1ページ表示件数 (レス使用時は少なめに)

$locks = 0;			# ファイルをロックする?(1=YES 0=NO)
				    # ディレクトリのパーミッションを[777]必要があるかも

$i_dir = ".";		# アイコン画像のある場所(このままだと同じディレクトリ)

$link_i= 0;			 # URLを画像に置きかえる？(1=YES 0=NO)
$l_img = "home.gif"; # 上がYESの場合使う画像 (アイコンと同じディレクトリに)
				     # URLではなくて画像の名前だよ。
$h_hei = "25";		 # リンク画像の縦幅 (ピクセル指定)
$h_wid = "46";		 # リンク画像の横幅 (〃)

$wrap = "hard";			    # フォームの改行形式 (soft=手動 or hard=強制)

$tag  =  1;			                # タグの使用 (YES=1 NO=0)
$a_link= 1;			                # URL、E-MAILアドレスだと自動的にリンクする?(1=YES 0=NO)

$k_font="ＭＳ Ｐゴシック";	        # 基本フォント(環境によって対応、未対応フォントがある)
$k_size="11pt";			            # 基本フォントサイズ(ptは単位)
$ie_c = "#E88C8E";		            # リンクを合わせた時の色変化の指定 (16進数 IEのみ変化)

#--------------------------------------------------------------------------------#
$bg    = "#FFFFFF";            # バックカラーの指定(〃)
$back_g= "";
$title = "お知らせ";           # タイトル
$data  = './info/info1.dat';   # 入力ファイル
&d_code_;
if($kind eq "info"){
  $bg    = "#BFDFDF";
  $title = "お知らせ";
  $t_color1 = "#CC99CC";
  $data  = './info1.dat';
}
if($kind eq "toku"){
  $bg    = "#FFFFFF";
  #$back_g= "toku_b1.jpg";
  $title = "得々情報";
  $t_color2 = "#CC99CC";
  $data  = './info2.dat';
}
if($kind eq "anna"){
  $bg    = "#BFDFDF";
  #$back_g= "toku_b1.jpg";
  $title = "ご案内";
  $t_color3 = "#CC99CC";
  $data  = './info3.dat';
}
if($mode eq "hen"){ &hen_; }
if($mode eq "h_w"){ &h_w_; }
&main_;
exit(0);
#************************************************************************#
# メイン処理
#************************************************************************#
sub main_ {
  open(LOG,"$data") or &error_("ファイルがオープンできません。 $data");
  @lines = <LOG>;
  close(LOG);

  @NEW = ();
  foreach (0 .. $#lines) {
          ($namber,$date,$name,$email,$d_may,$comment,$url,$font,$ico,$type) = split(/<>/,$lines[$_]);
	if (($type == 0 || $type eq "") && $name ne "") { push(@NEW,$lines[$_]); }
  }
  @lines = reverse(@lines);

  &heder_;

print <<"_DATA_";
<CENTER>
<CENTER>
<TABLE BGCOLOR=#009999 CELLPADDING=2><TR><TD>
<A HREF=\"../index.htm\"><IMG SRC=\"../image/tmlogo1.jpg\" BORDER=0></A></TD><TD>
<TABLE BORDER=1 CELLSPACING=1 CELLPADDING=2 
BGCOLOR=#DDDDDD BORDERCOLOR=#FF0000 BORDERCOLORLIGHT=#000000 BORDERCOLORDARK=#FFFFFF>
<TR ALIGN=center>
<TD BGCOLOR=$t_color3 NOWRAP><A HREF=\"infod.cgi?kind=anna\"><SPAN STYLE=\"font:9pt \'ＭＳ ゴシック\'\">ご案内</SPAN></A></TD>

<TD BGCOLOR=#FFE4B5 NOWRAP><A HREF=\"../nagahama.htm\"><SPAN STYLE=\"font:9pt \'ＭＳ ゴシック\'\">別　館</SPAN></A></TD>
<TD BGCOLOR=$t_color1 NOWRAP><A HREF=\"infod.cgi?kind=info\">
<SPAN  STYLE=\"font:9pt \'ＭＳ ゴシック\'\">お知らせ</SPAN></A></TD>

<TD BGCOLOR=#FFE4B5 NOWRAP><A HREF=\"../anekkus.htm\"><SPAN STYLE=\"font:9pt \'ＭＳ ゴシック\'\">客　室</SPAN></TD>
<TD BGCOLOR=#FFE4B5 NOWRAP><A HREF=\"../karaoke.htm\"><SPAN STYLE=\"font:9pt \'ＭＳ ゴシック\'\">カラオケ</SPAN></A></TD>
<TD BGCOLOR=#FFE4B5 NOWRAP><A HREF=\"../furari.htm\"><SPAN STYLE=\"font:9pt \'ＭＳ ゴシック\'\">居酒屋</SPAN></A></TD>
<TD BGCOLOR=#FFE4B5 NOWRAP><A HREF=\"../onsen.htm\"><SPAN STYLE=\"font:9pt \'ＭＳ ゴシック\'\">浜の湯</SPAN></A></TD>
<TD BGCOLOR=#FFE4B5 NOWRAP><A HREF=\"../ryokin.htm\"><SPAN STYLE=\"font:9pt \'ＭＳ ゴシック\'\">料　金</SPAN></A></TD>
<TR ALIGN=center>
<TD BGCOLOR=#FFE4B5 NOWRAP><A HREF=\"../ryouri.htm\"><SPAN STYLE=\"font:9pt \'ＭＳ ゴシック\'\">料　理</SPAN></A></TD>
<TD BGCOLOR=#FFE4B5 NOWRAP><A HREF=\"../sinfo_n.htm\"><SPAN STYLE=\"font:9pt \'ＭＳ ゴシック\'\">空室情報</SPAN></A></TD>

<TD BGCOLOR=$t_color2 NOWRAP><A HREF=\"infod.cgi?kind=toku\">
<SPAN STYLE=\"font:9pt \'ＭＳ ゴシック\'\">得々情報</SPAN></A></TD>

<TD BGCOLOR=#FFE4B5 NOWRAP><A HREF=\"../kotsu.htm\"><SPAN STYLE=\"font:9pt \'ＭＳ ゴシック\'\">交　通</SPAN></A></TD>
<TD BGCOLOR=#FFE4B5 NOWRAP><A HREF=\"../apoint.htm\">
<SPAN STYLE=\"font:9pt \'ＭＳ ゴシック\'\">御 予\ 約</SPAN></A></TD>
<TD BGCOLOR=#FFE4B5 NOWRAP>
<A HREF=\"mailto:newtomi\@izu.co.jp\"><SPAN STYLE=\"font:9pt \'ＭＳ ゴシック\'\">メール</SPAN></A></TD>
<TD BGCOLOR=#FFE4B5 NOWRAP><A HREF=\"../mapp.htm\">
<SPAN STYLE=\"font:9pt \'ＭＳ ゴシック\'\">地　図</SPAN></A></TD>
<TD BGCOLOR=#FFE4B5 NOWRAP><A HREF=\"../link/link.htm\"><SPAN STYLE=\"font:9pt \'ＭＳ ゴシック\'\">りんく集</SPAN></A></TD>
</TABLE>
<TD BGCOLOR="#009999">
<TABLE BORDER="1" BGCOLOR="#FFFFFF" CELLPADDING="3"><TR><TD NOWRAP>
<SPAN STYLE=\"font:9pt \'ＭＳ ゴシック\'\"><B>(0557)<BR>67-0017</B></SPAN>
</TD></TABLE>
</TD></TABLE>
</CENTER><P>
_DATA_

  #----------------------------------------- タイトル表示
  if ($kind eq "info") {
    print "<CENTER><IMG SRC=\"info_t.jpg\"></CENTER><BR>\n";
	print "<HR SIZE=5 WIDTH=95\%>\n";
	print "<TABLE BORDER=0 BGCOLOR=#FFFFFF WIDTH=93\%><TR><TD>　</TD><TD ALIGN=left>\n";
	print "<FONT COLOR=#000000>\n";
	print "■　このページでは、旬の情報をお知らせいたします。\n";
	print "</TD></TABLE>\n";
	print "<HR SIZE=5 WIDTH=95\%></CENTER>\n";
  }
  elsif ($kind eq "toku")  {
    print "<CENTER><IMG SRC=\"toku.jpg\"></CENTER><BR>\n";
		print "<HR SIZE=5 WIDTH=95\%>\n";
#	print "<TABLE BORDER=0 BGCOLOR=#FFFFFF WIDTH=93\%><TR><TD>　</TD><TD ALIGN=left>\n";
#	print "<FONT COLOR=#000000>\n";
#	print "■　いつもありがとうございます。宿泊の際に、\n";
#	print "このページをプリントアウトしてご持参ください。<BR>\n";
#	print "■　チェックインの時にフロントに提示して頂ければ、無料サービスが受けられます。<BR>\n";
#	print "</TD></TABLE>\n";
#	print "<HR SIZE=5 WIDTH=95\%></CENTER><P>\n";
  }
  elsif ($kind eq "anna")  {
    print "<CENTER><IMG SRC=\"annai.gif\"></CENTER><BR>\n";
	}

  $total=@NEW;
  $page_=int(($total-1)/$a_max);
  if ($FORM{'page'} eq '') { $page = 0; }
  else { $page = $FORM{'page'}; }

  $end_data = @NEW - 1;
  $page_end = $page + ($a_max - 1);
  if ($page_end >= $end_data) { $page_end = $end_data; }

  #-------------------------------------------- 処理分岐
  if    ($kind eq "info") { &info_; }
  elsif ($kind eq "toku") { &toku_; }
  elsif ($kind eq "anna") { &anna_; }

  &footer_;
}
#************************************************************************#
# お知らせ表示
#                 ?kind=info
#************************************************************************#
sub info_ {

  #print "テスト";

  $lcnt=1;
  foreach ($page .. $page_end) {
    ($namber,$date,$name,$email,$d_may,$comment,$url,$font,$ico,$type) = split(/<>/,$NEW[$_]);
    if ($email ne "") { $name="<a href=\"mailto:$email\">$name</a>"; }
    if ($d_may eq "") { $d_may = "タイトルなし"; }
    if ($link_i == 1){
      if ($url ne "") {
        $url = "<A HREF=\"http://$url\" target=\"_top\">
                <IMG SRC=\"$i_dir/$l_img\" BORDER=0 WIDTH=\"$h_wid\" HEIGHT=\"$h_hei\"></A>";
      }
    } elsif ($link_i == 0){
      if ($url ne "") { $url = "<A HREF=\"http://$url\" TARGET=\"_top\">http://$url</A>"; }
    }
    if ($lcnt == 1) { $k_back="#FFFFDD"; }
    else            { $k_back="#DFFEFE"; }
print <<"_DATA_";
<CENTER><TABLE WIDTH=80% BGCOLOR=$k_back BORDER=5><TR><TD>
<TABLE WIDTH=100% BGCOLOR=$t_back><TR><TD><FONT COLOR=$t_font><B>　★
$d_may　　　[ $date ]</B></FONT></TD></TR></TABLE>
<TR><TD><TABLE WIDTH=100%><TR>
_DATA_

    if ($a_link == 1) { &auto_($comment); }

    print "<TD><FONT COLOR=\"$font\">$comment</FONT></TD></TR></TABLE>\n";
    print "</TD></TR></TABLE></CENTER><BR>";

    $lcnt=0;
  }
  print "<P>";

}
#************************************************************************#
# 得々情報表示
#                 ?kind=toku
#************************************************************************#
sub toku_ {
  $lcnt=1;
  foreach ($page .. $page_end) {
        ($namber,$date,$name,$email,$d_may,$comment,$url,$font,$ico,$type) = split(/<>/,$NEW[$_]);
    if ($email ne "") { $name="<a href=\"mailto:$email\">$name</a>"; }
    if ($d_may eq "") { $d_may = "タイトルなし"; }
    if ($link_i == 1){
      if ($url ne "") {
        $url = "<A HREF=\"http://$url\" target=\"_top\">
                <IMG SRC=\"$i_dir/$l_img\" BORDER=0 WIDTH=\"$h_wid\" HEIGHT=\"$h_hei\"></A>";
      }
    } elsif ($link_i == 0){
      if ($url ne "") { $url = "<A HREF=\"http://$url\" TARGET=\"_top\">http://$url</A>"; }
    }
    if ($lcnt == 1) { $k_back="#DFFEFE"; }
    else            { $k_back="#FFFFDD"; }

print <<"_DATA_";
<CENTER><TABLE WIDTH=80% BGCOLOR=$k_back BORDER=5><TR><TD>
<TABLE WIDTH=100% BGCOLOR=\"#B66EB6\"><TR><TD><FONT COLOR=$t_font><B>　★
$d_may　　　[ $date ]</B></FONT></TD></TR></TABLE>
<TR><TD><TABLE WIDTH=100%><TR>
_DATA_

    if ($a_link == 1) { &auto_($comment); }

    print "<TD><FONT COLOR=\"$font\">$comment</FONT></TD></TR></TABLE>\n";
    print "</TD></TR></TABLE></CENTER><BR>";
    $lcnt=0;
  }
}
#************************************************************************#
# ご案内表示
#                 ?kind=anna
#************************************************************************#
sub anna_ {
  $lcnt=1;
  foreach ($page .. $page_end) {
        ($namber,$date,$name,$email,$d_may,$comment,$url,$font,$ico,$type) = split(/<>/,$NEW[$_]);
    if ($email ne "") { $name="<a href=\"mailto:$email\">$name</a>"; }
    if ($d_may eq "") { $d_may = "タイトルなし"; }
    if ($link_i == 1){
      if ($url ne "") {
        $url = "<A HREF=\"http://$url\" target=\"_top\">
                <IMG SRC=\"$i_dir/$l_img\" BORDER=0 WIDTH=\"$h_wid\" HEIGHT=\"$h_hei\"></A>";
      }
    } elsif ($link_i == 0){
      if ($url ne "") { $url = "<A HREF=\"http://$url\" TARGET=\"_top\">http://$url</A>"; }
    }
    if ($lcnt == 1) { $k_back="#DFFEFE"; }
    else            { $k_back="#FFFFDD"; }

print <<"_DATA_";
<TABLE BORDER=1 BGCOLOR=#999900 WIDTH=85%><TR><TD>
<TABLE BORDER=0 CELLPADDING=10 WIDTH=100% BGCOLOR=#FFFFCC>
  <TR>
    <TD ALIGN=left NOWRAP>
    <SPAN STYLE=\"font:11pt/14pt 'ＭＳ 明朝'\">
_DATA_

    if ($a_link == 1) { &auto_($comment); }

    print "$comment</SPAN></TD>";
    print "<TD ALIGN=\"left\" VALIGN=\"bottom\"><IMG SRC=\"kao.jpg\"></TD></TR></TABLE>\n";
    print "</TD></TABLE></CENTER><P>";
    $lcnt=0;

print <<"_DATA_";
<CENTER>
<TABLE BORDER=0 BGCOLOR=#999900 CELLPADDING=10 WIDTH=95%><TR><TD>
<TABLE BORDER=0 BGCOLOR=#DDFFDD CELLPADDING=10 WIDTH=100%>
  <TR>
    <TD><FONT COLOR=#333300>
	伊豆へ来たら・・・熱海へ来たら・・・とにかくゆっくりして、あまり細かな
	予\定もたてずに、日頃の疲れを吹き飛ばして欲しいですね。
	そんな意味もあって、チェックインを午後１時と、このあたりでは
	一番早い時刻にしました。<BR>
	今、伊豆の宿はどこも頑張っています。いろいろなプランや施設、
	リーズナブルな価格設定でお客様をお待ちしています。<BR>
	当館でも、お客様の大切な休日を有意義に過ごして頂きたいと思い、お知らせできる
	限りの情報をホームページにまとめてみました。
	目的とご予\算にあった旅をして、どうぞ明日の為にリフレッシュしてください。<BR>
	私どもは昭和５９年の創業ですので、伊豆の宿の中ではひよこのような宿です。
	でも皆様にゆったり、たっぷり．．．とくつろいで頂ける様な、そんな宿づくりを心がけています。
	</FONT>
	</TD>
</TABLE>
</TD></TABLE>
</CENTER>
<P>

<CENTER>
<TABLE BORDER=0 BGCOLOR=#EEFFEE CELLPADDING=10 WIDTH=95%>
  <TR>
    <TD>
		<TABLE BGCOLOR=#FFFFCC CELLPADDING=8>
		<TR>
		<TD VALIGN=top><FONT COLOR=0000FF>■</FONT></TD>
		<TD>
		当館は波静かな南熱海の長浜海岸を目の前にしています。
		夏は海水浴のお客様で、それはそれは賑やかなのですが、いつもは
		本当に静かです。あんまり静かで寂しいので館内にカラオケボックスや居酒屋をつくっちゃいました。
		</TD>
		</TABLE>
	</TD>
  <TR>
    <TD ALIGN=center NOWRAP>
		<TABLE>
		<TR>
		<TD><IMG SRC=\"./nagahama.jpg\"></TD>
		<TD><FONT COLOR=DDFFDD>_______________</FONT></BR></TD>
		<TD><IMG SRC=\"./ka01s.jpg\"></TD>
		<TD><FONT COLOR=DDFFDD>_______________</FONT></BR></TD>
		<TD><IMG SRC=\"./furari.jpg\"></TD>
		<TR>
		<TD ALIGN=center>長浜海岸</TD>
		<TD></BR></TD>
		<TD ALIGN=center>カラオケボックス</TD>
		<TD></BR></TD>
		<TD ALIGN=center>居酒屋</TD>
		</TABLE>
	</TD>
  <TR>
    <TD>
		<TABLE BGCOLOR=#FFFFCC CELLPADDING=8 WIDTH=100%>
		<TR>
		<TD VALIGN=top><FONT COLOR=0000FF>■</FONT></TD>
		<TD>
		別棟になっております温泉館『浜の湯』は、こだわってつくりました。
		きっと気に入って頂けると思っています。
		</TD>
		</TABLE>
    </TD>
  <TR>
    <TD ALIGN=center NOWRAP>
		<TABLE>
		<TR>
		<TD><IMG SRC=\"./on00s.jpg\"></TD>
		<TD><FONT COLOR=DDFFDD>_______________</FONT></BR></TD>
		<TD><IMG SRC=\"./on02s.jpg\"></TD>
		<TD><FONT COLOR=DDFFDD>_______________</FONT></BR></TD>
		<TD><IMG SRC=\"./on01s.jpg\"></TD>
		<TR>
		<TD ALIGN=center>温泉いいなァ</TD>
		<TD></BR></TD>
		<TD ALIGN=center>ホット一息</TD>
		<TD></BR></TD>
		<TD ALIGN=center>檜のお風呂</TD>
		</TABLE>
	</TD>
  <TR>
    <TD>
		<TABLE BGCOLOR=#FFFFCC CELLPADDING=8>
		<TR>
		<TD VALIGN=top><FONT COLOR=0000FF>■</FONT></TD>
		<TD>
		でもやっぱり伊豆の宿の基本はお料理でよね。海を目の前にして
		ピチピチコリコリのお刺身を食するのがイチバン。鮮度はピカイチです。
		私の兄が漁師で私自身も包丁を持ってさばいているので間違いないですよ。
		</TD>
		</TABLE>
	</TD>
  <TR>
    <TD ALIGN=center NOWRAP>
		<TABLE>
		<TR>
		<TD><IMG SRC=\"./ry00s.jpg\"></TD>
		<TD><FONT COLOR=DDFFDD>_______________</FONT></BR></TD>
		<TD><IMG SRC=\"./ry01s.jpg\"></TD>
		<TD><FONT COLOR=DDFFDD>_______________</FONT></BR></TD>
		<TD><IMG SRC=\"./funes.jpg\"></TD>
		<TR>
		<TD ALIGN=center>豪華な舟盛り</TD>
		<TD></BR></TD>
		<TD ALIGN=center>鮮度ピカイチ</TD>
		<TD></BR></TD>
		<TD ALIGN=center>富義丸(兄の船)</TD>
		</TABLE>
	</TD>
  <TR>
    <TD>
		<TABLE BGCOLOR=#FFFFCC CELLPADDING=8>
		<TR>
		<TD VALIGN=top><FONT COLOR=0000FF>■</FONT></TD>
		<TD>
		ご宿泊料金は細かくお部屋タイプ別に分かれています。
		和洋折衷の宿ですので、いろいろなタイプのお部屋があります。
		洋室はツイン・トリプルで、和室にすれば１０畳以上の広さがあります。
		和室は１０〜１６畳と広めです。目的とご予\算に応じてお選びください。
		</TD>
		<TR>
		<TD VALIGN=top><FONT COLOR=0000FF>■</FONT></TD>
		<TD>
		自分で泊まってみて料金を決めたので、料金の違う分だけ造りとか広さとか
		ロケーションとか何かが違います。
		</TD>
		</TABLE>
    </TD>
  <TR>
     <TD ALIGN=center NOWRAP>
		<TABLE>
		<TR>
		<TD><IMG SRC=\"./ro00s.jpg\"></TD>
		<TD><FONT COLOR=DDFFDD>_______________</FONT></BR></TD>
		<TD><IMG SRC=\"./room01s.jpg\"></TD>
		<TD><FONT COLOR=DDFFDD>_______________</FONT></BR></TD>
		<TD><IMG SRC=\"./room_wy.jpg\"></TD>
		<TR>
		<TD ALIGN=center>ダイニング</TD>
		<TD></BR></TD>
		<TD ALIGN=center>洋室</TD>
		<TD></BR></TD>
		<TD ALIGN=center>和洋室</TD>
		</TABLE>
	</TD>
  <TR>
    <TD>
		<TABLE BGCOLOR=#FFFFCC CELLPADDING=8>
		<TR>
		<TD VALIGN=top><FONT COLOR=0000FF>■</FONT></TD>
		<TD>
		『温泉民宿　ながはまホール』は、民宿タイプの和風館です。
		長い間ニューとみよし本館としてご愛顧頂いておりましたが、
		平成１３年５月に旧本館をリニューアルして別館ながはまホールとしました。
		</TD>
		<TR>
		<TD VALIGN=top><FONT COLOR=0000FF>■</FONT></TD>
		<TD>
		宴会場を改装して会議室【５０名収容】にしましたので、会合、会議、研修、合宿等にご利用して頂けます。
		会議室だけのご利用も可能です。
		</TD>
		</TABLE>
    </TD>
  <TR>
     <TD ALIGN=center NOWRAP>
		<TABLE>
		<TR>
		<TD><IMG SRC=\"./hn01s.jpg\"></TD>
		<TD><FONT COLOR=DDFFDD>_______________</FONT></BR></TD>
		<TD><IMG SRC=\"./hn02s.jpg\"></TD>
		<TD><FONT COLOR=DDFFDD>_______________</FONT></BR></TD>
		<TD><IMG SRC=\"./hn03s.jpg\"></TD>
		<TR>
		<TD ALIGN=center>民宿タイプ</TD>
		<TD></BR></TD>
		<TD ALIGN=center>客室</TD>
		<TD></BR></TD>
		<TD ALIGN=center>元宴会場</TD>
		</TABLE>
	</TD>
</TABLE><P>
</CENTER>

<CENTER>
<TABLE BORDER=0 BGCOLOR=#999900 CELLPADDING=10 WIDTH=95%><TR><TD>
<TABLE BORDER=0 BGCOLOR=#DDFFDD CELLPADDING=10 WIDTH=100%>
  <TR>
    <TD>
		ここまで読んで下さった皆さん、ありがとうございます。<BR>
		私のこの宿にかける情熱はいくら語っても語りつくせませんが、
		インターネットなる素晴らしいものができて、私の思いが打ち明けられる様になりました。ありがたいことです。<BR>
		何かご相談やわからないことがありましたら、メールでもお電話でも結構\です。お気軽にご連絡ください。<BR>
		私たちといっしょに大切な休日が有意義な日となる様なプランをたてましょう。
		皆様のお越しを心よりお待ち致しております。<BR>
	</TD>
</TABLE>
</TD></TABLE>
</CENTER>
<P>

<TABLE BORDER=1 ALIGN=right CELLPADDING=5 BGCOLOR=#FFFFCC>
  <TR>
    <TD>
    <SPAN STYLE=\"font:11pt/14pt 'ＭＳ 明朝'\">
		館主、敬白。
    </SPAN>
    </TD>
</TABLE>

_DATA_

  }
}
#************************************************************************#
# 記事編集ページ
#                 ?mode=hen&kind=info&kiji=1
#************************************************************************#
sub hen_ {
#if ($FORM{'pass'} ne "$pass") { &error_("パスワードが違います!"); }
open(DB,"$data");
@lines = <DB>;
close(DB);

@new = ();
$flag = 0;
foreach $line (@lines) {
	($namber,$date,$name,$email,$d_may,$comment,$url,$font,$ico,$type,$delkey,$ip) = split(/<>/,$line);
	if ($kiji eq "$namber") {
	$type =~ s/\n/0/g;
	$delkey=~ s/\n//g;
	&heder_;
	$comment =~ s/<BR>/\n/g;
	if ($tag) { $comment =~ s/</&lt;/g; $comment =~ s/>/&gt;/g; }
print <<"_HTML_";
<TABLE><TR>
<TD>
<FORM ACTION="$reload" METHOD="$met">
<INPUT TYPE=hidden NAME=pass VALUE="$FORM{'pass'}">
<INPUT TYPE=hidden NAME=kind VALUE=info>
<INPUT TYPE=submit VALUE="お知らせ"></FORM>
</TD>
<TD>
<FORM ACTION="$reload" METHOD="$met">
<INPUT TYPE=hidden NAME=pass VALUE="$FORM{'pass'}">
<INPUT TYPE=hidden NAME=kind VALUE=toku>
<INPUT TYPE=submit VALUE="得々情報"></FORM>
</TD>
</TABLE>
<TABLE WIDTH=100% BGCOLOR=$ttb><TR><TH>[$title] の編集</TH></TR></TABLE>
<BLOCKQUOTE><FORM ACTION="$reload" METHOD="$met"><INPUT TYPE=hidden NAME=pass VALUE="$FORM{'pass'}">
<INPUT TYPE=hidden NAME=mode   VALUE=h_w>
<INPUT TYPE=hidden NAME=kind   VALUE=$kind>
<INPUT TYPE=hidden NAME=namber VALUE=$namber>
<INPUT TYPE=hidden NAME=type   VALUE=$type>
<INPUT TYPE=hidden NAME=delkey VALUE=$delkey>
<INPUT TYPE=hidden NAME=name   VALUE=$name>
<INPUT TYPE=hidden NAME=email  VALUE=$email>
<INPUT TYPE=hidden NAME=url    VALUE=$url>
<TABLE>
_HTML_

if($kind ne "anna") {
print <<"_HTML_";
<TR><TD>タイトル</TD><TD>： <INPUT TYPE=text NAME="d_may" SIZE=60 VALUE="$d_may"></TD></TR>
<TR><TD>日　　付</TD><TD>： <INPUT TYPE=text NAME="date1" SIZE=20 VALUE="$date"></TD></TR>
<TR><TD colspan=2>記入欄 <SMALL>(適当に改行を入れて下さい)</SMALL><BR>
<TEXTAREA NAME="comment" rows=20 cols=90 wrap=$wrap>$comment</TEXTAREA></TD></TR>
_HTML_
}
else
{
print <<"_HTML_";
<TR><TD colspan=2>記入欄 <SMALL>(適当に改行を入れて下さい)</SMALL><BR>
<TEXTAREA NAME="comment" rows=20 cols=90 wrap=$wrap>$comment</TEXTAREA></TD></TR>
_HTML_
}


print <<"_EDIT_";
</TD></TR><TR><TD></TD><TD>
<INPUT TYPE=submit VALUE="更　新">
<INPUT TYPE=reset VALUE=リセット></TD></TR></TABLE></FORM></BLOCKQUOTE><HR>
_EDIT_
&footer_;
	}
	}
}
#************************************************************************#
# 編集記事を書きかえる
#                 ?mode=h_w&kind=xxxx&kiji=1
#************************************************************************#
sub h_w_ {
open(DB,"$data");
@lines = <DB>;
close(DB);
@new = ();
$flag = 0;
foreach $line (@lines) {
	$line =~ s/\n//g;
	($knam,$kdate,$kname,$kemail,$kd_may,$kcomment,$kurl,$kfont,$kico,$ktype,$kdel,$kip) = split(/<>/,$line);
	if ($namber eq "$knam") {
		$line = "$namber<>$date<>$name<>$email<>$d_may<>$comment<>$url<>$font<>$ico<>$type<>$delkey<>$kip<>";
		$flag = 1;
	}
	push(@new,"$line\n");
}

if ($flag == 0) { &error_("番号が不正です。"); }

if ($flag == 1) {
	open (DB,">$data");
	print DB @new;
	close(DB);
}
$msg="<h3>編集完了</h3>";
&main_;
}
#************************************************************************#
# ヘッダ表示
#************************************************************************#
sub heder_ {
  print "Content-type: text/html\n\n";

  print "<HTML><HEAD>\n";

print <<"_DATA_";
<STYLE TYPE="text/css">
<!--
A:link   { text-decoration:none; }
A:visited{ text-decoration:none; }
A:hover  { color:$ie_c; text-decoration:underline; }
BODY,TD,TH{ font-family:"$k_font"; font-size:$k_size; }
-->
</STYLE>
<META HTTP-EQUIV="Content-type" CONTENT=\"text/html; charset=x-sjis">
<TITLE>$title</TITLE></HEAD>
_DATA_

  print "<BODY TEXT=$text LINK=$link VLINK=$vlink BGCOLOR=$bg BACKGROUND=\"$back_g\">\n";
}
#************************************************************************#
# フッター表示
#************************************************************************#
sub footer_ {
  print "</BODY></HTML>";
  exit(0);
}
#************************************************************************#
# フォームなどのデコード
#************************************************************************#
sub d_code_ {
	if ($ENV{'REQUEST_METHOD'} eq "POST") {
		if ($ENV{'CONTENT_LENGTH'} > 51200) { &error_("文章があまりに長すぎます!"); }
		read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
	} else { $buffer = $ENV{'QUERY_STRING'}; }

	@pairs = split(/&/,$buffer);
	foreach $pair (@pairs) {
		($name, $value) = split(/=/, $pair);
		$value =~ tr/+/ /;
		$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;

		&jcode'convert(*value,'sjis');

		if ($tag == 0) {
			$value =~ s/</\&lt\;/g;
			$value =~ s/>/\&gt\;/g;
			$value =~ s/\"/\&quot\;/g;
		} else {
			$value =~ s/<>/\&lt\;\&gt\;/g;
			$value =~ s/<!--(.|\n)*-->//g;
		}

		$FORM{$name} = $value;
	}

	$d_may= $FORM{'d_may'};
	$name = $FORM{'name'};
	$comment = $FORM{'comment'};
	$comment =~ s/\r\n/<BR>/g;
	$comment =~ s/\r|\n/<BR>/g;
	$email = $FORM{'email'};
	$url = $FORM{'url'};
	$url =~ s/^http\:\/\///;
	$mode = $FORM{'mode'};
	$kind = $FORM{'kind'};
	$ico  = $FORM{'ico'};
	$font = $FORM{'font'};
	$kiji = $FORM{'kiji'};
	$namber=$FORM{'namber'};
	$type = $FORM{'type'};
	$delkey=$FORM{"delkey"};
	$mo    =$FORM{"mo"};
	if ($mode eq 'del') { push(@dels,$value); }

	$ENV{'TZ'} = "JST-9";
	($sec,$min,$hour,$mday,$mon,$year,$wday) = localtime(time);
	$year=$year+1900;
	$mon++;
	if ($mon  < 10) { $mon  = "0$mon";  }
	if ($mday < 10) { $mday = "0$mday"; }
	if ($hour < 10) { $hour = "0$hour"; }
	if ($min  < 10) { $min  = "0$min";  }
	if ($sec  < 10) { $sec  = "0$sec";  }
	$week = ('日','月','火','水','木','金','土') [$wday];

	if ($mode eq 'h_w') {
		$date = $FORM{'date1'};
	} else {
		$date = "$year\/$mon\/$mday\($week\) $hour\:$min\:$sec";
	}
}
#************************************************************************#
# URL、E-MAILを判断してリンクにする
#************************************************************************#
sub auto_ {
	$_[0] =~ s/([^=^\"]|^)(http\:[\w\.\~\-\/\?\&\+\=\:\@\%\;\#]+)/$1<A HREF=$2 TARGET=_top>$2<\/a>/g;
	$_[0] =~ s/([\w\.\-]+)\@([\w\.\-]+)/<A HREF=mailto\:$1\@$2>$1\@$2<\/a>/g;
}
#************************************************************************#
# エラー表示
#************************************************************************#
sub error_ {
if (-e $lockf) { unlink($lockf); }
	&heder_;
	print "<HR WIDTH=85\%><CENTER><H3>エラーが発生しました！<P>\n";
	print "<FONT COLOR=#FF0000>$_[0]</FONT><HR WIDTH=85\%><P>\n";
	print "<FONT COLOR=#0000FF>ブラウザの戻るボタンで前のページに戻ってください。</H3></FONT></CENTER><HR WIDTH=85\%><P>\n";
	&footer_;
}

#************************************************************************#
# ＥＯＦ
#************************************************************************#