#!/usr/local/bin/perl

#オリジナル
#┌─────────────────────────────────
#│  JOYFUL NOTE v1.33 (2002/06/06)
#│  Copyright(C) Kent Web 2002
#│  webmaster@kent-web.com
#│  http://www.kent-web.com/
#└─────────────────────────────────
#カスタマイズ
#┌─────────────────────────────────
#│  ROCO ALBUM v1.20 (2003/05/28)
#│  Copyright(C) Rocomotion 2002-2003
#│  webmaster@rocomotion.net
#│  http://www.rocomotion.net
#└─────────────────────────────────
$ver = 'ROCO ALBUM v1.20';
#┌─────────────────────────────────
#│ [注意事項]
#│ 1. このスクリプトはフリーソフトです。このスクリプトを使用した
#│    いかなる損害に対して作者は一切の責任を負いません。
#│ 2. 設置に関する質問はサポート掲示板にお願いいたします。
#│    直接メールによる質問は一切お受けいたしておりません。
#│ 3. 添付の home.gif は L.O.V.E の mayuRin さんによる画像です。
#└─────────────────────────────────
#---------
#設定開始
#---------

# 管理者用マスタパスワード (英数字で８文字以内)
$pass = 'ceracera';

#---------
#設定完了
#---------

# ライブラリ取込
require './jcode.pl';
require './cgi-lib.pl';
require './ralbum.ini';

# メイン処理
&decode;
&axs_check;
if ($mode eq "howto") { &howto; }
elsif ($mode eq "write") { &form; }
elsif ($mode eq "usr_del") { &usr_del; }
elsif ($mode eq "usr_edt") { &usr_edt; }
elsif ($mode eq "regist") { &regist; }
elsif ($mode eq "past") { &past; }
elsif ($mode eq "check") { ✓ }
&html_log;

#----------------#
#  アクセス制限  #
#----------------#
sub axs_check {
	# ホスト名を取得
	&get_host;

	local($flag)=0;
	foreach (split(/\s+/, $deny)) {
		s/\*/\.\*/g;
		if ($host =~ /$_/i) { $flag=1; last; }
	}
	if ($flag) { &error("アクセスを許可されていません"); }
}

#--------------#
#  記事表示部  #
#--------------#
sub html_log {
	local($wh,$i,$flag);

	# ヘッダを出力
	&header;

	# タイトル部
	print "<div align='center'>\n";
	if ($banner1 ne "<!-- 上部 -->") { print "$banner1<P>\n"; }
	if ($t_img eq '') {
		print "<font style=\"font-size:$t_size;color:$t_color;font-family:'$face' font-weight:$titlewid;\">$title</font>\n";
	} else {
		print "<img src=\"$t_img\" width=\"$t_w\" height=\"$t_h\" alt=\"$title\">\n";
	}
	print "<br><br>\n";
	if ($in{'action'} eq "view") {
	   print "<table width=700 align=center cellspcaing=0 cellpadding=0>\n";
	   print "<tr><td>\n";
	   print "<a href=\"$script\">&lt;&lt; back</a> \n";
	   print "</td></tr>\n";
	   print "</table>\n";
	} else {
           print "<table width=500 align=center cellspcaing=0 cellpadding=0>\n";
           print "<tr>\n";
           print "<td align=left><a href=\"$homepage\" target=\"$htarget\">&lt;&lt;top</a></td>\n";
           #カウンター処理
	   if ($in{'action'} ne "view") {
	         if ($counter) {
	              print "<td align=right>VIEW : \n";
	              &counter;
	         }
           }
           print "</td></tr></table>\n";
        }
	print "<center>\n";

	# 記事を展開
	    open(IN,"$logfile") || &error("Open Error : $logfile");
	
	$top = <IN>;
	$i=0;
	$fullpic=0;

	#ログ表示
	if ($in{'action'} eq "view") {

		while (<IN>) {
		($no,$year1,$month1,$day1,$year2,$month2,$day2,$sub,$tail1,$W1,$H1,$com1,$tail2,$W2,$H2,$com2,$tail3,$W3,$H3,$com3,$tail4,$W4,$H4,$com4,$tail5,$W5,$H5,$com5,$tail6,$W6,$H6,$com6,$tail7,$W7,$H7,$com7,$tail8,$W8,$H8,$com8,$tail9,$W9,$H9,$com9,$tail10,$W10,$H10,$com10,$host) = split(/<>/);

		# 題名の長さ
		if (length($sub) > $sub_len*2) {
			$sub = substr($sub,0,$sub_len*2);
			$sub .= "...";
		}

		if ($month1 < 10) { $month1 = "0$month1"; }
		if ($day1 < 10) { $day1 = "0$day1"; }
		if ($month2 < 10) { $month2 = "0$month2"; }
		if ($day2 < 10) { $day2 = "0$day2"; }

		if ($in{'no'} == $no) {
		
		print "<table width=700 align=center cellpadding=0 cellspacing=5>\n";
		print "<tr><td align=center>\n";
		if ($tail1 ne "") {
			print "<a href=\"$script?action=view&no=$no&photono=1&tailno=$tail1&wno=$W1&hno=$H1\"><img src=\"$ImgUrl$no-1$tail1\" alt=\"photo1\" width=$samW height=$samH class=swaku></a>\n";
			$fullpic = 1;
		}
		if ($tail2 ne "") {
			print "&nbsp;&nbsp;<a href=\"$script?action=view&no=$no&photono=2&tailno=$tail2&wno=$W2&hno=$H2\"><img src=\"$ImgUrl$no-2$tail2\" alt=\"photo2\" width=$samW height=$samH class=swaku></a>\n";
			$fullpic = 2;
		}
		if ($tail3 ne "") {
			print "&nbsp;&nbsp;<a href=\"$script?action=view&no=$no&photono=3&tailno=$tail3&wno=$W3&hno=$H3\"><img src=\"$ImgUrl$no-3$tail3\" alt=\"photo3\" width=$samW height=$samH class=swaku></a>\n";
			$fullpic = 3;
		
		}
		if ($tail4 ne "") {
			print "&nbsp;&nbsp;<a href=\"$script?action=view&no=$no&photono=4&tailno=$tail4&wno=$W4&hno=$H4\"><img src=\"$ImgUrl$no-4$tail4\" alt=\"photo4\" width=$samW height=$samH class=swaku></a>\n";
			$fullpic = 4;
		
		}
		if ($tail5 ne "") {
			print "&nbsp;&nbsp;<a href=\"$script?action=view&no=$no&photono=5&tailno=$tail5&wno=$W5&hno=$H5\"><img src=\"$ImgUrl$no-5$tail5\" alt=\"photo5\" width=$samW height=$samH class=swaku></a>\n";
			$fullpic = 5;
		
		}
		if ($tail6 ne "") {
			print "&nbsp;&nbsp;<a href=\"$script?action=view&no=$no&photono=6&tailno=$tail6&wno=$W6&hno=$H6\"><img src=\"$ImgUrl$no-6$tail6\" alt=\"photo6\" width=$samW height=$samH class=swaku></a>\n";
			$fullpic = 6;
		
		}
		if ($tail7 ne "") {
			print "&nbsp;&nbsp;<a href=\"$script?action=view&no=$no&photono=7&tailno=$tail7&wno=$W7&hno=$H7\"><img src=\"$ImgUrl$no-7$tail7\" alt=\"photo7\" width=$samW height=$samH class=swaku></a>\n";
			$fullpic = 7;
		
		}
		if ($tail8 ne "") {
			print "&nbsp;&nbsp;<a href=\"$script?action=view&no=$no&photono=8&tailno=$tail8&wno=$W8&hno=$H8\"><img src=\"$ImgUrl$no-8$tail8\" alt=\"photo8\" width=$samW height=$samH class=swaku></a>\n";
			$fullpic = 8;
		
		}
		if ($tail9 ne "") {
			print "&nbsp;&nbsp;<a href=\"$script?action=view&no=$no&photono=9&tailno=$tail9&wno=$W9&hno=$H9\"><img src=\"$ImgUrl$no-9$tail9\" alt=\"photo9\" width=$samW height=$samH class=swaku></a>\n";
			$fullpic = 9;
		
		}
		if ($tail10 ne "") {
			print "&nbsp;&nbsp;<a href=\"$script?action=view&no=$no&photono=10&tailno=$tail10&wno=$W10&hno=$H10\"><img src=\"$ImgUrl$no-10$tail10\" alt=\"photo10\" width=$samW height=$samH class=swaku></a>\n";
			$fullpic = 10;
		
		}
		$comno = "com$in{'photono'}";
		if ($in{'photono'} == 1) {
		  $backphoto = $fullpic;
		  $backtail = "tail$fullpic";
		  $backW = "W$fullpic";
		  $backH = "H$fullpic";
		} else {
		  $backphoto = $in{'photono'}-1;
		  $backtail = "tail$backphoto";
		  $backW = "W$backphoto";
		  $backH = "H$backphoto";
		}
		if ($in{'photono'} == $fullpic) {
		  $nextphoto = 1;
		  $nexttail = "tail1";
		  $nextW = "W1";
		  $nextH = "H1";
		} else {
		  $nextphoto = $in{'photono'}+1;
		  $nexttail = "tail$nextphoto";
		  $nextW = "W$nextphoto";
		  $nextH = "H$nextphoto";
		}

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

		print "<table width=700 bgcolor=\"$tbl_color\" align=center cellpadding=0 cellspacing=0>\n";
		print "<tr><td valign=middle align=center width=$MaxW height=$MaxH class=pwaku><img src=\"$ImgUrl$no-$in{'photono'}$in{'tailno'}\" alt=\"photo$in{'photono'}\" width=\"$in{'wno'}\" height=\"$in{'hno'}\"></td>\n";
		print "<td valign=middle>\n";
		print "<hr width=90% size=1>\n";
		print "&nbsp;&nbsp;&nbsp;&nbsp;<font color=$sub_color>$sub</font>\n";
		print "<br><br>\n";
		print "<div align=right><font color=$datecolor>$year1/$month1/$day1 〜 $year2/$month2/$day2</font>&nbsp;&nbsp;&nbsp;</div>\n";
		print "<hr width=90% size=1>\n";
		print "<div align=right>photo no.$in{'photono'} / $fullpic &nbsp;&nbsp;<br>\n";
		print "<a href=\"$script?action=view&no=$no&photono=$backphoto&tailno=$$backtail&wno=$$backW&hno=$$backH\">&lt;&lt;</a>&nbsp;\n";

		print "<a href=\"$script?action=view&no=$no&photono=1&tailno=$tail1&wno=$W1&hno=$H1\">★</a>&nbsp;\n";

		print "<a href=\"$script?action=view&no=$no&photono=$nextphoto&tailno=$$nexttail&wno=$$nextW&hno=$$nextH\">&gt;&gt;</a>&nbsp;&nbsp;</div><br>\n";

		print "<div align=right><u>comment</u>&nbsp;&nbsp;&nbsp;</div>";
		print "<div id=\"comment\" style=\"position:relative; top:0px; left:10px; width:200px; height:120px; overflow: auto\" class=text>$$comno</div>\n";
		print "<br><br>\n";
		print "<hr width=90% size=1>\n";
		print "<div align=right class=cyo>\n";
		print "&nbsp;&nbsp;<br>+<a href=\"http://www.rocomotion.net\" target=_blank\">ralbum<!--$ver--></a>+&nbsp;&nbsp;&nbsp;<br>\n";
		print "<a href='http://www.kent-web.com/' target='_blank'>KENT</a> , <a href='http://www.rocomotion.net' target='_blank'>UG</a>&nbsp;&nbsp;&nbsp;</div>\n";
		print "</td>\n";
		print "</tr>\n";
		print "</table>\n";
		print "</div>\n";
		print "</body>\n";
		print "</html>\n";

   		}
	}
	close(IN);
	} else {

	print "<TABLE WIDTH=500 BGCOLOR=\"$tbl_color\" CELLSPACING=0 CELLPADDING=5\" $tpw class=wakuo><tr><td align=center colspan=2 bgcolor=$obi><font color=$obi_c>collected works of art clay studio</font></td>\n";

	while (<IN>) {
		($no,$year1,$month1,$day1,$year2,$month2,$day2,$sub,$tail1,$W1,$H1,$com1,$tail2,$W2,$H2,$com2,$tail3,$W3,$H3,$com3,$tail4,$W4,$H4,$com4,$tail5,$W5,$H5,$com5,$tail6,$W6,$H6,$com6,$tail7,$W7,$H7,$com7,$tail8,$W8,$H8,$com8,$tail9,$W9,$H9,$com9,$tail10,$W10,$H10,$com10,$host) = split(/<>/);

		$i++;
		if ($i < $page + 1) { next; }
		if ($i > $page + $p_log) { next; }

		# 題名の長さ
		if (length($sub) > $sub_len*2) {
			$sub = substr($sub,0,$sub_len*2);
			$sub .= "...";
		}
		if ($month1 < 10) { $month1 = "0$month1"; }
		if ($day1 < 10) { $day1 = "0$day1"; }
		if ($month2 < 10) { $month2 = "0$month2"; }
		if ($day2 < 10) { $day2 = "0$day2"; }

		print "<tr>\n";
		print "<td nowrap><font color=$datecolor>$year1/$month1/$day1〜$year2/$month2/$day2</font></td>\n";
		print "<td width=350><a href=\"$script?mode=main&action=view&no=$no&photono=1&tailno=$tail1&wno=$W1&hno=$H1\">$sub</a></td>\n";
		print "</tr>\n";

	}
	close(IN);
	print "</TD></TR></TABLE></center>\n";
	} #新着表示終わり

	if ($in{'action'} ne "view") {

          print "<table width=500 align=center cellspcaing=0 cellpadding=0>\n";
          print "<tr>\n";
          print "<td align=right><a href=\"$script?mode=past\">past &gt&gt</a>\n" if ($pastkey);
          print "</td></tr></table>\n";
	  print "<br><br>\n";
	  print "<form action=\"$script\" method=\"POST\">\n";
	  print "<table width=500 align=center cellspacing=0 cellpadding=0><tr><td align=right>+admin+<br>\n";
	  print "<table align=right cellpadding=5 cellspacing=0 class=wakuo>\n";
	  print "<tr><td align=right>\n";
	  print "<select name=mode>\n";
	  print "<option value=write>Write\n";
	  print "<option value=usr_edt>Edit\n";
	  print "<option value=usr_del>Delete</select>\n";

	  print "<select name=no>\n";
	  print "<option>▽ select title ▽\n";

	  # 記事を展開
	  open(IN,"$logfile") || &error("Open Error : $logfile");
	  $top = <IN>;

	  while (<IN>) {
		($no,$year1,$month1,$day1,$year2,$month2,$day2,$sub) = split(/<>/);
		$i++;

		# 題名の長さ
		if (length($sub) > $sub_len*2) {
			$sub = substr($sub,0,10);
			$sub .= "...";
		}

		print "<option value=\"$no\">$sub\n";
	  }
  	  close(IN);
	  print "</select>\n";
	  print "PASS <input type=password name=pwd size=8 maxlength=8>\n";
	  print "&nbsp;&nbsp;<input type=submit value=\"PST\"></td></tr></table></td></tr></table>\n";
	  print "</form>\n";
	  # 著作権表示部
	  # 削除改変を禁止します
	  print "<table width=400 cellpadding=0 cellspacing=0 align=center>\n";
	  print "<tr><td height=20></td></tr>\n";
	  print "<tr><td align=center>$banner2</td></tr>\n";
	  print "<tr><td align=center>++ <a href='http://www.rocomotion.net' target='_blank'>ralbum<!--$ver--></a> ++</td></tr>\n";
	  print "<tr><td height=10></td></tr>\n";
	  print "<tr><td align=center><a href='http://www.kent-web.com/' target='_blank'>KENT</a>   ,   <a href='http://www.rocomotion.net' target='_blank'>UG</a></td></tr>\n";
	  print "<tr><td height=20></td></tr></table>\n";
	  print "</center>\n</body>\n</html>\n";
        }
	exit;
}

