#!/usr/bin/perl

## Diary Note (diary.cgi) v0.6
## Copyright (c) KentWeb

# 外部ファイル取り込み
require './init.cgi';

&decode;
if ($mode eq "read") { &read; }
elsif ($mode eq "check") { ✓ }
&topmenu;

#-----------#
#  TOP画面  #
#-----------#
sub topmenu {
	&header;
	print <<EOM;
<div align="center">
<table width="620" cellpadding=4 border=0>
<tr>
  <td class="tbl_1" colspan=13> &nbsp;&nbsp; <b>$title</b></td>
</tr>
</table>
<table width=620 border=0>
<tr>
  <td align=right height=35><a href="$home" onMouseover="image1.src='$imgurl/home2.gif'" onMouseout="image1.src='$imgurl/home1.gif'" target="_top"><img src="$imgurl/home1.gif" name="image1" border="0" alt="Homeに戻る"></a></td>
</tr>
</table>
<table width="620" cellpadding=4 border=0>
EOM

	# index読み取り
	open(IN,"$logdir/index.dat") || &error("Open Error: index.dat");
	while (<IN>) {
		@f = split(/,/);

		print "<tr><td height=35 align=center class=year>$f[0]</td>";
		foreach $i (1 .. 12) {

			print "<td align=center>";

			if ($f[$i]) {
				print "<a href=\"$script?mode=read&y=$f[0]&m=$i\">$i月</a>";
			} else {
				print "$i月";
			}

			print "</td>";
		}
		print "</tr>\n";
	}
	close(IN);

	print <<EOM;
</table>
<p>
<table width="620" cellpadding=4 border=0>
<tr>
  <td colspan=13 class=tbl_3 align=center>$message</td>
</tr>
</table>
<br><br><br>
EOM

	# 管理者ログインフォーム
	if ($login_form) {
		print "<div align=right>
		<form action=\"$admin\" method=\"POST\">
		<input type=password name=pass size=6>
		<input type=submit value='管理用'></form></div>\n";
	}

	# 著作権表示（削除禁止）
	print <<EOM;
<!-- $ver -->
<span style="font-size:10px; font-family:Verdana,Helvetica,Arial;">
- <a href="http://www.kent-web.com/" target="_top">DiaryNote</a> -
</span>
</div>
</body>
</html>
EOM
	exit;
}

