#!/usr/bin/perl

require "jcode.pl";

$var = "Version 0.13";

# //// 基本設定 ///////////////////////////////////////////////////////////////////////////

# スクリプト名
$script = "diary.cgi";
# タイトル名
$title = "バッグのTIA MARIA - ティアマリア 「ＴＭ通信」";
# 戻り先 (例) ../index.html
$backurl = "http://www.tiamaria-tokyo.com";
# Symlinkによるファイルのロック (Yes:1,No:0) 1を推奨
$lockon = 0;
$lockfile = "lock.lok";
# ログファイル名
$logfile = "diary.log";
# 最近の絵ＴＭ通信の最大記事件数
$maxkiji = 5;
# 管理者パスワード
$adpwd = "tiamaria606";
# 添付ファイルの格納場所
$icon_dir = "../up/";
# 添付ファイル（許可する拡張子:全て半角小文字で登録）
@iconft = ('jpg','gif','jpeg','','');
# 絵のサイズ
$i_width = 200;  # 横
# 画像以外の添付ファイルに対してのアイコン
$tmp_img = "../up/mem10.gif";
# フォーム投稿時の最大サイズ (単位：KB)
$upsize = 100;
# 過去ログディレクトリ
$oldbox = "./oldlog/";
# HTMLTAGの許可 (Yes:1,No:0)
$tagok = 1;

# HPの上部にロゴ等を埋め込めます(必要に応じてお使いください)
$head_title = <<HTML_END;
<center>
<br>	
</center>
HTML_END

# //// 基本設定 (ここまで) ////////////////////////////////////////////////////////////////

# 特殊サーバー設置の拡張設定（通常は使用しません。Hi-Ho等のサーバー用です。）
# アイコンフォルダの絶対パス（$tmp_imgも絶対パスにする必要があります。）
$icon_url = "";

# ------ 拡張設定 --------
# フレームを使用する (Yes:1,No:0) サーバー負荷軽減のため、0を推奨
$frameok = 0;
# 日付の位置 (右:1,左:0)
$dayloca = 1;
# 画像無しの時に位置を固定する (Yes:1,No:0)
$imgloca = 0;
# ＴＭ通信の詰め方？ (右詰め:1,左詰め:0)  ＜言葉が変です。(笑)
$nikkiloca = 1;
# 編集削除時に関連記事を表示する (Yes:1,No:0)
$ndkiji = 1;
# 過去ログファイルのパーミッションを666に自動で設定 (Yes:1,No:0)
$chauto = 0;
# ------------------------

# ----- フォントとテーブルサイズの設定 ----------------------------------
# 基本フォント
$basefont = '';
# 基本フォントサイズ
$basefontsize = '9pt';
# テーブル幅 (単位はピクセル)
$tbwid = '600';
# テーブル(名前部分：左上の幅) (単位はピクセル)
$tbrwid = '100';
# -----------------------------------------------------------------------

# ------------------------
#  補足
# menu01 : 日付情報格納
# menu02 : ＴＭ通信のタイトル
# menu03 : 
# menu04 : 
# menu05 : 
# ------------------------

# -- 色彩のコーディネート (ここから) ------------------
# ===== BODY設定 ===========
# 壁紙 (無しの場合は指定なし)
$kabegami = "";
# 背景色 ＆ ヘルプのバックグラウンド
$color01 = "#ffffff";
# テキストの色
$color02 = "#666666";
# 未リンクの色
$color03 = "#666666";
# 既リンクの色
$color04 = "#666666";
# ===== スタイルシート =====
# リンクを合わせた時の色 (hover)
$color05 = "";
# フォームのボックス内のフォントの色 (st1)
$color06 = "";
# フォームのボックス内の背景の色 (st1)
$color07 = "#ffffff";
# ===== TABLEの色(投稿時) ==
# テーブルの色（コンテンツ記入部） … 未記入で背景色 …
$color08 = "#C8E4B1";
# テーブル内のフォントの色（コンテンツ記入部）
$color09 = "#666666";
# テーブルの色（入力部） … 未記入で背景色 …
$color10 = "#F6F8EA";
# 省略可の文字の色
$color11 = "#cc0000";
# ===== TABLEの色(通常記事) ==
# テーブルの色（名前） … 未記入で背景色 …
$color12 = "#ffffff";
# テーブル内のフォントの色（名前）
$color13 = "#339999";
# テーブルの色（タイトル） … 未記入で背景色 …
$color14 = "#339999";
# テーブル内のフォントの色（タイトル）
$color15 = "#666666";
# テーブルの色（記事部分） … 未記入で背景色 …
$color16 = "#F6F8EA";
# テーブル内のフォントの色（日付等）
$color17 = "#666666";
# テーブル内のフォントの色（記事）
$color18 = "#666666";
# ===== TABLEの色(ＴＭ通信記事) =
# テーブルの色（名前） … 未記入で背景色 …
$color19 = "red";
# テーブル内のフォントの色（名前）
$color20 = "#ffffff";
# テーブルの色（タイトル） … 未記入で背景色 …
$color21 = "";
# テーブル内のフォントの色（タイトル）
$color22 = "";
# テーブルの色（記事部分） … 未記入で背景色 …
$color23 = "#F6F8EA";
# テーブル内のフォントの色（日付等）
$color24 = "";
# テーブル内のフォントの色（記事）
$color25 = "";
# -- 色彩のコーディネート (ここまで) ------------------
# テーブル背景色の設定
if($color01 ne ''){$back01 = "bgcolor=$color01";}
if($color08 ne ''){$back08 = "bgcolor=$color08"; $stylest1 = "background-color:$color08;border:1 dotted $color08;";}
if($color10 ne ''){$back10 = "bgcolor=$color10";}
if($color12 ne ''){$back12 = "bgcolor=$color12";}
if($color14 ne ''){$back14 = "bgcolor=$color14";}
if($color16 ne ''){$back16 = "bgcolor=$color16";}
if($color19 ne ''){$back19 = "bgcolor=$color19";}
if($color21 ne ''){$back21 = "bgcolor=$color21";}
if($color23 ne ''){$back23 = "bgcolor=$color23";}

