#!/usr/local/bin/perl

require './jcode.pl';
require './cgi-lib.pl';
$ImgUrl = "http://www.aso.ne.jp/~sizen/event/img/";

###"http://www.aso.ne.jp/~sizen/event/img/";に変更
###"http://127.0.0.1/sizen/event/img/";に変更

$script = "./event.cgi";
$logfile = "./event.log";
$lockfile = "./event.lock";
$ImgDir = "./imgs/";

$pass = '3333';

$cgi_lib'maxdata = '30720';     # → 例 : 102400 = 100KB

&decode;

if ($mode eq 'top') {⊤ }
elsif ($mode eq "hyoji") { &hyoji; }
elsif ($mode eq 'hensyu') { &hensyu; }
elsif ($mode eq "mente") { &mente; }
elsif ($mode eq "kanri") { &kanri; }
elsif ($mode eq "sakujyo") { &sakujyo; }


&unlock;
⊤


###------ TOP画面 ------###
sub top {

	&header;

print <<"EOM";

<table width="700" border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td  colspan="3" valign="top">
      <div align="center"><br>
        <img src="imgs/event_title.gif" width="350" height="80" alt="イベント情報"><br>
        <br>
        <span class="f10">イベントをご覧になりたい月を、クリックして下さい！</span><br>
        <br>

<table border="0" cellpadding="0" cellspacing="0" width="570" class="f10">
</tr>
<tr>
<td><img src="imgs/ya2.gif" width="28" height="28" border="0"><img src="imgs/spacer.gif" width="7" height="1" alt=""></td>
<td align="left">

EOM
&open;
foreach $line (@lines) {
	($no,$times,$name,$flag,$comment) = split(/,/, $line);
	if ("$no" eq "2") { last; }
}
if("$flag" eq "0"){
print "$name CLOSE！";
}else{
print "<a href=\"./event.cgi?mode=hyoji&no=$no\">$name OPEN！</a>";
}

print <<"EOM";

</td>
<td><img src="imgs/ya3.gif" width="28" height="28" border="0"><img src="imgs/spacer.gif" width="7" height="1" alt=""></td>
<td align="left">

EOM
&open;
foreach $line (@lines) {
	($no,$times,$name,$flag,$comment) = split(/,/, $line);
	if ("$no" eq "3") { last; }
}
if("$flag" eq "0"){
print "$name CLOSE！";
}else{
print "<a href=\"./event.cgi?mode=hyoji&no=$no\">$name OPEN！</a>";
}
print <<"EOM";

</td>
<td><img src="imgs/ya4.gif" width="28" height="28" border="0"><img src="imgs/spacer.gif" width="7" height="1" alt=""></td>
<td align="left">

EOM
&open;
foreach $line (@lines) {
	($no,$times,$name,$flag,$comment) = split(/,/, $line);
	if ("$no" eq "4") { last; }
}
if("$flag" eq "0"){
print "$name CLOSE！";
}else{
print "<a href=\"./event.cgi?mode=hyoji&no=$no\">$name OPEN！</a>";
}
print <<"EOM";

</td>
</tr>
<tr>
<td><img src="imgs/spacer.gif" width="35" height="10" alt=""></td>
<td><img src="imgs/spacer.gif" width="155" height="1" alt=""></td>
<td><img src="imgs/spacer.gif" width="35" height="1" alt=""></td>
<td><img src="imgs/spacer.gif" width="155" height="1" alt=""></td>
<td><img src="imgs/spacer.gif" width="35" height="1" alt=""></td>
<td><img src="imgs/spacer.gif" width="155" height="1" alt=""></td>
</tr>
<tr>
<td><img src="imgs/ya5.gif" width="28" height="28" border="0"><img src="imgs/spacer.gif" width="7" height="1" alt=""></td>
<td>

EOM
&open;
foreach $line (@lines) {
	($no,$times,$name,$flag,$comment) = split(/,/, $line);
	if ("$no" eq "5") { last; }
}
if("$flag" eq "0"){
print "$name CLOSE！";
}else{
print "<a href=\"./event.cgi?mode=hyoji&no=$no\">$name OPEN！</a>";
}
print <<"EOM";

</td>
<td><img src="imgs/ya6.gif" width="28" height="28" border="0"><img src="imgs/spacer.gif" width="7" height="1" alt=""></td>
<td>

EOM
&open;
foreach $line (@lines) {
	($no,$times,$name,$flag,$comment) = split(/,/, $line);
	if ("$no" eq "6") { last; }
}
if("$flag" eq "0"){
print "$name CLOSE！";
}else{
print "<a href=\"./event.cgi?mode=hyoji&no=$no\">$name OPEN！</a>";
}
print <<"EOM";


</td>
<td><img src="imgs/ya7.gif" width="28" height="28" border="0"><img src="imgs/spacer.gif" width="7" height="1" alt=""></td>
<td>

EOM
&open;
foreach $line (@lines) {
	($no,$times,$name,$flag,$comment) = split(/,/, $line);
	if ("$no" eq "7") { last; }
}
if("$flag" eq "0"){
print "$name CLOSE！";
}else{
print "<a href=\"./event.cgi?mode=hyoji&no=$no\">$name OPEN！</a>";
}
print <<"EOM";

</td>
</tr>
<tr>
<td colspan="6"><img src="imgs/spacer.gif" width="1" height="10" alt=""></td>
</tr><tr>
<td><img src="imgs/ya8.gif" width="28" height="28" border="0"><img src="imgs/spacer.gif" width="7" height="1" alt=""></td>
<td>

EOM
&open;
foreach $line (@lines) {
	($no,$times,$name,$flag,$comment) = split(/,/, $line);
	if ("$no" eq "8") { last; }
}
if("$flag" eq "0"){
print "$name CLOSE！";
}else{
print "<a href=\"./event.cgi?mode=hyoji&no=$no\">$name OPEN！</a>";
}
print <<"EOM";

</td>
<td><img src="imgs/ya9.gif" width="28" height="28" border="0"><img src="imgs/spacer.gif" width="7" height="1" alt=""></td>
<td>

EOM
&open;
foreach $line (@lines) {
	($no,$times,$name,$flag,$comment) = split(/,/, $line);
	if ("$no" eq "9") { last; }
}
if("$flag" eq "0"){
print "$name CLOSE！";
}else{
print "<a href=\"./event.cgi?mode=hyoji&no=$no\">$name OPEN！</a>";
}
print <<"EOM";

</td>
<td><img src="imgs/ya10.gif" width="28" height="28" border="0"><img src="imgs/spacer.gif" width="7" height="1" alt=""></td>
<td>

EOM
&open;
foreach $line (@lines) {
	($no,$times,$name,$flag,$comment) = split(/,/, $line);
	if ("$no" eq "10") { last; }
}
if("$flag" eq "0"){
print "$name CLOSE！";
}else{
print "<a href=\"./event.cgi?mode=hyoji&no=$no\">$name OPEN！</a>";
}
print <<"EOM";

</td>
</tr>
<tr>
<td colspan="6"><img src="imgs/spacer.gif" width="1" height="10" alt=""></td>
</tr><tr>
<td><img src="imgs/ya11.gif" width="28" height="28" border="0"><img src="imgs/spacer.gif" width="7" height="1" alt=""></td>
<td>

EOM
&open;
foreach $line (@lines) {
	($no,$times,$name,$flag,$comment) = split(/,/, $line);
	if ("$no" eq "11") { last; }
}
if("$flag" eq "0"){
print "$name CLOSE！";
}else{
print "<a href=\"./event.cgi?mode=hyoji&no=$no\">$name OPEN！</a>";
}
print <<"EOM";

</td>
<td><img src="imgs/ya12.gif" width="28" height="28" border="0"><img src="imgs/spacer.gif" width="7" height="1" alt=""></td>
<td>

EOM
&open;
foreach $line (@lines) {
	($no,$times,$name,$flag,$comment) = split(/,/, $line);
	if ("$no" eq "12") { last; }
}
if("$flag" eq "0"){
print "$name CLOSE！";
}else{
print "<a href=\"./event.cgi?mode=hyoji&no=$no\">$name OPEN！</a>";
}
print <<"EOM";

</td>
<td><img src="imgs/ya13.gif" width="28" height="28" border="0"><img src="imgs/spacer.gif" width="7" height="1" alt=""></td>
<td>

EOM
&open;
foreach $line (@lines) {
	($no,$times,$name,$flag,$comment) = split(/,/, $line);
	if ("$no" eq "13") { last; }
}
if("$flag" eq "0"){
print "$name CLOSE！";
}else{
print "<a href=\"./event.cgi?mode=hyoji&no=$no\">$name OPEN！</a>";
}
print <<"EOM";

</td>
</tr>
</table>

        <br>
      </div>
      </td>
  </tr>
  <tr>
    <td colspan="3"><img src="imgs/spacer.gif" width="1" height="25" alt=""></td>
  </tr>
  <tr>
    <td><img src="imgs/spacer.gif" width="20" height="1" alt=""></td>
    <td bgcolor="#999999"><img src="imgs/spacer.gif" width="660" height="1" alt=""></td>
    <td><img src="imgs/spacer.gif" width="20" height="1" alt=""></td>
  </tr>
  <tr>
    <td colspan="3"><img src="imgs/spacer.gif" width="1" height="10" alt=""></td>
  </tr>
  <tr>
    <td><img src="imgs/spacer.gif" width="20" height="1" alt=""></td>
    <td><div align="right"><form action="event.cgi" method="POST">
	<input type="hidden" name="mode" value="kanri">
	<input type="password" name="pas" size="8">
	<input type="submit" value="管理用">
	</form></div>
    </td>
    <td><img src="imgs/spacer.gif" width="20" height="1" alt=""></td>
  </tr>
</table>

EOM

	&footer;
}

