$ver = 'PHOTO-MEMO v1.11';

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

	# ヘッダを出力
	&header;

	# タイトル部
	if ($banneri1 ne "<!-- 上部 -->") { print "$banneri1<P>\n"; }

	print "<font style=\" color=$t_colori; \">$titlei</font>\n";
	print "<hr size=1>\n";

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

	while (<IN>) {
		($no,$Year,$Month,$Day,$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_logi) { next; }

		# 題名の長さ
		if (length($sub) > $sub_len*2) {
			$sub = substr($sub,0,$sub_len*2);
			$sub .= "････";
		}
		if ($Month < 10) { $Month = "0$Month"; }
		if ($Day < 10) { $Day = "0$Day"; }
		if ($Day < 1) { $Day = "−"; }
		$full=0;
		if ($tail1 ne "") {$full = 1;}
		if ($tail2 ne "") {$full = $full + 1;}
		if ($tail3 ne "") {$full = $full + 1;}
		if ($tail4 ne "") {$full = $full + 1;}
		if ($tail5 ne "") {$full = $full + 1;}
		if ($tail6 ne "") {$full = $full + 1;}
		if ($tail7 ne "") {$full = $full + 1;}
		if ($tail8 ne "") {$full = $full + 1;}
		if ($tail9 ne "") {$full = $full + 1;}
		if ($tail10 ne "") {$full =$full + 1;}

		if ($W1 >= $H1) {
			print"<a href=\"$script?mode=view&action=view&no=$no&photono=1&tailno=$tail1&W=$W1&H=$H1&page=$page\">\n";
		}
		if ($W1 < $H1) {
			print"<a href=\"$script?mode=view&action=view&no=$no&photono=1&tailno=$tail1&W=$W1&H=$H1&page=$page\">\n";
		}

		if ($datecolor) {
			print "NO,&nbsp;$no \n";
			print"$sub</a><br>\n";
			print "&nbsp; $Year/$Month/$Day\n";
		} else {
			print "NO,&nbsp;$no \n";
			print"<font color=$sub_color>$sub</font></a><br>\n";
			}

		print "<br><font color=$datecolor>&nbsp;（画像&nbsp;$full枚添付）</font>\n";
		print "<hr size=1>\n";
	} close(IN);

		# 次ページ表示
		$next = $page + $p_logi;
		$back = $page - $p_logi;
		$p_flag=0;

		if ($back >= 0) {
			$p_flag=1;
			print "<form action=\"$script\" method=\"POST\">\n";
			print "<input type=hidden name=page value=\"$back\">\n";
			print "<input type=submit value=\"前の$p_logi件\"></form>\n";
		}
		if ($next < $i) {
			$p_flag=1;
			print "<form action=\"$script\" method=\"POST\">\n";
			print "<input type=hidden name=page value=\"$next\">\n";
			print "<input type=submit value=\"次の$p_logi件\"></form>\n";
		}

		# ページ移動ボタン表示
		if ($p_flag) {
			print "[直接移動]\n";
			$x=1;
			$y=0;
			while ($i > 0) {
				if ($page == $y) { print "<b>[$x]</b>\n"; 
				}else { print "[<a href=\"$script?page=$y\">$x</a>]\n"; }
				$x++;
				$y = $y + $p_logi;
				$i = $i - $p_logi;
			}
			print "<hr size=1>\n";
		}

		# 移動表示
		if ($ihomepage) {
			print "<a href=\"$homepage\" target=\"$htarget\">HOME</a>\n";
		} else {print "<a href=\"$homepage\" target=\"$htarget\">HOME</a>\n";}

		# 管理画面表示 （ＰＣ表示以外無効）
		if ($type eq 'p') {
			if ($in{'action'} eq "") {
				print "<div align=right><a href=\"$script?&action=admin&page=$page\">[管理]</a></div> \n";
			} else {
				print "<form action=\"$script\" method=\"POST\">\n";
				print "<table width=500 align=center cellspacing=0 cellpadding=0><tr><td align=center><br>\n";
				print "<table align=right cellpadding=5 cellspacing=0 class=wakuo>\n";
				print "<tr><td align=right>\n";
				print "<select name=mode>\n";
					if ($in{'page'} < '1' ) { print "<option value=write>新規\n"; }
					print "<option value=usr_edt>修正\n";
					print "<option value=usr_del>削除</select>\n";
				print "<select name=no>\n";
					print "<option>↓ 修正・削除時はタイトル選択 ↓\n";

					open(IN,"$logfile") || &error("Open Error : $logfile");
					$top = <IN>;
					$i=0;
					$full=0;
					while (<IN>) {
						($no,$year,$month,$day,$sub) = split(/<>/);
						$i++;
						if ($i < $page + 1) { next; }
						if ($i > $page + $p_log) { next; }
						# 題名の長さ
						if (length($sub) > $sub_len) {
							$sub = substr($sub,0,$sub_len*1.5);
							$sub .= ".....";
						}
						print "<option value=\"$no\">$no] $sub<br>\n";
					} close(IN);
					print "</select>\n";
				print "パスワード <input type=password name=pwd size=8 maxlength=8>\n";
				print "&nbsp;&nbsp;<input type=submit value=\"GO\"></td></tr></table></td></tr></table>\n";
				print "</form>\n";
			}
		}

		print "<div align=right>\n";

		# カウンター処理
		&counter;
		print "<br>\n";

		# 著作権表示部（削除改変不可）
		print "KENT WEB<br>\n";
		print "edit : benri memo</div>\n";

	exit;
}


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

	# ヘッダを出力
	&header;

		if($in{'vie'}){

				# 画像表示縮小
				if ($in{'W'} > $MaxW || $in{'H'} > $MaxH) {
					$w2 = $MaxW / $in{'W'};
					$h2 = $MaxH / $in{'H'};
					if ($w2 < $h2) { $key = $w2; 
					}else { $key = $h2; }
					$W = int ($in{'W'} * $key) || 1;
					$H = int ($in{'H'} * $key) || 1;
				}else{
					$W = $in{'W'}; 
					$H = $in{'H'};}

				print "<img src=\"$ImgUrl$in{'no'}-$in{'vie'}.jpg \"width=$W height=$H>\n";
				print "<form><input type=button value=\"戻る\" onClick=\"location='javascript:history.back()'\"></form>\n";
exit;
		}

		print "<a href=\"$script?page=$page\">INDEX</a> \n";

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

		#ログ表示
		while (<IN>) {
			($no,$Year,$Month,$Day,$sub,$tail[1],$W[1],$H[1],$com[1],$tail[2],$W[2],$H[2],$com[2],$tail[3],$W[3],$H[3],$com[3],$tail[4],$W[4],$H[4],$com[4],$tail[5],$W[5],$H[5],$com[5],$tail[6],$W[6],$H[6],$com[6],$tail[7],$W[7],$H[7],$com[7],$tail[8],$W[8],$H[8],$com[8],$tail[9],$W[9],$H[9],$com[9],$tail[10],$W[10],$H[10],$com[10],$host) = split(/<>/);

			# 題名の長さ
			if (length($sub) > $sub_len*4) {
				$sub = substr($sub,0,$sub_len*4);
				$sub .= "...";
			}
			if ($Month < 10) { $Month = "0$Month"; }
			if ($Day < 10) { $Day = "0$Day"; }
			if ($Day < 1) { $Day = "−"; }
			if ($in{'no'} == $no) {

				$f=0;
				foreach $i (0 .. 10) {
					if ($tail[$i] || $com[$i] ) { $f++; }
					else { next; }

					print "<hr size=1>\n";
					if ($tail[$i]) { 
						if ($com[$i]) {print "[$i] コメント：$com[$i]\n"; 
						}else{print "[$i]コメント：無題\n"; }
						if (-e "$ImgUrl$no-$i-s.jpg") {
							$size = -s "$ImgUrl$no-$i-s.jpg";
							$size = (int($size/102.4))/10; $size .= KB;
							if ($type eq 'p'){
								print "<br><a href=\"$script?mode=view&action=view&no=$in{'no'}&vie=$i&W=$W[$i]&H=$H[$i]\">★$tail[$i]表\示</a>($size)\n";
							} else {
								print "<br><a href=$ImgUrl$no-$i-s.jpg>★$tail[$i]表\示($size)</a>\n";}
						} else {
							print "<br>[☆$tail[$i]添付]携帯表\示不可\n";}
					} else {print "[$i] コメント：$com[$i]\n";}
				}

				print "<hr size=1>\n";
				print "<a href=\"$script?page=$page\">INDEX</a> \n";

			# 著作権表示部（削除改変不可）
			}
		}
	exit;
}


__END__