# //// FORMからDATAを読み込む -とほほさんのスクリプトを一部改造- ///////////////////////////
if($ENV{'REQUEST_METHOD'} eq "POST"){
	$buffer = 'POSTDATA';
	# POSTの場合
	# 標準入力からデータを読みだす
	$buf = "";
	$read_data = "";
	$remain = $ENV{'CONTENT_LENGTH'};
	# UPサイズのチェック
	if(&checksize($remain)){&header;&error("フォーム投稿時の最大サイズは、$upsize\KB以内です。");} 
	binmode(STDIN);
	while ($remain) {
		$remain -= sysread(STDIN, $buf, $remain);
		$read_data .= $buf;
	}
	# データを解釈する
	$pos1 = 0; # ヘッダ部の先頭
	$pos2 = 0; # ボディ部の先頭
	$pos3 = 0; # ボディ部の終端
	$delimiter = "";
	$max_count = 0;
	while (1) {
		# ヘッダ処理
		$pos2 = index($read_data,"\r\n\r\n",$pos1)+4;
		@headers = split("\r\n",substr($read_data,$pos1,$pos2-$pos1));
		$filename="";
		$name="";
		$flag=0;
		foreach(@headers){
			if ($delimiter eq "") {$delimiter = $_;
			}elsif(/^Content-Disposition: ([^;]*); name="([^;]*)"; filename="([^;]*)"/i) {
				$name = $2;
				if ($3) {
					# 拡張子の取り出し
					@filefooter = split(/\./,$3);
					# 拡張子を全て小文字に変換
					@filefooter[1] =~ tr/A-Z/a-z/;
					# 拡張子の判定
					if(&ftflag(@filefooter[1])){&header;&error("許可されていない拡張子です。");} 
					$filename = $name."\.".@filefooter[1];
				}
			}elsif(/^Content-Disposition: ([^;]*); name="([^;]*)"/i){$name = $2;}
		}
		# ボディ処理
		$pos3 = index($read_data, "\r\n$delimiter", $pos2);
		$size = $pos3 - $pos2;
		if($filename){
			# 以前のファイルの削除
			&filedel($name);
			if (open(OUT, "> $icon_dir$filename")) {
			binmode(OUT);
			print OUT substr($read_data, $pos2, $size);
			close(OUT);
			}
			$FORM{$name} = $filename;
		}elsif($name){
			$FORM{$name} = substr($read_data,$pos2,$size);
			if(!$tagok){
				# タグ不可
				$FORM{$name} =~ s/</&lt\;/g;
				$FORM{$name} =~ s/>/&gt\;/g;
			}
			# TABを全てSpaceに置き換える
			$FORM{$name} =~ s/\t/ /g;
			# 改行コードは全て<br>に置き換える
			$FORM{$name} =~ s/\r\n/<br>/g;
			$FORM{$name} =~ s/\r|\n/<br>/g;
		}
		# 終了処理
		$pos1 = $pos3 + length("\r\n$delimiter");
		if(substr($read_data, $pos1, 4) eq "--\r\n") {
			# すべてのファイルの終端
			last;
		}else{
			# 次のファイルを読み出す
			$pos1 += 2;
			next;
		}
	}
}else{
	# GETの場合
	$buffer = $ENV{'QUERY_STRING'};
	@pairs = split(/&/,$buffer);
	@spall =();
	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(!$tagok){
			# タグ不可
			$value =~ s/</&lt\;/g;
			$value =~ s/>/&gt\;/g;
		}
		# TABを全てSpaceに置き換える
		$value =~ s/\t/ /g;
		# 改行コードは全て<br>に置き換える
		$value =~ s/\r\n/<br>/g;
		$value =~ s/\r|\n/<br>/g;
		$FORM{$name} = $value;
	}
}

# ==== メインルーチン =====================================================================

# 日時の取得
&gettime;
# 管理人の権限の取得(クッキーを発行)
if($FORM{'mode'} eq 'pwd'){&ninsyou;}
# 認証コードを発行する
if($FORM{'mode'} eq 'writecode'){&writecode;}

if($frameok){
	# Frame
	if(!$buffer){&t_frame;}
	# Frame左側
	if($FORM{'loca'} eq 'f_left'){&f_left;}
	# Frame右側
	if($FORM{'loca'} eq 'f_right'){&f_right;}
}else{&f_right;}

# =========================================================================================

# //// フレーム ///////////////////////////////////////////////////////////////////////////
sub t_frame{
	print "Content-type: text/html\n";
	print "\n";
	print<<HTML_END;
<html>
<head><title>$title</title></head>
<frameset frameborder=0 framespacing=0 cols="160,*">
<frame name="f_left" src="$script?loca=f_left">
<frame name="f_right" src="$script?loca=f_right">
<noframes>
<body>
フレーム非対応のブラウザの方は利用できません
</body></noframes>
</frameset>
</html>
HTML_END
	exit;
}

# //// ヘッダー ///////////////////////////////////////////////////////////////////////////
sub header{
	print "Content-type: text/html\n";
	print "\n";
	print<<HTML_END;
<html>
<head><title>$title</title>
<LINK REL="stylesheet" HREF="../base-txt/stylesheet.css" TYPE="text/css">

<style type="text/css">
<!--
body,tr,td {font-size:$basefontsize;font-family: "$basefont"}
table      {font-size:$basefontsize;}
b          {font-size:$basefontsize}
div        {line-height:14pt}
h4         {font-size:12pt}
.st1       {font-size:$basefontsize;font-family:"$basefont";color:$color06;background-color:$color07;} /* 項目1 */
.st2       {color:$color09;$stylest1} /* 項目2 */
-->
</style>
<script language="JavaScript" src="http://www.tiamaria-tokyo.com/tmbbscss/css.js"></script> 
<link href="http://www.tiamaria-tokyo.com/tmbbscss/body.css" rel="stylesheet" type="text/css">
<script language="JavaScript">
<!--
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];}}
}

function MM_findObj(n, d) { //v4.0
  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 && document.getElementById) x=document.getElementById(n); return x;
}

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_jumpMenu(targ,selObj,restore){ //v3.0
  eval(targ+".location='"+selObj.options[selObj.selectedIndex].value+"'");
  if (restore) selObj.selectedIndex=0;
}
//-->
</script>
</head>
<body background="$kabegami" $back01 text="$color02"link="$color03" vlink="$color04" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<center>
<table width="700" border="0" cellspacing="0" cellpadding="0" align="center">
  <tr> 
    <td align="center" bgcolor="#E0E0D1"> <table width="100%" border="0" cellspacing="1" cellpadding="5">
        <tr> 
          <td bgcolor="#FFFFFF" align="center"> 
		  <table width="100%" border="0" cellspacing="1" cellpadding="0">
              <tr> 
                <td bgcolor="#E0E0D1" align="center"> 
				<table width="100%" border="0" cellspacing="1" cellpadding="0">
                    <tr> 
                      <td bgcolor="#F2F9CA" rowspan="2" width="178"><a href="http://www.tiamaria-tokyo.com/index.html"><img src="../img/head_logo.gif" alt="バッグのTIA MARIA - ティアマリア 「TM通信」" width="174" height="74" border="0"></a></td>
                      <td width="189" height="46" align="center" bgcolor="#F5FAD9"><a href="../contents/index.html" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('Image66','','../img/menu_about2.gif',1)"><img name="Image66" border="0" src="../img/menu_about.gif" width="128" height="12"></a></td>
                                           <td width="137" height="46" align="center" bgcolor="#F5FAD9"><a href="../faxorder/index.html" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('Image68','','../img/menu_fax2.gif',1)"><img name="Image68" border="0" src="../img/menu_fax.gif" width="97" height="12"></a></td>
                      <td width="177" height="46" align="center" bgcolor="#F5FAD9"><a href="../contents/qa.html" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('Image69','','../img/menu_qa2.gif',1)"><img name="Image69" border="0" src="../img/menu_qa.gif" width="89" height="13"></a></td>
                    </tr>
                    <tr> 
                      <td height="28" colspan="4" align="center" bgcolor="#F6F8EA"> 
                        <table border="0" cellspacing="1" cellpadding="3">
                          <tr> 
                            <td><a href="http://www.tiamaria-tokyo.com/tmbbs/diary.cgi"><img src="../img/menu_tmbbs.gif" width="62" height="15" border="0"></a></td>
                                                        <td><a href="http://www.tiamaria-tokyo.com/shop/index.html" target="_blank"><img src="../img/menu_shop.gif" width="128" height="15" border="0"></a></td>
                            <td><a href="mailto:info\@\tiamaria-tokyo.com"><img src="../img/menu_toiawase.gif" width="68" height="15" border="0"></a></td>
                            <td width="70"><a href="../index.html"><img src="../img/menu_home.gif" width="65" height="15" border="0"></a></td>
                          </tr>
                        </table>
                    </td><tr> 
                     <td bgcolor="#FFFFFF" colspan="5" align="center" valign="top"> 