#----------------#
#  ログ書込処理  #
#----------------#
sub regist {
	# フォーム入力チェック
	&form_check;

	# 時間を取得
	&get_time;

	# クッキーを発行
	&set_cookie;

	# ファイルロック
	if ($lockkey) { &lock; }

	# ログを開く
	open(IN,"$logfile") || &error("Open Error : $logfile");
	@lines = <IN>;
	close(IN);

	# 記事NO処理
	$top = shift(@lines);
	($no,$ip,$time2) = split(/<>/, $top);
	$no++;

	# 連続投稿チェック
	if ($addr eq $ip && $wait > $times - $time2)
		{ &error("連続投稿はもうしばらく時間をおいて下さい"); }

	# ファイル添付処理
	
	if ($in{'upfile1'}) { &UpFile1; }
	if ($in{'upfile2'}) { &UpFile2; }
	if ($in{'upfile3'}) { &UpFile3; }
	if ($in{'upfile4'}) { &UpFile4; }
	if ($in{'upfile5'}) { &UpFile5; }
	if ($in{'upfile6'}) { &UpFile6; }
	if ($in{'upfile7'}) { &UpFile7; }
	if ($in{'upfile8'}) { &UpFile8; }
	if ($in{'upfile9'}) { &UpFile9; }
	if ($in{'upfile10'}) { &UpFile10; }

	# 親記事の場合
		$i=0;
		$stop=0;
		foreach (@lines) {
			($noa,$year1a,$month1a,$day1a,$year2a,$month2a,$day2a,$suba,$tail1a,$W1a,$H1a,$com1a,$tail2a,$W2a,$H2a,$com2a,$tail3a,$W3a,$H3a,$com3a,$tail4a,$W4a,$H4a,$com4a,$tail5a,$W5a,$H5a,$com5a,$tail6a,$W6a,$H6a,$com6a,$tail7a,$W7a,$H7a,$com7a,$tail8a,$W8a,$H8a,$com8a,$tail9a,$W9a,$H9a,$com9a,$tail10a,$W10a,$H10a,$com10a,$hosta) = split(/<>/);
			$i++;
			if ($i > $max-1) { $stop=1; }
			if (!$stop) { push(@new,$_); }
			else {
				if ($pastkey) { push(@data,$_); }
			}
		}
		unshift(@new,"$no<>$in{'year1'}<>$in{'month1'}<>$in{'day1'}<>$in{'year2'}<>$in{'month2'}<>$in{'day2'}<>$in{'sub'}<>$tail1<>$W1<>$H1<>$in{'com1'}<>$tail2<>$W2<>$H2<>$in{'com2'}<>$tail3<>$W3<>$H3<>$in{'com3'}<>$tail4<>$W4<>$H4<>$in{'com4'}<>$tail5<>$W5<>$H5<>$in{'com5'}<>$tail6<>$W6<>$H6<>$in{'com6'}<>$tail7<>$W7<>$H7<>$in{'com7'}<>$tail8<>$W8<>$H8<>$in{'com8'}<>$tail9<>$W9<>$H9<>$in{'com9'}<>$tail10<>$W10<>$H10<>$in{'com10'}<>$host<>\n");
		unshift(@new,"$no<>$addr<>$times<>\n");

		# 過去ログ更新
		if ($data[0]) { &pastlog; }

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

	# ロック解除
	if ($lockkey) { &unlock; }

}

#--------------------#
#  画像アップロード  #
#--------------------#
sub UpFile1 {
	# 画像処理
	$macbin=0;
        $i=0;$j=0;$k=0;
	foreach (@in) {
		if ($_ =~ /(.*)Content-type:(.*)/i) { $tail=$2; $i++}
		if ($_ =~ /(.*)filename=(.*)/i) { $fname=$2; $j++}
		if ($_ =~ /application\/x-macbinary/i) { $macbin=1; $k++}
		if ($i==1 || $j==1 || $k==1) {$tailout=$tail; $fnameout=$fname; $macbinout=$macbin;}
	}
	$tail = $tailout;
	$fname = $fnameout;
	$macbin= $macbinout;

	$tail =~ s/\r//g;
	$tail =~ s/\n//g;
	$fname =~ tr/\"\x0D\x0A//d;

	# ファイル形式を認識
	$flag=0;
	if ($tail =~ /image\/gif/i && $gif) { $tail=".gif"; $flag=1; }
	if ($tail =~ /image\/jpeg/i && $jpeg) { $tail=".jpg"; $flag=1; }
	if ($tail =~ /image\/x-png/i && $png) { $tail=".png"; $flag=1; }

	if (!$flag) {
		if ($fname =~ /\.gif$/i && $gif) { $tail=".gif"; $flag=1; }
		if (($fname =~ /\.jpe?g$/i && $jpeg)) { $tail=".jpg"; $flag=1; }
		if ($fname =~ /\.png$/i && $png) { $tail=".png"; $flag=1; }
	}

	# アップロード失敗処理
	if (!$flag && !$clip_error) { return; }
	elsif (!$flag && $clip_error) {
		&error("FILE1はアップロードできないファイル形式です","lock");
	}

	$upfile = $in{'upfile1'};

	# マックバイナリ対策
	if ($macbin) {
		$length = substr($upfile,83,4);
		$length = unpack("%N",$length);
		$upfile = substr($upfile,128,$length);
	}

	# 添付データを書き込み
	$ImgFile = "$ImgDir$no-1$tail";
	open(OUT,"> $ImgFile") || &error("FILE1の画像のアップロードに失敗しました","lock");
	binmode(OUT);
	binmode(STDOUT);
	print OUT $upfile;
	close(OUT);
	chmod (0666,$ImgFile);

	# 画像サイズ取得
	if ($tail eq ".jpg") { ($W, $H) = &JpegSize($ImgFile); }
	elsif ($tail eq ".gif") { ($W, $H) = &GifSize($ImgFile); }
	elsif ($tail eq ".png") { ($W, $H) = &PngSize($ImgFile); }

	# 画像表示縮小
	if ($W > $MaxW || $H > $MaxH) {
		$WW = $MaxW / $W;
		$HH = $MaxH / $H;
		if ($WW < $HH) { $key = $WW; }
		else { $key = $HH; }
		$W = int ($W * $key) || 1;
		$H = int ($H * $key) || 1;
	}
	$tail1 = $tail;
        $fname1 = $fname;
        $W1 = $W;
        $H1 = $H;

}

#--------------------#
#  画像アップロード  #
#--------------------#
sub UpFile2 {
	# 画像処理
	$macbin=0;
        $i=0;$j=0;$k=0;
	foreach (@in) {
		if ($_ =~ /(.*)Content-type:(.*)/i) { $tail=$2; $i++}
		if ($_ =~ /(.*)filename=(.*)/i) { $fname=$2; $j++}
		if ($_ =~ /application\/x-macbinary/i) { $macbin=1; $k++}
		if ($i==2 || $j==2 || $k==2) {$tailout=$tail; $fnameout=$fname; $macbinout=$macbin;}
	}
	$tail = $tailout;
	$fname = $fnameout;
	$macbin= $macbinout;

	$tail =~ s/\r//g;
	$tail =~ s/\n//g;
	$fname =~ tr/\"\x0D\x0A//d;

	# ファイル形式を認識
	$flag=0;
	if ($tail =~ /image\/gif/i && $gif) { $tail=".gif"; $flag=1; }
	if ($tail =~ /image\/jpeg/i && $jpeg) { $tail=".jpg"; $flag=1; }
	if ($tail =~ /image\/x-png/i && $png) { $tail=".png"; $flag=1; }

	if (!$flag) {
		if ($fname =~ /\.gif$/i && $gif) { $tail=".gif"; $flag=1; }
		if (($fname =~ /\.jpe?g$/i && $jpeg)) { $tail=".jpg"; $flag=1; }
		if ($fname =~ /\.png$/i && $png) { $tail=".png"; $flag=1; }
	}
	# アップロード失敗処理
	if (!$flag && !$clip_error) { return; }
	elsif (!$flag && $clip_error) {
		&error("FILE2はアップロードできないファイル形式です","lock");
	}

	$upfile = $in{'upfile2'};

	# マックバイナリ対策
	if ($macbin) {
		$length = substr($upfile,83,4);
		$length = unpack("%N",$length);
		$upfile = substr($upfile,128,$length);
	}

	# 添付データを書き込み
	$ImgFile = "$ImgDir$no-2$tail";
	open(OUT,"> $ImgFile") || &error("FILE2の画像のアップロードに失敗しました","lock");
	binmode(OUT);
	binmode(STDOUT);
	print OUT $upfile;
	close(OUT);
	chmod (0666,$ImgFile);

	# 画像サイズ取得
	if ($tail eq ".jpg") { ($W, $H) = &JpegSize($ImgFile); }
	elsif ($tail eq ".gif") { ($W, $H) = &GifSize($ImgFile); }
	elsif ($tail eq ".png") { ($W, $H) = &PngSize($ImgFile); }

	# 画像表示縮小
	if ($W > $MaxW || $H > $MaxH) {
		$WW = $MaxW / $W;
		$HH = $MaxH / $H;
		if ($WW < $HH) { $key = $WW; }
		else { $key = $HH; }
		$W = int ($W * $key) || 1;
		$H = int ($H * $key) || 1;
	}
	$tail2 = $tail;
        $fname2 = $fname;
        $W2 = $W;
        $H2 = $H;

}

#--------------------#
#  画像アップロード  #
#--------------------#
sub UpFile3 {
	# 画像処理
	$macbin=0;
        $i=0;$j=0;$k=0;
	foreach (@in) {
		if ($_ =~ /(.*)Content-type:(.*)/i) { $tail=$2; $i++}
		if ($_ =~ /(.*)filename=(.*)/i) { $fname=$2; $j++}
		if ($_ =~ /application\/x-macbinary/i) { $macbin=1; $k++}
		if ($i==3 || $j==3 || $k==3) {$tailout=$tail; $fnameout=$fname; $macbinout=$macbin;}
	}
	$tail = $tailout;
	$fname = $fnameout;
	$macbin= $macbinout;

	$tail =~ s/\r//g;
	$tail =~ s/\n//g;
	$fname =~ tr/\"\x0D\x0A//d;

	# ファイル形式を認識
	$flag=0;
	if ($tail =~ /image\/gif/i && $gif) { $tail=".gif"; $flag=1; }
	if ($tail =~ /image\/jpeg/i && $jpeg) { $tail=".jpg"; $flag=1; }
	if ($tail =~ /image\/x-png/i && $png) { $tail=".png"; $flag=1; }

	if (!$flag) {
		if ($fname =~ /\.gif$/i && $gif) { $tail=".gif"; $flag=1; }
		if (($fname =~ /\.jpe?g$/i && $jpeg)) { $tail=".jpg"; $flag=1; }
		if ($fname =~ /\.png$/i && $png) { $tail=".png"; $flag=1; }
	}
	# アップロード失敗処理
	if (!$flag && !$clip_error) { return; }
	elsif (!$flag && $clip_error) {
		&error("FILE3はアップロードできないファイル形式です","lock");
	}

	$upfile = $in{'upfile3'};

	# マックバイナリ対策
	if ($macbin) {
		$length = substr($upfile,83,4);
		$length = unpack("%N",$length);
		$upfile = substr($upfile,128,$length);
	}

	# 添付データを書き込み
	$ImgFile = "$ImgDir$no-3$tail";
	open(OUT,"> $ImgFile") || &error("FILE3の画像のアップロードに失敗しました","lock");
	binmode(OUT);
	binmode(STDOUT);
	print OUT $upfile;
	close(OUT);
	chmod (0666,$ImgFile);

	# 画像サイズ取得
	if ($tail eq ".jpg") { ($W, $H) = &JpegSize($ImgFile); }
	elsif ($tail eq ".gif") { ($W, $H) = &GifSize($ImgFile); }
	elsif ($tail eq ".png") { ($W, $H) = &PngSize($ImgFile); }

	# 画像表示縮小
	if ($W > $MaxW || $H > $MaxH) {
		$WW = $MaxW / $W;
		$HH = $MaxH / $H;
		if ($WW < $HH) { $key = $WW; }
		else { $key = $HH; }
		$W = int ($W * $key) || 1;
		$H = int ($H * $key) || 1;
	}
	$tail3 = $tail;
        $fname3 = $fname;
        $W3 = $W;
        $H3 = $H;

}