###------ 管理画面 ------###
sub kanri {
	if ($pass ne "$in{'pas'}") { &error("パスワードが違います"); }
	&header;
	print "<a href=\"$script?\">イベントページに戻る</A><br>\n";
	print "<form action=\"$script\" method=\"POST\">\n";
	print "<input type=hidden name=mode value=\"sakujyo\">\n";
	print "内容の編集は項目をクリック<br>\n";
	print "<table>\n";
	&open;
	@lines = map {$_->[0]} sort {$a->[1] <=> $b->[1]} map {[$_, split /,/]} @lines;
	foreach $line (@lines) {
		local($no,$times,$name,$flag,$comment) = split(/,/, $line);
		print "<tr><td></td><td><a href=\"$script?mode=hensyu&no=$no\">$name</a></td>";
	}
	print "</tr></table>\n";
	&footer;
	exit;
}


###------ 表示画面 ------###
sub hyoji {
	&open;
	foreach $line (@lines) {
	($no,$times,$name,$flag,$comment) = split(/,/, $line);
	if ($in{'no'} eq "$no") { last; }
}


	&header;

print <<"EOM";
<table width="700" border="0" cellpadding="0" cellspacing="0">
<tr>
<td valign="top" align="center"><br><img src="imgs/event_title.gif" width="350" height="80" alt="イベント情報"></td>
</tr>
<tr>
<td><img src="imgs/spacer.gif" width="1" height="12"></td>
</tr>
<tr>
<td valign="top" align="center">
	<table width="530" border="0" cellspacing="0" cellpadding="0" class="f10">
EOM
	if (-e "$ImgDir$no.jpg") {
		print "<tr><td colspan=\"2\" align=\"center\"><img src=\"$ImgDir$no.jpg\" border=0></td></tr>\n";
	} 
	print "<tr><td><img src=\"imgs/ya$no.gif\" width=\"28\" height=\"28\"><img src=\imgs/spacer.gif\" width=\"1\" height=\"8\"></td>\n";
	print "<td width=\"494\">$nameのイベントのご案内♪</td></tr>\n";
	print "<tr><td colspan=\"2\"><img src=\"imgs/spacer.gif\" width=\"1\" height=\"10\"></td></tr>\n";
	print "<tr><td colspan=\"2\" valign=\"top\">$comment</td></tr>\n";
print <<"EOM";
	<tr> 
	<td colspan="2"><img src="imgs/spacer.gif" width="1" height="50"></td>
	</tr>
	<tr>
	<td colspan="2" align="center"><a href="./event.cgi">イベント情報のTOPへ戻る</a></td>
	</tr>
	<tr> 
	<td colspan="2"><img src="imgs/spacer.gif" width="1" height="18"></td>
	</tr>
	</table>
	<br>
</td>
</tr>
</table>

EOM
	&footer;
	exit;
}