<table width="100%" border="0" cellspacing="0" cellpadding="1">
                          <tr> 
                            <td rowspan="2" align="right" width="178"><img src="../img/tmbbs/head_img.jpg" width="74" height="115" hspace="10"></td>
                            <td class="text12" valign="top"><img src="../img/tmbbs/tmbbs_title.gif" alt="TM通信" width="77" height="24" vspace="5"><br>
                              ティアマリアの新商品情報、ファッション情報はもちろん、<br>
                              ティアマリアのテイストで選んだオススメのライフスタイル情報をお届けします。 </td>
                          </tr>
                          <tr> 
                            <td class="text12" valign="bottom"> 

                            </td>
                          </tr>
                        </table>
HTML_END
}

# //// フッター ///////////////////////////////////////////////////////////////////////////
sub footer{
	print<<HTML_END;
<br><br>						</td>
                    </tr>
                    <tr> 
                      <td bgcolor="#F5FAD9" colspan="5" align="center" height="24"  class="text10"><img src="../img/copyright.gif" width="265" height="10" alt="Copyright(C) 2003 TIA MARIA All Rights Reserved."></td>
                    </tr>
                  </table></td>
              </tr>
            </table></td>
        </tr>
      </table></td>
  </tr>
</table>

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

</body></html>


HTML_END
	exit;
}

# //// Form幅の調整 ///////////////////////////////////////////////////////////////////////
sub getform{
	if(&ieflag){
		# IE4,IE5用の設定
		$w_name  = 20;
		$w_mail  = 50;
		$w_title = 80;
		$w_com  = 70;
		$w_url = 75;
		$w_file = 66;
		$w_key = 15;
	}else{
		# IE4,IE5以外の設定
		$w_name  = 13;
		$w_mail  = 33;
		$w_title = 52;
		$w_com  = 57;
		$w_url = 50;
		$w_file = 44;
		$w_key = 12;
	}
}

# //// 投稿フォーム ///////////////////////////////////////////////////////////////////////
sub tform{
	if($c_key ne $adpwd){&error("あなたは管理者ではありません。");}
	if($FORM{'date'} eq ''){
		$r_date = $date;
	}else{
		# 編集及び記事削除時にログファイルから関連ログ検出
		# 投稿記事のログを開く
		open(IN,"$logfile") || &error("Can't open logfile");
		@lines = <IN>;
		close(IN);
		# 初期化
		$r_date = "";
		$r_title = "";
		$r_com = "";
		foreach$line(@lines){
			($rdate,$rname,$remail,$rtitle,$rcom,$rurl,$rkey,$rmenu01,$rmenu02,$rmenu03,$rmenu04,$rmenu05) = split(/\t/,$line);
			if($rdate eq $FORM{'date'}){
				$r_date = $rdate;
				$c_name = $rname;
				$r_title = $rtitle;
				$c_mail = $remail;
				# コメントは<br>を改行コードに置き換える
				$rcom =~ s/<br>/\n/g;
				$r_com = $rcom;
				$c_url = $rurl;
				last;
			}
		}
	}
	# Form幅の調整
	&getform;
	print"<form method=post enctype=\"multipart/form-data\" action=\"$script\">\n";
	if($frameok){print"<input type=hidden name=loca value=\"f_right\">\n";}
	print"<input type=hidden name=mode value=\"writelog\">\n";
	print"<input type=hidden name=date value=\"$r_date\">\n";
	print"<input type=hidden name=key value=\"$c_key\">\n";
	print"<table border=0 cellpadding=2 cellspacing=0>\n";
	# 日付
	if($rmenu01 eq ''){$rmenu01 = $r_date;}
	# 年（フォーマット）
	$nnen = substr($rmenu01,0,4);
	# 月（フォーマット）
	$ntuki = substr($rmenu01,4,2);
	# 日（フォーマット）
	$nhi = substr($rmenu01,6,2);
	print"<tr>\n";
	print"<td $back08 align=center width=80><font color=$color09>日付</font></td>\n";
	print"<td $back10>\n";
	# 年
	print"<select name=menu01_1 class=\"st1\">\n";
	$nen = $nnen - 1;
	print" <option value=\"$nen\">$nen\n";
	$nen = $nnen;
	print" <option value=\"$nen\" SELECTED>$nen\n";
	$nen = $nnen + 1;
	print" <option value=\"$nen\">$nen\n";
	print"</select>年\n";
	# 月
	$t = 1;
	print"<select name=menu01_2 class=\"st1\">\n";
	while($t<13){
		$tflag = '';
		if($t<10){$tt = "0$t";}else{$tt = $t;}
		if($tt eq $ntuki){$tflag = 'SELECTED';}
		print" <option value=\"$tt\" $tflag>$t\n";
		$t++;
	}
	print"</select>月\n";
	# 日
	$t = 1;
	print"<select name=menu01_3 class=\"st1\">\n";
	while($t<32){
		$tflag = '';
		if($t<10){$tt = "0$t";}else{$tt = $t;}
		if($tt eq $nhi){$tflag = 'SELECTED';}
		print" <option value=\"$tt\" $tflag>$t\n";
		$t++;
	}
	print"</select>日\n";
	print"</td>\n";
	print"</tr>\n";
	print"<tr>\n";
	print"<td $back08 colspan=2 height=2> </td>\n";
	print"</tr>\n";
	if(&ieflag){
		print"<tr>\n";
		print"<td $back10 colspan=2 height=3> </td>\n";
		print"</tr>\n";
	}
	# タイトル
	print"<tr>\n";
	print"<td $back08 align=center width=80><font color=$color09>タイトル</font></td>\n";
	print"<td $back10><input type=text name=\"menu02\" size=\"$w_title\" value=\"$rmenu02\" class=\"st1\"> <font color=$color11>省略可</font></td>\n";
	print"</tr>\n";
	print"<tr>\n";
	print"<td $back08 colspan=2 height=2> </td>\n";
	print"</tr>\n";
	if(&ieflag){
		print"<tr>\n";
		print"<td $back10 colspan=2 height=3> </td>\n";
		print"</tr>\n";
	}
	# 添付ファイル
	print"<tr>\n";
	print"<td $back08 align=center width=80><font color=$color09>添付ファイル</font></td>\n";
	print"<td $back10><input type=file name=\"$r_date\" size=\"$w_file\" class=\"st1\"> <font color=$color11>省略可</font></td>\n";
	print"</tr>\n";
	print"<tr>\n";
	print"<td $back08 colspan=2 height=2> </td>\n";
	print"</tr>\n";
	if(&ieflag){
		print"<tr>\n";
		print"<td $back10 colspan=2 height=3> </td>\n";
		print"</tr>\n";
	}
	# ＴＭ通信
	print"<tr>\n";
	print"<td $back08 align=center width=80><font color=$color09>内容</font></td>\n";
	print"<td $back10><textarea name=com cols=\"$w_com\" rows=10 wrap=\"soft\" class=\"st1\">$r_com</textarea></td>\n";
	print"</tr>\n";
	print"<tr>\n";
	print"<td $back08 colspan=2 height=2> </td>\n";
	print"</tr>\n";
	if(&ieflag){
		print"<tr>\n";
		print"<td $back10 colspan=2 height=3> </td>\n";
		print"</tr>\n";
	}
	# 送信
	if($FORM{'date'} ne ''){
		# PASSWORD
		print"<tr>\n";
		print"<td $back08 align=center width=80><font color=$color09>編集/削除</font></td>\n";
		print"<td $back10><select name=mode2 class=\"st1\">\n";
		print" <option value=\"hensyu\">編集\n";
		print"<option value=\"del\">削除\n";
		print"</select></td>\n";
		print"</tr>\n";
		print"<tr>\n";
		print"<td $back08 colspan=2 height=2> </td>\n";
		print"</tr>\n";
		if(&ieflag){
			print"<tr>\n";
			print"<td $back10 colspan=2 height=3> </td>\n";
			print"</tr>\n";
		}
		print"<tr>\n";
		print"<td $back10 colspan=2><input type=submit value=\"　ＴＭ通信を編集/削除する　\" class=\"st2\"></td>\n";
		print"</tr>\n";
		print"<tr>\n";
		print"<td $back08 colspan=2 height=2> </td>\n";
		print"</tr>\n";
		if(&ieflag){
			print"<tr>\n";
			print"<td $back10 colspan=2 height=3> </td>\n";
			print"</tr>\n";
		}
		print"</table>\n";
	}else{
		print"<tr>\n";
		print"<td $back10 colspan=2><input type=submit value=\"　新しいＴＭ通信を書く　\" class=\"st2\"></td>\n";
		print"</tr>\n";
		print"<tr>\n";
		print"<td $back08 colspan=2 height=2> </td>\n";
		print"</tr>\n";
		if(&ieflag){
			print"<tr>\n";
			print"<td $back10 colspan=2 height=3> </td>\n";
			print"</tr>\n";
		}
		print"</table>\n";
	}
	print"<br>\n";
	# ヘルプを表示
	&help;
}