#--------------------#
#  画像アップロード  #
#--------------------#
sub UpFile4 {
	# 画像処理
	$macbin=0;
        $i=0;$j=0;$k=0;
	foreach (@in) {
		if ($_ =~ /(.*)Content-type:(.*)/i) { $tail=$2; $i++}
		if ($_ =~ /(.*)filename=(.*)/i) { $fname=$2; $j++}
		if ($_ =~ /application\/x-macbinary/i) { $macbin=1; $k++}
		if ($i==4 || $j==4 || $k==4) {$tailout=$tail; $fnameout=$fname; $macbinout=$macbin;}
	}
	$tail = $tailout;
	$fname = $fnameout;
	$macbin= $macbinout;

	$tail =~ s/\r//g;
	$tail =~ s/\n//g;
	$fname =~ tr/\"\x0D\x0A//d;

	# ファイル形式を認識
	$flag=0;
	if ($tail =~ /image\/gif/i && $gif) { $tail=".gif"; $flag=1; }
	if ($tail =~ /image\/jpeg/i && $jpeg) { $tail=".jpg"; $flag=1; }
	if ($tail =~ /image\/x-png/i && $png) { $tail=".png"; $flag=1; }

	if (!$flag) {
		if ($fname =~ /\.gif$/i && $gif) { $tail=".gif"; $flag=1; }
		if (($fname =~ /\.jpe?g$/i && $jpeg)) { $tail=".jpg"; $flag=1; }
		if ($fname =~ /\.png$/i && $png) { $tail=".png"; $flag=1; }
	}
	# アップロード失敗処理
	if (!$flag && !$clip_error) { return; }
	elsif (!$flag && $clip_error) {
		&error("FILE4はアップロードできないファイル形式です","lock");
	}

	$upfile = $in{'upfile4'};

	# マックバイナリ対策
	if ($macbin) {
		$length = substr($upfile,83,4);
		$length = unpack("%N",$length);
		$upfile = substr($upfile,128,$length);
	}

	# 添付データを書き込み
	$ImgFile = "$ImgDir$no-4$tail";
	open(OUT,"> $ImgFile") || &error("FILE4の画像のアップロードに失敗しました","lock");
	binmode(OUT);
	binmode(STDOUT);
	print OUT $upfile;
	close(OUT);
	chmod (0666,$ImgFile);

	# 画像サイズ取得
	if ($tail eq ".jpg") { ($W, $H) = &JpegSize($ImgFile); }
	elsif ($tail eq ".gif") { ($W, $H) = &GifSize($ImgFile); }
	elsif ($tail eq ".png") { ($W, $H) = &PngSize($ImgFile); }

	# 画像表示縮小
	if ($W > $MaxW || $H > $MaxH) {
		$WW = $MaxW / $W;
		$HH = $MaxH / $H;
		if ($WW < $HH) { $key = $WW; }
		else { $key = $HH; }
		$W = int ($W * $key) || 1;
		$H = int ($H * $key) || 1;
	}
	$tail4 = $tail;
        $fname4 = $fname;
        $W4 = $W;
        $H4 = $H;

}


#--------------------#
#  画像アップロード  #
#--------------------#
sub UpFile5 {
	# 画像処理
	$macbin=0;
        $i=0;$j=0;$k=0;
	foreach (@in) {
		if ($_ =~ /(.*)Content-type:(.*)/i) { $tail=$2; $i++}
		if ($_ =~ /(.*)filename=(.*)/i) { $fname=$2; $j++}
		if ($_ =~ /application\/x-macbinary/i) { $macbin=1; $k++}
		if ($i==5 || $j==5 || $k==5) {$tailout=$tail; $fnameout=$fname; $macbinout=$macbin;}
	}
	$tail = $tailout;
	$fname = $fnameout;
	$macbin= $macbinout;

	$tail =~ s/\r//g;
	$tail =~ s/\n//g;
	$fname =~ tr/\"\x0D\x0A//d;

	# ファイル形式を認識
	$flag=0;
	if ($tail =~ /image\/gif/i && $gif) { $tail=".gif"; $flag=1; }
	if ($tail =~ /image\/jpeg/i && $jpeg) { $tail=".jpg"; $flag=1; }
	if ($tail =~ /image\/x-png/i && $png) { $tail=".png"; $flag=1; }

	if (!$flag) {
		if ($fname =~ /\.gif$/i && $gif) { $tail=".gif"; $flag=1; }
		if (($fname =~ /\.jpe?g$/i && $jpeg)) { $tail=".jpg"; $flag=1; }
		if ($fname =~ /\.png$/i && $png) { $tail=".png"; $flag=1; }
	}
	# アップロード失敗処理
	if (!$flag && !$clip_error) { return; }
	elsif (!$flag && $clip_error) {
		&error("FILE5はアップロードできないファイル形式です","lock");
	}

	$upfile = $in{'upfile5'};

	# マックバイナリ対策
	if ($macbin) {
		$length = substr($upfile,83,4);
		$length = unpack("%N",$length);
		$upfile = substr($upfile,128,$length);
	}

	# 添付データを書き込み
	$ImgFile = "$ImgDir$no-5$tail";
	open(OUT,"> $ImgFile") || &error("FILE5の画像のアップロードに失敗しました","lock");
	binmode(OUT);
	binmode(STDOUT);
	print OUT $upfile;
	close(OUT);
	chmod (0666,$ImgFile);

	# 画像サイズ取得
	if ($tail eq ".jpg") { ($W, $H) = &JpegSize($ImgFile); }
	elsif ($tail eq ".gif") { ($W, $H) = &GifSize($ImgFile); }
	elsif ($tail eq ".png") { ($W, $H) = &PngSize($ImgFile); }

	# 画像表示縮小
	if ($W > $MaxW || $H > $MaxH) {
		$WW = $MaxW / $W;
		$HH = $MaxH / $H;
		if ($WW < $HH) { $key = $WW; }
		else { $key = $HH; }
		$W = int ($W * $key) || 1;
		$H = int ($H * $key) || 1;
	}
	$tail5 = $tail;
        $fname5 = $fname;
        $W5 = $W;
        $H5 = $H;

}

#--------------------#
#  画像アップロード  #
#--------------------#
sub UpFile6 {
	# 画像処理
	$macbin=0;
        $i=0;$j=0;$k=0;
	foreach (@in) {
		if ($_ =~ /(.*)Content-type:(.*)/i) { $tail=$2; $i++}
		if ($_ =~ /(.*)filename=(.*)/i) { $fname=$2; $j++}
		if ($_ =~ /application\/x-macbinary/i) { $macbin=1; $k++}
		if ($i==6 || $j==6 || $k==6) {$tailout=$tail; $fnameout=$fname; $macbinout=$macbin;}
	}
	$tail = $tailout;
	$fname = $fnameout;
	$macbin= $macbinout;

	$tail =~ s/\r//g;
	$tail =~ s/\n//g;
	$fname =~ tr/\"\x0D\x0A//d;

	# ファイル形式を認識
	$flag=0;
	if ($tail =~ /image\/gif/i && $gif) { $tail=".gif"; $flag=1; }
	if ($tail =~ /image\/jpeg/i && $jpeg) { $tail=".jpg"; $flag=1; }
	if ($tail =~ /image\/x-png/i && $png) { $tail=".png"; $flag=1; }

	if (!$flag) {
		if ($fname =~ /\.gif$/i && $gif) { $tail=".gif"; $flag=1; }
		if (($fname =~ /\.jpe?g$/i && $jpeg)) { $tail=".jpg"; $flag=1; }
		if ($fname =~ /\.png$/i && $png) { $tail=".png"; $flag=1; }
	}
	# アップロード失敗処理
	if (!$flag && !$clip_error) { return; }
	elsif (!$flag && $clip_error) {
		&error("FILE6はアップロードできないファイル形式です","lock");
	}

	$upfile = $in{'upfile6'};

	# マックバイナリ対策
	if ($macbin) {
		$length = substr($upfile,83,4);
		$length = unpack("%N",$length);
		$upfile = substr($upfile,128,$length);
	}

	# 添付データを書き込み
	$ImgFile = "$ImgDir$no-6$tail";
	open(OUT,"> $ImgFile") || &error("FILE6の画像のアップロードに失敗しました","lock");
	binmode(OUT);
	binmode(STDOUT);
	print OUT $upfile;
	close(OUT);
	chmod (0666,$ImgFile);

	# 画像サイズ取得
	if ($tail eq ".jpg") { ($W, $H) = &JpegSize($ImgFile); }
	elsif ($tail eq ".gif") { ($W, $H) = &GifSize($ImgFile); }
	elsif ($tail eq ".png") { ($W, $H) = &PngSize($ImgFile); }

	# 画像表示縮小
	if ($W > $MaxW || $H > $MaxH) {
		$WW = $MaxW / $W;
		$HH = $MaxH / $H;
		if ($WW < $HH) { $key = $WW; }
		else { $key = $HH; }
		$W = int ($W * $key) || 1;
		$H = int ($H * $key) || 1;
	}
	$tail6 = $tail;
        $fname6 = $fname;
        $W6 = $W;
        $H6 = $H;

}

#--------------------#
#  画像アップロード  #
#--------------------#
sub UpFile7 {
	# 画像処理
	$macbin=0;
        $i=0;$j=0;$k=0;
	foreach (@in) {
		if ($_ =~ /(.*)Content-type:(.*)/i) { $tail=$2; $i++}
		if ($_ =~ /(.*)filename=(.*)/i) { $fname=$2; $j++}
		if ($_ =~ /application\/x-macbinary/i) { $macbin=1; $k++}
		if ($i==7 || $j==7 || $k==7) {$tailout=$tail; $fnameout=$fname; $macbinout=$macbin;}
	}
	$tail = $tailout;
	$fname = $fnameout;
	$macbin= $macbinout;

	$tail =~ s/\r//g;
	$tail =~ s/\n//g;
	$fname =~ tr/\"\x0D\x0A//d;

	# ファイル形式を認識
	$flag=0;
	if ($tail =~ /image\/gif/i && $gif) { $tail=".gif"; $flag=1; }
	if ($tail =~ /image\/jpeg/i && $jpeg) { $tail=".jpg"; $flag=1; }
	if ($tail =~ /image\/x-png/i && $png) { $tail=".png"; $flag=1; }

	if (!$flag) {
		if ($fname =~ /\.gif$/i && $gif) { $tail=".gif"; $flag=1; }
		if (($fname =~ /\.jpe?g$/i && $jpeg)) { $tail=".jpg"; $flag=1; }
		if ($fname =~ /\.png$/i && $png) { $tail=".png"; $flag=1; }
	}
	# アップロード失敗処理
	if (!$flag && !$clip_error) { return; }
	elsif (!$flag && $clip_error) {
		&error("FILE7はアップロードできないファイル形式です","lock");
	}

	$upfile = $in{'upfile7'};

	# マックバイナリ対策
	if ($macbin) {
		$length = substr($upfile,83,4);
		$length = unpack("%N",$length);
		$upfile = substr($upfile,128,$length);
	}

	# 添付データを書き込み
	$ImgFile = "$ImgDir$no-7$tail";
	open(OUT,"> $ImgFile") || &error("FILE7の画像のアップロードに失敗しました","lock");
	binmode(OUT);
	binmode(STDOUT);
	print OUT $upfile;
	close(OUT);
	chmod (0666,$ImgFile);

	# 画像サイズ取得
	if ($tail eq ".jpg") { ($W, $H) = &JpegSize($ImgFile); }
	elsif ($tail eq ".gif") { ($W, $H) = &GifSize($ImgFile); }
	elsif ($tail eq ".png") { ($W, $H) = &PngSize($ImgFile); }

	# 画像表示縮小
	if ($W > $MaxW || $H > $MaxH) {
		$WW = $MaxW / $W;
		$HH = $MaxH / $H;
		if ($WW < $HH) { $key = $WW; }
		else { $key = $HH; }
		$W = int ($W * $key) || 1;
		$H = int ($H * $key) || 1;
	}
	$tail7 = $tail;
        $fname7 = $fname;
        $W7 = $W;
        $H7 = $H;

}