###-----  編集画面 -----###
sub hensyu {
	&open;
	foreach $line (@lines) {
	($no,$times,$name,$flag,$comment) = split(/,/, $line);
	if ($in{'no'} eq "$no") { last; }
}
	if ($in{'pas'} != $pas) { &error("パスワードが違います"); }

	$comment =~ s/<br>/\n/g;
	$comment =~ s/<a href=\"(.*)\"(.*)>(.*)<\/a>/$1/g;

	&header;
	print "<form action=\"$script\" method=\"POST\" enctype=\"multipart/form-data\">\n";
	print "<input type=hidden name=mode value=\"mente\">\n";
	print "<input type=hidden name=no value=\"$in{'no'}\">\n";


	print "<A HREF=\"$script?mode=kanri&pas=3333\">戻る</A>\n";
	print "<center><br><table border=0 cellspacing=1>\n";
	print "<tr><td></td><td>赤色の項目は必須です</td></tr>\n";
	print "<tr><td align=right><FONT color=#ff0000><small><b>月</td><td><input type=text name=name size=20 value=\"$name\"></td></tr>\n";
	print "<tr><td align=right><FONT color=#ff0000><small><b>紹介文</td><td><textarea name=comment cols=72 rows=16 wrap=soft>$comment</textarea></td></tr>\n";
	print "<tr><td align=right><small>画像</td><td><input type=file name=upfile size=60><small> 画像サイズは30kb未満で</FONT></td></tr>\n";
	print "<tr><td align=right><small>OPEN or CLOSE</td><td><input type=text name=flag size=1 maxlength=1 value=\"$flag\"><small>CLOSE=0    OPEN=1(なんでもよい)</td></tr>\n";
	print "<tr><td></td><td><input type=submit value=\"　更新する　\">\n";
	$MaxData = int ($cgi_lib'maxdata / 1024);
	print "</td></tr></table></form></CENTER>\n";
	&footer;
	exit;
}

###-----  編集処理 -----###
sub mente {
	$data = "$in{'name'}$in{flag}$in{'comment'}\n";
	if (index($data,",") >= 0) { &error("どこかに小文字のカンマが含まれていますので、消去してください"); }
	&lock;
	&open;
	@new=();

## 画像ファイルがあれば更新する
	if ($in{'upfile'}) {
		&open;
		foreach $line (@lines) {
		($no,$times,$name,$flag,$comment) = split(/,/, $line);
		if ($in{'no'} eq "$no") { last; }
	}
	 	$ImgFile = "$ImgDir$no.jpg";&UpFile; }                ##ここまで

	$itimes = time;
	&auto_link($in{'comment'});
	foreach (@lines) {
		($no,$times,$name,$flag,$comment) = split(/,/,);
		if ($in{'no'} eq "$no") {
			$_ = "$no,$itimes,$in{'name'},$in{'flag'},$in{'comment'},\n";
		}
		push(@new,$_);
	}

	open(OUT,">$logfile") || &error("Write Error : $logfile");
	print OUT @new;
	close(OUT);
	&unlock;
	&header;
	print "<center><hr width=600><P><h3>下の「イベントへ」をクリックし、イベント情報のページに戻ってください。</h3>\n";
	print "<P><a href=\"$script?top\">イベントへ</a>\n";
	print "<P><hr width=600></center>\n";
	&footer;
	exit;
}

###--------　画像のアップロード　------------###
sub UpFile {
	$upfile = $in{'upfile'};
	open(OUT,"> $ImgFile") || &error("画像のアップロードに失敗しました","lock");
	binmode(OUT);
	binmode(STDOUT);
	print OUT $upfile;
	close(OUT);
	chmod (0666,$ImgFile);
}

###------　削除処理　--------###
sub sakujyo {
	&open;

	if ($in{'action'} eq 'sakujyo') {
		if ($in{'no'} eq ''){ &error("削除Noが入力されていません"); }
		&lock;
		&open;

		$flag=0;
		@new=();
		foreach (@lines) {
			($no,$times,$name,$flag,$comment) = split(/,/);
			if ($in{'no'} eq "$no") { $flag=1;if (-e "$ImgDir$no.jpg"){ unlink("$ImgDir$no.jpg"); }}
			else { push(@new,$_); }

		}

		if ($flag == 0) { &error("該当記事が見当たりません","lock"); }

		open(OUT,">$logfile") || &error("Write Error : $logfile");
		print OUT @new;
		close(OUT);
		&unlock;


		&header;
		print "<center><hr width=600><P><h3>削除処理、完了しました</h3>\n";
		print "<P><a href=\"$script?top\">イベントへ</a>\n";
		&footer;
		exit;
		}

	&header;
	$count = @lines;
	print "<a href=JavaScript:history.back()>戻る</A>\n";
	print "<center><br><b>削除処理</b>　<small>登録は <B>$count</B> 件</small><br>\n";
	print "<p><form action=\"$script\" method=\"POST\">\n";
	print "<input type=hidden name=mode value=\"sakujyo\">\n";
	print "<input type=hidden name=action value=\"sakujyo\">\n";
	print "<input type=hidden name=pass value=\"$in{'pass'}\">\n";
	print "NO<input type=text name=no size=4 value=\"$no\">を<input type=submit value=\"削除する\">(<FONT color=#ff0000>削除後は復元できません</FONT>）</p>";

	print "<table border=1><tr>\n";
	print "<th width=40><small>NO<th width=200><small>名前・名称</th></tr>\n";

	foreach $line (@lines) {
		local($no,$times,$name,$flag,$comment) = split(/,/, $line);

	&get_date($times);				# 日付表示を変換


	print "<tr><td><center>$no</td>";
	print "<td>$name</td>";
	}

	print "</tr></table><P>\n";

	&footer;
	exit;
}


###-----  デコード処理 -----###
sub decode {
	&ReadParse;
	while (($key,$val) = each %in) {
		if ($key ne "upfile") {
		# シフトJISコードに変換
		&jcode'convert(*val, "sjis", "", "z");
		# タグ処理
		if ($tagkey) {
			$val =~ s/,/&lt;&gt;/g;
		} else {
			$val =~ s/</&lt;/g;
			$val =~ s/>/&gt;/g;
		}
		# 改行処理
		if ($key eq "comment") {
			$val =~ s/\r\n/<br>/g;
			$val =~ s/\r/<br>/g;
			$val =~ s/\n/<br>/g;
		} else {
			$val =~ s/\r//g;
			$val =~ s/\n//g;
		}
		}
		$in{$key} = $val;
	}
	$mode = $in{'mode'};
	$part  =$in{'part'};
	$page  = $in{'page'};

}

###------- 時間の取得 -------###
sub get_date {
	$ENV{'TZ'} = "JST-9"; # タイムゾーンを日本時間へ
	($sec,$min,$hour,$mday,$mon,$year,$wday,$dmy,$dmy) = localtime($_[0]);
	@week = ('Sun','Mon','Tue','Wed','Thu','Fri','Sat');

	# 日時のフォーマット
	$date = sprintf("\%02d\/%02d",$mon+1,$mday);
}

###------- HTMLのヘッダー -------###
sub header {

	print "Content-type: text/html\n\n";


print <<"EOM";

<html><!-- #BeginTemplate "/Templates/navi_village.dwt" -->
<head>
<!-- #BeginEditable "doctitle" --> 
<title>イベント情報</title>
<!-- #EndEditable --> 
<meta http-equiv="Content-Type" content="text/html;">
<!-- Fireworks 4.0  Dreamweaver 4.0 target.  Created Mon Nov 18 15:10:29 GMT+0900 (JST) 2002-->
<script language="JavaScript">
<!--
function MM_swapImage() { //v3.0
  var i,j=0,x,a=MM_swapImage.arguments; document.MM_sr=new Array; for(i=0;i<(a.length-2);i+=3)
   if ((x=MM_findObj(a[i]))!=null){document.MM_sr[j++]=x; if(!x.oSrc) x.oSrc=x.src; x.src=a[i+2];}
}
function MM_swapImgRestore() { //v3.0
  var i,x,a=document.MM_sr; for(i=0;a&&i<a.length&&(x=a[i])&&x.oSrc;i++) x.src=x.oSrc;
}

function MM_preloadImages() { //v3.0
 var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
   var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
   if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
}

// fwLoadMenus()

function MM_findObj(n, d) { //v4.01
  var p,i,x;  if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
    d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
  if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
  for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
  if(!x && d.getElementById) x=d.getElementById(n); return x;
}
function fwLoadMenus() {
  if (window.fw_menu_0) return;
  window.fw_menu_0 = new Menu("root",93,20,"MS UI Gothic, Osaka",13,"#000000","#ffffff","#a5ebff","#3300ff");
  fw_menu_0.addMenuItem("設立の目的","location='../../gaiyou/mokuteki.html'");
  fw_menu_0.addMenuItem("設立の背景","location='../../gaiyou/haikei.html'");
  fw_menu_0.addMenuItem("経営理念","location='../../gaiyou/rinen.html'");
  fw_menu_0.addMenuItem("事業概要","location='../../gaiyou/jigyou.html'");
   fw_menu_0.hideOnMouseOut=true;
  window.fw_menu_1 = new Menu("root",106,20,"MS UI Gothic, Osaka",13,"#000000","#ffffff","#a5ebff","#3300ff");
  fw_menu_1.addMenuItem("商品一覧","location='../../shop/ichiran.html'");
  fw_menu_1.addMenuItem("ご注文フォーム","location='../../shop/form.html'");
   fw_menu_1.hideOnMouseOut=true;

  fw_menu_1.writeMenus();
} 
//-->
</script>
<script language="JavaScript1.2" src="../fw_menu.js"></script>
<link rel="stylesheet" href="../../hakusui.css" type="text/css">
<script language="JavaScript1.2" src="../../Templates/fw_menu.js"></script>
</head>
<body topmargin="0" leftmargin="0" marginheight="0" marginwidth="0" bgcolor="#ffffff" onLoad="MM_preloadImages('../imgs/navi_village_r3_c5_f2.gif','../imgs/navi_village_r3_c11_f2.gif','../imgs/navi_village_r4_c16_f2.gif','../imgs/navi_village_r4_c21_f2.gif','../imgs/navi_village_r8_c3_f2.gif','../imgs/navi_village_r8_c7_f2.gif','../imgs/navi_village_r8_c10_f2.gif','../imgs/navi_village_r8_c13_f2.gif','../imgs/navi_village_r8_c17_f2.gif','../imgs/navi_village_r8_c20_f2.gif')">
<script language="JavaScript1.2">fwLoadMenus();</script>
<table border="0" cellpadding="0" cellspacing="0" width="700">
<!-- fwtable fwsrc="navi_village.png" fwbase="navi_village.gif" fwstyle="Dreamweaver" fwdocid = "742308039" fwnested="0" -->
  <tr>
   <td><img src="../imgs/spacer.gif" width="20" height="1" border="0"></td>
   <td><img src="../imgs/spacer.gif" width="40" height="1" border="0"></td>
   <td><img src="../imgs/spacer.gif" width="31" height="1" border="0"></td>
   <td><img src="../imgs/spacer.gif" width="21" height="1" border="0"></td>
   <td><img src="../imgs/spacer.gif" width="32" height="1" border="0"></td>
   <td><img src="../imgs/spacer.gif" width="25" height="1" border="0"></td>
   <td><img src="../imgs/spacer.gif" width="63" height="1" border="0"></td>
   <td><img src="../imgs/spacer.gif" width="23" height="1" border="0"></td>
   <td><img src="../imgs/spacer.gif" width="26" height="1" border="0"></td>
   <td><img src="../imgs/spacer.gif" width="71" height="1" border="0"></td>
   <td><img src="../imgs/spacer.gif" width="36" height="1" border="0"></td>
   <td><img src="../imgs/spacer.gif" width="25" height="1" border="0"></td>
   <td><img src="../imgs/spacer.gif" width="49" height="1" border="0"></td>
   <td><img src="../imgs/spacer.gif" width="10" height="1" border="0"></td>
   <td><img src="../imgs/spacer.gif" width="15" height="1" border="0"></td>
   <td><img src="../imgs/spacer.gif" width="1" height="1" border="0"></td>
   <td><img src="../imgs/spacer.gif" width="75" height="1" border="0"></td>
   <td><img src="../imgs/spacer.gif" width="3" height="1" border="0"></td>
   <td><img src="../imgs/spacer.gif" width="23" height="1" border="0"></td>
   <td><img src="../imgs/spacer.gif" width="5" height="1" border="0"></td>
   <td><img src="../imgs/spacer.gif" width="45" height="1" border="0"></td>
   <td><img src="../imgs/spacer.gif" width="47" height="1" border="0"></td>
   <td><img src="../imgs/spacer.gif" width="14" height="1" border="0"></td>
   <td><img src="../imgs/spacer.gif" width="1" height="1" border="0"></td>
  </tr>

  <tr>
   <td colspan="23"><img name="navi_village_r1_c1" src="../imgs/navi_village_r1_c1.gif" width="700" height="1" border="0"></td>
   <td><img src="../imgs/spacer.gif" width="1" height="1" border="0"></td>
  </tr>
  <tr>
   <td rowspan="8"><img name="navi_village_r2_c1" src="../imgs/navi_village_r2_c1.gif" width="20" height="89" border="0"></td>
    <td rowspan="4" colspan="2"><a href="../../index.html"><img name="navi_village_r2_c2" src="../imgs/navi_village_r2_c2.gif" width="71" height="65" border="0" alt="株式会社はくすいロゴ"></a></td>
   <td colspan="20"><img name="navi_village_r2_c4" src="../imgs/navi_village_r2_c4.gif" width="609" height="37" border="0"></td>
   <td><img src="../imgs/spacer.gif" width="1" height="37" border="0"></td>
  </tr>
  <tr>
   <td rowspan="5"><img name="navi_village_r3_c4" src="../imgs/navi_village_r3_c4.gif" width="21" height="34" border="0"></td>
    <td rowspan="4" colspan="3"><a href="../../gaiyou/mokuteki.html" onMouseOut="MM_swapImgRestore();FW_startTimeout();"  onMouseOver="window.FW_showMenu(window.fw_menu_0,125,68);MM_swapImage('navi_village_r3_c5','','../imgs/navi_village_r3_c5_f2.gif',1)" ><img name="navi_village_r3_c5" src="../imgs/navi_village_r3_c5.gif" width="120" height="30" border="0" alt="会社"></a></td>
    <td rowspan="4" colspan="3"><a href="../ruri/ruri.html"><img name="navi_village_r3_c8" src="../imgs/navi_village_r3_c8.gif" width="120" height="30" border="0" alt="ご案内"></a></td>
    <td rowspan="4" colspan="4"><a href="../../shop/ichiran.html" onMouseOut="MM_swapImgRestore();FW_startTimeout();"  onMouseOver="window.FW_showMenu(window.fw_menu_1,358,68);MM_swapImage('navi_village_r3_c11','','../imgs/navi_village_r3_c11_f2.gif',1)" ><img name="navi_village_r3_c11" src="../imgs/navi_village_r3_c11.gif" width="120" height="30" border="0" alt="お買い物"></a></td>
   <td colspan="9"><img name="navi_village_r3_c15" src="../imgs/navi_village_r3_c15.gif" width="228" height="10" border="0"></td>
   <td><img src="../imgs/spacer.gif" width="1" height="10" border="0"></td>
  </tr>
  <tr>
   <td rowspan="6"><img name="navi_village_r4_c15" src="../imgs/navi_village_r4_c15.gif" width="15" height="42" border="0"></td>
    <td colspan="3"><a href="../../sitemap/sitemap.html" onMouseOut="MM_swapImgRestore();"  onMouseOver="MM_swapImage('navi_village_r4_c16','','../imgs/navi_village_r4_c16_f2.gif',1)" ><img name="navi_village_r4_c16" src="../imgs/navi_village_r4_c16.gif" width="79" height="15" border="0" alt="サイト案内"></a></td>
   <td rowspan="4" colspan="2"><img name="navi_village_r4_c19" src="../imgs/navi_village_r4_c19.gif" width="28" height="24" border="0"></td>
   <td colspan="2"><a href="../../index.html" onMouseOut="MM_swapImgRestore();"  onMouseOver="MM_swapImage('navi_village_r4_c21','','../imgs/navi_village_r4_c21_f2.gif',1)" ><img name="navi_village_r4_c21" src="../imgs/navi_village_r4_c21.gif" width="92" height="15" border="0" alt="ホームページ"></a></td>
   <td rowspan="6"><img name="navi_village_r4_c23" src="../imgs/navi_village_r4_c23.gif" width="14" height="42" border="0"></td>
   <td><img src="../imgs/spacer.gif" width="1" height="15" border="0"></td>
  </tr>
  <tr>
   <td rowspan="3" colspan="3"><img name="navi_village_r5_c16" src="../imgs/navi_village_r5_c16.gif" width="79" height="9" border="0"></td>
   <td rowspan="3" colspan="2"><img name="navi_village_r5_c21" src="../imgs/navi_village_r5_c21.gif" width="92" height="9" border="0"></td>
   <td><img src="../imgs/spacer.gif" width="1" height="3" border="0"></td>
  </tr>
  <tr>
   <td rowspan="2" colspan="2"><img name="navi_village_r6_c2" src="../imgs/navi_village_r6_c2.gif" width="71" height="6" border="0"></td>
   <td><img src="../imgs/spacer.gif" width="1" height="2" border="0"></td>
  </tr>
  <tr>
   <td colspan="10"><img name="navi_village_r7_c5" src="../imgs/navi_village_r7_c5.gif" width="360" height="4" border="0"></td>
   <td><img src="../imgs/spacer.gif" width="1" height="4" border="0"></td>
  </tr>
  <tr>
   <td rowspan="2"><img name="navi_village_r8_c2" src="../imgs/navi_village_r8_c2.gif" width="40" height="18" border="0"></td>
    <td colspan="3"><a href="../ruri/ruri.html" onMouseOut="MM_swapImgRestore();"  onMouseOver="MM_swapImage('navi_village_r8_c3','','../imgs/navi_village_r8_c3_f2.gif',1)" ><img name="navi_village_r8_c3" src="../imgs/navi_village_r8_c3.gif" width="84" height="14" border="0" alt="白水温泉「瑠璃」"></a></td>
   <td rowspan="2"><img name="navi_village_r8_c6" src="../imgs/navi_village_r8_c6.gif" width="25" height="18" border="0"></td>
    <td colspan="2"><a href="../shizenan/shizenan.html" onMouseOut="MM_swapImgRestore();"  onMouseOver="MM_swapImage('navi_village_r8_c7','','../imgs/navi_village_r8_c7_f2.gif',1)" ><img name="navi_village_r8_c7" src="../imgs/navi_village_r8_c7.gif" width="86" height="14" border="0" alt="物産館「自然庵」"></a></td>
   <td rowspan="2"><img name="navi_village_r8_c9" src="../imgs/navi_village_r8_c9.gif" width="26" height="18" border="0"></td>
    <td colspan="2"><a href="../mizu/mizu.html" onMouseOut="MM_swapImgRestore();"  onMouseOver="MM_swapImage('navi_village_r8_c10','','../imgs/navi_village_r8_c10_f2.gif',1)" ><img name="navi_village_r8_c10" src="../imgs/navi_village_r8_c10.gif" width="107" height="14" border="0" alt="水加工場「はくすい」"></a></td>
   <td rowspan="2"><img name="navi_village_r8_c12" src="../imgs/navi_village_r8_c12.gif" width="25" height="18" border="0"></td>
   <td><a href="../kanko/sakura.html" onMouseOut="MM_swapImgRestore();"  onMouseOver="MM_swapImage('navi_village_r8_c13','','../imgs/navi_village_r8_c13_f2.gif',1)" ><img name="navi_village_r8_c13" src="../imgs/navi_village_r8_c13.gif" width="49" height="14" border="0" alt="観光案内"></a></td>
   <td rowspan="2"><img name="navi_village_r8_c14" src="../imgs/navi_village_r8_c14.gif" width="10" height="18" border="0"></td>
   <td rowspan="2"><img name="navi_village_r8_c16" src="../imgs/navi_village_r8_c16.gif" width="1" height="18" border="0"></td>
   <td><a href="event.html" onMouseOut="MM_swapImgRestore();"  onMouseOver="MM_swapImage('navi_village_r8_c17','','../imgs/navi_village_r8_c17_f2.gif',1)" ><img name="navi_village_r8_c17" src="../imgs/navi_village_r8_c17.gif" width="75" height="14" border="0" alt="イベント情報"></a></td>
   <td rowspan="2" colspan="2"><img name="navi_village_r8_c18" src="../imgs/navi_village_r8_c18.gif" width="26" height="18" border="0"></td>
   <td colspan="2"><a href="../link/link.html" onMouseOut="MM_swapImgRestore();"  onMouseOver="MM_swapImage('navi_village_r8_c20','','../imgs/navi_village_r8_c20_f2.gif',1)" ><img name="navi_village_r8_c20" src="../imgs/navi_village_r8_c20.gif" width="50" height="14" border="0" alt="リンク集"></a></td>
   <td rowspan="2"><img name="navi_village_r8_c22" src="../imgs/navi_village_r8_c22.gif" width="47" height="18" border="0"></td>
   <td><img src="../imgs/spacer.gif" width="1" height="14" border="0"></td>
  </tr>
  <tr>
   <td colspan="3"><img name="navi_village_r9_c3" src="../imgs/navi_village_r9_c3.gif" width="84" height="4" border="0"></td>
   <td colspan="2"><img name="navi_village_r9_c7" src="../imgs/navi_village_r9_c7.gif" width="86" height="4" border="0"></td>
   <td colspan="2"><img name="navi_village_r9_c10" src="../imgs/navi_village_r9_c10.gif" width="107" height="4" border="0"></td>
   <td><img name="navi_village_r9_c13" src="../imgs/navi_village_r9_c13.gif" width="49" height="4" border="0"></td>
   <td><img name="navi_village_r9_c17" src="../imgs/navi_village_r9_c17.gif" width="75" height="4" border="0"></td>
   <td colspan="2"><img name="navi_village_r9_c20" src="../imgs/navi_village_r9_c20.gif" width="50" height="4" border="0"></td>
   <td><img src="../imgs/spacer.gif" width="1" height="4" border="0"></td>
  </tr>
</table>

<!-- header End -->


EOM
}

###------- HTMLのフッター -------###
sub footer {

print <<"EOM";

<!-- footer Start -->

<table width="700" border="0" cellpadding="0" cellspacing="0">
  <tr> 
    <td height="9"> 
      <div align="right" class="f8"> Copyright(C) 2002 HAKUSUI Co.,Ltd ALL Rights 
        Reserved.<br>
        <img src="../../imgs/footer.gif" width="692" height="12"> </div>
    </td>
  </tr>
</table>
</body>
</html>

EOM
}

###------- エラー処理 -------###
sub error {
	&header;
	print "<center><br><br><br><br><font color='red'><B>$_[0]</B></font>\n";
        print "<br><br><br><a href=JavaScript:history.back()>前のページに戻る</A><br><br>\n";
	print "</center>\n";
	&footer;
	exit;
}

###------ファイルロック処理-------###
sub lock {
  local($flag) = 0;
  foreach (1 .. 5) {
    if (-e $lockfile) { sleep(1); }
    else {
      open(LOCK,">$lockfile");
      close(LOCK);
      $flag = 1;
      last;
    }
  }

  if ($flag == 0) { &error("Lock Error"); }
}

###------ファイルロック解除-------###
sub unlock {
  if (-e $lockfile) { unlink($lockfile); }
}

###------ファイルオープン-------###
sub open {
	open(IN,"$logfile") || &error("Open Error : $logfile");
	@lines = <IN>;
	close(IN);
}

#-------　ＡＵＴＯリンク-------#
sub auto_link {
	$_[0] =~ s/([^=^\"]|^)(http\:[\w\.\~\-\/\?\&\=\@\;\#\:\%]+)/$1<a href=\"$2\" target='_blank'>$2<\/a>/g;
}