# //// ロックファイル : symlink関数 ///////////////////////////////////////////////////////
sub lock{
	local($retry) = 5;
	while (!symlink(".",$_[0])) {
		if (--$retry <= 0) { &error("LOCK is BUSY",$_[0]); }
		sleep(1);
	}
}

# //// Error処理 ///////////////////////////////////////////////////////////////////////////
sub error {
	if(-e $_[1]){ unlink($_[1]);}
	print"<center><hr width=75%><h4>エラー</h4>\n";
	print"<P><h4>$_[0]</h4>\n";
	print"<P><hr width=75%><br>ブラウザの戻るで戻ってください。</center>\n";
	&footer;
	exit;
}

# //// UP投稿部 ログへの書き込み //////////////////////////////////////////////////////////
sub writelog{
	if($FORM{'key'} ne $adpwd){&header;&error("あなたは管理者ではありません。");}
	# 記入漏れのチェック
	$error_flag = 0;
	if($FORM{'mode2'} ne 'del' && $FORM{'com'} eq ''){$error_flag = 1;}
	if($error_flag){
		# 編集時にはエラーが生じても添付ファイルを削除しない
		if($FORM{'mode'} ne 'hensyu'){&filedel($FORM{'date'});}
		&header;&error("記入漏れがあります。");
	}
	# 日付情報を8桁にする
	$FORM{'menu01'} = $FORM{'menu01_1'}.$FORM{'menu01_2'}.$FORM{'menu01_3'};
	# ファイルのロック
	if($lockon){&lock($lockfile);}
	# 投稿記事のログを開く
	open(IN,"$logfile") || &error("Can't open logfile",$lockfile);
	@lines = <IN>;
	close(IN);
	# 初期化
	@new = ();
	if($FORM{'mode2'} eq 'hensyu'){
		# 記事編集時
		foreach$line(@lines){
			($rdate,$rname,$remail,$rtitle,$rcom,$rurl,$rkey,$rmenu01,$rmenu02,$rmenu03,$rmenu04,$rmenu05) = split(/\t/,$line);
			if($rdate eq $FORM{'date'}){
				$line = "$rdate\t$FORM{'name'}\t$FORM{'email'}\t$FORM{'title'}\t$FORM{'com'}\t$FORM{'url'}\t$FORM{'key'}\t$FORM{'menu01'}\t$FORM{'menu02'}\t$FORM{'menu03'}\t$FORM{'menu04'}\t$FORM{'menu05'}\t\n";
			}
			push(@new,$line);
		}
	}elsif($FORM{'mode2'} eq 'del'){
		# 記事削除時
		foreach$line(@lines){
			# 記事削除用フラッグ
			$dflag = 1;
			($rdate,$rname,$remail,$rtitle,$rcom,$rurl,$rkey,$rmenu01,$rmenu02,$rmenu03,$rmenu04,$rmenu05) = split(/\t/,$line);
			if($rdate eq $FORM{'date'}){
				# 添付ファイルの削除
				&filedel($FORM{'date'});
				$dflag = 0;
			}
			if($dflag){push(@new,$line);}
		}
	}else{
		# 新規投稿時
		$line = "$FORM{'date'}\t$FORM{'name'}\t$FORM{'email'}\t$FORM{'title'}\t$FORM{'com'}\t$FORM{'url'}\t$FORM{'key'}\t$FORM{'menu01'}\t$FORM{'menu02'}\t$FORM{'menu03'}\t$FORM{'menu04'}\t$FORM{'menu05'}\t\n";
		unshift(@lines,$line);
		# 記事をカウントしMAXを超えたら古い記事から削除
		$s = 0;
		while($s<@lines){
			if($s < $maxkiji){
				push(@new,@lines[$s]);
			}else{
				($rdate,$rname,$remail,$rtitle,$rcom,$rurl,$rkey,$rmenu01,$rmenu02,$rmenu03,$rmenu04,$rmenu05) = split(/\t/,@lines[$s]);
				if($rmenu01 eq ''){$rmenu01 = $rdate;}
				$oldlog = substr($rmenu01,0,6)."\.log";
				&movelog($rdate,$logfile,$oldlog);
			}
			$s++;
		}
	}
	# ログの更新
	open(OUT,">$logfile") || &error("Can't write logfile",$lockfile);
	print OUT @new;
	close(OUT);
	# ロック解除
	if(-e $lockfile){unlink($lockfile);}
	# ブラウザのリフレッシュ
	&header;
	if($frameok){
		print"<META HTTP-EQUIV=\"Refresh\" CONTENT=\"0; URL=$script?loca=f_right\">\n";
	}else{
		print"<META HTTP-EQUIV=\"Refresh\" CONTENT=\"0; URL=$script\">\n";
	}
	&footer;
	exit;
}

# //// クッキーの発行 //////////////////////////////////////////////////////////////////////
sub set_cookie { 
	($secg,$ming,$hourg,$mdayg,$mong,$yearg,$wdayg,$ydayg,$isdstg) = gmtime(time + 30*24*60*60);
	$yearg += 1900;
	if($secg  < 10){$secg  = "0$secg";}
	if($ming  < 10){$ming  = "0$ming";}
	if($hourg < 10){$hourg = "0$hourg";}
	if($mdayg < 10){$mdayg = "0$mdayg";}
	$month = ('Jan','Feb','Mar','Apr','May','Jun','Jul','Aug','Sep','Oct','Nov','Dec')[$mong];
	$youbi = ('Sunday','Monday','Tuesday','Wednesday','Thursday','Friday','Saturday')[$wdayg];
	$date_gmt = "$youbi, $mdayg\-$month\-$yearg $hourg:$ming:$secg GMT";
	$cook="key\:$FORM{'key'}";
	print "Set-Cookie: tboard=$cook; expires=$date_gmt\n";
}

# //// クッキーの取得 /////////////////////////////////////////////////////////////////////
sub get_cookie{ 
	$cookies = $ENV{'HTTP_COOKIE'};
	@pairs = split(/;/,$cookies);
	foreach $pair (@pairs) {
		($name, $value) = split(/=/, $pair);
		$name =~ s/ //g;
		$DUMMY{$name} = $value;
	}
	@pairs = split(/,/,$DUMMY{'tboard'});
	foreach $pair (@pairs) {
		$cnum = index("$pair","\:");
		$name = substr($pair,0,$cnum);
		$value = substr($pair,($cnum+1),(length($pair)-($cnum+1)));
		$COOKIE{$name} = $value;
	}
	$c_key = $COOKIE{'key'};
}