#--------------------#
#  画像アップロード  #
#--------------------#
sub UpFile8 {
	# 画像処理
	$macbin=0;
        $i=0;$j=0;$k=0;
	foreach (@in) {
		if ($_ =~ /(.*)Content-type:(.*)/i) { $tail=$2; $i++}
		if ($_ =~ /(.*)filename=(.*)/i) { $fname=$2; $j++}
		if ($_ =~ /application\/x-macbinary/i) { $macbin=1; $k++}
		if ($i==8 || $j==8 || $k==8) {$tailout=$tail; $fnameout=$fname; $macbinout=$macbin;}
	}
	$tail = $tailout;
	$fname = $fnameout;
	$macbin= $macbinout;

	$tail =~ s/\r//g;
	$tail =~ s/\n//g;
	$fname =~ tr/\"\x0D\x0A//d;

	# ファイル形式を認識
	$flag=0;
	if ($tail =~ /image\/gif/i && $gif) { $tail=".gif"; $flag=1; }
	if ($tail =~ /image\/jpeg/i && $jpeg) { $tail=".jpg"; $flag=1; }
	if ($tail =~ /image\/x-png/i && $png) { $tail=".png"; $flag=1; }

	if (!$flag) {
		if ($fname =~ /\.gif$/i && $gif) { $tail=".gif"; $flag=1; }
		if (($fname =~ /\.jpe?g$/i && $jpeg)) { $tail=".jpg"; $flag=1; }
		if ($fname =~ /\.png$/i && $png) { $tail=".png"; $flag=1; }
	}
	# アップロード失敗処理
	if (!$flag && !$clip_error) { return; }
	elsif (!$flag && $clip_error) {
		&error("FILE8はアップロードできないファイル形式です","lock");
	}

	$upfile = $in{'upfile8'};

	# マックバイナリ対策
	if ($macbin) {
		$length = substr($upfile,83,4);
		$length = unpack("%N",$length);
		$upfile = substr($upfile,128,$length);
	}

	# 添付データを書き込み
	$ImgFile = "$ImgDir$no-8$tail";
	open(OUT,"> $ImgFile") || &error("FILE2の画像のアップロードに失敗しました","lock");
	binmode(OUT);
	binmode(STDOUT);
	print OUT $upfile;
	close(OUT);
	chmod (0666,$ImgFile);

	# 画像サイズ取得
	if ($tail eq ".jpg") { ($W, $H) = &JpegSize($ImgFile); }
	elsif ($tail eq ".gif") { ($W, $H) = &GifSize($ImgFile); }
	elsif ($tail eq ".png") { ($W, $H) = &PngSize($ImgFile); }

	# 画像表示縮小
	if ($W > $MaxW || $H > $MaxH) {
		$WW = $MaxW / $W;
		$HH = $MaxH / $H;
		if ($WW < $HH) { $key = $WW; }
		else { $key = $HH; }
		$W = int ($W * $key) || 1;
		$H = int ($H * $key) || 1;
	}
	$tail8 = $tail;
        $fname8 = $fname;
        $W8 = $W;
        $H8 = $H;

}

#--------------------#
#  画像アップロード  #
#--------------------#
sub UpFile9 {
	# 画像処理
	$macbin=0;
        $i=0;$j=0;$k=0;
	foreach (@in) {
		if ($_ =~ /(.*)Content-type:(.*)/i) { $tail=$2; $i++}
		if ($_ =~ /(.*)filename=(.*)/i) { $fname=$2; $j++}
		if ($_ =~ /application\/x-macbinary/i) { $macbin=1; $k++}
		if ($i==9 || $j==9 || $k==9) {$tailout=$tail; $fnameout=$fname; $macbinout=$macbin;}
	}
	$tail = $tailout;
	$fname = $fnameout;
	$macbin= $macbinout;
	$tail =~ s/\r//g;
	$tail =~ s/\n//g;
	$fname =~ tr/\"\x0D\x0A//d;

	# ファイル形式を認識
	$flag=0;
	if ($tail =~ /image\/gif/i && $gif) { $tail=".gif"; $flag=1; }
	if ($tail =~ /image\/jpeg/i && $jpeg) { $tail=".jpg"; $flag=1; }
	if ($tail =~ /image\/x-png/i && $png) { $tail=".png"; $flag=1; }

	if (!$flag) {
		if ($fname =~ /\.gif$/i && $gif) { $tail=".gif"; $flag=1; }
		if (($fname =~ /\.jpe?g$/i && $jpeg)) { $tail=".jpg"; $flag=1; }
		if ($fname =~ /\.png$/i && $png) { $tail=".png"; $flag=1; }
	}
	# アップロード失敗処理
	if (!$flag && !$clip_error) { return; }
	elsif (!$flag && $clip_error) {
		&error("FILE9はアップロードできないファイル形式です","lock");
	}

	$upfile = $in{'upfile9'};

	# マックバイナリ対策
	if ($macbin) {
		$length = substr($upfile,83,4);
		$length = unpack("%N",$length);
		$upfile = substr($upfile,128,$length);
	}

	# 添付データを書き込み
	$ImgFile = "$ImgDir$no-9$tail";
	open(OUT,"> $ImgFile") || &error("FILE2の画像のアップロードに失敗しました","lock");
	binmode(OUT);
	binmode(STDOUT);
	print OUT $upfile;
	close(OUT);
	chmod (0666,$ImgFile);

	# 画像サイズ取得
	if ($tail eq ".jpg") { ($W, $H) = &JpegSize($ImgFile); }
	elsif ($tail eq ".gif") { ($W, $H) = &GifSize($ImgFile); }
	elsif ($tail eq ".png") { ($W, $H) = &PngSize($ImgFile); }

	# 画像表示縮小
	if ($W > $MaxW || $H > $MaxH) {
		$WW = $MaxW / $W;
		$HH = $MaxH / $H;
		if ($WW < $HH) { $key = $WW; }
		else { $key = $HH; }
		$W = int ($W * $key) || 1;
		$H = int ($H * $key) || 1;
	}
	$tail9 = $tail;
        $fname9 = $fname;
        $W9 = $W;
        $H9 = $H;

}

#--------------------#
#  画像アップロード  #
#--------------------#
sub UpFile10 {
	# 画像処理
	$macbin=0;
        $i=0;$j=0;$k=0;
	foreach (@in) {
		if ($_ =~ /(.*)Content-type:(.*)/i) { $tail=$2; $i++}
		if ($_ =~ /(.*)filename=(.*)/i) { $fname=$2; $j++}
		if ($_ =~ /application\/x-macbinary/i) { $macbin=1; $k++}
		if ($i==10 || $j==10 || $k==10) {$tailout=$tail; $fnameout=$fname; $macbinout=$macbin;}
	}
	$tail = $tailout;
	$fname = $fnameout;
	$macbin= $macbinout;

	$tail =~ s/\r//g;
	$tail =~ s/\n//g;
	$fname =~ tr/\"\x0D\x0A//d;

	# ファイル形式を認識
	$flag=0;
	if ($tail =~ /image\/gif/i && $gif) { $tail=".gif"; $flag=1; }
	if ($tail =~ /image\/jpeg/i && $jpeg) { $tail=".jpg"; $flag=1; }
	if ($tail =~ /image\/x-png/i && $png) { $tail=".png"; $flag=1; }

	if (!$flag) {
		if ($fname =~ /\.gif$/i && $gif) { $tail=".gif"; $flag=1; }
		if (($fname =~ /\.jpe?g$/i && $jpeg)) { $tail=".jpg"; $flag=1; }
		if ($fname =~ /\.png$/i && $png) { $tail=".png"; $flag=1; }
	}
	# アップロード失敗処理
	if (!$flag && !$clip_error) { return; }
	elsif (!$flag && $clip_error) {
		&error("FILE10はアップロードできないファイル形式です","lock");
	}

	$upfile = $in{'upfile10'};

	# マックバイナリ対策
	if ($macbin) {
		$length = substr($upfile,83,4);
		$length = unpack("%N",$length);
		$upfile = substr($upfile,128,$length);
	}

	# 添付データを書き込み
	$ImgFile = "$ImgDir$no-10$tail";
	open(OUT,"> $ImgFile") || &error("FILE10の画像のアップロードに失敗しました","lock");
	binmode(OUT);
	binmode(STDOUT);
	print OUT $upfile;
	close(OUT);
	chmod (0666,$ImgFile);

	# 画像サイズ取得
	if ($tail eq ".jpg") { ($W, $H) = &JpegSize($ImgFile); }
	elsif ($tail eq ".gif") { ($W, $H) = &GifSize($ImgFile); }
	elsif ($tail eq ".png") { ($W, $H) = &PngSize($ImgFile); }

	# 画像表示縮小
	if ($W > $MaxW || $H > $MaxH) {
		$WW = $MaxW / $W;
		$HH = $MaxH / $H;
		if ($WW < $HH) { $key = $WW; }
		else { $key = $HH; }
		$W = int ($W * $key) || 1;
		$H = int ($H * $key) || 1;
	}
	$tail10 = $tail;
        $fname10 = $fname;
        $W10 = $W;
        $H10 = $H;

}