#------------#
#  内容閲覧  #
#------------#
sub read {
	local($i,$flag,$next,$back,$sub_width);

	# 汚染チェック
	$in{'y'} =~ s/\D//g;
	$in{'m'} =~ s/\D//g;

	$data = sprintf("%04d%02d", $in{'y'},$in{'m'});
	$sub_width = $log_width + 30;

	&header;
	print <<EOM;
<div align="center">
<table width="$sub_width" cellpadding="0" border="0">
<tr>
  <td class="tbl_1m" height="27"> &nbsp;&nbsp; Diary $in{'y'}. $in{'m'}</td>
</tr></table>
<table width="$log_width" border="0">
<tr>
  <td align="right" height="35"><a href="$script?" onMouseover="image2.src='$imgurl/back2.gif'" onMouseout="image2.src='$imgurl/back1.gif'"><img src="$imgurl/back1.gif" name="image2" border="0" alt="メニューに戻る"></a></td>
</tr>
</table>
EOM

	# ログ展開
	$i=0;
	open(IN,"$logdir/$data.txt");
	while (<IN>) {
		$i++;
		next if ($i < $page + 1);
		next if ($i > $page + $pagelog);

		($d,$w,$sub,$msg,$t[0],$w[0],$h[0],
			$t[1],$w[1],$h[1],$t[2],$w[2],$h[2]) = split(/<>/);

		# 自動リンク
		$msg = &auto_link($msg) if ($autolink);

		$day = $d;
		$day =~ s/^0//;

		print "<table width=\"$log_width\"><tr><td class=\"log\" align=\"$layout\">
		$in{'m'}月$day日 ($week[$w]) &nbsp;<b>$sub</b><br><br>$msg\n";

		$f=0;
		foreach $i (0 .. 2) {
			if ($t[$i]) { $f++; }
			else { next; }
			$j = $i+1;
			print "<p>\n" if ($f == 1);

			if ($w[$i] && $h[$i]) { $wh = "width=$w[$i] height=$h[$i]"; }
			print "<a href=\"$imgurl/$data$d-$j$t[$i]\" target=\"_blank\"><img src=\"$imgurl/$data$d-$j$t[$i]\" border=0 alt=\"$data$d-$j$t[$i]\" $wh></a>\n";
		}
		print "</p>" if ($f);

		print "</td></tr></table><br><br>\n";
	}
	close(IN);

	# 繰越数定義
	$next = $page + $pagelog;
	$back = $page - $pagelog;

	$flag=0;
	print "<table border=0><tr>\n";
	if ($back >= 0) {
		$flag++;
		print "<td valign=top><form action=\"$script\">\n";
		print "<input type=hidden name=page value=\"$back\">\n";
		print "<input type=hidden name=mode value=\"read\">\n";
		print "<input type=hidden name=y value=\"$in{'y'}\">\n";
		print "<input type=hidden name=m value=\"$in{'m'}\">\n";
		print "<input type=submit value=\"前の$pagelog件\"></form></td>\n";
	}
	if ($next < $i) {
		$flag++;
		print "<td valign=top><form action=\"$script\">\n";
		print "<input type=hidden name=page value=\"$next\">\n";
		print "<input type=hidden name=mode value=\"read\">\n";
		print "<input type=hidden name=y value=\"$in{'y'}\">\n";
		print "<input type=hidden name=m value=\"$in{'m'}\">\n";
		print "<input type=submit value=\"次の$pagelog件\"></form></td>\n";
	}

	# ページ移動ボタン表示
	if ($flag) {
		print "<td width=7></td><td class=page valign=top>\n";
		local($x,$y) = (1,0);
		while ($i > 0) {
			if ($page == $y) {
				print "| <b style='color:red'>$x</b>\n";
			} else {
				print "| <a href=\"$script?mode=read&page=$y&y=$in{'y'}&m=$in{'m'}\">$x</a>\n";
			}
			$x++;
			$y += $pagelog;
			$i -= $pagelog;
		}
		print "|</td>";
	} else {
		print "<td></td>";
	}

	print <<EOM;
</tr></table>
</div>
</body>
</html>
EOM
	exit;
}

#----------------#
#  デコード処理  #
#----------------#
sub decode {
	local($buf,$key,$val);

	if ($ENV{'REQUEST_METHOD'} eq "POST") {
		read(STDIN, $buf, $ENV{'CONTENT_LENGTH'});
	} else {
		$buf = $ENV{'QUERY_STRING'};
	}

	%in=();
	foreach ( split(/&/, $buf) ) {
		($key, $val) = split(/=/);
		$val =~ tr/+/ /;
		$val =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;

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

		$in{$key} .= "\0" if (defined($in{$key}));
		$in{$key} .= $val;
	}
	$page = $in{'page'};
	$mode = $in{'mode'};

	$headflag=0;
}

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

#----------------#
#  簡易チェック  #
#----------------#
sub check {
	&header;
	print <<EOM;
<h3>Check Mode</h3>
<ul>
EOM

	# ディレクトリ定義
	%dir = ('ログディレクトリ', $logdir, '画像ディレクトリ', $imgdir);

	# チェック開始
	while (($k,$v) = each %dir) {
		# パス
		if (-d $v) {
			print "<li>$kパス: OK!\n";

			# パーミッション
			if (-r $v && -w $v && -x $v) {
				print "<li>$kパーミッション: OK!\n";
			} else {
				print "<li>$kパーミッション: NG → $v\n";
			}
		} else {
			print "<li>$kパス: NG → $v\n";
		}
	}

	if (-e "$logdir/index.dat") {
		print "<li>indexファイル: OK!\n";

		# パーミッション
		if (-r "$logdir/index.dat" && -w "$logdir/index.dat") {
			print "<li>indexファイルパーミッション: OK!\n";
		} else {
			print "<li>indexファイルパーミッション: NG → index.dat\n";
		}
	} else {
		print "<li>indexファイル: NG → index.dat\n";
	}

	print <<EOM;
<li>バージョン: $ver
</ul>
</body>
</html>
EOM
	exit;
}


__END__