# //// 記事表示部 /////////////////////////////////////////////////////////////////////////
sub kiji{
	# 過去ログ時に必要
	if($logfile eq ''){&footer;}
	if(!$searchflag){
		# 投稿記事のログを開く
		open(IN,"$logfile") || &error("Can't open logfile");
		@lines = <IN>;
		close(IN);
	}
	$s = 0;
	while($s<@lines){
		($rdate,$rname,$remail,$rtitle,$rcom,$rurl,$rkey,$rmenu01,$rmenu02,$rmenu03,$rmenu04,$rmenu05) = split(/\t/,@lines[$s]);
		if($FORM{'mode'} eq 'tform' && $FORM{'date'} ne $rdate){$s++;next;}
		# 親記事
		$ncolor = $back12;
		$nfont  = $color13;
		$tcolor = $back14;
		$tfont  = $color15;
		$kcolor = $back16;
		$kfont1 = $color17;
		$kfont2 = $color18;
		# === テンプレート =======================
		# テーブルサイズ
		$osize0 = $tbwid;
		$osize1 = $osize0 - 4;
		$osize2 = $tbrwid;
		$osize3 = $osize0 - $osize2;
		$rsize0 = $osize0 - 50;
		$rsize1 = $rsize0 - 4;
		$rsize2 = $tbrwid;
		$rsize3 = $rsize0 - $rsize2;
		# ========================================
		# 記事の内容
		# 投稿日
		$day = substr($rmenu01,4,2).'/'.substr($rmenu01,6,2).'/'.substr($rmenu01,0,4);
		# 記事の内容
		if(!$oldflag && $c_key eq $adpwd){
			# 記事編集用
			if($frameok){
				$khen = " 　 <a href=\"$script?loca=f_right&mode=tform&date=$rdate\"><font color=$kfont1>編集/削除</font></a>";
			}else{
				$khen = " 　 <a href=\"$script?mode=tform&date=$rdate\"><font color=$kfont1>編集/削除</font></a>";
			}
		}else{$khen = "";}
		if($s){
			if($fflag){print"	</td></tr>\n";}
			print"	</table>\n";
			print"</td>\n";
			print"</tr>\n";
			print"</table>\n";
		}
		print"<br>\n";
#		print"<table border=0 cellpadding=2 cellspacing=0 width=$osize0 CLASS=box3>\n";
		print"<table border=0 cellpadding=2 cellspacing=0 width=$osize0 class=line2>\n";
		print"<tr>\n";
		if($rmenu02 eq ''){$rmenu02 = '　';}
		if($dayloca){
			print"<td $ncolor align=left width=$osize3 class=line><FONT COLOR=#339999 class=text14>　■ <font size=3 color=$nfont><B>$rmenu02</B></font></td>\n";
			print"<td $ncolor align=right width=$osize2 class=line><font color=$nfont>$day</font></td>\n";
		}else{
			print"<td $ncolor align=left width=$osize2><font color=$nfont>$day</font></td>\n";
			print"<td $ncolor align=right width=$osize3><font color=$nfont>$rmenu02</font></td>\n";
		}
		print"</tr>\n";
		print"<tr>\n";
		print"<td $ncolor colspan=2 align=center width=$osize1>\n";
		print"	<table border=0 cellpadding=5 cellspacing=0 width=$osize1>\n";
		print"	<tr>\n";
		# 添付ファイルの有無
		($fileflag,$iwidth,$iheight,$tmp_ft) = &fileflag($rdate);
		# 初期化
		$wid = '';
		$cols = '';
		$imgflag = 1;
		if($fileflag ne 0){
			print"	<td $kcolor width=\"$i_width\" align=center>\n";
			if($iwidth ne 0 && $iheight ne 0){
				# 添付ファイルが画像の時 (GIF,JPG,PNG)
				# 画像が制限よりも大きいときには縮小してリンクを張る
				if($iwidth>$i_width){
					$iheight = int($iheight/($iwidth/$i_width));
					print"	<a href=\"$fileflag\" TARGET=_blank><img src=\"$fileflag\" height=\"$iheight\" width=\"$i_width\" border=\"0\"></a>\n";
				}else{
					print"	<img src=\"$fileflag\" height=\"$iheight\" width=\"$iwidth\" border=\"0\">\n";
				}
			}else{
				# 添付ファイルが画像以外の時
				print"	<a href=\"$fileflag\"><img src=\"$tmp_img\" border=\"0\"></a> <font color=$kfont2>$tmp_ft</font>\n";
			}
			print"	</td>\n";
			$cols = "colspan=2";
			$imgflag = 0;
			$wid =  "width=".($osize1 - $i_width);
		}
		if($imgflag && $imgloca){$wid =  "width=".($osize1 - $i_width);}else{$imgflag = 0;}
		if($nikkiloca){
			if($imgflag){print"	<td $kcolor valign=top width=$i_width>　</td>\n";$cols = "colspan=2";}
			print"	<td $kcolor valign=top $wid>\n";
		}else{
			if($imgflag){print"	<td $kcolor valign=top width=$i_width>　</td>\n";$cols = "colspan=2";}
			print"	<td $kcolor valign=top $wid align=right>\n";
		}
		print"	<div><font color=$kfont2>$rcom</font></div>\n";
		print"	</td></tr>\n";
		print"	</tr>\n";
		print"	<tr><td $cols $back16 align=right>$wcom$khen</td></tr>\n";
		$bkcolor = $kcolor;
		$flag = 1;
		$fflag = 0;
		$s++;
	}
	print"	</table>\n";
	print"</td>\n";
	print"</tr>\n";
	print"</table>\n";
}

# //// 日時の取得 /////////////////////////////////////////////////////////////////////////
sub gettime{
	# 日本時間に設定
	$ENV{'TZ'} = "JST-9";
	($sec,$min,$hour,$mday,$mon,$year,$wday,$dmy,$dmy) = localtime(time);
	$year += 1900;
	$mon++;
	$hourn = $hour;  # バックアップ用
	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";  }
	$date = $year.$mon.$mday.$hour.$min.$sec;
}

# //// IEフラッグ /////////////////////////////////////////////////////////////////////////
sub ieflag{
	# IEだと1を返す
	local($ieflag);
	# ブラウザ名の取得
	$agent = $ENV{'HTTP_USER_AGENT'};
	$ieflag = 0;
	if($agent =~ /MSIE 4/i || $agent =~ /MSIE 5/i || $agent =~ /MSIE 6/i){$ieflag = 1;}
	return($ieflag);
}

# //// 拡張子判定フラッグ /////////////////////////////////////////////////////////////////
sub ftflag{
	# 許可しない拡張子だと1を返す
	local($foot) = @_;
	local($s,$ftflag);
	# 許可しない拡張子フラッグ
	$ftflag = 1;
	$s = 0;
	while($s<@iconft){
		if($foot eq @iconft[$s]){
			$ftflag = 0;
			last;
		}
		$s++;
	}
	return($ftflag);
}

# //// ファイルサイズチェックフラッグ /////////////////////////////////////////////////////
sub checksize{
	# ファイルサイズが制限を越えると1を返す
	local($readdata) = @_;
	local($size,$checksize);
	# フラッグの初期化
	$checksize = 0;
	# 単位はKB
	$size = $upsize*1024;
	if($readdata>$size){$checksize = 1;}
	return($checksize);
}