#----------------#
#  デコード処理  #
#----------------#
sub decode {
	&ReadParse;
	while (($key,$val) = each %in) {
		if ($key ne "upfile1" && $key ne "upfile2" && $key ne "upfile3" && $key ne "upfile4" && $key ne "upfile5" && $key ne "upfile6" && $key ne "upfile7" && $key ne "upfile8" && $key ne "upfile9" && $key ne "upfile10") {
			# シフトJISコードに変換
			&jcode'convert(*val, "sjis", "", "z");

			# タグ処理
			$val =~ s/&/&amp;/g;
			$val =~ s/"/&quot;/g;
			$val =~ s/</&lt;/g;
			$val =~ s/>/&gt;/g;

			# 改行処理
			if ($key eq "com1" || $key eq "com2" || $key eq "com3" || $key eq "com4" || $key eq "com5" || $key eq "com6" || $key eq "com7" || $key eq "com8" || $key eq "com9" || $key eq "com10") {
				$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'};
	$page = $in{'page'};
	$in{'url'} =~ s/^http\:\/\///;
	if ($in{'sub'} eq "") { $in{'sub'} = "+ NO TITLE +"; }
}

#------------------#
#  クッキーの発行  #
#------------------#
sub set_cookie {
	local($gmt, $cook, @t, @m, @w);
	@t = gmtime(time + 60*24*60*60);
	@m = ('Jan','Feb','Mar','Apr','May','Jun','Jul','Aug','Sep','Oct','Nov','Dec');
	@w = ('Sun','Mon','Tue','Wed','Thu','Fri','Sat');

	$gmt = sprintf("%s, %02d-%s-%04d %02d:%02d:%02d GMT",
			$w[$t[6]], $t[3], $m[$t[4]], $t[5]+1900, $t[2], $t[1], $t[0]);
	$cook="pwd<>$in{'pwd'}<>";
	print "Set-Cookie: ROCOALBUM=$cook; expires=$gmt\n";
}

#------------------#
#  クッキーを取得  #
#------------------#
sub get_cookie {
	local($key, $val, @cook);

	@cook = split(/;/, $ENV{'HTTP_COOKIE'});
	foreach (@cook) {
		($key, $val) = split(/=/);
		$key =~ s/\s//g;
		$tmp{$key} = $val;
	}
	%ck = split(/<>/, $tmp{'ROCOALBUM'});
}

#--------------#
#  エラー処理  #
#--------------#
sub error {
	&unlock if ($lockflag);
	&header if (!$head_flag);
	print "<center><hr width=500 size=1><h3>ERROR !</h3>\n";
	print "<font color=red>$_[0]</font>\n";
	print "<P><hr width=500 size=1></center>\n";
	print "</body></html>\n";
	exit;
}

#------------------#
#  ユーザ記事削除  #
#------------------#
sub usr_del {
	if ($in{'no'} eq '' || $in{'pwd'} eq '')
		{ &error("記事Noまたは削除キーが入力モレです"); }

	if ($in{'pwd'} ne $pass)
		{ &error("PASSが違います"); }

	# ロック処理
	if ($lockkey) { &lock; }

	if ($in{'pastlog'} eq "") {
		open(IN,"$logfile") || &error("Open Error : $logfile");
		@lines = <IN>;
		close(IN);
		$top = shift(@lines);
	} else {
		open(IN,"$pastdir$in{'pastlog'}.log") || &error("Open Error : $pastdir$in{'pastlog'}.log");
		@lines = <IN>;
		close(IN);
	}


	$flag=0;
	foreach (@lines) {
		($no,$year1,$month1,$day1,$year2,$month2,$day2,$sub,$tail1,$W1,$H1,$com1,$tail2,$W2,$H2,$com2,$tail3,$W3,$H3,$com3,$tail4,$W4,$H4,$com4,$tail5,$W5,$H5,$com5,$tail6,$W6,$H6,$com6,$tail7,$W7,$H7,$com7,$tail8,$W8,$H8,$com8,$tail9,$W9,$H9,$com9,$tail10,$W10,$H10,$com10,$host) = split(/<>/);

		if ($flag == 0 && $in{'no'} eq "$no") {
			
			# 添付ファイル削除
			if (-e "$ImgDir$no-1$tail1") { unlink("$ImgDir$no-1$tail1"); }
			if (-e "$ImgDir$no-2$tail2") { unlink("$ImgDir$no-2$tail2"); }
			if (-e "$ImgDir$no-3$tail3") { unlink("$ImgDir$no-3$tail3"); }
			if (-e "$ImgDir$no-4$tail4") { unlink("$ImgDir$no-4$tail4"); }
			if (-e "$ImgDir$no-5$tail5") { unlink("$ImgDir$no-5$tail5"); }
			if (-e "$ImgDir$no-6$tail6") { unlink("$ImgDir$no-6$tail6"); }
			if (-e "$ImgDir$no-7$tail7") { unlink("$ImgDir$no-7$tail7"); }
			if (-e "$ImgDir$no-8$tail8") { unlink("$ImgDir$no-8$tail8"); }
			if (-e "$ImgDir$no-9$tail9") { unlink("$ImgDir$no-9$tail9"); }
			if (-e "$ImgDir$no-10$tail10") { unlink("$ImgDir$no-10$tail10"); }

			 $flag=1;
		}
		else { push(@new,$_); }
	}
	if ($flag == 0) { &error("該当記事が見当たりません"); }

	# 更新
	if ($in{'pastlog'} eq "") {
		unshift(@new,$top);
		open(OUT,">$logfile") || &error("Open Error : $logfile");
	} else {
		open(OUT,">$pastdir$in{'pastlog'}.log") || &error("Open Error : $pastdir$in{'pastlog'}.log");
		}
	print OUT @new;
	close(OUT);

	# ロック解除
	if ($lockkey) { &unlock; }
}

#----------------#
#  記事修正処理  #
#----------------#
sub usr_edt {
	if ($in{'no'} eq '' || $in{'pwd'} eq '') {
		&error("記事Noまたはパスワードが入力モレです");
	}

	if ($in{'action'} eq "edit") {
		# フォーム入力チェック
		&form_check;

		# ロック処理
		&lock if ($lockkey);
	}
		#クッキーを取得
		&get_cookie;

	$flag=0;
	if ($in{'pastlog'} eq "") {
		open(IN,"$logfile") || &error("Open Error : $logfile");
		$top = <IN>;
	} else {
		open(IN,"$pastdir$in{'pastlog'}.log") || &error("Open Error : $pastdir$in{'pastlog'}.log");
	}
	while (<IN>) {
		($no,$year1,$month1,$day1,$year2,$month2,$day2,$sub,$tail1,$W1,$H1,$com1,$tail2,$W2,$H2,$com2,$tail3,$W3,$H3,$com3,$tail4,$W4,$H4,$com4,$tail5,$W5,$H5,$com5,$tail6,$W6,$H6,$com6,$tail7,$W7,$H7,$com7,$tail8,$W8,$H8,$com8,$tail9,$W9,$H9,$com9,$tail10,$W10,$H10,$com10,$host) = split(/<>/);

		if ($in{'no'} == $no) {
			$flag=1;
			if ($in{'action'} ne "edit") { last; }
			else {
	
	# ファイル添付処理
	
	if ($in{'upfile1'}) {
		if (-e "$ImgDir$no-1$tail1") { unlink("$ImgDir$no-1$tail1"); }
	&UpFile1; }
	if ($in{'upfile2'}) {
		if (-e "$ImgDir$no-2$tail2") { unlink("$ImgDir$no-2$tail2"); }
	&UpFile2; }
	if ($in{'upfile3'}) {
		if (-e "$ImgDir$no-3$tail3") { unlink("$ImgDir$no-3$tail3"); }
	&UpFile3; }
	if ($in{'upfile4'}) {
		if (-e "$ImgDir$no-4$tail4") { unlink("$ImgDir$no-4$tail4"); }
	&UpFile4; }
	if ($in{'upfile5'}) {
		if (-e "$ImgDir$no-5$tail5") { unlink("$ImgDir$no-5$tail5"); }
	&UpFile5; }
	if ($in{'upfile6'}) {
		if (-e "$ImgDir$no-6$tail6") { unlink("$ImgDir$no-6$tail6"); }
	&UpFile6; }
	if ($in{'upfile7'}) {
		if (-e "$ImgDir$no-7$tail7") { unlink("$ImgDir$no-7$tail7"); }
	&UpFile7; }
	if ($in{'upfile8'}) {
		if (-e "$ImgDir$no-8$tail8") { unlink("$ImgDir$no-8$tail8"); }
	&UpFile8; }
	if ($in{'upfile9'}) {
		if (-e "$ImgDir$no-9$tail9") { unlink("$ImgDir$no-9$tail9"); }
	&UpFile9; }
	if ($in{'upfile10'}) {
		if (-e "$ImgDir$no-10$tail10") { unlink("$ImgDir$no-10$tail10"); }
	&UpFile10; }

	# 1件削除処理
	if ($in{'delfile1'}) {
	   if (-e "$ImgDir$no-1$tail1") { unlink("$ImgDir$no-1$tail1"); }
	   $tail1 = ""; $W1 = ""; $H1 = ""; $in{'com1'} = "";
	}
	if ($in{'delfile2'}) {
	   if (-e "$ImgDir$no-2$tail2") { unlink("$ImgDir$no-2$tail2"); }
	   $tail2 = ""; $W2 = ""; $H2 = ""; $in{'com2'} = "";
	}
	if ($in{'delfile3'}) {
	   if (-e "$ImgDir$no-3$tail3") { unlink("$ImgDir$no-3$tail3"); }
	   $tail3 = ""; $W3 = ""; $H3 = ""; $in{'com3'} = "";
	}
	if ($in{'delfile4'}) {
	   if (-e "$ImgDir$no-4$tail4") { unlink("$ImgDir$no-4$tail4"); }
	   $tail4 = ""; $W4 = ""; $H4 = ""; $in{'com4'} = "";
	}
	if ($in{'delfile5'}) {
	   if (-e "$ImgDir$no-5$tail5") { unlink("$ImgDir$no-5$tail5"); }
	   $tail5 = ""; $W5 = ""; $H5 = ""; $in{'com5'} = "";
	}
	if ($in{'delfile6'}) {
	   if (-e "$ImgDir$no-6$tail6") { unlink("$ImgDir$no-6$tail6"); }
	   $tail6 = ""; $W6 = ""; $H6 = ""; $in{'com6'} = "";
	}
	if ($in{'delfile7'}) {
	   if (-e "$ImgDir$no-7$tail7") { unlink("$ImgDir$no-7$tail7"); }
	   $tail7 = ""; $W7 = ""; $H7 = ""; $in{'com7'} = "";
	}
	if ($in{'delfile8'}) {
	   if (-e "$ImgDir$no-8$tail8") { unlink("$ImgDir$no-8$tail8"); }
	   $tail8 = ""; $W8 = ""; $H8 = ""; $in{'com8'} = "";
	}
	if ($in{'delfile9'}) {
	   if (-e "$ImgDir$no-9$tail9") { unlink("$ImgDir$no-9$tail9"); }
	   $tail9 = ""; $W9 = ""; $H9 = ""; $in{'com9'} = "";
	}
	if ($in{'delfile10'}) {
	   if (-e "$ImgDir$no-10$tail10") { unlink("$ImgDir$no-10$tail10"); }
	   $tail10 = ""; $W10 = ""; $H10 = ""; $in{'com10'} = "";
	}

				$_ = "$no<>$in{'year1'}<>$in{'month1'}<>$in{'day1'}<>$in{'year2'}<>$in{'month2'}<>$in{'day2'}<>$in{'sub'}<>$tail1<>$W1<>$H1<>$in{'com1'}<>$tail2<>$W2<>$H2<>$in{'com2'}<>$tail3<>$W3<>$H3<>$in{'com3'}<>$tail4<>$W4<>$H4<>$in{'com4'}<>$tail5<>$W5<>$H5<>$in{'com5'}<>$tail6<>$W6<>$H6<>$in{'com6'}<>$tail7<>$W7<>$H7<>$in{'com7'}<>$tail8<>$W8<>$H8<>$in{'com8'}<>$tail9<>$W9<>$H9<>$in{'com9'}<>$tail10<>$W10<>$H10<>$in{'com10'}<>$host<>\n";
			}
		}
		if ($in{'action'} eq "edit") { push(@new,$_); }
	}
	close(IN);

	if (!$flag) { &error("該当の記事が見当たりません"); }
	$check = &decrypt("$in{'pwd'}", "$pw2");
	if ($in{'pwd'} ne $pass) { &error("PASSが違います"); }

	if ($in{'action'} eq "edit") {
		if ($in{'pastlog'} eq "") {
			unshift(@new,$top);
			open(OUT,">$logfile") || &error("Open Error : $logfile");
		} else {
			open(OUT,">$pastdir$in{'pastlog'}.log") || &error("Open Error : $pastdir$in{'pastlog'}.log");
		}
		print OUT @new;
		close(OUT);

		&unlock if ($lockkey);
		&set_cookie;
		&header;
		print "<center><u>&nbsp;+ 修正が完了しました +&nbsp;</u></center><br>\n";
		print "<br><center><form action=\"$script\">\n";
		print "<input type=submit value=' BACK '></center>\n";
		print "</body>\n</html>\n";
		exit;
	}

	$com1 =~ s/<br>/\r/g;
	$com1 =~ s/<(?:[^>'"]*|(['"]).*\1)*>//gs;	
	$com2 =~ s/<br>/\r/g;
	$com2 =~ s/<(?:[^>'"]*|(['"]).*\1)*>//gs;	
	$com3 =~ s/<br>/\r/g;
	$com3 =~ s/<(?:[^>'"]*|(['"]).*\1)*>//gs;	
	$com4 =~ s/<br>/\r/g;
	$com4 =~ s/<(?:[^>'"]*|(['"]).*\1)*>//gs;	
	$com5 =~ s/<br>/\r/g;
	$com5 =~ s/<(?:[^>'"]*|(['"]).*\1)*>//gs;	
	$com6 =~ s/<br>/\r/g;
	$com6 =~ s/<(?:[^>'"]*|(['"]).*\1)*>//gs;	
	$com7 =~ s/<br>/\r/g;
	$com7 =~ s/<(?:[^>'"]*|(['"]).*\1)*>//gs;	
	$com8 =~ s/<br>/\r/g;
	$com8 =~ s/<(?:[^>'"]*|(['"]).*\1)*>//gs;	
	$com9 =~ s/<br>/\r/g;
	$com9 =~ s/<(?:[^>'"]*|(['"]).*\1)*>//gs;	
	$com10 =~ s/<br>/\r/g;
	$com10 =~ s/<(?:[^>'"]*|(['"]).*\1)*>//gs;	

	&header;
	print "<table width=740 align=center>\n";
	print "<tr><td>\n";
	print "<a href=\"javascript:history.back()\">&lt;&lt; back</a>\n";
	print "</td></tr>\n";
	print "</table>\n";
	print "<center><u>&nbsp;+ 変更する部分のみ修正して送信ボタンを押して下さい +&nbsp;</u><br><br>\n";
	print "画像に関しては、下にサムネイルで表\示しているものがサーバにあります。<br>\n";
	print "変更がない場合は、何もいれずにそのまま送信してください。<br>\n";
	print "変更する場合のみ、FILE*を選択してください。<br></center>\n";
	&form("edit",$no,$year1,$month1,$day1,$year2,$month2,$day2,$sub,$tail1,$W1,$H1,$com1,$tail2,$W2,$H2,$com2,$tail3,$W3,$H3,$com3,$tail4,$W4,$H4,$com4,$tail5,$W5,$H5,$com5,$tail6,$W6,$H6,$com6,$tail7,$W7,$H7,$com7,$tail8,$W8,$H8,$com8,$tail9,$W9,$H9,$com9,$tail10,$W10,$H10,$com10,$host);
	print "</body>\n</html>\n";
	exit;
}

#------------------------#
#  フォーム入力チェック  #
#------------------------#
sub form_check {
	# 他サイトからのアクセスを排除
	if ($base_url) {
		$ref = $ENV{'HTTP_REFERER'};
		$ref =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
		if ($ref !~ /$base_url/i) { &error("不正なアクセスです"); }
	}

}

#--------------#
#  時間を取得  #
#--------------#
sub get_time {

$ENV{'TZ'} = "JST-9";

($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
$syear = sprintf("%02d",$year + 1900);$smonth = sprintf("%02d",$mon + 1);$sday = sprintf("%02d",$mday);
$mon2 = $mon + 1;
$week = ('Sun','Mon','Tue','Wed','Thu','Fri','Sat') [$wday];
$hour = sprintf("%02d",$hour);$min = sprintf("%02d",$min);
$sysdate = "$syear/$smonth/$sday($week) $hour:$min";
$sysday = "$syear / $mon2 / $mday&nbsp;&nbsp;($week)";
$sysdate2 = "$syear$smonth$sday";

if ( $initdisp == 1 ) {
	$iday = time + 86400 * (-1);
	($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($iday);
	$syear = sprintf("%02d",$year + 1900);$smonth = sprintf("%02d",$mon + 1);$sday = sprintf("%02d",$mday);
}

$cyear = 1989;
$cday = 365;
($sec,$min,$hour,$day,$mon,$year,$wday)= localtime;
$day = '';
	$year = $in{'year'};
	$mon = $in{'month'};
	$day = $in{'day'};

	$mon = sprintf("%02d",$mon);

	# 日時のフォーマット
	$date = sprintf("%04d/%02d/%02d(%s) %02d:%02d",
			$year+1900,$mon2,$mday,$week[$wday],$hour,$min);
}

#----------------#
#  カウンタ処理  #
#----------------#
sub counter {
	# 閲覧時のみカウントアップ
	if ($mode eq '') { $cntup=1; } else { $cntup=0; }

	# カウントファイルを読みこみ
	open(IN,"$cntfile") || &error("Open Error : $cntfile");
	eval "flock(IN, 1);";
	$data = <IN>;
	close(IN);

	# IPチェックとログ破損チェック
	($cnt, $ip) = split(/:/, $data);
	if ($addr eq "$ip" || $cnt eq "") { $cntup=0; }

	# カウントアップ
	if ($cntup) {
		$cnt++;
		open(OUT,"+< $cntfile") || &error("Write Error : $cntfile");
		eval "flock(OUT, 2);";
		truncate(OUT, 0);
		seek(OUT, 0, 0);
		print OUT "$cnt\:$addr";
		close(OUT);
	}

	# 桁数調整
	while(length($cnt) < $mini_fig) { $cnt = '0' . $cnt; }
	@cnts = split(//, $cnt);

	# GIFカウンタ表示
	if ($counter == 2) {
		foreach (0 .. $#cnts) {
			print "<img src=\"$gif_path$cnts[$_]\.gif\" alt=\"$cnts[$_]\" width=\"$mini_w\" height=\"$mini_h\">";
		}
	}
	# テキストカウンタ表示
	else {
		print "<font color=\"$tx\" face=\"$face\">$cnt</font>\n";
	}
}

#--------------#
#  ロック処理  #
#--------------#
sub lock {
	# 1分以上古いロックは削除する
	if (-e $lockfile) {
		local($mtime) = (stat($lockfile))[9];
		if ($mtime < time - 60) { &unlock; }
	}
	local($retry) = 5;
	# symlink関数式ロック
	if ($lockkey == 1) {
		while (!symlink(".", $lockfile)) {
			if (--$retry <= 0) { &error('LOCK is BUSY'); }
			sleep(1);
		}
	# mkdir関数式ロック
	} elsif ($lockkey == 2) {
		while (!mkdir($lockfile, 0755)) {
			if (--$retry <= 0) { &error('LOCK is BUSY'); }
			sleep(1);
		}
	}
	$lockflag=1;
}

#--------------#
#  ロック解除  #
#--------------#
sub unlock {
	if ($lockkey == 1) { unlink($lockfile); }
	elsif ($lockkey == 2) { rmdir($lockfile); }
	$lockflag=0;
}

#----------------------#
#  パスワード暗号処理  #
#----------------------#
sub encrypt {
	local($inpw) = $_[0];
	local(@SALT, $salt, $encrypt);

	@SALT = ('a'..'z', 'A'..'Z', '0'..'9', '.', '/');
	srand;
	$salt = $SALT[int(rand(@SALT))] . $SALT[int(rand(@SALT))];
	$encrypt = crypt($inpw, $salt) || crypt ($inpw, '$1$' . $salt);
	return $encrypt;
}

#----------------------#
#  パスワード照合処理  #
#----------------------#
sub decrypt {
	local($inpw, $logpw) = @_;
	local($salt, $key, $check);

	$salt = $logpw =~ /^\$1\$(.*)\$/ && $1 || substr($logpw, 0, 2);
	$check = "no";
	if (crypt($inpw, $salt) eq $logpw || crypt($inpw, '$1$' . $salt) eq $logpw)
		{ $check = "yes"; }
	return $check;
}

#------------------#
#  HTMLのヘッダー  #
#------------------#
sub header {
	$head_flag=1;
	print "Content-type: text/html\n\n";
	print <<"EOM";
<html>
<head>
<META HTTP-EQUIV="Content-type" CONTENT="text/html; charset=Shift_JIS">
<STYLE type="text/css">
<!--
body,tr,td,th { font-size: $o_size; font-family: "$face" }
a { text-decoration: none; }
a:hover { color: $al}
big  { font-size: 12pt }
body { scrollbar-Track-Color: $bc;
	scrollbar-Face-Color: $tbl_color;
	scrollbar-Shadow-Color: $bc;
	scrollbar-DarkShadow-Color: $bc;
	scrollbar-Highlight-Color: $bc;
	scrollbar-3dLight-Color: $bc;
	scrollbar-Arrow-Color: $form_color;
	background-repeat:no-repeat;
	background-position:100% 100%;
	
	}
input,select,textarea {	color: $ntx;
		background-color: $tbl_color;
		border:	  1;
		border-style:	  solid;
		border-color:	  $form_color;
		font-family:$face;
		font-size:$f_size;
	     }

.text    {	color: $color;
		background-color: $tbl_color;
		font-family:$face;
		font-size:$f_size;
	 }

hr { border:1;
     border-style:solid;
     border-color:$tx;
   }

.wakuo {background-color: $tbl_color;
	border:1;
	border-style:solid;
	border-color:$form_color;
     }

.pwaku {background-color: $tbl_color;
	border:$pwakukey;
	border-style:solid;
	border-color:$pb_color;
       }

.swaku {background-color: $tbl_color;
	border:$swakukey;
	border-style:solid;
	border-color:$sb_color;
       }


.waku { background:$write_color;
	border:3;
	border-style:double;
	border-color:$form_color;
      }

.combo { background-color:$tbl_color; }

.cyo { font-size:8pt; }
-->
</STYLE>
<title>$title</title></head>
EOM
if ($kotei) {
	print "<body background=\"$bg\" bgcolor=\"$bc\" text=\"$tx\" link=\"$lk\" vlink=\"$vl\" alink=\"$al\" bgproperties=fixed>\n";
} else {
	print "<body background=\"$bg\" bgcolor=\"$bc\" text=\"$tx\" link=\"$lk\" vlink=\"$vl\" alink=\"$al\">\n";
}

if ($bgsnd) { print "<bgsound src=\"$bgp/$bgs\" loop=\"$bgloop\">\n"; }

if ($tps) { $tpw = "style=\"filter:Alpha(opacity=$tp)\""; }
else { $tpw =""; }

}

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

#----------------#
#  ホスト名取得  #
#----------------#
sub get_host {
	$host = $ENV{'REMOTE_HOST'};
	$addr = $ENV{'REMOTE_ADDR'};

	if ($host eq "" || $host eq $addr) {
		$host = gethostbyaddr(pack("C4", split(/\./, $addr)), 2) || $addr;
	}
}

#----------------#
#  過去ログ生成  #
#----------------#
sub pastlog {
	local($past_flag)=0;

	if ($tps) { $tpw = "style=\"filter:Alpha(opacity=$tp)\""; }
	else { $tpw =""; }

	# 過去NOを開く
	open(NO,"$nofile") || &error("Open Error : $nofile");
	$count = <NO>;
	close(NO);

	# 過去ログのファイル名を定義
	$pastfile  = "$pastdir$count\.log";

	# 過去ログを開く
	open(IN,"$pastfile") || &error("Open Error : $pastfile");
	@past = <IN>;
	close(IN);

	# 規定の行数をオーバーすると次ファイルを自動生成
	if ($#past > $log_line) {
		$past_flag=1;

		# カウントファイル更新
		$count++;
		open(NO,">$nofile") || &error("Write Error : $nofile");
		print NO $count;
		close(NO);

		$pastfile = "$pastdir$count\.log";
		@past=();
	}

	@temp=();
	foreach (@data) {
		($pno,$pyear1,$pmonth1,$pday1,$pyear2,$pmonth2,$pday2,$psub,$ptail1,$pW1,$pH1,$pcom1,$ptail2,$pW2,$pH2,$pcom2,$ptail3,$pW3,$pH3,$pcom3,$ptail4,$pW4,$pH4,$pcom4,$ptail5,$pW5,$pH5,$pcom5,$ptail6,$pW6,$pH6,$pcom6,$ptail7,$pW7,$pH7,$pcom7,$ptail8,$pW8,$pH8,$pcom8,$ptail9,$pW9,$pH9,$pcom9,$ptail10,$pW10,$pH10,$pcom10,$phost)		 = split(/<>/);
		
		# 保存記事をフォーマット
		push(@temp,"$pno<>$pyear1<>$pmonth1<>$pday1<>$pyear2<>$pmonth2<>$pday2<>$psub<>$ptail1<>$pW1<>$pH1<>$pcom1<>$ptail2<>$pW2<>$pH2<>$pcom2<>$ptail3<>$pW3<>$pH3<>$pcom3<>$ptail4<>$pW4<>$pH4<>$pcom4<>$ptail5<>$pW5<>$pH5<>$pcom5<>$ptail6<>$pW6<>$pH6<>$pcom6<>$ptail7<>$pW7<>$pH7<>$pcom7<>$ptail8<>$pW8<>$pH8<>$pcom8<>$ptail9<>$pW9<>$pH9<>$pcom9<>$ptail10<>$pW10<>$pH10<>$pcom10<>$phost<>\n");	}

	# 過去ログを更新
	unshift(@past,@temp);
	open(OUT,">$pastfile") || &error("Write Error : $pastfile");
	print OUT @past;
	close(OUT);

	if ($past_flag) { chmod(0666,$pastfile); }
}

#------------#
#  過去ログ  #
#------------#
sub past {
	local($wh,$i,$flag);

	# ヘッダを出力
	&header;

	# タイトル部
	print "<div align='center'>\n";
	if ($banner1 ne "<!-- 上部 -->") { print "$banner1<P>\n"; }
	if ($t_img eq '') {
		print "<font style=\"font-size:$t_size;color:$t_color;font-family:'$face' font-weight:$titlewid;\">$title</font>\n";
	} else {
		print "<img src=\"$t_img\" width=\"$t_w\" height=\"$t_h\" alt=\"$title\">\n";
	}

	if ($in{'action'} eq "view") {
	   print "<table width=700 align=center cellspcaing=0 cellpadding=0>\n";
	   print "<tr><td>\n";
	   print "<a href=\"$script?mode=past&pastlog=$in{'pastlog'}\">&lt;&lt; back</a> \n";
	   print "</td></tr>\n";
	   print "</table>\n";
	}

	# メニュー部

	print "<center>\n";

	open(IN,"$nofile") || &error("Open Error : $nofile");
	$pastno = <IN>;
	close(IN);

	if (!$in{'pastlog'}) { $in{'pastlog'} = $pastno; }
	
	$i=0;
	$fullpic=0;

	#ログ表示
	if ($in{'action'} eq "view") {

	# 表示ログを定義
	$in{'pastlog'} =~ s/\D//g;
	$file = "$pastdir$in{'pastlog'}\.log";
	open(IN,"$file") || &error("Open Error : $file");

		while (<IN>) {
		($no,$year1,$month1,$day1,$year2,$month2,$day2,$sub,$tail1,$W1,$H1,$com1,$tail2,$W2,$H2,$com2,$tail3,$W3,$H3,$com3,$tail4,$W4,$H4,$com4,$tail5,$W5,$H5,$com5,$tail6,$W6,$H6,$com6,$tail7,$W7,$H7,$com7,$tail8,$W8,$H8,$com8,$tail9,$W9,$H9,$com9,$tail10,$W10,$H10,$com10,$host) = split(/<>/);

		# 題名の長さ
		if (length($sub) > $sub_len*2) {
			$sub = substr($sub,0,$sub_len*2);
			$sub .= "...";
		}

		if ($month1 < 10) { $month1 = "0$month1"; }
		if ($day1 < 10) { $day1 = "0$day1"; }
		if ($month2 < 10) { $month2 = "0$month2"; }
		if ($day2 < 10) { $day2 = "0$day2"; }

		if ($in{'no'} == $no) {
		
		print "<table width=700 align=center cellpadding=0 cellspacing=5>\n";
		print "<tr><td align=center>\n";
		if ($tail1 ne "") {
			print "<a href=\"$script?mode=past&action=view&pastlog=$in{'pastlog'}&no=$no&photono=1&tailno=$tail1&wno=$W1&hno=$H1\"><img src=\"$ImgUrl$no-1$tail1\" alt=\"photo1\" width=$samW height=$samH class=swaku></a>\n";
			$fullpic = 1;
		}
		if ($tail2 ne "") {
			print "&nbsp;&nbsp;<a href=\"$script?mode=past&action=view&pastlog=$in{'pastlog'}&no=$no&photono=2&tailno=$tail2&wno=$W2&hno=$H2\"><img src=\"$ImgUrl$no-2$tail2\" alt=\"photo2\" width=$samW height=$samH class=swaku></a>\n";
			$fullpic = 2;
		}
		if ($tail3 ne "") {
			print "&nbsp;&nbsp;<a href=\"$script?mode=past&action=view&pastlog=$in{'pastlog'}&no=$no&photono=3&tailno=$tail3&wno=$W3&hno=$H3\"><img src=\"$ImgUrl$no-3$tail3\" alt=\"photo3\" width=$samW height=$samH class=swaku></a>\n";
			$fullpic = 3;
		
		}
		if ($tail4 ne "") {
			print "&nbsp;&nbsp;<a href=\"$script?mode=past&action=view&pastlog=$in{'pastlog'}&no=$no&photono=4&tailno=$tail4&wno=$W4&hno=$H4\"><img src=\"$ImgUrl$no-4$tail4\" alt=\"photo4\" width=$samW height=$samH class=swaku></a>\n";
			$fullpic = 4;
		
		}
		if ($tail5 ne "") {
			print "&nbsp;&nbsp;<a href=\"$script?mode=past&action=view&pastlog=$in{'pastlog'}&no=$no&photono=5&tailno=$tail5&wno=$W5&hno=$H5\"><img src=\"$ImgUrl$no-5$tail5\" alt=\"photo5\" width=$samW height=$samH class=swaku></a>\n";
			$fullpic = 5;
		
		}
		if ($tail6 ne "") {
			print "&nbsp;&nbsp;<a href=\"$script?mode=past&action=view&pastlog=$in{'pastlog'}&no=$no&photono=6&tailno=$tail6&wno=$W6&hno=$H6\"><img src=\"$ImgUrl$no-6$tail6\" alt=\"photo6\" width=$samW height=$samH class=swaku></a>\n";
			$fullpic = 6;
		
		}
		if ($tail7 ne "") {
			print "&nbsp;&nbsp;<a href=\"$script?mode=past&action=view&pastlog=$in{'pastlog'}&no=$no&photono=7&tailno=$tail7&wno=$W7&hno=$H7\"><img src=\"$ImgUrl$no-7$tail7\" alt=\"photo7\" width=$samW height=$samH class=swaku></a>\n";
			$fullpic = 7;
		
		}
		if ($tail8 ne "") {
			print "&nbsp;&nbsp;<a href=\"$script?mode=past&action=view&pastlog=$in{'pastlog'}&no=$no&photono=8&tailno=$tail8&wno=$W8&hno=$H8\"><img src=\"$ImgUrl$no-8$tail8\" alt=\"photo8\" width=$samW height=$samH class=swaku></a>\n";
			$fullpic = 8;
		
		}
		if ($tail9 ne "") {
			print "&nbsp;&nbsp;<a href=\"$script?mode=past&action=view&pastlog=$in{'pastlog'}&no=$no&photono=9&tailno=$tail9&wno=$W9&hno=$H9\"><img src=\"$ImgUrl$no-9$tail9\" alt=\"photo9\" width=$samW height=$samH class=swaku></a>\n";
			$fullpic = 9;
		
		}
		if ($tail10 ne "") {
			print "&nbsp;&nbsp;<a href=\"$script?mode=past&action=view&pastlog=$in{'pastlog'}&no=$no&photono=10&tailno=$tail10&wno=$W10&hno=$H10\"><img src=\"$ImgUrl$no-10$tail10\" alt=\"photo10\" width=$samW height=$samH class=swaku></a>\n";
			$fullpic = 10;
		
		}
		$comno = "com$in{'photono'}";
		if ($in{'photono'} == 1) {
		  $backphoto = $fullpic;
		  $backtail = "tail$fullpic";
		  $backW = "W$fullpic";
		  $backH = "H$fullpic";
		} else {
		  $backphoto = $in{'photono'}-1;
		  $backtail = "tail$backphoto";
		  $backW = "W$backphoto";
		  $backH = "H$backphoto";
		}
		if ($in{'photono'} == $fullpic) {
		  $nextphoto = 1;
		  $nexttail = "tail1";
		  $nextW = "W1";
		  $nextH = "H1";
		} else {
		  $nextphoto = $in{'photono'}+1;
		  $nexttail = "tail$nextphoto";
		  $nextW = "W$nextphoto";
		  $nextH = "H$nextphoto";
		}

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

		print "<table width=700 bgcolor=\"$tbl_color\" align=center cellpadding=0 cellspacing=0>\n";
		print "<tr><td valign=middle align=center width=$MaxW height=$MaxH class=pwaku><img src=\"$ImgUrl$no-$in{'photono'}$in{'tailno'}\" alt=\"photo$in{'photono'}\" width=\"$in{'wno'}\" height=\"$in{'hno'}\"></td>\n";
		print "<td valign=middle>\n";
		print "<hr width=90% size=1>\n";
		print "&nbsp;&nbsp;&nbsp;&nbsp;<font color=$sub_color>$sub</font>\n";
		print "<br><br>\n";
		print "<div align=right><font color=$datecolor>$year1/$month1/$day1 〜 $year2/$month2/$day2</font>&nbsp;&nbsp;&nbsp;</div>\n";
		print "<hr width=90% size=1>\n";
		print "<div align=right>photo no.$in{'photono'} / $fullpic &nbsp;&nbsp;<br>\n";
		print "<a href=\"$script?mode=past&action=view&pastlog=$in{'pastlog'}&no=$no&photono=$backphoto&tailno=$$backtail&wno=$$backW&hno=$$backH\">&lt;&lt;</a>&nbsp;\n";

		print "<a href=\"$script?mode=past&action=view&pastlog=$in{'pastlog'}&no=$no&photono=1&tailno=$tail1&wno=$W1&hno=$H1\">★</a>&nbsp;\n";

		print "<a href=\"$script?mode=past&action=view&pastlog=$in{'pastlog'}&no=$no&photono=$nextphoto&tailno=$$nexttail&wno=$$nextW&hno=$$nextH\">&gt;&gt;</a>&nbsp;&nbsp;</div><br>\n";

		print "<div align=right><u>comment</u>&nbsp;&nbsp;&nbsp;</div>";
		print "<div id=\"comment\" style=\"position:relative; top:0px; left:10px; width:200px; height:120px; overflow: auto\" class=text>$$comno</div>\n";
		print "<br><br>\n";
		print "<hr width=90% size=1>\n";
		print "<div align=right class=cyo>\n";
		print "&nbsp;&nbsp;<br>+<a href=\"http://www.rocomotion.net\" target=_blank\">ROCO ALBUM<!--$ver--></a>+&nbsp;&nbsp;&nbsp;<br>\n";
		print "<a href='http://www.kent-web.com/' target='_blank'>KENT</a> , <a href='http://www.rocomotion.net' target='_blank'>UG</a>&nbsp;&nbsp;&nbsp;</div>\n";
		print "</td>\n";
		print "</tr>\n";
		print "</table>\n";

   		}
	}
	close(IN);
	} else {

	print "<br><center>過去ログモードです。</center>\n";

	print "<form action=\"$script\" method=\"POST\">\n";
        print "<input type=hidden name=mode value=past>\n";
	print "<select name=pastlog>\n";
	$pastkey = $pastno;
	while ($pastkey > 0) {
		if ($in{'pastlog'} == $pastkey) {
			print "<option value=\"$pastkey\" selected>$pastkey Page\n";
		} else {
			print "<option value=\"$pastkey\">$pastkey Page\n";
		}
		$pastkey--;
	}
	print "</select>\n<input type=submit value='移動'></td></tr></form>\n";

	if ($in{'action'} eq "view") {
	    print "<table align=center cellspcaing=0 cellpadding=0 width=700>\n";
	} else {
	    print "<table align=center cellspcaing=0 cellpadding=0 width=500>\n";
	}
	print "<tr>\n";
	print "<td align=left><a href=\"$script\">&lt;&lt back</a>\n";
	print "</td></tr></table>\n";

	print "<TABLE WIDTH=500 BGCOLOR=\"$tbl_color\" CELLSPACING=0 CELLPADDING=5\" $tpw class=wakuo><tr><td align=center colspan=2 bgcolor=$obi><font color=$obi_c>collected works of art clay studio</font></td>\n";

	# 表示ログを定義
	$in{'pastlog'} =~ s/\D//g;
	$file = "$pastdir$in{'pastlog'}\.log";
	open(IN,"$file") || &error("Open Error : $file");

	while (<IN>) {
		($no,$year1,$month1,$day1,$year2,$month2,$day2,$sub,$tail1,$W1,$H1,$com1,$tail2,$W2,$H2,$com2,$tail3,$W3,$H3,$com3,$tail4,$W4,$H4,$com4,$tail5,$W5,$H5,$com5,$tail6,$W6,$H6,$com6,$tail7,$W7,$H7,$com7,$tail8,$W8,$H8,$com8,$tail9,$W9,$H9,$com9,$tail10,$W10,$H10,$com10,$host,$color,$color2) = split(/<>/);

		$i++;

		# 題名の長さ
		if (length($sub) > $sub_len*2) {
			$sub = substr($sub,0,$sub_len*2);
			$sub .= "...";
		}
		if ($month1 < 10) { $month1 = "0$month1"; }
		if ($day1 < 10) { $day1 = "0$day1"; }
		if ($month2 < 10) { $month2 = "0$month2"; }
		if ($day2 < 10) { $day2 = "0$day2"; }

		print "<tr>\n";
		print "<td nowrap><font color=$datecolor>$year1/$month1/$day1〜$year2/$month2/$day2</font></td>\n";
		print "<td width=350><a href=\"$script?mode=past&action=view&pastlog=$in{'pastlog'}&no=$no&photono=1&tailno=$tail1&wno=$W1&hno=$H1\">$sub</a></td>\n";
		print "</tr>\n";

	}
	close(IN);
	print "</TD></TR></TABLE></center>\n";
	} #新着表示終わり
	
	#記事修正ダイアログ
	if ($in{'action'} ne "view") {

          print "<table width=500 align=center cellspcaing=0 cellpadding=0>\n";
          print "<tr>\n";
          print "<td align=right><a href=\"$script?mode=past\">past &gt&gt</a>\n" if ($pastkey);
          print "</td></tr></table>\n";
	  print "<br><br>\n";
	  print "<form action=\"$script\" method=\"POST\">\n";
	  print "<input type=hidden name=pastlog value=$in{'pastlog'}>\n";
	  print "<table width=500 align=center cellspacing=0 cellpadding=0><tr><td align=right>+admin+<br>\n";
	  print "<table align=right cellpadding=5 cellspacing=0 class=wakuo>\n";
	  print "<tr><td align=right>\n";
	  print "<select name=mode>\n";
	  print "<option value=usr_edt>Edit\n";
	  print "<option value=usr_del>Delete</select>\n";


	  # 表示ログを定義
	  $in{'pastlog'} =~ s/\D//g;
	  $file = "$pastdir$in{'pastlog'}\.log";
	  open(IN,"$file") || &error("Open Error : $file");
	  print "<select name=no>\n";
	  print "<option>▼ select title ▼\n";

	  while (<IN>) {
		($no,$year1,$month1,$day1,$year2,$month2,$day2,$sub) = split(/<>/);
		$i++;

		# 題名の長さ
		if (length($sub) > $sub_len*2) {
			$sub = substr($sub,0,10);
			$sub .= "...";
		}

		print "<option value=\"$no\">$sub\n";
	  }
  	  close(IN);
	  print "</select>\n";
	  print "PASS <input type=password name=pwd size=8 maxlength=8>\n";
	  print "&nbsp;&nbsp;<input type=submit value=\"PST\"></td></tr></table></td></tr></table>\n";
	  print "</form>\n";
	}
	# 著作権表示部
	# 削除改変を禁止します
	if ($in{'action'} eq "") {
		print "<table width=400 cellpadding=0 cellspacing=0 align=center>\n";
		print "<tr><td height=20></td></tr>\n";
		print "<tr><td align=center>$banner2</td></tr>\n";
		print "<tr><td align=center>++ <a href='http://www.rocomotion.net' target='_blank'>ROCO ALBUM<!--$ver--></a> ++</td></tr>\n";
		print "<tr><td height=10></td></tr>\n";
		print "<tr><td align=center><a href='http://www.kent-web.com/' target='_blank'>KENT</a>   ,   <a href='http://www.rocomotion.net' target='_blank'>UG</a></td></tr>\n";
	  	print "<tr><td height=20></td></tr></table>\n";
	}
	print "\n</body>\n</html>\n";
        exit;
}

#------------------#
#  チェックモード  #
#------------------#
sub check {
	&header;
	print "<h2>Check Mode</h2>\n";
	print "<UL>\n";

	# ログパス
	if (-e $logfile) {
		print "<LI>ログファイルのパス：OK\n";
		# パーミッション
		if (-r $logfile && -w $logfile) {
			print "<LI>ログファイルのパーミッション：OK\n";
		} else { print "<LI>ログファイルのパーミッション：NG\n"; }
	} else { print "<LI>ログファイルのパス：NG → $logfile\n"; }

	# カウンタログ
	print "<LI>カウンタ：";
	if ($counter) {
		print "設定あり\n";
		if (-e $cntfile) { print "<LI>カウンタログファイルのパス：OK\n"; }
		else { print "<LI>カウンタログファイルのパス：NG → $cntfile\n"; }
	} else { print "設定なし\n"; }

	# ロックディレクトリ
	print "<LI>ロック形式：";
	if ($lockkey == 0) { print "ロック設定なし\n"; }
	else {
		if ($lockkey == 1) { print "symlink\n"; }
		else { print "mkdir\n"; }
		($lockdir) = $lockfile =~ /(.*)[\\\/].*$/;
		print "<LI>ロックディレクトリ：$lockdir\n";

		if (-d $lockdir) {
			print "<LI>ロックディレクトリのパス：OK\n";
			if (-r $lockdir && -w $lockdir && -x $lockdir) {
				print "<LI>ロックディレクトリのパーミッション：OK\n";
			} else {
				print "<LI>ロックディレクトリのパーミッション：NG → $lockdir\n";
			}
		} else { print "<LI>ロックディレクトリのパス：NG → $lockdir\n"; }
	}

	# 画像ディレクトリ
	print "<LI>画像ディレクトリ：$ImgDir\n";
	if (-d $ImgDir) {
		print "<LI>画像ディレクトリのパス：OK\n";
		if (-r $ImgDir && -w $ImgDir && -x $ImgDir) {
			print "<LI>画像ディレクトリのパーミッション：OK\n";
		} else {
			print "<LI>画像ディレクトリのパーミッション：NG → $ImgDir\n";
		}
	} else { print "<LI>画像ディレクトリ：NG → $ImgDir\n"; }

	# 過去ログ
	print "<LI>過去ログ：";
	if ($pastkey == 0) { print "設定なし\n"; }
	else {
		print "設定あり\n";

		# NOファイル
		if (-e $nofile) {
			print "<LI>NOファイルパス：OK\n";
			if (-r $nofile && -w $nofile) {
				print "<LI>NOファイルパーミッション：OK\n";
			} else { print "<LI>NOファイルパーミッション：NG → $nofile\n"; }
		} else { print "<LI>NOファイルのパス：NG → $nofile\n"; }

		# ディレクトリ
		if (-d $pastdir) {
			print "<LI>過去ログディレクトリパス：OK\n";
			if (-r $pastdir && -w $pastdir && -x $pastdir) {
				print "<LI>過去ログディレクトリパーミッション：OK\n";
			} else {
				print "<LI>過去ログディレクトリパーミッション：NG → $pastdir\n";
			}
		} else { print "<LI>過去ログディレクトリパーミッション：NG → $pastdir\n"; }
	}
	print "</UL>\n</body></html>\n";
	exit;
}

#------------------#
#  JPEGサイズ認識  #
#------------------#
sub JpegSize {
	local($jpeg) = @_;
	local($t, $m, $c, $l, $W, $H);

	open(JPEG, "$jpeg") || return (0,0);
	binmode JPEG;
	read(JPEG, $t, 2);
	while (1) {
		read(JPEG, $t, 4);
		($m, $c, $l) = unpack("a a n", $t);

		if ($m ne "\xFF") { $W = $H = 0; last; }
		elsif ((ord($c) >= 0xC0) && (ord($c) <= 0xC3)) {
			read(JPEG, $t, 5);
			($H, $W) = unpack("xnn", $t);
			last;
		}
		else {
			read(JPEG, $t, ($l - 2));
		}
	}
	close(JPEG);
	return ($W, $H);
}

#-----------------#
#  GIFサイズ認識  #
#-----------------#
sub GifSize {
	local($gif) = @_;
	local($data);

	open(GIF,"$gif") || return (0,0);
	binmode(GIF);
	sysread(GIF,$data,10);
	close(GIF);

	if ($data =~ /^GIF/) { $data = substr($data,-4); }

	$W = unpack("v",substr($data,0,2));
	$H = unpack("v",substr($data,2,2));
	return ($W, $H);
}

#-----------------#
#  PNGサイズ認識  #
#-----------------#
sub PngSize {
	local($png) = @_;
	local($data);

	open(PNG, "$png") || return (0,0);
	binmode(PNG);
	read(PNG, $data, 24);
	close(PNG);

	$W = unpack("N", substr($data, 16, 20));
	$H = unpack("N", substr($data, 20, 24));
	return ($W, $H);
}

#-----------------#
#  URLエンコード  #
#-----------------#
sub url_enc {
	local($_) = @_;

	s/(\W)/'%' . unpack('H2', $1)/eg;
	s/\s/+/g;
	$_;
}

#----------------#
#  投稿フォーム  #
#----------------#
sub form {
	local($type,$no,$year1,$month1,$day1,$year2,$month2,$day2,$sub,$tail1,$W1,$H1,$com1,$tail2,$W2,$H2,$com2,$tail3,$W3,$H3,$com3,$tail4,$W4,$H4,$com4,$tail5,$W5,$H5,$com5,$tail6,$W6,$H6,$com6,$tail7,$W7,$H7,$com7,$tail8,$W8,$H8,$com8,$tail9,$W9,$H9,$com9,$tail10,$W10,$H10,$com10,$host,$i) = @_;

	if ($type ne "edit") {
	  if ($in{'pwd'} ne $pass)
	  	{&error("PASSが違います。"); }
	}
	
	if ($type ne "edit") { &header; }
	&get_time;
	print "<blockquote>\n";

	if ($type ne "edit") {
		print "<table width=730 align=center>\n";
		print "<tr><td>\n";
		print "<a href=\"javascript:history.back()\">&lt;&lt; back</a></font>\n";
		print "</td></tr>\n";
		print "</table>\n";
		print "<center>Please write great recollections.</center>\n";
		print "<br>\n";
	}

	# フォーム種別を判別
	if ($type eq "edit") {
		print "<form action=\"$script\" method=\"POST\" enctype=\"multipart/form-data\">\n";
		print "<input type=hidden name=mode value=\"usr_edt\">\n";
		print "<input type=hidden name=action value=\"edit\">\n";
		print "<input type=hidden name=pwd value=\"$in{'pwd'}\">\n";
		print "<input type=hidden name=no value=\"$in{'no'}\">\n";
		print "<input type=hidden name=pastlog value=\"$in{'pastlog'}\">\n";
	} else {
		print "<form action=\"$script\" method=\"POST\" enctype=\"multipart/form-data\">\n";
		print "<input type=hidden name=mode value=\"regist\">\n";
		&get_cookie;
	}

	print <<"EOM";
<table width=650 align=center cellspacing=0 cellpadding=10 class=waku>
  <tr>
     <td width=650>
<table cellspacing=0 cellpadding=3>
  <tr><td>DATE</td>
EOM
		#開始日
		print "<td colspan=3><select name=\"year1\">\n";

		for ( $i = $syear - 10 ; $i <= $syear + 10 ; $i++ )	{
		  if ($type eq "edit") {
		     if ( $i == $year1 ) {
				print "<option value=$i selected>$i\n";
			} else {
				print "<option value=$i>$i\n";
			}
		  } else {
		     if ( $in{'year'} eq '' && $i == $syear) {
				print "<option value=$i selected>$i\n";
			} else {
				print "<option value=$i>$i\n";
			}
		  }
		}
		print "</select><font color=\"$tbomcolor\">&nbsp;年</font>\n";
		print "<select name=\"month1\">\n";
		for ( $i = 1 ; $i <= 12 ; $i++ ) {
		  if ($type eq "edit") {
			if ( $i == $month1 ) {
				print "<option value=$i selected>$i\n";
			} else {
				print "<option value=$i>$i\n";
			}
		  } else {
			if ( $in{'month'} eq '' && $i == $smonth) {
				print "<option value=$i selected>$i\n";
			} else {
				print "<option value=$i>$i\n";
			}
		  }
		}
		print "</select><font color=\"$tbomcolor\">&nbsp;月</font>\n";
		print "<select name=\"day1\">\n";
		for ( $i = 1 ; $i <= 31 ; $i++ ) {
		  if ($type eq "edit") {
			if ( $i == $day1 ) {
   				print "<option value=$i selected>$i\n";
			} else {
				print "<option value=$i>$i\n";
			}
		  } else {
			if ( $i == $sday) {
				print "<option value=$i selected>$i\n";
			} else {
				print "<option value=$i>$i\n";
			}
		  }
		}
		print "</select><font color=\"$tbomcolor\">&nbsp;日\n";
		print " 〜 ";
		
		#終了日
		print "<select name=\"year2\">\n";

		for ( $i = $syear - 10 ; $i <= $syear + 10 ; $i++ )	{
		  if ($type eq "edit") {
		     if ( $i == $year2 ) {
				print "<option value=$i selected>$i\n";
			} else {
				print "<option value=$i>$i\n";
			}
		  } else {
		     if ( $in{'year'} eq '' && $i == $syear) {
				print "<option value=$i selected>$i\n";
			} else {
				print "<option value=$i>$i\n";
			}
		  }
		}
		print "</select><font color=\"$tbomcolor\">&nbsp;年</font>\n";
		print "<select name=\"month2\">\n";
		for ( $i = 1 ; $i <= 12 ; $i++ ) {
		  if ($type eq "edit") {
			if ( $i == $month2 ) {
				print "<option value=$i selected>$i\n";
			} else {
				print "<option value=$i>$i\n";
			}
		  } else {
			if ( $in{'month'} eq '' && $i == $smonth) {
				print "<option value=$i selected>$i\n";
			} else {
				print "<option value=$i>$i\n";
			}
		  }
		}
		print "</select><font color=\"$tbomcolor\">&nbsp;月</font>\n";
		print "<select name=\"day2\">\n";
		for ( $i = 1 ; $i <= 31 ; $i++ ) {
		  if ($type eq "edit") {
			if ( $i == $day2 ) {
   				print "<option value=$i selected>$i\n";
			} else {
				print "<option value=$i>$i\n";
			}
		  } else {
			if ( $i == $sday) {
				print "<option value=$i selected>$i\n";
			} else {
				print "<option value=$i>$i\n";
			}
		  }
		}
		print "</select><font color=\"$tbomcolor\">&nbsp;日</td></tr>\n";

print <<"EOM";
<tr>
  <td>TITLE</td>
EOM
  if ($type eq "edit") {
	print "<td colspan=4>\n";
  } else {
        print "<td colspan=3>\n";
  }
print <<"EOM";
    <input type=text name=sub size=60 value="$sub">
  </td>
</tr>
<tr>
  <td>FILE1</td>
  <td><input type=file name=upfile1 size=36></td>
  <td nowrap>COM</td>
  <td>
     <textarea cols=50 rows=2 name=com1 wrap=\"soft\">$com1</textarea>
  </td>
EOM
  if ($type eq "edit") {
	print "<td>del <input type=checkbox name=delfile1></td>\n";
  }
print <<"EOM";
</tr>
<tr>
  <td>FILE2</td>
  <td><input type=file name=upfile2 size=36></td>
  <td>COM</td>
  <td>
     <textarea cols=50 rows=2 name=com2 wrap=\"soft\">$com2</textarea>
  </td>
EOM
  if ($type eq "edit") {
	print "<td>del <input type=checkbox name=delfile2></td>\n";
  }
print <<"EOM";
</tr>
<tr>
  <td>FILE3</td>
  <td><input type=file name=upfile3 size=36></td>
  <td>COM</td>
  <td>
    <textarea cols=50 rows=2 name=com3 wrap=\"soft\">$com3</textarea>
  </td>
EOM
  if ($type eq "edit") {
	print "<td>del <input type=checkbox name=delfile3></td>\n";
  }
print <<"EOM";
</tr>
<tr>
  <td>FILE4</td>
  <td><input type=file name=upfile4 size=36></td>
  <td>COM</td>
  <td>
     <textarea cols=50 rows=2 name=com4 wrap=\"soft\">$com4</textarea>
  </td>
EOM
  if ($type eq "edit") {
	print "<td>del <input type=checkbox name=delfile4></td>\n";
  }
print <<"EOM";
</tr>
<tr>
  <td>FILE5</td>
  <td><input type=file name=upfile5 size=36></td>
  <td>COM</td>
  <td>
     <textarea cols=50 rows=2 name=com5 wrap=\"soft\">$com5</textarea>
  </td>
EOM
  if ($type eq "edit") {
	print "<td>del <input type=checkbox name=delfile5></td>\n";
  }
print <<"EOM";
</tr>
<tr><td>FILE6</td>
  <td><input type=file name=upfile6 size=36></td>
  <td>COM</td>
  <td>
     <textarea cols=50 rows=2 name=com6 wrap=\"soft\">$com6</textarea>
  </td>
EOM
  if ($type eq "edit") {
	print "<td>del <input type=checkbox name=delfile6></td>\n";
  }
print <<"EOM";
</tr>
<tr><td>FILE7</td>
  <td><input type=file name=upfile7 size=36></td>
  <td>COM</td>
  <td>
     <textarea cols=50 rows=2 name=com7 wrap=\"soft\">$com7</textarea>
  </td>
EOM
  if ($type eq "edit") {
	print "<td>del <input type=checkbox name=delfile7></td>\n";
  }
print <<"EOM";
</tr>
<tr><td>FILE8</td>
  <td><input type=file name=upfile8 size=36></td>
  <td>COM</td>
  <td>
    <textarea cols=50 rows=2 name=com8 wrap=\"soft\">$com8</textarea>
  </td>
EOM
  if ($type eq "edit") {
	print "<td>del <input type=checkbox name=delfile8></td>\n";
  }
print <<"EOM";
</tr>
<tr><td>FILE9</td>
  <td><input type=file name=upfile9 size=36></td>
  <td>COM</td>
  <td>
     <textarea cols=50 rows=2 name=com9 wrap=\"soft\">$com9</textarea>
  </td>
EOM
  if ($type eq "edit") {
	print "<td>del <input type=checkbox name=delfile9></td>\n";
  }
print <<"EOM";
</tr>
<tr><td>FILE10</td>
  <td><input type=file name=upfile10 size=36></td>
  <td>COM</td>
  <td>
    <textarea cols=50 rows=2 name=com10 wrap=\"soft\">$com10</textarea>
  </td>
EOM
  if ($type eq "edit") {
	print "<td>del <input type=checkbox name=delfile10></td>\n";
  }
print <<"EOM";
</tr>
EOM
	if ($type eq "edit") {
          print "<tr><td colspan=4>\n";
	  if (-e "$ImgDir$no-1$tail1") {
	    print "1<img src=\"$ImgUrl$no-1$tail1\" width=$samW height=$samH>\n";
	  }
  	  if (-e "$ImgDir$no-2$tail2") {
  	     print "2<img src=\"$ImgUrl$no-2$tail2\" width=$samW height=$samH>\n";
          }
  	  if (-e "$ImgDir$no-3$tail3") {
  	     print "3<img src=\"$ImgUrl$no-3$tail3\" width=$samW height=$samH>\n";
          }
  	  if (-e "$ImgDir$no-4$tail4") {
  	     print "4<img src=\"$ImgUrl$no-4$tail4\" width=$samW height=$samH>\n";
          }
  	  if (-e "$ImgDir$no-5$tail5") {
  	     print "5<img src=\"$ImgUrl$no-5$tail5\" width=$samW height=$samH>\n";
          }
  	  if (-e "$ImgDir$no-6$tail6") {
  	     print "6<img src=\"$ImgUrl$no-6$tail6\" width=$samW height=$samH>\n";
          }
  	  if (-e "$ImgDir$no-7$tail7") {
  	     print "7<img src=\"$ImgUrl$no-7$tail7\" width=$samW height=$samH>\n";
          }
  	  if (-e "$ImgDir$no-8$tail8") {
  	     print "8<img src=\"$ImgUrl$no-8$tail8\" width=$samW height=$samH>\n";
          }
  	  if (-e "$ImgDir$no-9$tail9") {
  	     print "9<img src=\"$ImgUrl$no-9$tail9\" width=$samW height=$samH>\n";
          }
  	  if (-e "$ImgDir$no-10$tail10") {
  	     print "10<img src=\"$ImgUrl$no-10$tail10\" width=$samW height=$samH>\n";
          }
	  print "</td></tr>\n";
	}

	print "<tr><td colspan=4 align=right><input type=submit value=\" 送信 \" class=pst>";
	print "</td></tr></table></td></tr></table>\n";
	print "</form>\n";
	print "</blockquote>\n";
	print "<table width=400 cellpadding=0 cellspacing=0 align=center>\n";
	print "<tr><td height=20></td></tr>\n";
	print "<tr><td align=center>$banner2</td></tr>\n";
	print "<tr><td align=center>++ <a href='http://www.rocomotion.net' target='_blank'>ROCO ALBUM<!--$ver--></a> ++</td></tr>\n";
	print "<tr><td height=10></td></tr>\n";
	print "<tr><td align=center>SCRIPT : <a href='http://www.kent-web.com/' target='_blank'>KENT</a>   ,   EDIT & DESIGN : <a href='http://www.rocomotion.net' target='_blank'>UG</a></td></tr>\n";
  	print "<tr><td height=20></td></tr></table>\n";
	print "</body>\n</html>\n";
exit;
}