# //// 添付ファイルの削除 /////////////////////////////////////////////////////////////////
sub filedel{
	local($filehead) = @_;
	local($s,$d_file);
	$s = 0;
	while($s<@iconft){
		$d_file = $icon_dir.$filehead."\.".@iconft[$s];
		unlink($d_file);
		$s++;
	}
}

# //// 添付ファイルの存在チェック /////////////////////////////////////////////////////////
sub fileflag{
	local($filehead) = @_;
	local($s,$d_file,$fileflag,$iwidth,$iheight);
	# フラッグの初期化
	$fileflag = 0;
	$s = 0;
	$iwidth = 0;
	$iheight = 0;
	$tmp_ft = '';
	while($s<@iconft){
		$d_file = $icon_dir.$filehead."\.".@iconft[$s];
		if(-e $d_file){
			# 画像ファイルの大きさの取得
			open(STRM, "<$d_file");
			binmode(STRM);
			if(@iconft[$s] eq 'gif'){
				($iwidth,$iheight) = &gifsize(\*STRM);
			}elsif(@iconft[$s] eq 'jpg'){
				($iwidth,$iheight) = &jpegsize(\*STRM);
			}elsif(@iconft[$s] eq 'png'){
				($iwidth,$iheight) = &pngsize(\*STRM);
			}
			if($icon_url eq ''){
				$fileflag = $d_file;
			}else{
				$fileflag = $icon_url.$filehead."\.".@iconft[$s];
			}
			$tmp_ft = @iconft[$s];
			close(STRM);
			last;
		}
		$s++;
	}
	return($fileflag,$iwidth,$iheight,$tmp_ft);
}

# //// 簡単なヘルプ ///////////////////////////////////////////////////////////////////////
sub help{
	print"<table border=0 cellpadding=2 cellspacing=0 width=550>\n";
	print"<tr>\n";
	print"<td $back08 colspan=2 align=center width=550>\n";
	print"	<table border=0 cellpadding=5 cellspacing=0 width=550>\n";
	print"	<tr><td $back01><div>\n";
	print"	・『最近のＴＭ通信』の\表\示\件数は、<font color=$color11>$maxkiji件</font>です。<br>\n";
	print"	・それ以降の記事は古いものから順に月ごとに『アルバム』に記入されていきます。<br>\n";
	print"	・『添付ファイル』は、<font color=$color11>@iconft</font>の拡張子のみ有効です。<br>\n";
	print"	・『画像(GIF,JPG』の大きさは、<font color=$color11>横 $i_width\ピクセル</font>を越えると縮小されます。<br>\n";
	print"	・更に、縮小された『絵』に対しては<font color=$color11>アップした元ファイル</font>にリンクが\貼\られ原寸で閲覧する事が\可\能\です。<br>\n";
	print"	・なお、フォーム投稿時の最大サイズは、<font color=$color11>$upsize\KB</font>以内となっています。<br>\n";
	if($tagok){print"	・タグの使用が<font color=$color11>\可\能\です。</font><br>\n";}
	else{print"	・タグの使用は<font color=$color11>できません。</font><br>\n";}
	print"	・リンクを貼\る場合は、↓をコピーして貼\り\付けて「<font color=$color11>URL</font>」の部分にリンク先のURLを入れて下さい。<br>\n";
	print"　　<font color=$color11>&lt;a href=\"URL\" target=\"_blank\"&gt;URL&lt;/a&gt;</font><br>これでリンクが貼\れます。\n";
	print"	</div></td></tr>\n";
	print"	</table>\n";
	print"</td>\n";
	print"</tr>\n";
	print"</table>\n";
}

# //// 過去ログディレクトリからログファイルリストを作成 ///////////////////////////////////
sub oldlist{
	local(@filelist,$ofile);
	# 過去UP物ディレクトリのオープン
	opendir(DIR,$oldbox);
	@filelist = ();
	while ($ofile = readdir(DIR)){
	 if(index($ofile,"\.")>0){
	  push(@filelist,$ofile);
	 }
	}
	closedir(DIR);
	# ファイル名をソートする
	@filelist = sort @filelist;
	@filelist = reverse(@filelist);
	return(@filelist);
}

# //// 過去ログへ移す ///////////////////////////////////////////////////////////////////////
sub movelog{
	# $mdate : (親)記事投稿日  $logfile : 移動する元ログ  $oldlog : 移動先ログ(過去ログ)
	# (注意) ここではエラーは返さないので致命的なバグもありうる
	local($mdate,$logfile,$oldlog) = @_;
	local(@lines1,$line1,@lines2,$flag);
	local($rdate,$rname,$remail,$rtitle,$rcom,$rurl,$rkey,$rmenu01,$rmenu02,$rmenu03,$rmenu04,$rmenu05);
	# 記事のオープン
	open(IN,"$logfile");
	@lines1 = <IN>;
	close(IN);
	foreach $line1 (@lines1){
		($rdate,$rname,$remail,$rtitle,$rcom,$rurl,$rkey,$rmenu01,$rmenu02,$rmenu03,$rmenu04,$rmenu05) = split(/\t/,$line1);
		if($mdate eq $rdate){
			# 過去ログのオープン
			open(IN,"$oldbox$oldlog");
			@lines2 = <IN>;
			close(IN);
			unshift(@lines2,$line1);
			# ログの更新
			open(OUT,">$oldbox$oldlog");
			print OUT @lines2;
			close(OUT);
			# 属性の変更
			if($chauto){chmod(0666,"$oldbox$oldlog");}
		}
	}
}

# //// 過去ログのフォーム /////////////////////////////////////////////////////////////////
sub oldform{
	# $mtitle : メールのタイトル  $mbody  : メールの記事内容
	# $temail : 送信先E-mail      $femail : 送信元E-mail
	# 過去ログファイル一覧
	@oldlist = &oldlist;
	if(!@oldlist){&footer;}
	print"<table><tr><td>\n";
	&oldloghelp;
	print"</td></tr><tr><td>\n";
	# 過去ログフォーム
	print"<form method=post enctype=\"multipart/form-data\" action=\"$script\">\n";
	if($frameok){print"<input type=hidden name=loca value=\"f_right\">\n";}
	print"<input type=hidden name=mode value=\"$FORM{'mode'}\">\n";
	print"<table>\n";
	print"<tr><td>\n";
	print "<select name=old class=\"st1\">\n";
	$s = 0;
	$osec = '';
	if($FORM{'old'} eq ''){$osec = 'SELECTED'; $FORM{'old'} = substr(@oldlist[0],0,6);}
	while($s<@oldlist){
		$osec = '';
		$ovalue = substr(@oldlist[$s],0,6);
		if(index($ovalue,$FORM{'old'})>=0 && $FORM{'old'} ne ''){$osec = 'SELECTED';}
		$odate = substr($ovalue,0,4).'年'.substr($ovalue,4,2).'月';
		print"<option value=\"$ovalue\" $osec>$odate\n";
		$s++;
	}
	print "</select>\n";
	print"</td>\n";
	print"<td><input type=submit value=\"ＴＭ通信を見る\" class=\"st2\"></td></tr>\n";
	print"</table></form>\n";
	print"</td></tr></table>\n";
	# 過去ログフラッグ
	$oldflag = 1;
	# 読み込むlogfileの更新
	if($FORM{'old'} ne ''){$logfile = $oldbox.$FORM{'old'}."\.log";}else{$logfile = ""}
}

# //// SEARCH FORM //////////////////////////////////////////////////////////////////////////
sub searchform{
	# Form幅の調整
	&getform;
	# ヘルプを表示
	print"<table><tr><td>\n";
	&searchhelp;
	print"</td></tr><tr><td>\n";
	if($FORM{'sub'} eq ' リセット '){
		$FORM{'com'} = '';
		$FORM{'andor'} = '';
	}
	print"<form method=post enctype=\"multipart/form-data\" action=\"$script\">\n";
	if($frameok){print"<input type=hidden name=loca value=\"f_right\">\n";}
	print"<input type=hidden name=mode value=\"search\">\n";
	print"<table border=0 cellpadding=2 cellspacing=0>\n";
	# SEARCH内容
	print"<tr>\n";
	print"<td $back08 align=center width=80><font color=$color09>KEYWORD</font></td>\n";
	print"<td $back10><input type=text name=com size=\"$w_url\" value=\"$FORM{'com'}\" class=\"st1\"></td>\n";
	print"</tr>\n";
	print"<tr>\n";
	print"<td $back08 colspan=2 height=2> </td>\n";
	print"</tr>\n";
	if(&ieflag){
		print"<tr>\n";
		print"<td $back10 colspan=2 height=3> </td>\n";
		print"</tr>\n";
	}
	# AND OR
	$a = '';
	$b = '';
	if($FORM{'andor'} eq 'or'){$b = 'CHECKED';}
	else{$a = 'CHECKED';}
	print"<tr>\n";
	print"<td $back08 align=center width=80><font color=$color09>検索条件</font></td>\n";
	print"<td $back10>\n";
	print"<input type=radio value=\"and\" name=\"andor\" $a>AND\n";
	print"<input type=radio value=\"or\" name=\"andor\" $b>OR\n";
	print"</td>\n";
	print"</tr>\n";
	print"<tr>\n";
	print"<td $back08 colspan=2 height=2> </td>\n";
	print"</tr>\n";
	if(&ieflag){
		print"<tr>\n";
		print"<td $back10 colspan=2 height=3> </td>\n";
		print"</tr>\n";
	}

	print"<tr>\n";
	print"<td $back10 colspan=2><input type=submit name=sub value=\"　検索　\" class=\"st2\"> <input type=submit name=sub value=\" リセット \" class=\"st2\"></td>\n";
	print"</tr>\n";
	print"<tr>\n";
	print"<td $back08 colspan=2 height=2> </td>\n";
	print"</tr>\n";
	if(&ieflag){
		print"<tr>\n";
		print"<td $back10 colspan=2 height=3> </td>\n";
		print"</tr>\n";
	}
	print"</table></form>\n";
	print"</td></tr></table>\n";
	# Searchフラッグ
	$oldflag = 1;
	$searchflag = 1;
	# 検索結果ログの吐き出し
	@scom = split(/ /, $FORM{'com'});
	@lines = &filefind(@scom);
}

# //// 簡単なヘルプ(SEARCH) ////////////////////////////////////////////////////////////////
sub searchhelp{
	print"<table border=0 cellpadding=2 cellspacing=0>\n";
	print"<tr>\n";
	print"<td $back08 colspan=2 align=center>\n";
	print"	<table border=0 cellpadding=5 cellspacing=0>\n";
	print"	<tr><td $back01><div>\n";
	print"	・KEYWORDには、<font color=$color11>スペース区切り</font>で入力します。<br>\n";
	print"	・大文字・小文字は<font color=$color11>判断しません</font>。<br>\n";
	print"	・ＴＭ通信の表\示数が多くなると処理に時間がかかります。<br>\n";
	print"	</div></td></tr>\n";
	print"	</table>\n";
	print"</td>\n";
	print"</tr>\n";
	print"</table>\n";
}

# //// 簡単なヘルプ(過去ログ) //////////////////////////////////////////////////////////////
sub oldloghelp{
	print"<table border=0 cellpadding=2 cellspacing=0>\n";
	print"<tr>\n";
	print"<td $back08 colspan=2 align=center>\n";
	print"	<table border=0 cellpadding=5 cellspacing=0>\n";
	print"	<tr><td $back01><div>\n";
	print"	・<font color=$color11>月ごと</font>にログを\表\示\します。<br>\n";
	print"	・下のセレクトボックスより月を選択し、<font color=$color11>「過去のＴＭ通信を見る」</font>を押してください。<br>\n";
	print"	・ログでの編集/削除はできません。<br>\n";
	print"	</div></td></tr>\n";
	print"	</table>\n";
	print"</td>\n";
	print"</tr>\n";
	print"</table>\n";
}

# //// 検索結果ログを吐き出す ///////////////////////////////////////////////////////////////
sub filefind{
	local(@kind) = @_;
	local(@lines,@log,@oldlist,@new,$line,$flag,$kind2);
	# ログを開いて全て一つにする（激重）
	# 投稿記事のログを開く
	open(IN,"$logfile") || &error("Can't open logfile");
	@lines = <IN>;
	close(IN);
	@log = ();
	# 過去ログファイル一覧
	@oldlist = &oldlist;
	$s=0;
	while($s<@oldlist){
		$oldlog = $oldbox.@oldlist[$s];
		# 投稿記事のログを開く
		open(IN,"$oldlog") || &error("Can't open logfile");
		@log = <IN>;
		close(IN);
		push(@lines,@log);
	  $s++;
	}
	@new = ();
	foreach $line (@lines){
		$flag = 0;
		$s = 0;
		while($s<@kind){
			if(@kind[$s] ne ''){
				# 拡張子を全て小文字に変換
				$line2 = $line; $line2 =~ tr/A-Z/a-z/;
				$kind2 = @kind[$s]; $kind2 =~ tr/A-Z/a-z/;
				if(index($line,@kind[$s])>=0 || index($line2,$kind2)>=0){
					$flag = 1;
					if($FORM{'andor'} eq 'or'){last;}
				}else{
					if($FORM{'andor'} eq 'and'){$flag = 0;last;}
				}
			}
			$s++;
		}
		if($flag){push(@new,$line);}
	}
	return(@new);
}

# //// GIF,JPG,PNG サイズ取得 /////////////////////////////////////////////////////////////
#      〜 WWWimagesizeより (http://www.bloodyeck.com/wwwis/) 〜

sub gifsize{
  local($GIF) = @_;
  local($type,$a,$b,$c,$d,$s)=(0,0,0,0,0,0);

  if(defined( $GIF )		&&
     read($GIF, $type, 6)	&&
     $type =~ /GIF8[7,9]a/	&&
     read($GIF, $s, 4) == 4	){
    ($a,$b,$c,$d)=unpack("C"x4,$s);
    return ($b<<8|$a,$d<<8|$c);
  }
  return (0,0);
}

sub jpegsize {
  local($JPEG) = @_;
  local($done)=0;
  local($c1,$c2,$ch,$s,$length, $dummy)=(0,0,0,0,0,0);
  local($a,$b,$c,$d);

  if(defined($JPEG)		&&
     read($JPEG, $c1, 1)	&&
     read($JPEG, $c2, 1)	&&
     ord($c1) == 0xFF		&&
     ord($c2) == 0xD8		){
    while (ord($ch) != 0xDA && !$done) {
      # Find next marker (JPEG markers begin with 0xFF)
      # This can hang the program!!
      while (ord($ch) != 0xFF) { return(0,0) unless read($JPEG, $ch, 1); }
      # JPEG markers can be padded with unlimited 0xFF's
      while (ord($ch) == 0xFF) { return(0,0) unless read($JPEG, $ch, 1); }
      # Now, $ch contains the value of the marker.
      if ((ord($ch) >= 0xC0) && (ord($ch) <= 0xC3)) {
	return(0,0) unless read ($JPEG, $dummy, 3);
	return(0,0) unless read($JPEG, $s, 4);
	($a,$b,$c,$d)=unpack("C"x4,$s);
	return ($c<<8|$d, $a<<8|$b );
      } else {
	# We **MUST** skip variables, since FF's within variable names are
	# NOT valid JPEG markers
	return(0,0) unless read ($JPEG, $s, 2);
	($c1, $c2) = unpack("C"x2,$s);
	$length = $c1<<8|$c2;
	last if (!defined($length) || $length < 2);
	read($JPEG, $dummy, $length-2);
      }
    }
  }
  return (0,0);
}

sub pngsize {
  local($PNG) = @_;
  local($head) = "";
  local($a, $b, $c, $d, $e, $f, $g, $h)=0;

  if(defined($PNG)				&&
     read( $PNG, $head, 8 ) == 8		&&
     $head eq "\x89\x50\x4e\x47\x0d\x0a\x1a\x0a" &&
     read($PNG, $head, 4) == 4			&&
     read($PNG, $head, 4) == 4			&&
     $head eq "IHDR"				&&
     read($PNG, $head, 8) == 8 			){
    ($a,$b,$c,$d,$e,$f,$g,$h)=unpack("C"x8,$head);
    return ($a<<24|$b<<16|$c<<8|$d, $e<<24|$f<<16|$g<<8|$h);
  }
  return (0,0);
}

# //// 管理人へ認証コードを発行する /////////////////////////////////////////////////////////
sub ninsyou{
	&header;
	# Form幅の調整
	&getform;
	print"<br>\n";
	print"<br>\n";
	print"<br>\n";
	print"<form method=post enctype=\"multipart/form-data\" action=\"$script\">\n";
	print"<input type=hidden name=mode value=\"writecode\">\n";
	print"<table border=0 cellpadding=2 cellspacing=0 align=center>\n";
	# 管理人パスワード
	print"<tr>\n";
	print"<td $back08 colspan=2 align=center><font color=$color09>管理人パスワード</font></td>\n";
	print"</tr>\n";
	print"<tr>\n";
	print"<td $back08 colspan=2 height=2> </td>\n";
	print"</tr>\n";
	if(&ieflag){
		print"<tr>\n";
		print"<td $back10 colspan=2 height=3> </td>\n";
		print"</tr>\n";
	}
	# PASSWORD
	print"<tr>\n";
	print"<td $back08 align=center width=80><font color=$color09>PASSWORD</font></td>\n";
	print"<td $back10><input type=password name=key size=\"$w_key\" value=\"$c_key\" class=\"st1\"></td>\n";
	print"</tr>\n";
	print"<tr>\n";
	print"<td $back08 colspan=2 height=2> </td>\n";
	print"</tr>\n";
	if(&ieflag){
		print"<tr>\n";
		print"<td $back10 colspan=2 height=3> </td>\n";
		print"</tr>\n";
	}
	print"<tr>\n";
	print"<td $back10 colspan=2><input type=submit value=\"　送信　\" class=\"st2\"></td>\n";
	print"</tr>\n";
	print"<tr>\n";
	print"<td $back08 colspan=2 height=2> </td>\n";
	print"</tr>\n";
	if(&ieflag){
		print"<tr>\n";
		print"<td $back10 colspan=2 height=3> </td>\n";
		print"</tr>\n";
	}
	print"</table>\n";
	&footer;
}

# //// 会員認証Codeを発行する /////////////////////////////////////////////////////////////
sub writecode{
	# 記入漏れのチェック
	$error_flag = 0;
	if($FORM{'key'} eq ''){$error_flag = 1;}
	if($error_flag){&header;&error("記入漏れがあります。");}
	if($FORM{'key'} ne $adpwd){&header;&error("あなたは管理者ではありません。");}
	# Cookieを発行する
	&set_cookie;
	# ブラウザのリフレッシュ
	&header;
	print"<META HTTP-EQUIV=\"Refresh\" CONTENT=\"0; URL=$script\">\n";
	&footer;
	exit;
}

# //// 右側フレーム ///////////////////////////////////////////////////////////////////////
sub f_right{
	# ログの書き込み処理
	if($FORM{'mode'} eq 'writelog'){&writelog;}
	&header;
	# クッキーを取得する
	&get_cookie;
	$nnikki = '';
	$vnikki = '';
	$nalbum = '';
	$snikki = '';
	# Non Frame
	if(!$frameok){
		if($c_key eq $adpwd){
			$nnikki = "<a href=\"$script?mode=tform\"><font color=#999999>新しいＴＭ通信を書く</font></a>";
		}
			$vnikki = "　&nbsp;<a href=\"$script\"><img src=\"../img/tmbbs/bt_lately.gif\" width=\"143\" height=\"17\" alt=\"最近のダイアリーをみる\" border=\"0\"></a>&nbsp;";
		# 過去ログ機能時に過去ログのリンク先を表示
		$onum = &oldlist;
		if($onum){$nalbum = "　&nbsp;<a href=\"$script?mode=oldlog\"><img src=\"../img/tmbbs/bt_log.gif\" width=\"149\" height=\"17\" alt=\"過去のダイアリーをみる\" border=\"0\"></a>&nbsp;";}
		$snikki = "　&nbsp;<a href=\"$script?mode=search\"><img src=\"../img/tmbbs/bt_search.gif\" width=\"112\" height=\"17\" alt=\"ダイアリーを検索\" border=\"0\"></a>&nbsp;";
	}
	# 投稿フォーム
	if($FORM{'mode'} eq 'tform' && $c_key eq $adpwd){
		if($FORM{'date'} ne ''){&kiji; print"<h4>編集/削除</h4>\n";}
		&tform;&footer;
	}
	# 過去ログ表示
	if($FORM{'mode'} eq 'oldlog'){&oldform;}
	# 投稿フォーム (SEARCH用)
	if($FORM{'mode'} eq 'search'){&searchform;}
	if($FORM{'mode'} eq ''){print"$head_title\n";}
	if($FORM{'mode'} eq 'rewrite'){
		if($ndkiji){&kiji;}
		print"<h4>編集/削除</h4>\n";
	}
	# 戻り先の埋め込み
#	print"<div align=center>$vnikki$nalbum$snikki<A HREF=$backurl>TOP</A></div><br>$nnikki\n";
	print"<div align=center>$vnikki$nalbum$snikki</div>\n";
	&kiji;
	&footer;
}

# //// 左側フレーム ///////////////////////////////////////////////////////////////////////
sub f_left{
	# 左フレーム用に色調を変える
	$kabegami = '';
	$back01 = $back19;
	$color02 = $color20;
	$color03 = $color20;
	$color04 = $color20;
	&header;
	# クッキーを取得する
	&get_cookie;
	print"<div align=left>\n";
	print"<h4>$title</h4>\n";
	if($c_key eq $adpwd){
		print"・ <a href=\"$script?loca=f_right&mode=tform\" TARGET=f_right>新しいＴＭ通信を書く</a><br>\n";
	}
	print"・ <a href=\"$script?loca=f_right\" TARGET=f_right>最近のＴＭ通信をみる</a><br>\n";
	# 過去ログ機能時に過去ログのリンク先を表示
	$onum = &oldlist;
	if($onum){print"・ <a href=\"$script?loca=f_right&mode=oldlog\" TARGET=f_right>ＴＭ通信を見る</a><br>\n";}
	print"・ <a href=\"$script?loca=f_right&mode=search\" TARGET=f_right>検索</a><br>\n";
	print"</div>\n";
	&footer;
	exit;
}