#! /usr/bin/perl

#  ↑このPerlのパスは環境に合わせて変更してください。
#
;#####################################################################################
;#
;# レスキューのブログソフト《 ブロキュー 》 Ｂｌｏｑ                 メインプログラム
;#
;# 詳細は README.TXT を参照
;#
;#####################################################################################

require './setup.cgi';
require './calendar2.cgi';

($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
$year += 1900; $month = $mon + 1;
@days = ('',31,'',31,30,31,30,31,31,30,31,30,31);
$time = time;

$log_dir = $base_dir . 'logs/';
$log_file = 'count.dat';

umask(000);

eval 'use Jcode;';
if ($@) { &error("エラー","Jcodeモジュールが見つかりません.","このモジュールは必須です.<br>","- $@"); }
else {
	$test = 'あいうおえ';
	Jcode::convert( \$test, 'utf8' );
	@result = getcode( \$test );
	if ($result[0] ne 'utf8') { &error("エラー","JcodeモジュールはUTF-8エンコードに失敗しました.","ユニコード('%e'で始まる3オクテッドのデータ)へのエンコードに対応したバージョンが必要です."); }
}

$err = $no_trackback = 0;
eval 'use Net::Trackback::Ping;'; if ($@) { $err = 1; }
eval 'use Net::Trackback::Client;'; if ($@) { $err = 1; }
eval 'use Net::Trackback::Message;'; if ($@) { $err = 1; }
if ($err) { $no_trackback = 1; }

$meta = <<'EOF';
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<meta http-equiv="Pragma" content="no-cache" />
<meta http-equiv="Cache-Control" content="no-cache" />
<meta http-equiv="imagetoolbar" content="no" />
EOF

#$cp = $img_dir . 'copyright.gif'; # 削除・改ざん禁止（利用規定違反になります）↓
#if (-e $cp) { $copyright = "<p><div align=right><a href=\"http://www.rescue.ne.jp/\" target=\"_blank\"><img src=\"$img_url" . "copyright.gif\" alt=\"フリーソ\フトで作るブログ\" border=0></a>&nbsp;&nbsp;&nbsp;</div><p>\n"; }
#else { $copyright = "<p><div align=right><a href=\"http://www.rescue.ne.jp/\" target=\"_blank\"><img src=\"$reload?cmd=copyright\" alt=\"フリーソ\フトで作るブログ\" border=0></a>&nbsp;&nbsp;&nbsp;</div><p>\n"; }
$copyright = "<p><div align=right><font size=-1>Powered by <a href=\"http://www.rescue.ne.jp/\" target=\"_blank\" title=\"フリーソ\フトで作るブログ\" class=right>CGI RESCUE</a></font>&nbsp;&nbsp;&nbsp;</div><p>\n";

if ($ENV{'CONTENT_LENGTH'} > 131072) { &error("エラー","大き過ぎるファイルを受信しました。-&gt; $ENV{'CONTENT_LENGTH'} bytes"); }

if ($ENV{'PATH_INFO'} =~ /^\/k\/(\d*)$/) { # 携帯

	if (!-e $base_k) { &error("ﾃﾝﾌﾟﾚｰﾄがありません"); }
	&Keitai($1);
}

if ($ENV{'PATH_INFO'} =~ /^\/(\d+)$/) { # トラックバック受信

	read(STDIN,$buffer,$ENV{'CONTENT_LENGTH'});
	$buffer .= "&$ENV{'QUERY_STRING'}";

	@pairs = split(/&/,$buffer);
	foreach $pair (@pairs) {

		($name,$value) = split(/=/,$pair);

		$chkCode = $value;
		$chkCode =~ tr/+/ /;
		$chkCode =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;
		@result = getcode( \$chkCode );

		if ($result[0] eq 'utf8') {

			require $simagunipath;
			if ( &simaguni'loadbook8($simagunipath) ) {

				&simaguni'decode8(*name,'sjis');
				&simaguni'decode8(*value,'sjis');
				&simaguni'unloadbook8();
			}

			$name =~ tr/+/ /;
			$value =~ tr/+/ /;
		}
		else {
			$name =~ tr/+/ /;
			$name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;
			$value =~ tr/+/ /;
			$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;

			Jcode::convert( \$value, 'sjis' );
		}

		$value =~ s/&/&amp;/g;
		$value =~ s/</&lt;/g;
		$value =~ s/>/&gt;/g;
		$value =~ s/\t//g;

		$value =~ s/\r\n/\n/g;
		$value =~ s/\r/\n/g;

		$form{$name} = $value;
	}

	if ($ENV{'QUERY_STRING'} eq '__mode=rss' || $buffer eq "&") { &mode_rss($1); exit; }
	&receive_trackback($1);
}
elsif ($ENV{'CONTENT_TYPE'} =~ m#^multipart/form-data#) {

	&ReadParse;

	while (($key,$val) = each %in) {

		if ($key eq "upfile") { next; }
		$form{$key} = $val;
	}
}
else {
	read(STDIN,$buffer,$ENV{'CONTENT_LENGTH'});
	$buffer .= "&$ENV{'QUERY_STRING'}";

	@pairs = split(/&/,$buffer);
	foreach $pair (@pairs) {

		($name,$value) = split(/=/,$pair);

		$name =~ tr/+/ /;
		$value =~ tr/+/ /;

		$chkCode = $value;
		$chkCode =~ tr/+/ /;
		$chkCode =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;
		@result = getcode( \$chkCode );

		require $simagunipath;
		if ( &simaguni'loadbook8($simagunipath) ) {

			&simaguni'decode8(*name,'sjis');
			&simaguni'decode8(*value,'sjis');
			&simaguni'unloadbook8();
		}

		$value =~ s/&/&amp;/g;
		$value =~ s/</&lt;/g;
		$value =~ s/>/&gt;/g;
		$value =~ s/\t//g;

		$value =~ s/\r\n/\n/g;
		$value =~ s/\r/\n/g;

		if ($name =~ /;(\w+);(\d+);/) { $moddel{$1} = $2; } # 修正/削除
		if ($name =~ /^del(\d+)/) { push(@remove,$value); next; } # メンテナンスモード用

		$form{$name} = $value;
	}
}

if ($form{'cmd'} eq 'copyright') { &copyright($cp); }

@pairs = split(/;/,$ENV{'HTTP_COOKIE'});
foreach $pair (@pairs) {

	($name,$value) = split(/=/,$pair);
	$name =~ s/ //g;

	if ($name eq $reload) {

		$value =~ tr/+/ /;
		$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;

		@pairs2 = split(/,/,$value);
		foreach $pair (@pairs2) {

			($key,$val) = split(/:/,$pair,2);
			$COOKIE{$key} = $val;
		}
		last;
	}
}

if ($form{'cmd'} eq 'login' && $form{'key'} eq $pwd) {

	$ADMIN = 1;
	$crypted_pwd = &Crypt($pwd);
	&setCookie($reload,"key:$crypted_pwd",$form{'cookie'});
}
elsif ($form{'cmd'} eq 'logout') {

	$ADMIN = 0;
	undef $COOKIE{'key'};
	&setCookie($reload,"key:",'x');
}
elsif (crypt($pwd,$COOKIE{'key'}) eq $COOKIE{'key'} && $COOKIE{'key'} ne '') { $ADMIN = 1; }
else { $ADMIN = 0; }

if ($ENV{'PATH_INFO'} =~ /^\/permalink\/(\d{14})$/) { # 固定リンク

	&ModFile($1);
}
elsif ($ENV{'QUERY_STRING'} eq 'k') { &Keitai_menu(); }
elsif ($form{'cmd'} eq 'k') { &Keitai2(); }

# メンテナンスモード
if ($ADMIN && $form{'cmd'} eq 'maintenance') { &maintenance(); }
elsif ($form{'cmd'} eq 'maintenance') { &error("管理者確認が出来ません","ログインしてください。"); }

# アクセス解析
if ($ADMIN && $form{'cmd'} eq 'analyze') { &analyze(); }
elsif ($form{'cmd'} eq 'analyze') { &error("管理者確認が出来ません","ログインしてください。"); }

# 記事・プレビューと投稿処理
if ($ADMIN && $form{'cmd'} eq 'check') { &preView(); exit; }
if ($ADMIN && $form{'cmd'} eq 'write') { &Write(); }

# コメント・プレビューと投稿処理
if ($form{'cmd'} eq 'check2') { &preView2(); exit; }
if ($form{'cmd'} eq 'write2') { &Write2(); $form{'mode'} = $time; }

# 画像アップロード
if ($ADMIN && $form{'cmd'} eq 'upform') { &upForm(); exit; }
if ($ADMIN && $form{'cmd'} eq 'upimg') { &upImg(); exit; }

# 削除/修正
if ($ADMIN && $form{'cmd'} eq 'moddel') { &modDel(); }
if ($ADMIN && $form{'cmd'} eq 'tb_hist') { &tb_hist(); }

if ($ADMIN && $form{'cmd'} eq 'del') { &pDel(); } # 管理人削除(ログイン済み)
elsif ($form{'cmd'} eq 'del' && $form{'passwd'} ne '') { &pDel(2); } # ユーザ削除
elsif ($form{'cmd'} eq 'del') { &pDel(1); }

if ($form{'year'} ne "" && $form{'month'} ne "") {
	$view_blog_month = sprintf("%04d%02d",$form{'year'},$form{'month'});
	if ($view_blog_month !~ /^(\d\d\d\d\d\d)$/) { $view_blog_month = ""; }
}

if ($form{'cmd'} eq "" || $form{'cmd'} eq "login") { $counter = &analyze_log(); }
&makeBlog($view_blog_month);
exit;

##
#### ■全記事を取得
##

sub getAllFiles {

	local($count) = @_; # カウントするかどうか（必要件数分） 
	@all = ();

	if (!opendir(d,$base_dir)) { &error($!,"- $base_dir"); }
	@d = readdir(d);
	close(d);

	foreach $dir (reverse sort @d) {

		next if $dir eq '.';
		next if $dir eq '..';

		if (-d "$base_dir$dir" && $dir =~ /^(\d{4})/) {

			if (!opendir(d,"$base_dir$dir")) { &error($!,"- $base_dir$dir"); }
			@d2 = readdir(d);
			close(d);

			foreach $dir2 (reverse sort @d2) {

				next if $dir2 eq '.';
				next if $dir2 eq '..';

				if (-d "$base_dir$dir/$dir2" && $dir2 =~ /^(\d{2})/) {

					if (!opendir(d,"$base_dir$dir/$dir2")) { &error($!,"- $base_dir$dir/$dir2"); }
					@d3 = readdir(d);
					close(d);

					foreach $file (reverse sort @d3) {

						next if $file eq '.';
						next if $file eq '..';

						if ($file =~ /^(\d{6})(\d{8})$ext/) {

							$list{$1} = 1;
							push(@all,"$1$2");

							if ($count) {

								$count ++;
								if ($count > $maxLog) { return; }
							}
						}
						else { unlink("$base_dir$dir/$dir2/$file"); }
					}

					rmdir("$base_dir$dir/$dir2"); # 空なら削除
				}
			}

			rmdir("$base_dir$dir"); # 空なら削除
		}
	}
}

##
#### ■最近のコメントとトラックバック…を更新
##

sub saikin {

	local($readList,$newTitleNum,$newTitle) = @_;
	local($num);

	if ($readList) {

		&getAllFiles();
		foreach $file (@all) {

			$num = $1;

			if (! &getBlog($num) ) { next; }

			$Title = $key{'title'};
			$Title =~ s/\n//g;
			if ($Title eq "") { $Title = "(題名なし)"; }
			elsif (length($Title) > 20) { $Title = &z_substr($Title,0,20) . ' ..'; }

			$cm = 0;
			foreach $j (split("\0",$key{'cm'})) {

				($key,$uname,$email,$url,$body,$ip) = split(/\t/,$j,6);
				$comm{$key} = "$uname\0$Title\0$num"; # 最近のコメントの一覧用

				$cm++;
			}

			$tb = 0;
			foreach $j (split("\0",$key{'tb'})) {

				($key,$blog_name,$title,$url,$exp) = split(/\t/,$j,5);
				$trackb{$key} = "$blog_name\0$url\0$title\0$num"; # 最近のトラックバックの一覧用

				$tb++;
			}
		}
	}

	# 最近のコメント
	$html = ""; $i = 0;
	foreach $key (sort {$b<=>$a;} keys %comm) {

		($name,$title,$date) = split(/\0/,$comm{$key},3);
		($dir_year,$dir_month) = &findDir($date);
		$html .= "<!--$key--><a class=\"$style_comment\" href=\"$reload/permalink/$date#$key\">$name </a> ( <a class=\"$style_comment\" href=\"$reload/permalink/$date\"><!--$date-->$title <!--/$date--></a>)\n";

		$i++;
		if ($i >= $maxLog) { last; }
	}

	Jcode::convert( \$html, 'utf8' );

	$file = $base_dir . 'comment' . $ext;
	if (open(f,"> $file")) {

		print f $html;
		close(f);
		chmod(0666,$file);
	}

	# 最近のトラックバック
	$html = ""; $i = 0;
	foreach $key (sort {$b<=>$a;} keys %trackb) {

		($blog_name,$url,$title,$date) = split(/\0/,$trackb{$key},4); # $date(記事番号)
		if (length($blog_name) > 20) { $blog_name = &z_substr($blog_name,0,20) . ' ..'; }
		if (length($title) > 30) { $title = &z_substr($title,0,30) . ' ..'; }

		($dir_year,$dir_month) = &findDir($date);
		$html .= "<!--$key--><a class=\"$style_trackback\" href=\"$url\" target=\"_blank\">$title </a> ($blog_name) <a class=\"$style_trackback\" href=\"$reload/permalink/$date\" title=\"受信した記事\">&laquo;</a>\n";

		$i++;
		if ($i >= $maxLog) { last; }
	}

	Jcode::convert( \$html, 'utf8' );

	$file = $base_dir . 'trackback' . $ext;
	if (open(f,"> $file")) {

		print f $html;
		close(f);
		chmod(0666,$file);
	}
}

##
#### ■削除/修正
##

sub modDel {

	if ($moddel{'del'}) {

		&getAllFiles();
		@blogs = reverse sort @all;

		($dir_year,$dir_month) = &findDir($moddel{'del'});
		unlink("$base_dir$dir_year/$dir_month/$moddel{'del'}$ext");

		&rotation('kiji','',$moddel{'del'}); # 最新リストから対象記事を削除

		undef %key;
		$make_index = $make_log = 1;
		$view_blog_month = $moddel{'del'};
	}
	elsif ($moddel{'mod'}) {

		if (! &getBlog($moddel{'mod'}) ) { &error("見つかりません",'削除されている可能性があります.'); }

		$key{'body'} =~ s/\n//g;
		$key{'body'} =~ s/<br>/\n/g;
		$key{'body'} =~ s/&/&amp;/g;
		$key{'body'} =~ s/</&lt;/g;
		$key{'body'} =~ s/>/&gt;/g;

		$selected_comment{$key{'comment'}} = " checked";
		$selected_trackback{$key{'trackback'}} = " checked";

		$view_blog_month = $moddel{'mod'};

		# 修正フォームへ
	}
}

##
#### ■コメント・トラックバックの削除
##

sub pDel {

	if ($_[0] eq "2") {

		($dir_year,$dir_month) = &findDir($form{'num'});
		if (open(F,"$base_dir$dir_year/$dir_month/$form{'num'}$ext")) {

			@lines = <F>;
			close(F);
		}

		@pickup = grep(/cm:$form{'target'}\t/,@lines);
		if (@pickup) {

			($a1,$a2,$a3,$a4,$a5,$a6,$passwd) = split(/\t/,$pickup[0],7);
			$passwd =~ s/\n//g;
		}

		if ($form{'passwd'} eq $pwd && $form{'passwd'} ne '') { &pDel(); } # 管理者がログインしないで削除
		elsif (crypt($form{'passwd'},$passwd) eq $passwd && $passwd ne '') { &pDel(); }
		else { return; }
	}
	elsif ($_[0] eq "1") {

print <<"EOF";
Content-type: text/html\n
<html>
<head>
<title>コメントの削除</title>
<meta http-equiv="Content-Type" content="text/html; charset=Shift_JIS" />
<SCRIPT language="JavaScript">
<!--
function delform(){
 var strg;
 strg = prompt("パスワードは？","");
 if (strg != null) {
    document.del.passwd.value = strg;
    document.del.submit();
    }
}
//-->
</SCRIPT>
</head>
<body onLoad='delform()'>
<form action="$reload" method=post name=del>
<input type=hidden name="cmd" value="del">
<input type=hidden name="num" value="$form{'num'}">
<input type=hidden name="target" value="$form{'target'}">
<input type=hidden name="mode" value="$form{'mode'}">
<input type=hidden name="passwd">
</form>
<a href="JavaScript:history.back()">前の画面に戻る</a>
</body>
</html>
EOF
		exit;
	}

	if ($form{'num'} eq "") { &error("ページが見つかりません."); }
	if ($form{'target'} eq "") { &error("エラー"); }

	($dir_year,$dir_month) = &findDir($form{'num'});
	if (open(F, "+< $base_dir$dir_year/$dir_month/$form{'num'}$ext")) {

		flock F, 2;

		while (<F>) {

			s/\n//g;
			if (/(cm|tb):$form{'target'}\t/) { $cmtb = $1; next; }
			push(@new,"$_\n");
		}

		eval 'truncate F,0;'; # truncate()が使えないサーバでは致命的なエラーとなる
		seek(F,0,0);

		print F @new;
		close(F);
	}

	if ($cmtb eq "cm") { &rotation('comment','',$form{'target'}); } # 最新リストから対象コメントを削除
	if ($cmtb eq "tb") { &rotation('trackback','',$form{'target'}); } # 最新リストから対象トラックバックを削除

	&ModFile($form{'num'});

	undef %key;
	$make_index = 1;
	$view_blog_month = $form{'num'};
}

##
#### ■表示＆インデックス再構成
##

sub makeBlog {

local($ThisMonth) = @_;
local($log);
$html = "";

if ($form{'day'} != 0) { $target_day = sprintf("%02d",$form{'day'}); }

if ($target_day && $ThisMonth =~ /^(\d\d\d\d)(\d\d)$/) { $view_home = 1; } # 日付指定
elsif ($ThisMonth =~ /^(\d\d\d\d)(\d\d)$/) { $target_day = ""; $view_home = 1; $kako_log = 1; } # 月指定
else { $ThisMonth = ""; } # インデックス

if (open(f,$base)) { @template = <f>; close(f); } # テンプレート読み込み
foreach $line (@template) {

	$log = $line;

	# メタ制御挿入
	if ($line =~ /<head>/i) {

		$line =~ s/<head>/<head>\n$meta/i; # 動的表示用
	}

	# ブラウザタイトル挿入
	if ($line =~ /<!--\[title\]-->/i) {

		$line =~ s/<!--\[title\]-->/$blog_title  /i;
	}

	if ($line =~ /<!--\[rss\]-->/i) {

		$line =~ s/<!--\[rss\]-->/<a class=\"$style_rss\" href=\"$index_rdf\">$RSS_link<\/a>$reMake/i;
	}

	if ($line =~ /<!--\[qr\]-->/i && $keitai_url) {

		$QR_url = $reload . "?k";
		$QR_url =~ tr/ /+/;
		$QR_url =~ s/([^0-9A-Za-z_])/"%" . unpack("H2",$1)/ge;

		$QR = "&nbsp;&nbsp;&nbsp;<a href=\"mailto:?subject=URL&body=$QR_url\" class=\"right\">URLを携帯に送る</a>\n";
		if ($qr_image) {

			# QRコード生成 (QRコードは株式会社デンソーウェーブの登録商標です)
			$QR .= "<br><iframe src=\"$qr_img" . "perl/qr_img.cgi?d=$QR_url&t=H\" width=$qr_width height=$qr_height hspace=0 vspace=0 frameborder=0></iframe>\n";
		}

		$line =~ s/<!--\[qr\]-->/$QR/i;
	}

	if ($line =~ /<!--\[counter\]-->/i && $counter ne "") {

		if ($ADMIN) { $counter .= "<p><a href=\"$reload\?cmd=analyze\" target=_blank class=right>アクセス解析</a><p>"; }

		$line =~ s/<!--\[counter\]-->/$counter/i;
	}

	if (!$ThisMonth) { # インデックス用（最新$maxLog分）

		&getAllFiles(1); # $maxLog分のみ取得=1を与える
		@blog2 = @all;

		$x = sprintf("%04d%02d",$year,$month); # カレンダー用に当月のブログ調査
		($dir_year,$dir_month) = &findDir($x);
		if (opendir(d,"$base_dir$dir_year/$dir_month")) {

			@x = readdir(d);
			close(d);

			%blog = ();
			foreach $file (@x) {

				next if $file eq '.';
				next if $file eq '..';

				if ($file =~ /^(\d{4}\d{2}\d{2})\d{6}$ext/) { $blog{$1}++; } # その日の記事件数の調査(カレンダー用)
			}
		}
	}
	else {
		($dir_year,$dir_month) = &findDir($ThisMonth);
		if (opendir(d,"$base_dir$dir_year/$dir_month")) {

			@d = readdir(d);
			close(d);
		}
		else { @d = (); }

		@blog2 = (); %blog = ();
		foreach $file (reverse sort @d) {

			next if $file eq '.';
			next if $file eq '..';

			if ($target_day && $file =~ /^($ThisMonth$target_day\d+)$ext/) { push(@blog2,$1); }
			if (!$target_day && $file =~ /^($ThisMonth\d+)$ext/) { push(@blog2,$1); }
			if ($file =~ /^(\d{4}\d{2}\d{2})\d{6}$ext/) { $blog{$1}++; } # その日の記事件数の調査(カレンダー用)
		}
	}

	# ブログ内容
	if ($line =~ /<!--\[blog\]-->/) {

		if ($ADMIN) {

			$line .= "<form action=$reload method=post><input type=hidden name=\"cmd\" value=\"moddel\">\n";
			$line .= "<input type=hidden name=\"year\" value=\"$form{'year'}\">\n<input type=hidden name=\"month\" value=\"$form{'month'}\">\n<input type=hidden name=\"day\" value=\"$form{'day'}\">\n";
		}

		$log .= "<!--[log_head]-->"; # ログ・月名の挿入位置

		@RFD_URL = @REF_DATE = @RFD_TITLE = @RFD_WRITER = @RFD_DES = ();

		foreach $b (reverse sort @blog2) {

			$log = "";

			if (! &getBlog($b) ) { next; }
			($dir_year,$dir_month) = &findDir($b);

			$Title = $key{'title'};
			$Title =~ s/\n//g;
			$Title =~ s/&lt;/</g;
			$Title =~ s/&gt;/>/g;

			if ($Title eq "") { $Title = "(題名なし)"; }
			elsif (length($Title) > 60) { $Title = &z_substr($Title,0,60) . ' ..'; }

			$Title =~ s/</&lt;/g;
			$Title =~ s/>/&gt;/g;

			$excerpt = $key{'body'};
			$excerpt =~ s/\n//g;

$excerpt =~ s{
<
[^<>]*
>
}{}xsg;

			if (length($excerpt) > 252) { $excerpt = &z_substr($excerpt,0,252) . ' ..'; }

			$excerpt =~ s/&/&amp;/g;
			$excerpt =~ s/</&lt;/g;
			$excerpt =~ s/>/&gt;/g;

			$Writer = $key{'writer'};
			$Writer =~ s/\n//g;
			$Writer =~ s/&lt;/</g;
			$Writer =~ s/&gt;/>/g;

$Writer =~ s{
<
[^<>]*
>
}{}xsg;

			push(@RFD_URL,"$reload/permalink/$b"); # index.ref用
			push(@REF_DATE,&getTime_forRDF($key{'date'}));
			push(@RFD_TITLE,$Title);
			push(@RFD_WRITER,$Writer);
			push(@RFD_DES,$excerpt);

$rdf = <<"EOF"; # トラックバック Ping URL の自動検知
<!--
<rdf:RDF xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#"
         xmlns:trackback="http://madskills.com/public/xml/rss/module/trackback/"
         xmlns:dc="http://purl.org/dc/elements/1.1/">
<rdf:Description
    rdf:about="$reload/permalink/$b"
    trackback:ping="$reload/$b"
    dc:title="$Title  "
    dc:identifier="$reload/permalink/$b"
    dc:description="$excerpt  "
</rdf:RDF>
-->
EOF
			$tb = 0; foreach (split("\0",$key{'tb'})) { $tb++; }
			$cm = 0; foreach (split("\0",$key{'cm'})) { $cm++; }

			$DATE = &getTime($key{'date'});
			$BODY = $key{'body'};

			if ($use_save) {

				$BODY_tmp = $BODY;

				$BODY_tmp =~ s/<br>/\r/ig;
$BODY_tmp =~ s{
<
[^<>]*
>
}{}xsg;
				if (length($BODY_tmp) > $save_bytes) { $BODY = &z_substr($BODY_tmp,0,$save_bytes) . ' ..' . "<p><a class=mid href=\"$reload/permalink/$b\" title=\"more\">続きを読む</a>"; }
				$BODY =~ s/\r/<br>\n/ig;
			}
			else { $BODY =~ s/<br>/<br>\n/g; }

			$blog = "\n$rdf\n$point1$key{'title'} $point2\n";
			if ($plog_list) { $blog_t = "\n$point1<a class=mid href=\"$reload/permalink/$b\" title=\"permalink\">$key{'title'}  </a>$point2\n<div align=right><font size=-2>$DATE"; }

			$blog .= "$point3$BODY $point4\n";
			if ($key{'writer'} ne "") { $writer = "by $key{'writer'} &brvbar; "; } else { $writer = ""; }
			$blog .= "$hr2\n<div align=right><font size=-2>$writer$DATE &brvbar; <a class=mid href=\"$reload/permalink/$b\" title=\"permalink\">固定リンク</a>";
			if ($key{'comment'} == 1) { $blog .= " &brvbar; <a class=mid href=\"$reload/permalink/$b#comments\">コメント($cm)</a>"; }
			if ($key{'trackback'} == 1) { $blog .= " &brvbar; <a class=mid href=\"$reload/permalink/$b#trackback\">トラックバック($tb)</a>"; }

			if ($kako_log && $plog_list) { $line .= $log; }
			else { $line .= $blog; }

			if ($plog_list) { $log .= $blog_t; }
			else { $log .= $blog; }

			if ($ADMIN && !$kako_log) {

				$line .= "<p><div align=right><input type=submit name=\";mod;$b;\" value=\"修正\" onClick=\"alert('内容をフォームに読み込みます。\\n送信すると書き変わります。')\">\n";
				$line .= "<input type=submit name=\";del;$b;\" value=\"削除\" onClick=\"f=confirm('削除しますか？');return f\"></div>\n";
			}

			$blog = "</font></div><br><br>\n";

			if ($kako_log && $plog_list) { $line .= $log; }
			else { $line .= $blog; }

			if ($plog_list) { $log .= "</font></div><br>\n"; }
			else { $log .= $blog; }
		}

		if ($ADMIN) {
			$line .= "</form>\n";
		}
	}

	# 最新の記事
	if ($line =~ /<!--\[article\]-->/) {

		$file = $base_dir . 'kiji' . $ext;

		$KIJI = "";
		if (open(f,$file)) {

			while (<f>) {

				s/\n//g;
				s/<table cellpadding=5 cellspacing=0><tr><td><small>//g; # 旧バージョンのフォーマット変換
				s/<\/small><\/td><\/tr><\/table>//g; # 旧バージョンのフォーマット変換
				s/$base_url\d{4}\/\d{2}\/(\d{14})$ssi/$reload\/permalink\/$1/g; # 旧バージョンのフォーマット変換
				$KIJI .= "<small>$_</small><p>\n";
			}
			close(f);

			$line =~ s/<!--\[article\]-->/__article__/;
		}

		$url = $base_dir . "kiji$ext";
	}

	# 最新のコメント
	if ($line =~ /<!--\[comment\]-->/) {

		$file = $base_dir . 'comment' . $ext;

		$COMM = "";
		if (open(f,$file)) {

			while (<f>) {

				s/\n//g;
				s/<table cellpadding=5 cellspacing=0><tr><td><small>//g; # 旧バージョンのフォーマット変換
				s/<\/small><\/td><\/tr><\/table>//g; # 旧バージョンのフォーマット変換
				s/<\/a> \( /<\/a> on /g; # 旧バージョンのフォーマット変換
				s/<\/a>\)/<\/a>/g; # 旧バージョンのフォーマット変換

				s/$base_url\d{4}\/\d{2}\/(\d{14})$ssi/$reload\/permalink\/$1/g;
				$COMM .= "<small>$_</small><p>\n";
			}
			close(f);

			$line =~ s/<!--\[comment\]-->/__comment__/;
		}

		$url = $base_dir . "comment$ext";
	}

	# 最新のトラックバック
	if ($line =~ /<!--\[trackback\]-->/) {

		$file = $base_dir . 'trackback' . $ext;

		$TRACKB = "";
		if (open(f,$file)) {

			while (<f>) {

				s/<table cellpadding=5 cellspacing=0><tr><td><small>//g; # 旧バージョンのフォーマット変換
				s/<\/small><\/td><\/tr><\/table>//g; # 旧バージョンのフォーマット変換
				s/$base_url\d{4}\/\d{2}\/(\d{14})$ssi/$reload\/permalink\/$1/g;
				$TRACKB .= "<small>$_</small><p>\n";
			}
			close(f);

			$line =~ s/<!--\[trackback\]-->/__trackback__/;
		}

		$url = $base_dir . "trackback$ext";
	}

	# カレンダー
	if ($line =~ /<!--\[calendar\]-->/) {

		if ($form{'year'} ne "" && $form{'month'} ne "") {

			if (($form{'year'} < $year - 10 || $form{'year'} > $year + 1) || ($form{'month'} < 1 || $form{'month'} > 12)) { $ret = &calendar($year,$month); }
			else { $ret = &calendar($form{'year'},$form{'month'}); }
		}
		else { $ret = &calendar($year,$month); }

		$line =~ s/<!--\[calendar\]-->/$ret/;
	}

	# 過去ログ
	if ($line =~ /<!--\[pastlog\]-->/) {

		&getAllFiles();
		foreach $file (@all) {

			if ($file =~ /^(\d\d\d\d\d\d)(\d\d)(\d\d\d\d\d\d)$ext/) { $list{$1} = 1; }
		}

		$ret = "<tt>";

		foreach $key (reverse sort keys %list) {

			if ($key =~ /^(\d\d\d\d)(\d\d)$/) {

				$y = $1; $m = $m2 = $2;
				$m2 =~ s/0(\d)/&nbsp;$1/; #$m2 =~ s/0/&nbsp;/;
				$monthList = "$y年$m2月";
			}
			else { next; }

			$ret .= "<a href=\"$reload\?year=$y&month=$m\" class=\"$style_pastlog\">$monthList</a><br>\n";
		}

		$ret .= "</tt>\n";

		$line =~ s/<!--\[pastlog\]-->/$ret/;
	}

	# ログイン/ログアウト
	if ($line =~ /<!--\[login\]-->/) {

$login_form = <<"EOF";
<form action=$reload method=post><input type=hidden name=cmd value=login>
<div align=center>ログイン <input type=password size=5 name=key><br>
<input type=checkbox name=cookie value=1 checked>保存
<input type=submit value="送信" style="font-weight: bold;"></div></form>
EOF
		if ($ADMIN) {

			$line =~ s/<!--\[login\]-->/<a class=right href=$reload\?cmd=logout><b>ログアウト<\/b><\/a><br>\n<a class=right href=$reload\?cmd=maintenance><font size=-1>メンテナンス<\/font><\/a><p>\n/;
		}
		else {
			$line =~ s/<!--\[login\]-->/$login_form/;
		}
	}

	# 書き込みフォーム
	if ($line =~ /<!--\[write\]-->/) {

		if ($view_home) {

			if ($ThisMonth =~ /^(\d\d\d\d)(\d\d)$/) { $y = $1; $m = $2; $m =~ s/0(\d)/&nbsp;$1/; $vd = "$y年$m月"; }
			if ($form{'day'} != 0) { $vd .= "$form{'day'}日"; }

			$write_form = "<div align=right><a class=mid href=\"$reload\"><b>トップページ</b><\/a><\/div><font color=$cmfont><b>$vd</b></font><p>\n";
		}
		else { $write_form = ""; }

		if ($ADMIN) {

			if ($moddel{'mod'}) {

				$censel = "<input type=button value=\"キャンセル\" onClick='window.location.href=\"$reload?year=$form{'year'}&month=$form{'month'}\"' tabindex=5>\n";

				@tb_hist = split("\0",$key{'tburl'});
				$tb_hist = @tb_hist;

				if ($key{'tburl'}) { $tb_hist_link = "<font size=-2><a class=mid href=\"$reload\?cmd=tb_hist&blog=$moddel{'mod'}\" target=\"hist\" onClick=\"openWin(500,200,'hist')\">トラックバック送信履歴($tb_hist)</a></font>"; }
				else { $tb_hist_link = "<font size=-2 color=$cmfont>トラックバック送信履歴(0)</font>"; }
			}
			else {
				undef %key;
				$selected_comment{'1'} = " checked";
				$selected_trackback{'1'} = " checked";
			}

			if (!$view_home || $moddel{'mod'}) {

$key{'title'} =~ s/"/&quot;/g;
$key{'writer'} =~ s/"/&quot;/g;
$key{'body'} =~ s/"/&quot;/g;

$write_form .= <<"EOF";
<script type="text/javascript">
<!--
var canDo = 0;
if (document.selection) canDo = 1;
var ua = navigator.userAgent;
if (ua.indexOf('Gecko') >= 0 && ua.indexOf('Safari') < 0 && ua.indexOf('Firefox') < 0) canDo = 1;

function Tag(f) {
    if (!canDo) return;
    var str = document.selection.createRange().text;
    if (!str) return;
    document.selection.createRange().text = '<' + f + '>' + str + '</' + f + '>';
}

function link() {
    if (!canDo) return;
    var str = document.selection.createRange().text;
    if (!str) return;
    var url = "http://";
    var targt = prompt('URL: ',url);
    if (targt != null) document.selection.createRange().text = '<a class=mid href="' + targt + '" target="_blank">' + str + '</a>';
}

function kakunin(yoko,tate,mode) {
   str1 = document.Form.title.value;
   str2 = document.Form.body.value;
   for (i=0; document.Form.comment[i]; i++) {
     if (document.Form.comment[i].checked) {
       str3 = document.Form.comment[i].value;
       break;
     }
   }
   for (i=0; document.Form.trackback[i]; i++) {
     if (document.Form.trackback[i].checked) {
       str4 = document.Form.trackback[i].value;
       break;
     }
   }
   str5 = document.Form.writer.value;
   if (!str1 || !str2) { alert('タイトルまたは内容が書かれていません.'); return; }
   if (mode == 'check') {
     Val = "location=no,status=yes,toolbar=no,menubar=no,scrollbars=yes,resizable=yes,width=" + yoko + ",height=" + tate;
     win = window.open("","Kakunin",Val);
     document.Kakunin.title.value = str1;
     document.Kakunin.body.value = str2;
     document.Kakunin.comment.value = str3;
     document.Kakunin.trackback.value = str4;
     document.Kakunin.writer.value = str5;
     document.Kakunin.submit();
   }
   else { document.Form.submit(); }
}

function openWin(yoko,tate,targ) {
   Val = "location=no,status=yes,toolbar=no,menubar=yes,scrollbars=yes,resizable=yes,width=" + yoko + ",height=" + tate;
   win = window.open("",targ,Val);
}
// -->
</script>

<form action=$reload method=post name=Kakunin target=Kakunin>
<input type=hidden name=cmd value=check>
<input type=hidden name=title>
<input type=hidden name=writer>
<input type=hidden name=body>
<input type=hidden name=comment>
<input type=hidden name=trackback>
</form>

<form action=$reload method=post name=Form>
<input type=hidden name=cmd value=write>
<input type=hidden name=mod value="$moddel{'mod'}">

<small><font color=$cmfont>タイトル</font></small> <input type=text name=title size=40 maxlength=255 tabindex=1 value="$key{'title'}" style="font-family:'ＭＳ Ｐゴシック',Osaka,'ヒラギノ明朝 Pro W6','trebuchet MS',trebuchet,'verdana',arial,sans-serif;width:80%"><br>
<small><font color=$cmfont>ライター</font></small>
<input type=text name=writer size=20 maxlength=40 value="$key{'writer'}" style="font-family:'ＭＳ Ｐゴシック',Osaka,'ヒラギノ明朝 Pro W6','trebuchet MS',trebuchet,'verdana',arial,sans-serif;width:30%"><small><font color=$cmfont>（任意）</font></small><br>

<table width="100%">
<tr><td align=right>
<script type="text/javascript">
<!--
if (canDo) {
	with (document) {
	write('<a class=mid href=# onClick="Tag(\\'b\\'); return false;"><small>太字</small></a> ');
	write('<a class=mid href=# onClick="Tag(\\'i\\'); return false;"><small>斜体</small></a> ');
	write('<a class=mid href=# onClick="Tag(\\'u\\'); return false;"><small>下線</small></a> ');
	write('<a class=mid href=# onClick="link(); return false;"><small>リンク</small></a>');
	}
}
// -->
</script>
<a class=mid href=$reload\?cmd=upform onClick="openWin(400,300,'img')" target="img"><small>画像</small></a>
</td></tr>
<tr><td><textarea name=body cols=50 rows=10 style="font-family:'ＭＳ Ｐゴシック',Osaka,'ヒラギノ明朝 Pro W6','trebuchet MS',trebuchet,'verdana',arial,sans-serif;width:100%" wrap=soft tabindex=2>$key{'body'}</textarea></td></tr></table>
<table>
<tr>
<td><small><font color=$cmfont>コメント</font></small></td>
<td><input type=radio name=comment value=1$selected_comment{'1'}><small><font color=$cmfont>受け付ける</font></small></td>
<td><input type=radio name=comment value=0$selected_comment{'0'}><small><font color=$cmfont>受け付けない</font></small></td>
</tr>
<tr>
<td><small><font color=$cmfont>トラックバック</font></td>
<td><input type=radio name=trackback value=1$selected_trackback{'1'}><small><font color=$cmfont>受け付ける</font></small></td>
<td><input type=radio name=trackback value=0$selected_trackback{'0'}><small><font color=$cmfont>受け付けない</font></small></td>
</tr>
</table>
EOF

if (!$no_trackback) {

$write_form .= <<"EOF";
<table width="100%">
<tr>
<td><small><font color=$cmfont>トラックバック先のURL（任意）</font></small></td>
<td align=right>$tb_hist_link</td>
</tr>
<tr>
<td colspan=2><textarea name=ping cols=50 rows=5 style="width:100%;height:50px" wrap=soft style="ime-mode: disabled"></textarea></td>
</tr>
</table>
<p>
EOF

}
else { $write_form .= "<small><font color=$cmfont>※トラックバックの送信は出来ません. 送信するには Net::Trackback モジュールが必要です.</font></small><p>\n"; }

eval 'use Time::Local;';
if (!$moddel{'mod'} && !$@) {

	$now_date = sprintf("%04d%02d%02d%02d%02d%02d",$year,$mon +1,$mday,$hour,$min,$sec);

	if ($now_date =~ /^(\d{4})(\d{2})(\d{2})(\d{2})(\d{2})(\d{2})$/) {

		$z1 = $1; $z2 = $2; $z3 = $3; $z4 = $4; $z5 = $5; $z6 = $6;

		$write_form .= "<select name=\"z1\" size=1>\n";
		foreach $i ($z1 - 3 .. $year) {

			if ($i eq $z1) { $selected = " selected"; } else { $selected = ""; }
			$write_form .= "<option value=\"$i\"$selected>$i</option>\n";
		}
		$write_form .= "</select><font color=$cmfont>年</font>\n";

		$write_form .= "<select name=\"z2\" size=1>\n";
		foreach $i (1 .. 12) {

			$i2 = $i;
			$i = sprintf("%02d",$i);

			if ($i eq $z2) { $selected = " selected"; } else { $selected = ""; }
			$write_form .= "<option value=\"$i\"$selected>$i2</option>\n";
		}
		$write_form .= "</select><font color=$cmfont>月</font>\n";

		$write_form .= "<select name=\"z3\" size=1>\n";
		foreach $i (1 .. 31) {

			$i2 = $i;
			$i = sprintf("%02d",$i);

			if ($i eq $z3) { $selected = " selected"; } else { $selected = ""; }
			$write_form .= "<option value=\"$i\"$selected>$i2</option>\n";
		}
		$write_form .= "</select><font color=$cmfont>日</font>\n";

		$write_form .= "<select name=\"z4\" size=1>\n";
		foreach $i (0 .. 23) {

			$i2 = $i;
			$i = sprintf("%02d",$i);

			if ($i eq $z4) { $selected = " selected"; } else { $selected = ""; }
			$write_form .= "<option value=\"$i\"$selected>$i2</option>\n";
		}
		$write_form .= "</select><font color=$cmfont>時</font>\n";

		$write_form .= "<select name=\"z5\" size=1>\n";
		foreach $i (0 .. 59) {

			$i2 = $i;
			$i = sprintf("%02d",$i);

			if ($i eq $z5) { $selected = " selected"; } else { $selected = ""; }
			$write_form .= "<option value=\"$i\"$selected>$i2</option>\n";
		}
		$write_form .= "</select><font color=$cmfont>分</font>\n";

		$write_form .= "<select name=\"z6\" size=1>\n";
		foreach $i (0 .. 59) {

			$i2 = $i;
			$i = sprintf("%02d",$i);

			if ($i eq $z6) { $selected = " selected"; } else { $selected = ""; }
			$write_form .= "<option value=\"$i\"$selected>$i2</option>\n";
		}
		$write_form .= "</select><font color=$cmfont>秒</font><p>\n";
	}
}

$write_form .= <<"EOF";
<input type=button value="確認" onClick='kakunin(800,500,"check")' tabindex=3>
<input type=button value="送信" style="font-weight: bold;" onClick='kakunin(800,500,"write")' tabindex=4>
$censel</form><br>
EOF
			}
		}
		else {

$html .= <<"EOF";
<script type="text/javascript">
<!--
function openWin(yoko,tate,targ) {
   Val = "location=no,status=yes,toolbar=no,menubar=yes,scrollbars=yes,resizable=yes,width=" + yoko + ",height=" + tate;
   win = window.open("",targ,Val);
}
// -->
</script>
EOF
		}

		$line =~ s/<!--\[write\]-->/$write_form/;
	}

	if ($line =~ /<!--#.*-->/) { $line =~ s/<!--#.*-->/"SSI実行はインデックスのみ"/g; }
	if ($line =~ /<!--.*-->/) { $line =~ s/<!--.*-->//g; }

	$html .= $line;
}

if ($html =~ /<\/body>/i) { $html =~ s/<\/body>/$copyright\n<\/body>/i; }

if ($make_index) { &MakeIndex(); }# インデックスRDFを生成する

if ($no_disp) { return; }

if ($ADMIN && $moddel{'del'}) {

	if ($moddel{'del'} =~ /^(\d\d\d\d)(\d\d)/) { $dir_year = $1; $dir_month = $2; }
	print "Location: $reload\?year=$dir_year&month=$dir_month\n\n";
}
elsif (($ADMIN && $form{'cmd'} eq 'del') || $form{'cmd'} eq 'write2') {

	if ($form{'num'} =~ /^(\d\d\d\d)(\d\d)/) { $dir_year = $1; $dir_month = $2; }
	print "Location: $reload/permalink/$form{'num'}#$form{'mode'}\n\n";
}
elsif ($ADMIN && $form{'mod'}) {

	if ($blogFileName =~ /^(\d\d\d\d)(\d\d)/) { $dir_year = $1; $dir_month = $2; }
	print "Location: $reload/permalink/$blogFileName\n\n";
}
elsif ($ADMIN && $form{'cmd'} eq 'write') {

	print "Location: $reload\n\n";
}
elsif ($form{'cmd'} eq 'logout') {

	print "Location: $reload\n\n";
}
else {
	Jcode::convert( \$html,'utf8' );

	$html =~ s/__article__/$KIJI/;
	$html =~ s/__comment__/$COMM/;
	$html =~ s/__trackback__/$TRACKB/;

	print "Content-type: text/html; charset=utf-8\n\n";
	print $html;
}

}

##
#### ■インデックス作成
##

sub MakeIndex {

	$make_log = 0;
	$make_index = 0;

	&makeBlog();
	$no_disp = 1;

$rdf = <<"EOF"; # トラックバック Ping URL の自動検知
<?xml version="1.0" encoding="utf-8"?>

<rdf:RDF xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#"
  xmlns:dc="http://purl.org/dc/elements/1.1/"
  xmlns:sy="http://purl.org/rss/1.0/modules/syndication/"
  xmlns:admin="http://webns.net/mvcb/"
  xmlns:content="http://purl.org/rss/1.0/modules/content/"
  xmlns:cc="http://web.resource.org/cc/"
  xmlns="http://purl.org/rss/1.0/">

<channel rdf:about="$reload">
<title>$blog_title  </title>
<link>$reload</link>
<description>$blog_title  </description>
<dc:language>ja</dc:language>
<dc:creator />
<dc:date>$REF_DATE[0]</dc:date>
<admin:generatorAgent rdf:resource="http://www.rescue.ne.jp/" />
EOF
	$rdf .= "<items>\n<rdf:Seq>";
	foreach (@RFD_URL) { $rdf .= "<rdf:li rdf:resource=\"$_\" />\n"; }

$rdf .= <<"EOF";
</rdf:Seq>
</items>
</channel>
EOF

	foreach $n (0..$#RFD_URL) {

$rdf .= <<"EOF";
<item rdf:about="$RFD_URL[$n]">
<title>$RFD_TITLE[$n]  </title>
<link>$RFD_URL[$n]</link>
<description>$RFD_DES[$n]  </description>
<dc:creator>$RFD_WRITER[$n]</dc:creator>
<dc:date>$REF_DATE[$n]</dc:date>
</item>
EOF
	}

	$rdf .= "</rdf:RDF>\n";

	Jcode::convert( \$rdf,'utf8' );

	if (!open(f,"> $index_rdf")) { &error($!,'インデックスRDFファイルが無いか、パーミッションが読み書き可能な状態に設定されていません.'); }
	print f $rdf;
	close(f);
}

##
#### ■プレビュー
##

sub preView {

	$form{'body'} =~ s/&lt;/</g;
	$form{'body'} =~ s/&gt;/>/g;
	$form{'body'} =~ s/&amp;/&/g;
	$form{'body'} =~ s/\n/<br>\n/g;

$js = <<"EOF";
<SCRIPT language="JavaScript">
<!--
var exit=true;
function xit() { if (exit) { window.focus(); } }
function OpenER() {
  if (opener.closed) { alert('メインウィンドウが閉じられています'); }
  else { opener.Form.submit(); window.close(); }
}
function openWin(yoko,tate,targ) {
   Val = "location=no,status=yes,toolbar=no,menubar=yes,scrollbars=yes,resizable=yes,width=" + yoko + ",height=" + tate;
   win = window.open("",targ,Val);
}
//-->
</SCRIPT>
EOF
	if (open(f,$base)) { @template = <f>; close(f); } # テンプレート読み込み
	foreach $line (@template) {

		if ($line =~ /<head>/i) { $line =~ s/<head>/<head>\n$meta/i; }
		if ($line =~ /<\/head>/i) { $line =~ s/<\/head>/$js<\/head>/i; }
		if ($line =~ /<body/i) { $line =~ s/<body/<body onUnload="xit()"/i; }

		# ブログ
		if ($line =~ /<!--\[blog\]-->/) {

			$blog = "$point1$form{'title'} $point2\n";
			$blog .= "$point3$form{'body'}$point4\n";
			$blog .= "$hr2\n<div align=right><font size=-2>";
			if ($form{'writer'} ne "") { $blog .= "by $form{'writer'} "; }
			$blog .= "DATE &brvbar; 固定リンク";

			if ($form{'comment'} == 1) { $blog .= " &brvbar; <u>コメント</u>"; }
			if ($form{'trackback'} == 1) { $blog .= " &brvbar; <u>トラックバック</u>"; }
			$blog .= "</font></div>\n";
			$line =~ s/<!--\[blog\]-->/$blog/;
		}

		if ($line =~ /<\/body>/) { $line =~ s/<\/body>/<div align=center><form><input type=button onClick='JavaScript:window.close()' value='訂正'> <input type=button onClick='OpenER()' value='送信' style="font-weight: bold;"><\/form><\/div><p>\n<\/body>/; }
		if ($line =~ /<!--.*-->/) { $line =~ s/<!--.*-->//g; }

		$html .= $line;
	}

	Jcode::convert( \$html,'utf8' );

	print "Content-type: text/html; charset=utf-8\n\n";
	print $html;
	exit;
}

##
#### ■プレビュー（コメント）
##

sub preView2 {

	$form{'body'} =~ s/\n/<br>\n/g;

$js = <<"EOF";
<SCRIPT language="JavaScript">
<!--
var exit=true;
function xit() { if (exit) { window.focus(); } }
function OpenER() {
  if (opener.closed) { alert('メインウィンドウが閉じられています'); }
  else { opener.Form.submit(); window.close(); }
}
//-->
</SCRIPT>
EOF
	if (open(f,$base)) { @template = <f>; close(f); } # テンプレート読み込み
	foreach $line (@template) {

		if ($line =~ /<head>/i) { $line =~ s/<head>/<head>\n$meta/i; }
		if ($line =~ /<\/head>/i) { $line =~ s/<\/head>/$js<\/head>/i; }
		if ($line =~ /<body/i) { $line =~ s/<body/<body onUnload="xit()"/i; }

		# ブログ
		if ($line =~ /<!--\[blog\]-->/) {

			$form{'uname'} =~ s/\n//g;
			if ($form{'uname'} eq "") { $form{'uname'} = "(名前なし)"; }

			if ($form{'url'}) { $form{'url'} = " <a class=mid href=\"$form{'url'}\" target=\"_blank\">$form{'uname'} </a>"; }
			else { $form{'url'} = $form{'uname'}; }

			$blog = "<h3>$pinコメント</h3>\n";
			$blog .= "$form{'body'}<br>\n";
			$blog .= "<div align=right>$hr2<font size=-2>名前: $form{'url'} &brvbar; DATE";
			$blog .= "</font></div><p>\n";
			$line =~ s/<!--\[blog\]-->/$blog/;
		}

		if ($line =~ /<\/body>/) { $line =~ s/<\/body>/<div align=center><form><input type=button onClick='JavaScript:window.close()' value='訂正'> <input type=button onClick='OpenER()' value='送信' style="font-weight: bold;"><\/form><\/div><p>\n<\/body>/; }
		if ($line =~ /<!--.*-->/) { $line =~ s/<!--.*-->//g; }

		$html .= $line;
	}

	Jcode::convert( \$html,'utf8' );

	print "Content-type: text/html; charset=utf-8\n\n";
	print $html;
	exit;
}

##
#### ■トラックバック送信履歴
##

sub tb_hist {

&getBlog($form{'blog'});

$html = <<"EOF";
<HTML><HEAD>
<TITLE>トラックバック送信履歴</TITLE>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
</HEAD>
<body>
<table cellpadding=6 cellspacing=0 width=100%><tr><td bgcolor=gray><b><font color=white>トラックバック送信履歴</font></b></td></tr></table>
<p>
EOF

foreach $j (split("\0",$key{'tburl'})) {

	($senddate,$url) = split(/\t/,$j,2);
	$senddate = &getTime($senddate);
	$html .= "[$senddate]<br>$url<p>\n";
}

$html .= <<"EOF";
<a href="JavaScript:window.close()">閉じる</a>
</body></html>
EOF

Jcode::convert( \$html,'utf8' );

print "Content-type: text/html; charset=utf-8\n\n";
print $html;
exit;

}

##
#### ■投稿処理（データ記録）
##

sub Write {

	local($html);

	if ($form{'body'} eq "" || $form{'title'} eq "") { &error("タイトルまたは内容が書かれていません."); }

	$form{'title'} =~ s/\n//g;

	$Title = $form{'title'};
	if ($Title eq "") { $Title = "(題名なし)"; }
	elsif (length($Title) > 30) { $Title = &z_substr($Title,0,30) . ' ..'; }

	$form{'body'} =~ s/&lt;/</g;
	$form{'body'} =~ s/&gt;/>/g;
	$form{'body'} =~ s/&amp;/&/g;
	$form{'body'} =~ s/\n/<br>/g;

	if ($form{'mod'}) { # 修正

		$blogFileName = $form{'mod'};
		&getBlog($form{'mod'});
	}
	elsif ($form{'z1'}) {

		eval 'use Time::Local;';
		if (!$@) {

			$z6 = $form{'z6'};
			$z5 = $form{'z5'};
			$z4 = $form{'z4'};
			$z3 = $form{'z3'};
			$z2 = $form{'z2'} -1;
			$z1 = $form{'z1'} -1900;

			eval '$time = timelocal($z6,$z5,$z4,$z3,$z2,$z1);';
			if ($@) { &error("エラー","日付指定が間違っています。存在しない日付です。","- $@"); }

			$blogFileName = $form{'z1'} . $form{'z2'} . $form{'z3'} . $form{'z4'} . $form{'z5'} . $form{'z6'};
		}
		else { $blogFileName = sprintf("%04d%02d%02d%02d%02d%02d",$year,$mon +1,$mday,$hour,$min,$sec); }
	}
	else { $blogFileName = sprintf("%04d%02d%02d%02d%02d%02d",$year,$mon +1,$mday,$hour,$min,$sec); }

	$mkdir_check = 1; # フォルダが存在しない場合は作成する
	($dir_year,$dir_month) = &findDir($blogFileName);

	if (!$form{'mod'} && -e "$base_dir$dir_year/$dir_month/$blogFileName$ext") { &error("エラー","既に存在している記事と同じ時刻です。","１秒でも変えて新規投稿してください。"); }

	if (!open(f,"> $base_dir$dir_year/$dir_month/$blogFileName$ext")) { &error($!); }

	if ($form{'mod'}) { print f "date:$key{'date'}\n"; }
	else { print f "date:$time\n"; }

	print f "title:$form{'title'}\n";
	if ($form{'writer'} ne "") { print f "writer:$form{'writer'}\n"; }
	print f "body:$form{'body'}\n";
	print f "comment:$form{'comment'}\n";
	print f "trackback:$form{'trackback'}\n";
	print f "ip:$ENV{'REMOTE_ADDR'}\n";
	if ($form{'mod'}) {
		foreach (split("\0",$key{'tb'})) { print f "tb:$_\n"; }
		foreach (split("\0",$key{'cm'})) { print f "cm:$_\n"; }
		foreach (split("\0",$key{'tburl'})) { print f "tburl:$_\n"; }
	}
	close(f);
	chmod(0666,"$base_dir$dir_year/$dir_month/$blogFileName$ext");

	if ($form{'mod'}) { # 修正時

		&rotation('kiji',"<!--$blogFileName--><a class=\"$style_kiji\" href=\"$reload/permalink/$blogFileName\">$Title </a>",$blogFileName);

		if ($key{'cm'} && $key{'comment'} == 1 && $form{'comment'} == 0) { # コメント記録があり、コメント受付から受付しないに変更した時は最新の…から削除する

			foreach $j (split("\0",$key{'cm'})) {

				($key,$uname,$email,$url,$body,$ip) = split(/\t/,$j,6);
				&rotation('comment','',$key);
			}
		}

		if ($key{'tb'} && $key{'trackback'} == 1 && $form{'trackback'} == 0) {

			foreach $j (split("\0",$key{'tb'})) {

				($key,$blog_name,$title,$url,$excerpt) = split(/\t/,$j,5);
				&rotation('trackback','',$key);
			}
		}

		if ($key{'cm'} && ($key{'title'} ne $form{'title'})) { &saikin(1,$blogFileName,$form{'title'}); } # コメントがあり、題名の変更があった場合

		if ($key{'cm'} && $key{'comment'} == 0 && $form{'comment'} == 1) { &saikin(1,"",""); } # コメント記録があり、コメント受付しないから受付に変更した時は最新の…を更新
		if ($key{'tb'} && $key{'trackback'} == 0 && $form{'trackback'} == 1) { &saikin(1,"",""); }
	}
	else { &rotation('kiji',"<!--$blogFileName--><a class=\"$style_kiji\" href=\"$reload/permalink/$blogFileName\">$Title </a>",''); } # 最新の記事を更新

	if ($form{'ping'}) { &ping($blogFileName); }

	undef %key;
	$make_index = $make_log = 1;

	if ($blogFileName =~ /^(\d\d\d\d\d\d)(\d+)/) { $view_blog_month = $1; }
}

##
#### ■投稿処理（前後処理等）
##

sub ModFile {

	local($num) = @_;
	local($html,$mae,$ato) = "";

	if ($num =~ /^(\d{6})(\d{8})$/) { $permalink = 1; } # 固定リンク

	if (!$num) { return 0; }

	&getAllFiles();
	@blogs = reverse sort @all;

	foreach $i (0..$#blogs) {

		if ($blogs[$i] == $num) { $target = $i; last; } # 対象となるブログの順位を調査
	}

	if ($blogs[$target +1] && $#blogs != $target) { # 直前のブログHTMLの情報を取る

		if ( &getBlog($blogs[$target +1]) ) {

			if (length($key{'title'}) > 30) { $key{'title'} = &z_substr($key{'title'},0,30) . ' ..'; }
			($dir_year,$dir_month) = &findDir($blogs[$target +1]);
			$mae = "<!\0[$blogs[$target +1]]--><a class=mid href=\"$reload/permalink/$blogs[$target +1]\">≪ $key{'title'} </a> &nbsp;&brvbar; <!\0[/$blogs[$target +1]]-->";
		}
	}

	if ($blogs[$target -1] && $target > 0) { # 直後のブログHTMLの情報を取る

		if ( &getBlog($blogs[$target -1]) ) {

			if (length($key{'title'}) > 30) { $key{'title'} = &z_substr($key{'title'},0,30) . ' ..'; }
			($dir_year,$dir_month) = &findDir($blogs[$target -1]);
			$ato = "<!\0[$blogs[$target -1]]--> &brvbar; <a class=mid href=\"$reload/permalink/$blogs[$target -1]\">$key{'title'} ≫</a><!\0[/$blogs[$target -1]]-->";
		}
	}

	&getBlog($num);

	$Title = $key{'title'};
	$Title =~ s/\n//g;

$Title =~ s{
<
[^<>]*
>
}{}xsg;

	$Writer = $key{'writer'};
	$Writer =~ s/\n//g;
	$Writer =~ s/&lt;/</g;
	$Writer =~ s/&gt;/>/g;
	$Writer =~ s/"//g;

$Writer =~ s{
<
[^<>]*
>
}{}xsg;

	if ($Title eq "") { $Title = "(題名なし)"; }
	elsif (length($Title) > 30) { $Title = &z_substr($Title,0,30) . ' ..'; }

	$kiji{$num} = $Title; # 最近の記事の一覧用

	$cm = 0;
	foreach $j (split("\0",$key{'cm'})) {

		($key,$uname,$email,$url,$body,$ip) = split(/\t/,$j,6);
		$comm{$key} = "$uname\0$Title\0$num"; # 最近のコメントの一覧用

		$cm++;
	}

	$tb = 0;
	foreach $j (split("\0",$key{'tb'})) {

		($key,$blog_name,$title,$url,$exp) = split(/\t/,$j,5);
		$trackb{$key} = "$blog_name\0$url\0$title\0$num"; # 最近のトラックバックの一覧用

		$tb++;
	}

	$excerpt = $key{'body'};
	$excerpt =~ s/\n//g;
	$excerpt =~ s/&/&amp;/g;
	$excerpt =~ s/"/&quot;/g;

$excerpt =~ s{
<
[^<>]*
>
}{}xsg;

	if (length($excerpt) > 252) { $excerpt = &z_substr($excerpt,0,252) . ' ..'; }

	$date = &getTime_forRDF($key{'date'});

$rdf = <<"EOF"; # トラックバック Ping URL の自動検知
<!--
<rdf:RDF xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#"
         xmlns:trackback="http://madskills.com/public/xml/rss/module/trackback/"
         xmlns:dc="http://purl.org/dc/elements/1.1/">
<rdf:Description
    rdf:about="$reload/permalink/$num"
    trackback:ping="$reload/$num"
    dc:title="$Title  "
    dc:identifier="$reload/permalink/$num"
    dc:description="$excerpt  "
    dc:creator="$Writer"
    dc:date="$date" />
</rdf:RDF>
-->
EOF

	if (open(f,$base)) { @template = <f>; close(f); } # テンプレート読み込み
	foreach $line (@template) {

		if ($line =~ /<head>/i) { $line =~ s/<head>/<head>\n<meta name="generator" content="http:\/\/www.rescue.ne.jp\/">\n$meta$rdf/i; }
		if ($line =~ /<!--\[title\]-->/i) { $line =~ s/<!--\[title\]-->/$blog_title: $Title  /i; }
		if ($line =~ /<body/i && $key{'comment'} == 1) { $line =~ s/<body/<body onLoad="inputForm()"/i; }

		if ($line =~ /<!--\[qr\]-->/i && $keitai_url) {

			$QR_url = $reload . "/k/$num";
			$QR_url =~ tr/ /+/;
			$QR_url =~ s/([^0-9A-Za-z_])/"%" . unpack("H2",$1)/ge;

			$QR = "&nbsp;&nbsp;&nbsp;<a href=\"mailto:?subject=URL&body=$QR_url\" class=\"right\">URLを携帯に送る</a>\n";
			if ($qr_image) {

				# QRコード生成 (QRコードは株式会社デンソーウェーブの登録商標です)
				$QR .= "<a name=\"qr\"></a><br><iframe src=\"$qr_img" . "perl/qr_img.cgi?d=$QR_url&t=H\" width=$qr_width height=$qr_height hspace=0 vspace=0 frameborder=0></iframe>\n";
			}

			$line =~ s/<!--\[qr\]-->/$QR/i;
		}

		if ($line =~ /<!--\[blog\]-->/) {

			$DATE = &getTime($key{'date'});

			$blog = "<div align=right><small>$mae <a class=mid href=\"$reload\"><b>トップページ</b></a>$ato</small></div><br><br>\n";

			$blog .= "$point1$key{'title'} $point2\n";
			$blog .= "$point3$key{'body'}$point4\n";

			($dir_year,$dir_month) = &findDir($num);
			if ($key{'writer'} ne "") { $writer = "by $key{'writer'} &brvbar; "; } else { $writer = ""; }
			$blog .= "$hr2\n<div align=right><font size=-2>$writer$DATE &brvbar; <a class=mid href=\"$reload/permalink/$num\" title=\"permalink\">固定リンク</a>\n";
			if ($key{'comment'} == 1) { $blog .= " &brvbar; <a class=mid href=\"#comments\">コメント($cm)</a> &brvbar; <a class=mid href=\"#write\">コメントを書く</a>"; }
			if ($key{'trackback'} == 1) { $blog .= " &brvbar; <a class=mid href=\"#trackback\">トラックバック($tb)</a>"; }
			if ($keitai_url) { $blog .= " &brvbar; <a class=mid href=\"#qr\">携帯</a>"; }
			$blog .= "</font></div><br>\n";

			if ($ADMIN) {

				$blog .= "<form action=$reload method=post><input type=hidden name=\"cmd\" value=\"moddel\">\n";
				#$blog .= "<input type=hidden name=\"year\" value=\"$form{'year'}\">\n<input type=hidden name=\"month\" value=\"$form{'month'}\">\n<input type=hidden name=\"day\" value=\"$form{'day'}\">\n";
				$blog .= "<p><div align=right><input type=submit name=\";mod;$num;\" value=\"修正\" onClick=\"alert('内容をフォームに読み込みます。\\n送信すると書き変わります。')\">\n";
				$blog .= "<input type=submit name=\";del;$num;\" value=\"削除\" onClick=\"f=confirm('削除しますか？');return f\"></div></form>\n";
			}

			if ($key{'trackback'} == 1) {

				$blog .= "<a name=\"trackback\"></a><h3>$pinトラックバック</h3>\n";
				$blog .= "<font color=$cmfont>この記事へのトラックバックURL:<br>\n";
				$blog .= "$reload/$num</font><p>\n";

				foreach $j (split("\0",$key{'tb'})) {

					($key,$blog_name,$title,$url,$excerpt) = split(/\t/,$j,5);

					$date = &getTime($key);

					$blog .= "&raquo; <a class=mid href=\"$url\" target=\"_blank\">$title </a>[$blog_nameから]";
					$blog .= " <a class=mid href=\"$reload\?cmd=del&num=$num&target=$key&mode=trackback\" title=\"削除\">&#215;</a><br>";
					$blog .= "$excerpt <small>... <a class=mid href=\"$url\" target=\"_blank\">続きを読む</a></small>\n";
					$blog .= "$hr2<font size=-2>受信: $date</font><p>\n";
				}
			}

			if ($key{'comment'} == 1) {

$write_form = <<"EOF";
<script type="text/javascript">
<!--
function inputForm() {
   document.Form.uname.value = getCookie("uname");
   document.Form.email.value = getCookie("email");
   document.Form.url.value = getCookie("url");
}

function getCookie(key) // クッキー読み出し
{
  tmp = document.cookie+";";
  tmp1 = tmp.indexOf(key,0);
  if (tmp1 != -1) {
    tmp = tmp.substring(tmp1,tmp.length);
    start = tmp.indexOf("=",0) + 1;
    end = tmp.indexOf(";",start);
    test = tmp.indexOf(";",0);
    if (start < 1 || end != test) return("");
    return(unescape(tmp.substring(start,end)));
  }
  return("");
}

// uname=1; email=2; url=3;

function kakunin(yoko,tate,mode) {
   var str1 = document.Form.uname.value;
   var str2 = document.Form.email.value;
   var str3 = document.Form.url.value;
   var str4 = document.Form.body.value;
   if (!str1 || !str4) { alert('名前または内容が書かれていません.'); return; }
   if (mode == 'check') {
     Val = "location=no,status=yes,toolbar=no,menubar=no,scrollbars=yes,resizable=yes,width=" + yoko + ",height=" + tate;
     win = window.open("","Kakunin",Val);
     document.Kakunin.uname.value = str1;
     document.Kakunin.email.value = str2;
     document.Kakunin.url.value = str3;
     document.Kakunin.body.value = str4;
     document.Kakunin.submit();
   }
   else { document.Form.submit(); }
}

function openWin(yoko,tate,targ) {
   Val = "location=no,status=yes,toolbar=no,menubar=yes,scrollbars=yes,resizable=yes,width=" + yoko + ",height=" + tate;
   win = window.open("",targ,Val);
}
// -->
</script>

<form action=$reload method=post name=Kakunin target=Kakunin>
<input type=hidden name=cmd value=check2>
<input type=hidden name=uname>
<input type=hidden name=email>
<input type=hidden name=url>
<input type=hidden name=body>
</form>

<br>
<a name="write"></a><h3>$pinコメントを書く</h3>

<form action=$reload method=post name=Form>
<input type=hidden name=cmd value=write2>
<input type=hidden name=num value=$num>

<table width="100%"><tr><td>
<font color=$cmfont>
※（必須）名前：<br><input type=text name=uname size=30 maxlength=255 tabindex=1 style="font-family:'ヒラギノ明朝 Pro W6',Osaka,'ＭＳ Ｐゴシック','trebuchet MS',trebuchet,'verdana',arial,sans-serif;width:80%"><p>
メールアドレス(任意)：<br><input type=text name=email size=30 tabindex=2 style="ime-mode: disabled">&nbsp;&nbsp;&nbsp;&nbsp;<p>
URL(任意)：<br><input type=text name=url size=30 tabindex=3 style="ime-mode: disabled"><p>
<input type=checkbox name=cookie value=1> この情報を登録する<p>
※（必須）内容:<br><textarea name=body cols=50 rows=10 style="font-family:'ヒラギノ明朝 Pro W6',Osaka,'ＭＳ Ｐゴシック','trebuchet MS',trebuchet,'verdana',arial,sans-serif;width:100%" wrap=soft tabindex=4></textarea>
<p>
パスワード(任意)：<br><input type=text name=passwd size=15 maxlength=8 tabindex=5 style="ime-mode: disabled" title="８文字以内(削除する時に利用します)"><p>
EOF

if ($HumanCheck) {

	$write_form .= "※（必須）ヒューマンチェック(選択した計算結果を入力)：<br><select name=HC size=1>\n";

	foreach (1..5) {

		$i = int(rand(9)) . '+' . int(rand(9));
		$write_form .= "<option value=\"$i\">$i</option>\n";
	}

	$write_form .= "</select>＝<input type=text name=HC2 size=5 maxlength=2 tabindex=6 style=\"ime-mode: disabled\">\n";
}

$write_form .= <<"EOF";
</font>
<p>
<input type=button value="確認" onClick='kakunin(800,500,"check")' tabindex=7>
<input type=button value="送信" style="font-weight: bold;" onClick='kakunin(800,500,"write")' tabindex=8>
</td></tr></table>
</form>
EOF
				$blog .= "<a name=\"comments\"></a><h3>$pinコメント</h3>\n";

				foreach $j (split("\0",$key{'cm'})) {

					($key,$uname,$email,$url,$body,$ip) = split(/\t/,$j,6);

					$DATE = &getTime($key);

					$email =~ s/\@/&#64;/;

					$uname =~ s/\n//g;
					if ($uname eq "") { $uname = "(名前なし)"; }

					if ($url) { $url = "<a class=mid href=\"$url\" title=\"$email\" target=\"_blank\">$uname </a>"; }
					elsif ($email) { $url = "<a class=mid href=\"mailto:$email\">$uname </a>";}
					else { $url = $uname; }

					$blog .= "<a name=\"$key\"></a>$point3$body$point4\n";
					$blog .= "$hr2<font size=-2>名前: $url &brvbar; $DATE <a class=mid href=\"$reload\?cmd=del&num=$num&target=$key&mode=comments\" title=\"削除\">&#215;</a></font><p><br>\n";
				}

				$blog .= $write_form;

			}

			$line =~ s/<!--\[blog\]-->/$blog/;
		}

		# 最新の記事
		if ($line =~ /<!--\[article\]-->/) {

			$file = $base_dir . 'kiji' . $ext;

			$KIJI = "";
			if (open(f,$file)) {

				while (<f>) {

					s/\n//g;
					s/<table cellpadding=5 cellspacing=0><tr><td><small>//g; # 旧バージョンのフォーマット変換
					s/<\/small><\/td><\/tr><\/table>//g; # 旧バージョンのフォーマット変換
					s/$base_url\d{4}\/\d{2}\/(\d{14})$ssi/$reload\/permalink\/$1/;
					$KIJI .= "<small>$_</small><p>\n";
				}
				close(f);

				$line =~ s/<!--\[article\]-->/__article__/;
			}
		}

		# 最新のコメント
		if ($line =~ /<!--\[comment\]-->/) {

			$file = $base_dir . 'comment' . $ext;

			$COMM = "";
			if (open(f,$file)) {

				while (<f>) {

					s/\n//g;
					s/<table cellpadding=5 cellspacing=0><tr><td><small>//g; # 旧バージョンのフォーマット変換
					s/<\/small><\/td><\/tr><\/table>//g; # 旧バージョンのフォーマット変換
					s/<\/a> \( /<\/a> on /g; # 旧バージョンのフォーマット変換
					s/<\/a>\)/<\/a>/g; # 旧バージョンのフォーマット変換

					s/$base_url\d{4}\/\d{2}\/(\d{14})$ssi/$reload\/permalink\/$1/g;
					$COMM .= "<small>$_</small><p>\n";
				}
				close(f);

				$line =~ s/<!--\[comment\]-->/__comment__/;
			}
		}

		# 最新のトラックバック
		if ($line =~ /<!--\[trackback\]-->/) {

			$file = $base_dir . 'trackback' . $ext;

			$TRACKB = "";
			if (open(f,$file)) {

				while (<f>) {

					s/<table cellpadding=5 cellspacing=0><tr><td><small>//g; # 旧バージョンのフォーマット変換
					s/<\/small><\/td><\/tr><\/table>//g; # 旧バージョンのフォーマット変換
					s/$base_url\d{4}\/\d{2}\/(\d{14})$ssi/$reload\/permalink\/$1/g;
					$TRACKB .= "<small>$_</small><p>\n";
				}
				close(f);

				$line =~ s/<!--\[trackback\]-->/__trackback__/;
			}
		}

		# カレンダー
		if ($line =~ /<!--\[calendar\]-->/) {

			($dir_year,$dir_month) = &findDir($num);
			if (opendir(d,"$base_dir$dir_year/$dir_month")) {

				@d = readdir(d);
				close(d);
			}
			else { @d = (); }

			@blog2 = (); %blog = ();
			foreach $file (reverse sort @d) {

				next if $file eq '.';
				next if $file eq '..';

				if ($file =~ /^(\d{4}\d{2}\d{2})\d{6}$ext/) { $blog{$1}++; } # その日の記事件数の調査(カレンダー用)
			}

			if (($dir_year < $year - 10 || $dir_year > $year + 1) || ($dir_month < 1 || $dir_month > 12)) { $ret = &calendar($year,$month); }
			else { $ret = &calendar($dir_year,$dir_month); }

			$line =~ s/<!--\[calendar\]-->/$ret/;
		}

		# 過去ログ
		if ($line =~ /<!--\[pastlog\]-->/) {

			&getAllFiles();
			foreach $file (@all) {

				if ($file =~ /^(\d\d\d\d\d\d)(\d\d)(\d\d\d\d\d\d)$ext/) { $list{$1} = 1; }
			}

			$ret = "<tt>";

			foreach $key (reverse sort keys %list) {

				if ($key =~ /^(\d\d\d\d)(\d\d)$/) {

					$y = $1; $m = $m2 = $2;
					$m2 =~ s/0(\d)/&nbsp;$1/; #$m2 =~ s/0/&nbsp;/;
					$monthList = "$y年$m2月";
				}
				else { next; }

				$ret .= "<a href=\"$reload\?year=$y&month=$m\" class=\"$style_pastlog\">$monthList</a><br>\n";
			}

			$ret .= "</tt>\n";
			$line =~ s/<!--\[pastlog\]-->/$ret/;
		}

		if ($line =~ /<!--.*-->/) { $line =~ s/<!--.*-->//g; }
		if ($line =~ /\0/) { $line =~ s/\0/--/g; }

		$html .= $line;
	}

	if ($html =~ /<\/body>/i) { $html =~ s/<\/body>/$copyright\n<\/body>/i; }

	if ($form{'cmd'} eq 'write2') { print "Location: $reload/permalink/$num\n\n"; exit; }

	if ($permalink) { # 固定リンクをCGI出力時

		Jcode::convert( \$html,'utf8' );

		$html =~ s/__article__/$KIJI/;
		$html =~ s/__comment__/$COMM/;
		$html =~ s/__trackback__/$TRACKB/;

		print "Content-type: text/html; charset=utf-8\n\n";
		print $html;
		exit;
	}

	return $all[$target +1],$all[$target -1]; # ひとつ前,ひとつ後
}

##
#### ■携帯処理（メニュー）
##

sub Keitai_menu {

	$max = 20; # 携帯メニューで一覧する記事数の上限
	$Keitai = 1;

	$kiji = "$blog_title<hr>\n";

	&getAllFiles();
	@blogs = reverse sort @all;
	$all_blogs = @blogs - $max;

	foreach $i (0 .. $#blogs) {

		$c++;
		if ($c > $max) { last; }
		if ($c > 1) { $kiji .= "<br>\n"; }

		&getBlog($blogs[$i]);

		if ($key{'title'} eq "") { $Title = "(題名なし)"; }
		elsif (length($key{'title'}) > 30) { $key{'title'} = &z_substr($key{'title'},0,30) . '..'; }

		$key{'title'} =~ s/\n//g;

$key{'title'} =~ s{
<
[^<>]*
>
}{}xsg;

		@j = split("\0",$key{'cm'});
		$j = @j;

		if ($c <= 9) { $accesskey = " accesskey=$c directkey=$c"; $accesskey2 = "$c)"; }
		else { $accesskey = $accesskey2 = ""; }

		if ($key{'comment'} != 1 || $j == 0) { $ck = ""; } else { $ck = "($j)"; }
		$kiji .= "<a href=\"$reload/k/$blogs[$i]\"$accesskey>$accesskey2$key{'title'}$ck</a>";
	}

	$kiji .= "<hr>他$all_blogs件/()内はｺﾒﾝﾄ数<p>\n";

	if (open(f,$base_k)) { @template = <f>; close(f); } # テンプレート読み込み
	foreach $line (@template) {

		if ($line =~ /<head>/i) { $line =~ s/<head>/<head>\n<meta http-equiv="Content-Type" content="text\/html; charset=Shift_JIS">/i; }
		if ($line =~ /<!--\[title\]-->/i) { $line =~ s/<!--\[title\]-->/$blog_title/i; }

		if ($line =~ /<!--\[blog\]-->/) { $line =~ s/<!--\[blog\]-->/$kiji/; }

		if ($line =~ /class=".*" /) { $line =~ s/class=".*" //g; }
		if ($line =~ /<!--.*-->/) { $line =~ s/<!--.*-->//g; }

		$html .= $line;
	}


	print "Content-type: text/html; charset=Shift_JIS\n\n";
	print $html;
	exit;
}

##
#### ■携帯処理（固定リンク）
##

sub Keitai {

	local($num) = @_;
	if ($num !~ /^(\d{6})(\d{8})$/) { &error("Not Found"); }

	$Keitai = 1;

	&getAllFiles();
	@blogs = reverse sort @all;

	foreach $i (0..$#blogs) {

		if ($blogs[$i] == $num) { $target = $i; last; } # 対象となるブログの順位を調査
	}

	if ($blogs[$target +1] && $#blogs != $target) { # 直前のブログHTMLの情報を取る

		if ( &getBlog($blogs[$target +1]) ) {

			if (length($key{'title'}) > 30) { $key{'title'} = &z_substr($key{'title'},0,30) . ' ..'; }
			($dir_year,$dir_month) = &findDir($blogs[$target +1]);
			$mae = "<a href=\"$reload/k/$blogs[$target +1]\" accesskey=* directkey=*>*)前</a>";
		}
	}

	if ($blogs[$target -1] && $target > 0) { # 直後のブログHTMLの情報を取る

		if ( &getBlog($blogs[$target -1]) ) {

			if (length($key{'title'}) > 30) { $key{'title'} = &z_substr($key{'title'},0,30) . ' ..'; }
			($dir_year,$dir_month) = &findDir($blogs[$target -1]);
			$ato = "<a class=mid href=\"$reload/k/$blogs[$target -1]\" accesskey=# directkey=#>#)次</a>";
		}
	}

	&getBlog($num);

	$Title = $key{'title'};
	$Title =~ s/\n//g;

$Title =~ s{
<
[^<>]*
>
}{}xsg;

$key{'body'} =~ s{
<
[^<>]*
>
}{}xsg;

	if ($Title eq "") { $Title = "(題名なし)"; }
	elsif (length($Title) > 20) { $Title = &z_substr($Title,0,20) . '..'; }

	if (open(f,$base_k)) { @template = <f>; close(f); } # テンプレート読み込み
	foreach $line (@template) {

		if ($line =~ /<head>/i) { $line =~ s/<head>/<head>\n<meta http-equiv="Content-Type" content="text\/html; charset=Shift_JIS">/i; }
		if ($line =~ /<!--\[title\]-->/i) { $line =~ s/<!--\[title\]-->/$blog_title: $Title/i; }

		if ($line =~ /<!--\[blog\]-->/) {

			$DATE = &getTime($key{'date'});

			$blog .= "$key{'title'}<hr>\n";

			$key{'body'} =~ s/<br>/ /g; $size = length($key{'body'}) - 300 . "ﾊﾞｲﾄ";
			if (length($key{'body'}) > 300) { $key{'body'} = &z_substr($key{'body'},0,300) . "..<a href=\"$reload\?cmd=k&num=$num\">続き(あと$size〜)</a>"; }

			$blog .= "$key{'body'}<hr>\n";

			if ($key{'comment'} == 1) {

				$i = 1;
				foreach $j (reverse split("\0",$key{'cm'})) {

					if ($i == 1) { $blog .= "ｺﾒﾝﾄ(最新順)<br>\n"; }
					if ($i > 10) { @j = split("\0",$key{'cm'}); $j = @j; $j -= 10; $blog .= "他$j件<br>\n"; last; }

					($key,$uname,$email,$url,$body,$ip) = split(/\t/,$j,6);

					$uname =~ s/\n//g;
					if ($uname eq "") { $uname = "(名前ﾅｼ)"; }

					$body =~ s/<br>/ /g; $size = length($body) - 50 . "ﾊﾞｲﾄ";
					if (length($body) > 50) { $body = "■$uname》" . &z_substr($body,0,50) . "..<a href=\"$reload\?cmd=k&num=$num&target=$key\">続き(あと$size〜)</a>"; }
					else { $body = "■$uname》$body"; }

					$blog .= "$body<br>\n";

					$i++;
				}

				if ($key{'cm'}) { $blog .= "<hr>\n"; }
				else { $blog .= "ｺﾒﾝﾄはありません<hr>\n"; }
			}

			if ($key{'writer'} ne "") { $writer = "by $key{'writer'} &brvbar; "; } else { $writer = ""; }

			$blog .= "$writer$DATE<hr>\n";

			$blog .= "$mae $ato <a href=\"$reload?k\">MENU</a>\n";

			$line =~ s/<!--\[blog\]-->/$blog/;
		}

		if ($line =~ /<!--.*-->/) { $line =~ s/<!--.*-->//g; }

		$html .= $line;
	}

	print "Content-type: text/html; charset=Shift_JIS\n\n";
	print $html;
	exit;
}

##
#### ■携帯処理（補助処理）
##

sub Keitai2 {

	if ($form{'num'} !~ /^(\d{6})(\d{8})$/) { &error("Not Found"); }

	$Keitai = 1;

	&getBlog($form{'num'});

	$Title = $key{'title'};
	$Title =~ s/\n//g;

$Title =~ s{
<
[^<>]*
>
}{}xsg;

$key{'body'} =~ s{
<
[^<>]*
>
}{}xsg;

	if ($Title eq "") { $Title = "(題名なし)"; }
	elsif (length($Title) > 20) { $Title = &z_substr($Title,0,20) . '..'; }

	if (open(f,$base_k)) { @template = <f>; close(f); } # テンプレート読み込み
	foreach $line (@template) {

		if ($line =~ /<head>/i) { $line =~ s/<head>/<head>\n<meta http-equiv="Content-Type" content="text\/html; charset=Shift_JIS">/i; }
		if ($line =~ /<!--\[title\]-->/i) {

			if ($form{'target'} ne "") { $line =~ s/<!--\[title\]-->/$blog_title: $Titleに対するｺﾒﾝﾄ/i; }
			else { $line =~ s/<!--\[title\]-->/$blog_title: $Title/i; }
		}

		if ($line =~ /<!--\[blog\]-->/) {

			if ($form{'target'} eq "") {

				$key{'body'} =~ s/<br>/ /g;
				$key{'body'} = &z_substr($key{'body'},300);
				$blog .= "..$key{'body'}<br>\n";
			}
			else {
				foreach $j (split("\0",$key{'cm'})) {

					($key,$uname,$email,$url,$body,$ip) = split(/\t/,$j,6);

					if ($key eq $form{'target'}) {

						$body =~ s/<br>/ /g;
						$body = &z_substr($body,50);
						$blog .= "..$body\n";

						last;
					}
				}
			}

			$blog .= "<hr>\n<a href=\"$reload/k/$form{'num'}\" accesskey=* directkey=*>*)戻る</a>\n";

			$line =~ s/<!--\[blog\]-->/$blog/;
		}

		if ($line =~ /<!--.*-->/) { $line =~ s/<!--.*-->//g; }

		$html .= $line;
	}

	print "Content-type: text/html; charset=Shift_JIS\n\n";
	print $html;
	exit;
}

##
#### ■保存フォルダ判定
##

sub findDir {

	local($blogFileName) = @_;

	if ($blogFileName =~ /^(\d{4})(\d{2})\d{8}$/) { $dir_year = $1; $dir_month = $2; }
	elsif ($blogFileName =~ /^(\d{4})(\d{2})/) { $dir_year = $1; $dir_month = $2; }
	else { return; }

	if (!-e "$base_dir$dir_year/" && $mkdir_check) { #  $mkdir_check:なければ作成(新規投稿時のみ)

		if (!mkdir("$base_dir$dir_year",0777)) { &error($!); }
	}

	if (!-e "$base_dir$dir_year/$dir_month/" && $mkdir_check) {

		if (!mkdir("$base_dir$dir_year/$dir_month",0777)) { &error($!); }
	}

	return($dir_year,$dir_month);
}

##
#### ■投稿処理（コメントデータ記録）
##

sub Write2 {

	if ($form{'num'} eq "") { &error("不明なエラー"); }
	&getBlog($form{'num'});
	if ($key{'comment'} ne "1") { &error('この記事はコメントを受け付けません.'); }

	local($html);

	if ($form{'body'} eq "" || $form{'uname'} eq "") { &error("名前またはタイトルが書かれていません."); }

	if ($HumanCheck) {

		if ($form{'HC'} eq "") { &error("システムエラーが発生しました."); }
		if ($form{'HC2'} eq "") { &error("計算式 $form{'HC'} の答えを入力してください."); }

		($add1,$add2) = split(/\+/,$form{'HC'},2);
		$kotae = $add1 + $add2;
		if ($form{'HC2'} ne $kotae) { &error("計算が間違っています. 計算式 $form{'HC'} の答えは $kotae です."); }
	}

	if ($spam_comment) {

		@comment_result = getcode( \$form{'body'} );
		if ($comment_result[0] eq 'ascii') { &error("このコメントは受け付けられませんでした. お問い合わせください."); }
	}

	$form{'body'} =~ s/\n/<br>/g;
	if ($form{'passwd'} ne "") { $crypted_pwd = &Crypt($form{'passwd'}); }

	($dir_year,$dir_month) = &findDir($form{'num'});
	if (!open(f,">> $base_dir$dir_year/$dir_month/$form{'num'}$ext")) { &error($!); }
	print f "cm:$time\t$form{'uname'}\t$form{'email'}\t$form{'url'}\t$form{'body'}\t$ENV{'REMOTE_ADDR'}\t$crypted_pwd\n";
	close(f);

	$Name = $form{'uname'};
	if ($Name eq "") { $Name = "(名前なし)"; }
	elsif (length($Name) > 20) { $Name = &z_substr($Name,0,20) . ' ..'; }

	$Title = $key{'title'};
	if ($Title eq "") { $Title = "(題名なし)"; }
	elsif (length($Title) > 30) { $Title = &z_substr($Title,0,30) . ' ..'; }

	&rotation('comment',"<!--$time--><a class=\"$style_comment\" href=\"$reload/permalink/$form{'num'}#$time\">$Name </a> ( <a class=\"$style_comment\" href=\"$reload/permalink/$form{'num'}\"><!--$form{'num'}-->$Title <!--/$form{'num'}--></a>)",''); # 最新のコメントを更新

	$form{'uname'} =~ s/&lt;/</g;
	$form{'uname'} =~ s/&gt;/>/g;
	$form{'uname'} =~ s/&amp;/&/g;
	$form{'uname'} =~ s/\;/；/g;

	$form{'email'} =~ s/&amp;/&/g;
	$form{'email'} =~ s/\;//g;

	$form{'url'} =~ s/&amp;/&/g;
	$form{'url'} =~ s/\;//g;

	if ($sendmail_set) { &sendmail($admin_email,"[$blog_title] コメントがありました","名前：$form{'uname'}\n\n$form{'body'}\n\n[固定リンク]\n$reload/permalink/$form{'num'}#$time"); }

	if ($form{'cookie'}) { &setCookie('uname',$form{'uname'},1); &setCookie('email',$form{'email'},1); &setCookie('url',$form{'url'},1); }
	else { &setCookie('uname',"",'x'); &setCookie('email',"",'x'); &setCookie('url',"",'x'); }

	&ModFile($form{'num'});
}

##
#### ■
##

sub getBlog {

	local($filename) = @_;

	if ($filename !~ /^\d{14}$/) { return 0; }

	undef %key;

	($dir_year,$dir_month) = &findDir($filename);
	if (!open(f,"$base_dir$dir_year/$dir_month/$filename$ext")) { return 0; }
	while (<f>) {

		s/\n//g;
		($key,$val) = split(/:/,$_,2);

		$key{$key} .= "\0" if (defined($key{$key}));
		$key{$key} .= $val;
	}
	close(f);
}

##
#### ■トラックバック受信
##

sub receive_trackback {

	local($num) = @_;

	&getBlog($num);
	if ($key{'trackback'} ne "1") { &to_xml('1',''); exit; } # 受け付けない

	($dir_year,$dir_month) = &findDir($num);
	if (!-e "$base_dir$dir_year/$dir_month/$num$ext") { &to_xml('1','File Not Found'); exit; }

	$URL = $form{'url'};
	if ($URL eq "") { &to_xml('1',''); exit; }

	$blog_name = $form{'blog_name'};
	$blog_name =~ s/\n//g;
	if ($spam_blogname && $blog_name eq "") { &to_xml('1',''); exit; }
	elsif ($blog_name eq "") { $blog_name = "(ブログ名なし)"; }

	$Title = $form{'title'};
	$Title =~ s/\n//g;
	$Title =~ s/&amp;/&/g;
	if ($spam_title && $Title eq "") { &to_xml('1',''); exit; }
	elsif ($Title eq "") { $Title = "(題名なし)"; }

	$excerpt = $form{'excerpt'};
	$excerpt =~ s/\n//g;
	$excerpt =~ s/&amp;/&/g;

$excerpt =~ s{
<
[^<>]*
>
}{}xsg;

	if ($spam_excerpt) {

		@result = getcode( \$excerpt );
		if ($result[0] eq 'ascii') { &to_xml('1',''); exit; }
	}

	if (length($excerpt) > 252) { $excerpt = &z_substr($excerpt,0,249) . ' ..'; }

	($dir_year,$dir_month) = &findDir($num);
	if (!open(DB,">> $base_dir$dir_year/$dir_month/$num$ext")) { &to_xml('1',''); exit; }
	print DB "tb:$time\t$blog_name\t$Title\t$URL\t$excerpt\n";
	close(DB);

	if (length($blog_name) > 60) { $blog_name = &z_substr($blog_name,0,60) . ' ..'; }
	if (length($Title) > 30) { $Title = &z_substr($Title,0,30) . ' ..'; }

	&rotation('trackback',"<!--$time--><a class=\"$style_trackback\" href=\"$URL\" target=\"_blank\">$Title </a> ($blog_name) <a class=\"$style_trackback\" href=\"$reload/permalink/$num\" title=\"受信した記事\">&laquo;</a>",'');
	if ($sendmail_set) { &sendmail("","[$blog_title] トラックバックがありました","題名：$Title（$blog_name）\n$URL\n\n$excerpt  \n\nトラックバック元：$reload/permalink/$num"); }

	&ModFile($num); # 固定ページを作成
	$make_index = 1;
	$view_blog_month = $num;
	$no_disp = 1; &makeBlog();

	&to_xml('0','');

	exit;
}

##
#### ■トラックバックピング
##

sub ping {

	local($blogFileName) = @_;
	@ping = split(/\n/,$form{'ping'});

	foreach $tburl (@ping) {

		$Title = $form{'title'};
		if (length($Title) > 60) { $Title = &z_substr($Title,0,60) . ' ..'; }
		$Title =~ s/&gt;/>/g;
		$Title =~ s/&lt;/</g;
		$Title =~ s/&amp;/＆/g;

$Title =~ s{
<
[^<>]*
>
}{}xsg;
		$Excerpt = $form{'body'};
		$Excerpt =~ s/\n//g;

$Excerpt =~ s{
<
[^<>]*
>
}{}xsg;
		if (length($Excerpt) > 252) { $Excerpt = &z_substr($Excerpt,0,249) . ' ..'; }

		($dir_year,$dir_month) = &findDir($blogFileName);
		$Url = "$reload/permalink/$blogFileName";

		Jcode::convert( \$blog_title, 'utf8' );
		Jcode::convert( \$Excerpt, 'utf8' );
		Jcode::convert( \$Title, 'utf8' );

		my $trackback = new Net::Trackback::Ping;
		$trackback->ping_url( $tburl );
		$trackback->title( $Title );
		$trackback->url( $Url );
		$trackback->excerpt( $Excerpt );
		$trackback->blog_name( $blog_title );

		my $client = new Net::Trackback::Client;
		my $return = $client->send_ping( $trackback );

		my $msg = new Net::Trackback::Message;
		$msg->message( $return );
		$xml = $msg->to_xml( $return );

		if (open(f,">> $base_dir$dir_year/$dir_month/$blogFileName$ext")) {

			print f "tburl:$time\t$tburl\n";
			close(f);
		}
	}
}

##
#### ■
##

sub to_xml
{

local($code,$msg) = @_;

print <<"EOF";
Content-Type: text/xml\n
<?xml version="1.0" encoding="iso-8859-1"?>
<response>
<error>$code</error>
<message>$msg</message>
</response>
EOF

}

##
#### ■トラックバック Ping の一覧を受信する
##

sub mode_rss
{

local($num) = @_;

if (! &getBlog($num) ) { &to_xml('1','File Not Found'); exit; }

$Title = $key{'title'};
$Title =~ s/\n//g;

$Title =~ s{
<
[^<>]*
>
}{}xsg;

if ($Title eq "") { $Title = "(題名なし)"; }
elsif (length($Title) > 60) { $Title = &z_substr($Title,0,60) . ' ..'; }

Jcode::convert( \$Title,'utf8' );

$excerpt = $key{'body'};
$excerpt =~ s/\n//g;
$excerpt =~ s/&/&amp;/g;

$excerpt =~ s{
<
[^<>]*
>
}{}xsg;

if (length($excerpt) > 252) { $excerpt = &z_substr($excerpt,0,249) . ' ..'; }
Jcode::convert( \$excerpt,'utf8' );

print <<"EOF";
Content-Type: text/xml\n
<?xml version="1.0" encoding="utf-8"?>
<response>
<error>0</error>
<rss version="0.91">
<channel>
<title>$Title  </title>
<link>$reload/permalink/$num</link>
<description>$excerpt  </description>
<language>ja-jp</language>
</channel>
</rss>
</response>
EOF

}

##
#### ■
##

sub getwday { # 曜日判定

	local ($year,$month,$day) = @_;
	local ($base,$i);

	# ２月の日数(うるう年の判定)
	$days[2] = 28;
	unless ($year % 4) { $days[2] = 29; }
	unless ($year % 100) { $days[2] = 28; }
	unless ($year % 400) { $days[2] = 29; }

	# Zeller(ツェラー)の公式
	$base = (($year - 1) * 365) + int(($year - 1) / 4) - int(($year - 1) / 100) + int(($year - 1) / 400);

	# そこへ該当年の日数を加算
	$i = $month;
	while ( --$i ) { $base += $days[$i]; }

	#１週間７日で除算した余りが曜日 ... 0なら日曜、1なら月曜 ... 6なら土曜。
	return ($base + $day) % 7;
}

##
#### ■
##

sub urlencoded
{

local($line) = @_;
$line =~ s/([^0-9A-Za-z_])/"%" . unpack("H2",$1)/ge;
$line =~ tr/ /+/;
$line;

}

##
#### ■
##

sub setCookie {

	local($name,$cookie,$exp) = @_;

	if ($exp == 1) {

		($secg,$ming,$hourg,$mdayg,$mong,$yearg,$wdayg,$ydayg,$isdstg) = gmtime(time + 30*24*60*60);
		$y0="Sunday"; $y1="Monday"; $y2="Tuesday"; $y3="Wednesday"; $y4="Thursday"; $y5="Friday"; $y6="Saturday";
		$m0="Jan"; $m1="Feb"; $m2="Mar"; $m3="Apr"; $m4="May"; $m5="Jun"; $m6="Jul"; $m7="Aug"; $m8="Sep"; $m9="Oct"; $m10="Nov"; $m11="Dec";
		@youbi = ($y0,$y1,$y2,$y3,$y4,$y5,$y6);
		@monthg = ($m0,$m1,$m2,$m3,$m4,$m5,$m6,$m7,$m8,$m9,$m10,$m11);
		$date_gmt = sprintf("%s\, %02d\-%s\-%04d %02d:%02d:%02d GMT",$youbi[$wdayg],$mdayg,$monthg[$mong],$yearg +1900,$hourg,$ming,$secg);
		$expires = "; expires=$date_gmt";
	}
	elsif ($exp eq 'x') {
		$expires = "; expires=Sun, 01-Jan-1995 01:00:00 GMT"; # クッキーを完全消去するには正確な過去を設定する(ブラウザを正常に閉じたあとに実行される)
	}
	else { $expires = ''; }

	$cookie =~ s/&lt;/＜/g;
	$cookie =~ s/&gt;/＞/g;

	print "Set-Cookie: $name=$cookie$expires\n";
}

##
#### ■暗号化
##

sub Crypt
{

my $mypass = $_[0];
	
srand();
my @saltset = ('a'..'z','A'..'Z','0'..'9','.','/');
my $nsalt = $saltset[int(rand(64))] . $saltset[int(rand(64))];

return crypt($mypass,$nsalt);

}

##
#### ■
##

sub getTime
{

local($time) = @_;
local($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst); # (秒,分,時,日,月(0〜11),年(年号-1900),曜日(0〜6),1月1日から何日目,サマータイムの有無)
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($time);

if ($Keitai) { return sprintf("%02d:%02d %s\.%02d",$hour,$min,$mon_array[$mon],$mday); }
else { return sprintf("%02d:%02d, %s, %s %02d, %04d",$hour,$min,$wday_array2[$wday],$mon_array[$mon],$mday,$year +1900); }

# 例            15:05, Saturday, May 14, 2005 

}

sub getTime_forRDF
{

local($time) = @_;
local($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst);
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($time);
return sprintf("%04d-%02d-%02dT%02d:%02d:%02d%s",$year +1900,$mon +1,$mday,$hour,$min,$sec,$timezone); # フォーマット済み（変更しないこと）

}

##
#### ■
##

sub upForm
{

$html = <<"EOF";
<HTML><HEAD>
<TITLE>画像アップロード</TITLE>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
</HEAD>
<body>
<h3>画像アップロード</h3>

<form action=$reload ENCTYPE="multipart/form-data" method=post>
<input type=hidden name=cmd value=upimg>
画像 <input type=file name=upfile size=30><br>
別名を付ける(任意/半角英数字) <input type=text name=upname size=10 style="ime-mode: disabled"><br>
<input type=checkbox name=w value=1>重複があれば上書きする
<p>

<input type=button value="キャンセル" onClick="JavaScript:window.close()">
<input type=submit value="送信" style="font-weight: bold;">
</form>

</body></html>
EOF

Jcode::convert( \$html,'utf8' );

print "Content-type: text/html; charset=utf-8\n\n";
print $html;
exit;

}

##
#### ■
##

sub upImg
{

foreach $in (@in) {

	($name) = $in =~ /\bname="([^"]+)"/i;
	($name) = $in =~ /\bname=([^\s:;]+)/i unless defined $name;

	if ($name !~ /upfile/) { next; }

	($ctype) = $in =~ /\s*Content-type:\s*"([^"]+)"/i;
	($ctype) = $in =~ /\s*Content-Type:\s*([^\s:;]+)/i unless defined $ctype;

	if ($ctype eq '') { &error("エラー","ファイルタイプを識別できません."); }
	elsif ($ctype =~ m#^image/(.*)#i) {

		$type = $1;
		if ($type =~ /^gif$/i) { $fext = '.gif'; }
		elsif ($type =~ /^(.*)jp(.*)g$/i) { $fext = '.jpg'; }
		elsif ($type =~ /^(.*)png$/i) { $fext = '.png'; }
		else { &error("エラー","扱えないファイルを検出しました. -&gt; $ctype"); }
	}
	else { &error("エラー","送信されていないか、扱えないファイルを検出しました."); }

	if ($in{'upname'} ne "") { $filename = $in{'upname'}; }
	else {
		($filename) = $in =~ /\bfilename="([^"]*)"/i;
		@filename = split(/[\\\/]/,$filename);
		($filename,$e) = split(/\./,$filename[$#filename]);
	}

	if ($filename =~ /\W/) { &error("エラー",'ファイル名（拡張子を除く）は半角英数字である必要があります.','閉じてもう一度やり直してください.'); }

	if (!$in{'w'} && -e "$img_dir$filename$fext") { &error("ファイル名が重複しています."); }

	if (!open(IMAGE,"> $img_dir$filename$fext")) { &error($!); }
	binmode(IMAGE);
	print IMAGE $in{$name};
	close(IMAGE);
	chmod(0666,"$img_dir$filename$fext");
}

$html = <<"EOF";
<HTML><HEAD>
<TITLE>画像アップロード</TITLE>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<script type="text/javascript">
<!--
function Img() {
    var val = opener.Form.body.value;
    var str = "$img_url$filename$fext";
    opener.Form.body.value = val + '<a href="' + str + "\\" onClick=\\"openWin(640,480,'img')\\" target=\\"img\\"><img src=\\"" + str + '" width="120" border="0" alt="$filename" style="float: left; margin: 0px 5px 5px 0px;" /></a>';
    window.close();
}
// -->
</script>
</HEAD>
<body onLoad="Img()">
</body></html>
EOF

Jcode::convert( \$html,'utf8' );

print "Content-type: text/html; charset=utf-8\n\n";
print $html;
exit;

}

##
#### ■ファイルローテーション
##

sub rotation {

	local($fname,$value,$del) = @_;

	if ($value ne "") {

		$value .= "\n";
		Jcode::convert( \$value, 'utf8' );
	}

	$i = 0; @new = ();

	if (!-e "$base_dir$fname$ext" && $value ne "") {

		if (open(F, "> $base_dir$fname$ext")) {

			print F $value;
			close(F);
			chmod(0666,"$base_dir$fname$ext");
		}
	}
	elsif (open(F, "+< $base_dir$fname$ext")) {

		flock F, 2;

		while (<F>) {

			if (/<!--$newTitleNum-->.*<!--\/$newTitleNum-->/) { s/<!--$newTitleNum-->.*<!--\/$newTitleNum-->/<!--$newTitleNum-->$newTitle <!--\/$newTitleNum-->/; }

			if ($value ne "" && /<!--$del-->/) { $_ = $value; } # 修正時（記事）
			elsif (/<!--$del-->/) { next; } # 削除時（記事/コメント/トラックバック）

			push(@new,$_);

			$i++;
			if ($i >= $maxLog - 1) { last; }
		}

		eval 'truncate F,0;';
		seek(F,0,0);

		if ($value ne "" && $del eq "") { print F $value; }
		print F @new;
		close(F);
	}
}

##
#### ■メール処理
##

sub sendmail {

	local($from,$subject,$body) = @_;
	require "./base64.pl";
	$timezone =~ s/://g;

	@mon_array3 = ('Jan','Feb','Mar','Apr','May','Jun','Jul','Aug','Sep','Oct','Nov','Dec');
	@wday_array3 = ('Sun','Mon','Tue','Wed','Thu','Fri','Sat');
	$date_now = sprintf("%s, %02d %s %04d %02d:%02d:%02d $timezone",$wday_array3[$wday],$mday,$mon_array3[$mon],$year,$hour,$min,$sec);

	$MailValue  = "Date: $date_now\n";
	$MailValue .= "X-Sender: $ENV{'REMOTE_ADDR'}\n";
	$MailValue .= "X-Mailer: bloq [www.rescue.ne.jp]\n";

	$subject = &base64'b64encode($subject);
	eval 'chomp($subject);'; chop($subject) if $@ ne '';
	$MailValue .= "Subject: =?ISO-2022-JP?B?$subject?=\n";

	if ($from =~ /\b[-\w.]+@[-\w.]+\.[-\w]+\b/) { $MailValue .= "Reply-To: $from\n"; }
	$MailValue .= "From: nobody\n";
	$MailValue .= "To: $admin_email\n";

	$MailValue .= "\n"; # セパレータ

	$body =~ s/&gt;/>/g;
	$body =~ s/&lt;/</g;
	$body =~ s/&amp;/&/g;
	$body =~ s/&quot;/"/g;
	$body =~ s/<br>/\n/g;

	$MailValue .= "$body\n\n";

	$MailValue .= "[$blog_title]\n";
	$MailValue .= "$reload\n\n";

	Jcode::convert( \$MailValue, 'jis' );

	if (open(OUT,"| $sendmail -t")) {

		print OUT $MailValue;
		close(OUT);
	}
}

##
#### ■全角混在用substr() # 出典 Perl Tips <akebi.jp> by あけび for Shift_JIS
##

sub z_substr {

	local($s,$p,$l) = @_;
	$s =~ s/(.)/$1\0/g;
	$s =~ s/([\x81-\x9f\xe0-\xfc])\0(.)\0/$1$2\0\0/g;
	$s = $l eq '' ? substr($s,$p*2):substr($s,$p*2,$l*2);
	$s =~ tr/\0//d;
	$s;
}

##
#### ■アクセス解析
##

sub analyze
{

$gif = $img_dir . $gif;
$gif2 = $img_dir . $gif2;

if ($form{'date'} ne "") { ; }
else {

#------------------------------------------------------
# データ取得

opendir(DIR,$log_dir);
@ls = readdir(DIR);
close(DIR);

foreach $file (@ls) {

	next if $file eq '.';
	next if $file eq '..';
	next if $file eq $log_file;
	next if $file eq 'ip.cgi';
	next if -d $file;

	if (-M "$log_dir$file" > $max_record) { unlink "$log_dir$file"; }
	else {
		($file,$ext) = split(/\./,$file,2);

		$count = "x";
		$log = "$log_dir$file.dat";

		if (!open(LOG,$log)) { ; }
		else {
			$count = <LOG>; $count =~ s/\n//g;
			close(LOG);
			push(@BASE,$file);
		}

		$file{$file} = $count; $q++;
	}
}

#------------------------------------------------------

print <<"EOF";
Content-type: text/html; charset=Shift_JIS\n
<HTML lang="ja">
<HEAD>
<TITLE>アクセス解析</TITLE>
<META NAME="ROBOTS" CONTENT="NOINDEX, NOFOLLOW">
<META http-equiv="Expires" content="0">
<META http-equiv="Pragma" content="no-cache">
<meta http-equiv="Cache-Control" content="no-cache">
<meta http-equiv="Content-Type" content="text/html; charset=Shift_JIS">
</META>
<body>
<h1>アクセス解析<hr></h1>

<blockquote>
<table cellpadding=2 cellspacing=5>
EOF

if ($q == 0) { print "<tr><td>None</td></tr>\n"; }
else {
	$border = $f = 0;
	foreach $file (sort { $file{$b} <=> $file{$a} } keys %file) {

		$bar = $file{$file};

		if ($f == 0) { $f = 1; $magnification = $bar / 100; $bar = 100; }
		else { $bar = $bar / $magnification; }

		$bar = int($bar);
		if ($bar == 0) { $bar = 1; }
		$width{$file} = $bar;
	}

	foreach $file (reverse sort keys %file) {

		$border++;
		if ($border % 2 != 0) { $bgcolor = "bgcolor=#ffeedd"; } else { $bgcolor = ""; }

		if ($file =~ /(\d\d\d\d)(\d\d)(\d\d)/) {

			$y = $1; $m = $2 + 0; $d = $3 + 0;
			($youbi) = $wday_array[&getwday($y,$m,$d)];
		}

		print "<tr>\n";
		print "<td $bgcolor nowrap align=center>&nbsp;&nbsp;<a href=\"$reload?cmd=analyze&date=$file\">$y年$m月$d日($youbi)</a>&nbsp;&nbsp;</td>\n";
		print "<td>&nbsp;&nbsp;<img src=\"$gif\" WIDTH=$width{$file} HEIGHT=10> <font size=-1>$file{$file}<font></td>\n";
		print "</tr>\n";
	}
}

print <<"EOF";
</table>
</blockquote>
<p>
<hr>
<font color=gray>※ アクセスがない日のグラフは表\示されません。（ $max_record日分保存 ）<br>
※ グラフは相対表\示です。</font>
</body>
</html>
EOF

exit;

}

#------------------------------------------------------

if ($form{'date'} =~ /(\d\d\d\d)(\d\d)(\d\d)/) {

	$y = $1; $m = $2 + 0; $d = $3 + 0;
	($youbi) = $wday_array[&getwday($y,$m,$d)];
	$date = "$y年$m月$d日($youbi)";
}

$log = "$log_dir$form{'date'}.dat";
if (!open(LOG,$log)) { &error('データが開けません','データファイルが削除されたか、何らかの理由で読み込ません。'); }
$count = <LOG>; $count =~ s/\n//g;
@lines = <LOG>;
close(LOG);

foreach $data (@lines) {

	$data =~ s/\n//g;
	($HOUR,$ref,$host,$host2,$agent,$keitai,$OS) = split(/\t/,$data,7);

	$all++;

	if ($HOUR ne '')   { $hour{$HOUR}++;     $j++; }
	if ($ref ne '')    { $ref{$ref}++;       $k++; }
	if ($host ne '')   { $host{$host}++;     $l++; }
	if ($host2 ne '')  { $host2{$host2}++;   $o++; }
	if ($agent ne '')  { $agent{$agent}++;   $m++; }
	if ($keitai ne '') { $keitai{$keitai}++; $p++; }
	if ($OS ne '')     { $os{$OS}++;         $n++; }
}

#------------------------------------------------------

print <<"EOF";
Content-type: text/html; charset=Shift_JIS\n
<HTML lang="ja">
<HEAD>
<TITLE>アクセス解析</TITLE>
<META NAME="ROBOTS" CONTENT="NOINDEX, NOFOLLOW">
<META http-equiv="Expires" content="0">
<META http-equiv="Pragma" content="no-cache">
<meta http-equiv="Cache-Control" content="no-cache">
<meta http-equiv="Content-Type" content="text/html; charset=Shift_JIS">
</META>
<body>

<h1>アクセス解析</h1>

<a href=#a>時間帯別</a> | <a href=#b>参照元</a> | <a href=#c>リモートホスト</a> | <a href=#d>プロクシ経由調査</a> | <a href=#e>ブラウザ</a> | <a href=#f>携帯アクセス調査</a> | <a href=#g>ＯＳ</a>

<h2>
対象日 $date<br>
総サンプル数 [$all]アクセス
</h2>

<h3><a name=a>|||</a> 時間帯別<hr></h3>

<table cellpadding=0 cellspacing=0>
<tr>
EOF

foreach $hour (sort { $hour{$b} <=> $hour{$a} } keys %hour) { $hourmax = $hour{$hour}; last; }
$magnification = $hourmax / 100;

$f = 0;
foreach $hour (0 .. 23) {

	$hour = sprintf("%02d",$hour);
	if ($j != 0) { $bar = $hour{$hour}; }

	print "<td align=center>\n";

	$bar = $bar / $magnification;
	$bar = int($bar);

	if ($bar == 0) { print "<img src=\"$gif2\" WIDTH=20 HEIGHT=1></td>\n"; }
	else {

		$blank = 100 - $bar;
		if ($blank != 0 ) { print "<img src=\"$gif2\" WIDTH=20 HEIGHT=$blank><br>"; }

		print "<font size=-1>$hour{$hour}</font><br>";
		print "<img src=\"$gif\" WIDTH=15 HEIGHT=$bar></td>\n";

		next;
	}
}

print <<"EOF";
</tr>
<tr>
EOF

foreach $hour (0 .. 23) {

	if ($hour < 12) { $bgcolor = "bgcolor=#eeddff"; } else { $bgcolor = "bgcolor=#ffeedd"; }

	print "<td align=center $bgcolor><font size=-1>$hour</font></td>\n";
}

print <<"EOF";
</tr>
</table>
<p>

<h3><a name=b>|||</a> 参照元<hr></h3>

<table cellpadding=0 cellspacing=0>
EOF

if ($k == 0) { print "<tr><td>None</td></tr>\n"; }
else {

	$before = '';
	$num = $border = $f = 0;
	foreach $ref (sort { $ref{$b} <=> $ref{$a} } keys %ref) {

		$num++;
		if ($num > $max) { print "<tr><td>.<br>.<br>.</td></tr>\n"; last; }

		$bar = $ref{$ref};

		if ($f == 0) { $f = 1; $magnification = $bar / 100; $bar = 100; }
		else { $bar = $bar / $magnification; }

		$bar = int($bar);

		if ($bar == 0) { $bar = 1; }

		$border++;
		if ($border % 2 != 0) { $bgcolor = "bgcolor=#ffeedd"; } else { $bgcolor = ""; }

		if (length($ref) > 70) { $url = substr($ref,0,67) . "..."; } else { $url = $ref; }
		#$url =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;

		if ($before eq '') { $number = "1"; }
		if ($before == $ref{$ref}) { $number = ""; }
		else { $number = $num; }

		$before = $ref{$ref};

		if ($ref =~ /^http:\/\//) {

			print "<tr>\n";
			print "<td align=right>$number&nbsp;&nbsp;</td>\n";
			print "<td $bgcolor><a href=\"$ref\" target=\"_blank\">$url</a></td>\n";
			print "<td>&nbsp;&nbsp;<img src=\"$gif\" WIDTH=$bar HEIGHT=10> <font size=-1>$ref{$ref}<font></td>\n";
			print "</tr>\n";
		}
		else {
			print "<tr>\n";
			print "<td align=right>$number&nbsp;&nbsp;</td>\n";
			print "<td $bgcolor>$url</td>\n";
			print "<td>&nbsp;&nbsp;<img src=\"$gif\" WIDTH=$bar HEIGHT=10> <font size=-1>$ref{$ref}<font></td>\n";
			print "</tr>\n";
		}
	}
}

print <<"EOF";
</table>
<p>

<h3><a name=c>|||</a> リモートホスト<hr></h3>

<table cellpadding=0 cellspacing=0>
EOF

if ($l == 0) { print "<tr><td>None</td></tr>\n"; }
else {

	$before = '';
	$num = $border = $f = 0;
	foreach $host (sort { $host{$b} <=> $host{$a} } keys %host) {

		$num++;
		if ($num > $max) { print "<tr><td>.<br>.<br>.</td></tr>\n"; last; }

		$bar = $host{$host};

		if ($f == 0) { $f = 1; $magnification = $bar / 100; $bar = 100; }
		else { $bar = $bar / $magnification; }

		$bar = int($bar);

		if ($bar == 0) { $bar = 1; }

		$border++;
		if ($border % 2 != 0) { $bgcolor = "bgcolor=#ffeedd"; } else { $bgcolor = ""; }

		if ($before eq '') { $number = "1"; }
		if ($before == $host{$host}) { $number = ""; }
		else { $number = $num; }

		$before = $host{$host};

		print "<tr>\n";
		print "<td align=right>$number&nbsp;&nbsp;</td>\n";
		print "<td $bgcolor>$host</td>\n";
		print "<td>&nbsp;&nbsp;<img src=\"$gif\" WIDTH=$bar HEIGHT=10> <font size=-1>$host{$host}<font></td>\n";
		print "</tr>\n";
	}
}

print <<"EOF";
</table>
<p>

<h3><a name=d>|||</a> プロクシ経由調査<hr></h3>

<table cellpadding=0 cellspacing=0>
EOF

if ($o == 0) { print "<tr><td>None</td></tr>\n"; }
else {

	$before = '';
	$num = $border = $f = 0;
	foreach $host2 (sort { $host2{$b} <=> $host2{$a} } keys %host2) {

		$num++;
		if ($num > $max) { print "<tr><td>.<br>.<br>.</td></tr>\n"; last; }

		$bar = $host2{$host2};

		if ($f == 0) { $f = 1; $magnification = $bar / 100; $bar = 100; }
		else { $bar = $bar / $magnification; }

		$bar = int($bar);

		if ($bar == 0) { $bar = 1; }

		$border++;
		if ($border % 2 != 0) { $bgcolor = "bgcolor=#ffeedd"; } else { $bgcolor = ""; }

		if ($before eq '') { $number = "1"; }
		if ($before == $host2{$host2}) { $number = ""; }
		else { $number = $num; }

		$before = $host2{$host2};

		print "<tr>\n";
		print "<td align=right>$number&nbsp;&nbsp;</td>\n";
		print "<td $bgcolor>$host2</td>\n";
		print "<td>&nbsp;&nbsp;<img src=\"$gif\" WIDTH=$bar HEIGHT=10> <font size=-1>$host2{$host2}<font></td>\n";
		print "</tr>\n";
	}
}

print <<"EOF";
</table>
<p>
<blockquote>※ ?マークは匿名串、パケット代節約サービス経由等の可能\性.</blockquote>
<p>

<h3><a name=e>|||</a> ブラウザ<hr></h3>

<table cellpadding=0 cellspacing=0>
EOF

if ($m == 0) { print "<tr><td>None</td></tr>\n"; }
else {

	$before = '';
	$num = $border = $f = 0;
	foreach $agent (sort { $agent{$b} <=> $agent{$a} } keys %agent) {

		$num++;
		if ($num > $max) { print "<tr><td>.<br>.<br>.</td></tr>\n"; last; }

		$bar = $agent{$agent};

		if ($f == 0) { $f = 1; $magnification = $bar / 100; $bar = 100; }
		else { $bar = $bar / $magnification; }

		$bar = int($bar);

		if ($bar == 0) { $bar = 1; }

		$border++;
		if ($border % 2 != 0) { $bgcolor = "bgcolor=#ffeedd"; } else { $bgcolor = ""; }

		if ($before eq '') { $number = "1"; }
		elsif ($before == $agent{$agent}) { $number = ""; }
		else { $number = $num; }

		$before = $agent{$agent};

		print "<tr>\n";
		print "<td align=right>$number&nbsp;&nbsp;</td>\n";
		print "<td $bgcolor>$agent</td>\n";
		print "<td>&nbsp;&nbsp;<img src=\"$gif\" WIDTH=$bar HEIGHT=10> <font size=-1>$agent{$agent}<font></td>\n";
		print "</tr>\n";
	}
}

print <<"EOF";
</table>
<p>

<h3><a name=f>|||</a> 携帯アクセス調査<hr></h3>

<table cellpadding=0 cellspacing=0>
EOF

if ($p == 0) { print "<tr><td>None</td></tr>\n"; }
else {

	$before = '';
	$num = $border = $f = 0;
	foreach $keitai (sort { $keitai{$b} <=> $keitai{$a} } keys %keitai) {

		$num++;
		if ($num > $max) { print "<tr><td>.<br>.<br>.</td></tr>\n"; last; }

		$bar = $keitai{$keitai};

		if ($f == 0) { $f = 1; $magnification = $bar / 100; $bar = 100; }
		else { $bar = $bar / $magnification; }

		$bar = int($bar);

		if ($bar == 0) { $bar = 1; }

		$border++;
		if ($border % 2 != 0) { $bgcolor = "bgcolor=#ffeedd"; } else { $bgcolor = ""; }

		if ($before eq '') { $number = "1"; }
		elsif ($before == $keitai{$keitai}) { $number = ""; }
		else { $number = $num; }

		$before = $keitai{$keitai};

		print "<tr>\n";
		print "<td align=right>$number&nbsp;&nbsp;</td>\n";
		print "<td $bgcolor>$keitai</td>\n";
		print "<td>&nbsp;&nbsp;<img src=\"$gif\" WIDTH=$bar HEIGHT=10> <font size=-1>$keitai{$keitai}<font></td>\n";
		print "</tr>\n";
	}
}

print <<"EOF";
</table>
<p>

<h3><a name=g>|||</a> OS<hr></h3>

<table cellpadding=0 cellspacing=0>
EOF

if ($n == 0) { print "<tr><td>None</td></tr>\n"; }
else {

	$before = '';
	$num = $border = $f = 0;
	foreach $os (sort { $os{$b} <=> $os{$a} } keys %os) {

		$num++;
		if ($num > $max) { print "<tr><td>.<br>.<br>.</td></tr>\n"; last; }

		$bar = $os{$os};

		if ($f == 0) { $f = 1; $magnification = $bar / 100; $bar = 100; }
		else { $bar = $bar / $magnification; }

		$bar = int($bar);

		if ($bar == 0) { $bar = 1; }

		$border++;
		if ($border % 2 != 0) { $bgcolor = "bgcolor=#ffeedd"; } else { $bgcolor = ""; }

		if ($before eq '') { $number = "1"; }
		if ($before == $os{$os}) { $number = ""; }
		else { $number = $num; }

		$before = $os{$os};

		print "<tr>\n";
		print "<td align=right>$number&nbsp;&nbsp;</td>\n";
		print "<td $bgcolor>$os</td>\n";
		print "<td>&nbsp;&nbsp;<img src=\"$gif\" WIDTH=$bar HEIGHT=10> <font size=-1>$os{$os}<font></td>\n";
		print "</tr>\n";
	}
}

print <<"EOF";
</table>
<p>
<hr>
<font color=gray>※ 解析結果は必ずしも正確な情報ではなく、おおまかなアクセス状態を解析するものです。</font>
<p>
</body></html>
EOF

exit;

}

##
#### ■アクセス解析（データ取得）
##

sub analyze_log
{

local($ref,$OS,$agent,$host,$host2,$keitai);
local($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst);

($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
$today = sprintf("%04d%02d%02d",$year +1900,$mon +1,$mday);
$HOUR = sprintf("%02d",$hour);

if (!-e $log_dir) {
	if (!mkdir($log_dir,0777)) { &error($!); }
}

$ip_chk = $log_dir . 'ip.cgi';
$IP = $ENV{'REMOTE_ADDR'};
$hit = 0;

if (!-e $ip_chk) { open(F,"> $ip_chk"); print F "$time\t$IP\n"; close(F); chmod(0666,$ip_chk); }
elsif (open(F,"+< $ip_chk")) {

	flock F, 2;
	while ($line = <F>) {

		if ($line =~ /(\d+)\t(.+)/) {

			$keika = $1; $ip = $2;
			if ($keika + 86400 < $time) { next; }
		}
		else { $ip = $line; next; }

		if ($ip =~ /$IP/) { $hit = 1; }
		push(@IP,$line);
	}

	eval 'truncate F,0;'; # truncate()が使えないサーバでは致命的なエラーとなる
	seek(F,0,0);

	print F @IP;
	if (!$hit) { print F "$time\t$IP\n"; }
	close(F);
}

opendir(DIR,$log_dir);
@ls = readdir(DIR);
close(DIR);

foreach $file (@ls) {

	next if $file eq '.';
	next if $file eq '..';
	next if $file eq 'count.dat';
	next if $file eq 'ip.cgi';
	next if -d $file;

	if (-M "$log_dir$file" > $max_record) { unlink "$log_dir$file"; }
}

if (!$hit) {

	#------------------------------------------------------
	# 参照元 ($ref)

	$ref = $ENV{'HTTP_REFERER'};
	$ref =~ s/</&lt;/g; # 念の為
	$ref =~ s/>/&gt;/g;

	if ($ref eq "" && $ENV{'HTTP_WEFERER'} ne "") { $ref = "Field blocked by Norton"; }

	#------------------------------------------------------
	# OS調査 ($OS)

	$agent = $ENV{'HTTP_USER_AGENT'};
	$agent =~ s/</&lt;/g; # 念の為
	$agent =~ s/>/&gt;/g;
	$agent =~ s/User-Agent: //g;

	if ($agent =~ /Win(.*)95/i) { $OS = "Windows 95"; }
	elsif ($agent =~ /Vista/i) { $OS = "Windows Vista"; }
	elsif ($agent =~ /98; Win/i) { $OS = "Windows Me"; }
	elsif ($agent =~ /Win(.*)98/i) { $OS = "Windows 98"; }
	elsif ($agent =~ /WinNT/i) { $OS = "Windows NT4.0"; }
	elsif ($agent =~ /Windows NT 5\.0/i) { $OS = "Windows 2000"; }
	elsif ($agent =~ /Windows NT 5/i) { $OS = "Windows XP"; }
	elsif ($agent =~ /Windows NT/i) { $OS = "Windows NT"; }
	elsif ($agent =~ /(Mac_|Macintosh)/i) { $OS = "Macintosh"; }
	elsif ($agent =~ /X11/i) { $OS = "X11"; }
	elsif ($agent =~ /Linux/i) { $OS = "Linux"; }
	elsif ($agent =~ /SunOS/i) { $OS = "SunOS"; }
	elsif ($agent =~ /FreeBSD/i) { $OS = "FreeBSD"; }
	elsif ($agent =~ /WebTV/i && $agent =~ /MSIE/) { $OS = "DreamCast"; }
	elsif ($agent =~ /WebTV/i) { $OS = "WebTV"; }
	elsif ($agent =~ /AIX/i) { $OS = "AIX"; }
	elsif ($agent =~ /OSF1/i) { $OS = "OSF1"; }
	elsif ($agent =~ /NEWS-OS/i) { $OS = "NEWS-OS"; }
	elsif ($agent =~ /IRIX/i) { $OS = "IRIX"; }
	elsif ($agent =~ /HP-UX/i) { $OS = "HP-UX"; }
	elsif ($agent =~ /BSD/i) { $OS = "BSD"; }
	else { $OS = "その他"; }

	#------------------------------------------------------
	# IPアドレス調査 ($host)

	$host = &nslookup($ENV{'REMOTE_ADDR'});

	if ($host =~ /(.*)\.(\d+)$/) { substr($host,0,1) = 'x'; }
	elsif ($host =~ /(.*)\.(.*)\.(.*)\.(.*)$/) { $host = "\*\.$2\.$3\.$4"; }
	elsif ($host =~ /(.*)\.(.*)\.(.*)$/) { $host = "\*\.$2\.$3"; }

	if ($agent =~ /Google.*Proxy/i && $host =~ /google\.com/) { $host = ""; }

	sub nslookup {

		local($addr) = @_;
		local($host,$ip);

		if ($addr =~ /([0-9]+)\.([0-9]+)\.([0-9]+)\.([0-9]+)/) {

			$ip = "$1.$2.$3.$4";
			$host = (gethostbyaddr(pack('C4',$1,$2,$3,$4),2))[0];
			$host =~ y/A-Z/a-z/;
			if ($host ne "") { return $host; } else { return $ip; }
		}
		else { return $addr; }
	}

	#------------------------------------------------------
	# プロクシ調査 ($host2)

	if ($ENV{'HTTP_VIA'} =~ s/.*\s(\d+)\.(\d+)\.(\d+)\.(\d+)/$1.$2.$3.$4/) { $host2 = $ENV{'HTTP_VIA'}; }
	if ($ENV{'HTTP_X_FORWARDED_FOR'} =~ s/^(\d+)\.(\d+)\.(\d+)\.(\d+)(\D*).*/$1.$2.$3.$4/) { $host2 = $ENV{'HTTP_X_FORWARDED_FOR'}; }
	if ($ENV{'HTTP_FORWARDED'} =~ s/.*\s(\d+)\.(\d+)\.(\d+)\.(\d+)/$1.$2.$3.$4/) { $host2 = $ENV{'HTTP_FORWARDED'}; }

	$host2 = &nslookup($host2);

	if ($host2 =~ /(.*)\.(\d+)$/) { substr($host2,0,1) = 'x'; }
	elsif ($host2 =~ /(.*)\.(.*)\.(.*)\.(.*)$/) { $host2 = "\*\.$2\.$3\.$4"; }
	elsif ($host2 =~ /(.*)\.(.*)\.(.*)$/) { $host2 = "\*\.$2\.$3"; }
	elsif ($ENV{'HTTP_USER_AGENT'} =~ /via/i || $ENV{'HTTP_USER_AGENT'} =~ /Proxy/i || $ENV{'HTTP_USER_AGENT'} =~ /Gateway/i) { $host2 = "?"; }
	else { $host2 = ""; }

	if ($agent =~ /Google.*Proxy/i && $host =~ /google\.com/) { $host2 = "Google経由"; }

	#------------------------------------------------------
	# ブラウザ($agent)とプラットフォーム($keitai)調査

	if ($agent =~ /Opera/) { $agent = "Opera"; }
	elsif ($agent =~ /JBH/i) { $agent = "JBH"; }
	elsif ($agent =~ /JustView/i) { $agent = "JustView"; }
	elsif ($agent =~ /Plala-Browser/i) { $agent = "Plala-Browser"; }
	elsif ($agent =~ /DreamPassport/i) { $agent = "DreamCast"; }
	elsif ($agent =~ /SonicPassport/i) { $agent = "DreamCast"; }
	elsif ($agent =~ /WWWC/i) { $agent = "WWWC"; }
	elsif ($agent =~ /HotJava/i) { $agent = "HotJava"; }
	elsif ($agent =~ /Lynx/i) { $agent = "Lynx"; }
	elsif ($agent =~ /w3m/i) { $agent = "w3m"; }
	elsif ($agent =~ /OmniWeb/i) { $agent = "OmniWeb"; }
	elsif ($agent =~ /iCab/i) { $agent = "iCab"; }
	elsif ($agent =~ /Lite/) { $agent = "Lite"; }
	elsif ($agent =~ /AppleWebKit/) { $agent = "Safari"; }
	elsif ($agent =~ /Goo|mogimogi|moget|Slurp|Googlebot|Robot|InfoSeek Sidewinder|aruyo|NettuhanCom|ZyBorg|indexpert|User-Agent: |sohu-search|appie|MyApp/i) { $agent = "検索ロボット"; }
	elsif ($agent =~ /.*\(.*http:\/\/.*\)/i) { $agent = "検索ロボット"; }
	elsif ($agent eq "") { $agent = "検索ロボット?"; }
	elsif ($agent =~ /Google CHTML Proxy/i && $host =~ /google\.com/) { $agent = "Google変換(imode版)"; }
	elsif ($agent =~ /Google WAP Proxy/i && $host =~ /google\.com/) { $agent = "Google変換(ezweb版)"; }
	elsif ($agent =~ /MSIE (\d+)/) { $agent = "Internet Explorer $1"; }
	elsif ($agent =~ /Netscape6\/(\d+)/) { $agent = "Netscape-6 $1"; }
	elsif ($agent =~ /Mozilla\/(\d+)/ && $agent =~ /Gecko/ && $agent !~ /Netscape/) { $agent = "Mozilla $1"; }
	elsif ($agent =~ /Mozilla\/(\d+)/) { $agent = "Netscape Navigator $1"; }
	elsif ($agent =~ /DoCoMo\/(.+)\/(.+)\/(.+)$/) { $agent = "DoCoMo $1"; $keitai = "DoCoMo"; }
	elsif ($agent =~ /J-PHONE\/(.+)\/(.+)$/) { $agent = "J-PHONE $1"; $keitai = "J-PHONE"; }
	elsif ($agent =~ /KDDI-(.+) UP\.Browser\/(\d)\./) {

		$agent = "UP.Browser $2";
		$keitai = "au";
	}
	elsif ($agent =~ /UP\.Browser\/(\d)\.-(.)(.)(.)(.)/) {

		$agent = "UP.Browser $1"; $carr = $4;

		if ($carr eq "T") { $keitai = "TU-KA"; }
		else { $keitai = "au"; }
	}
	elsif ($agent =~ /ASTEL\/(.+)\/(.+)$/) { $agent = "ASTEL $1"; $keitai = "ASTEL"; }
	else { $agent = "その他"; }

	#------------------------------------------------------
	# アクセスデータ記録

	if (!-e "$log_dir$today\.dat") { open(F,"> $log_dir$today\.dat"); print F "0"; close(F); chmod(0666,"$log_dir$today\.dat"); }
	if (open(F,"+< $log_dir$today\.dat")) {

		flock F, 2;
		$count = <F>;
		@LOG = <F>;

		$count =~ s/\n//g;
		$count ++;

		eval 'truncate F,0;'; # truncate()が使えないサーバでは致命的なエラーとなる
		seek(F,0,0);

		print F "$count\n";
		print F @LOG;
		print F "$HOUR\t$ref\t$host\t$host2\t$agent\t$keitai\t$OS\n";
		close(F);
	}

	#------------------------------------------------------
	# 累計カウント

	if (!-e "$log_dir$log_file") { open(F,"> $log_dir$log_file"); print F "1"; close(F); chmod(0666,"$log_dir$log_file"); }
	elsif (open(F,"+< $log_dir$log_file")) {

		flock F, 2;
		$count = <F>;
		$count =~ s/\n//g;
		$count ++;

		eval 'truncate F,0;'; # truncate()が使えないサーバでは致命的なエラーとなる
		seek(F,0,0);

		print F $count;
		close(F);
	}
}

#------------------------------------------------------
# 読み出し

if (!open(LOG,"$log_dir$log_file")) { $count = 'ERR'; }
else {
	$count = <LOG>; $count =~ s/\n//g;
	close(LOG);
}

$log = "$log_dir$today.dat";
if (!open(LOG,$log)) { $today_count = 0; }
else {
	$today_count = <LOG>; $today_count =~ s/\n//g;
	close(LOG);
}

($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time - 24*60*60);
$yesterday = sprintf("%04d%02d%02d",$year +1900,$mon +1,$mday);
$log = "$log_dir$yesterday.dat";
if (!open(LOG,$log)) { $yesterday_count = 0; }
else {
	$yesterday_count = <LOG>; $yesterday_count =~ s/\n//g;
	close(LOG);
}

$fmt = <<"EOF"; # カウンター表示書式
<table border=1 cellspacing=0>
<tr><td><font size=-1 color=$kaiseki_color>本日</font></td><td align=right><i>&nbsp;&nbsp;&nbsp;<font color=$kaiseki_color>$today_count</font></i></td></tr>
<tr><td><font size=-1 color=$kaiseki_color>昨日</font></td><td align=right><i>&nbsp;&nbsp;&nbsp;<font color=$kaiseki_color>$yesterday_count</font></i></td></tr>
<tr><td><font size=-1 color=$kaiseki_color>累計</font></td><td align=right><i>&nbsp;&nbsp;&nbsp;<font color=$kaiseki_color>$count</font></i></td></tr>
</table>
EOF

$fmt;

}

##
#### ■メンテナンスモード
##

sub maintenance {

if (@remove) {

	foreach (@remove) {

		$moddel{'del'} = $_;
		&modDel();
	}
}

&getAllFiles();

if ($form{'now'} eq "") { $form{'now'} = 0; }
if ($form{'add'} eq "") { $form{'add'} = 20; }
$now = $form{'add'} + $form{'now'};

$HTML = <<"EOF";
<HTML><HEAD>
<TITLE>メンテナンスモード</TITLE>
<meta http-equiv="Content-Type" content="text/html; charset=Shift_JIS" />
</HEAD>
<body>
<h3>メンテナンスモード</h3>

<form action=$reload method=post name=Form>
<input type=hidden name=cmd value="maintenance">

<table cellpadding=2 cellspacing=0 border=0 width=100%>
<tr bgcolor=#555555><td><input type=checkbox name=checkB onClick="checkCB()" title="すべて選択"></td><td><font color=white>投稿日</font></td><td><font color=white>題名</font></td><td><font color=white>ライター</font></td><td><font color=white>本文</font></td></tr>
EOF

$i = $c = 0;
foreach $num (0 .. $#all) {

	$i++;
	if ($i <= $form{'now'}) { next; }

	&getBlog($all[$num]);

$key{'title'} =~ s{
<
[^<>]*
>
}{}xsg;

$key{'body'} =~ s{
<
[^<>]*
>
}{}xsg;

	if (length($key{'title'}) > 50) { $key{'title'} = &z_substr($key{'title'},0,50) . '..'; }
	if (length($key{'body'}) > 100) { $key{'body'} = &z_substr($key{'body'},0,100) . '..'; }

	if ($all[$num] =~ /^(\d{4})(\d{2})(\d{2})(\d{2})(\d{2})(\d{2})$/) { $y = $1; $m = $2; $d = $3; $hh = $4; $mm = $5; $ss = $6; }
	if ($m < 10) { $m =~ s/0/&nbsp;/; }
	if ($d < 10) { $d =~ s/0/&nbsp;/; }

	if ($i % 2) { $color = "#ffffff"; } else { $color = "#efefef"; }

	$c++;

	$HTML .= "<tr bgcolor=$color><td><input type=checkbox name=\"del$c\" value=\"$all[$num]\"></td><td noWrap><tt>$y/$m/$d $hh:$mm:$ss</tt></td><td><a href=\"$reload/permalink/$all[$num]\" target=_blank>$key{'title'}</a></td><td>$key{'writer'}&nbsp;</td><td>$key{'body'}&nbsp;</td></tr>\n";

	if ($i >= $now) { last; }
}

$HTML .= <<"EOF";
</table><br>
<input type=submit value="削除" title="チェックした記事を削除" onClick="f=confirm('削除しますか？');return f">
</form><p>
EOF

if ($#all ne $i - 1) {

$selected{$form{'add'}} = " selected";

$HTML .= <<"EOF";
<div align=right>
<form action=$reload method=post>
<input type=hidden name=cmd value="maintenance">
<input type=hidden name=now value="$now">
<select name=add size=1>
<option value="20"$selected{'20'}>次の20件
<option value="50"$selected{'50'}>次の50件
<option value="100"$selected{'100'}>次の100件
</select>
<input type=submit value="実行">
</form>
</div>
EOF

}


$HTML .= <<"EOF";
※アップロードした画像はメンテナンス対象外です。　　※タグ覚え　img src="img/　　　.jpg"
<hr size=1>
<a href=$reload>ブログに戻る</a>
<p>

<SCRIPT language="JavaScript">
<!--
function checkCB()
{
	if (document.Form.checkB.checked) {

		for (i=1; i<=$c; i++) document.Form.elements["del"+i].checked = true;
	}
	else {
		for (i=1; i<=$c; i++) document.Form.elements["del"+i].checked = false;
	}
}
//-->
</SCRIPT>

</body></html>
EOF

print "Content-type: text/html; charset=Shift_JIS\n\n";
print $HTML;
exit;

}

##
#### ■エラー表示
##

sub error { # SJIS出力

	local(@msg) = @_;

$error = <<"EOF";
<HTML><HEAD>
<TITLE>ERROR</TITLE>
<meta http-equiv="Content-Type" content="text/html; charset=Shift_JIS" />
</HEAD>
<body>
<h3>$msg[0]</h3>
EOF

foreach (1..$#msg) { $error .= "$msg[$_]<br>\n"; }

$error .= <<"EOF";
</body></html>
EOF
	print "Content-type: text/html; charset=Shift_JIS\n\n";
	print $error;
	exit;
}

##
#### ■ロゴ
##

sub copyright {

local($file) = @_;

@array = (
"47","49","46","38","39","61","77","00","14","00","c4","00","00","fd","fd","fd","9d","9d","9d","dc","dc","dc","5e","5e","5e","ec",
"ec","ec","2f","2f","2f","1f","1f","1f","4e","4e","4e","0f","0f","0f","8d","8d","8d","6e","6e","6e","ad","ad","ad","3f","3f","3f",
"7e","7e","7e","bd","bd","bd","cc","cc","cc","00","00","00","fc","fc","fc","00","00","00","00","00","00","00","00","00","00","00",
"00","00","00","00","00","00","00","00","00","00","00","00","00","00","00","00","00","00","00","00","00","00","00","00","00","00",
"00","00","00","00","00","21","f9","04","00","00","00","00","00","2c","00","00","00","00","77","00","14","00","40","05","ff","20",
"10","34","64","69","9e","68","aa","ae","6c","eb","be","30","1b","00","40","13","dd","90","73","33","4c","f4","20","90","60","22",
"c2","08","3a","1e","91","20","24","12","50","16","08","84","e0","21","58","88","38","82","40","c5","4e","99","bb","79","af","ca",
"de","20","d8","18","43","7a","56","6e","ae","11","7c","80","d7","ca","80","97","50","80","20","90","de","88","21","4c","b3","e5",
"ff","80","81","82","83","84","85","80","6f","4b","79","88","6a","8c","8d","8d","3a","37","75","41","0c","7d","86","96","97","98",
"99","81","8b","8e","9d","9e","6a","94","35","5e","5d","5e","0f","10","0b","a3","36","02","41","7b","08","36","57","09","0e","b2",
"90","a4","80","ab","09","0a","55","11","ab","90","5f","10","78","05","03","37","07","7b","43","be","5c","0e","6c","67","44","46",
"ca","0d","ab","41","c2","08","0b","a6","10","07","cc","7c","a2","9a","db","dc","dd","37","9c","9f","e1","8e","a1","7e","6c","03",
"0d","53","72","de","dd","01","0a","b5","37","63","98","88","03","04","c9","43","4d","0c","cf","ca","e2","8c","e4","a3","05","0c",
"f6","2c","58","a5","2e","ca","90","01","05","ae","28","48","b0","e4","4a","03","59","0c","74","41","10","26","e0","c0","2a","06",
"0b","1c","8c","49","d0","c0","c0","0d","53","bd","be","91","32","a0","a5","89","80","2b","ea","d2","ff","20","3b","29","80","89",
"92","64","64","a2","04","d1","72","aa","5a","8f","22","d9","fc","70","c9","d3","c4","40","1d","61","f0","20","10","98","e2","85",
"4d","81","3a","0c","a0","09","89","c4","45","4b","84","3a","92","7e","29","a2","02","c1","00","81","1b","ab","9c","1e","33","f2",
"a7","49","c8","31","3a","1e","5c","9d","22","d5","0b","ce","49","34","ce","c5","58","cb","b6","2d","0b","33","fc","e2","f6","a3",
"a1","60","96","dd","bb","78","f3","ea","dd","cb","b7","af","5f","59","0c","e5","0a","ce","b9","ae","b0","61","41","e0","06","87",
"f3","17","01","08","16","ad","87","31","11","43","10","72","95","c7","4b","88","50","79","59","90","45","c0","83","7d","83","19",
"27","81","54","e0","5a","04","02","23","f0","9c","ec","e5","46","75","83","00","57","f3","3c","48","10","5b","00","89","94","11",
"16","34","00","f9","e7","8a","6d","75","ab","09","ac","6e","a9","f2","a5","b2","00","6f","60","3a","29","e3","d8","ce","39","80",
"51","cf","54","c2","01","c9","80","30","03","06","04","10","18","23","40","80","81","6b","d3","9a","c8","41","f0","44","61","ee",
"68","4d","f4","58","8d","c0","7d","01","84","06","43","df","a5","61","80","1a","42","00","01","01","85","1b","48","2a","72","e5",
"91","08","fb","28","d7","43","00","e4","d5","03","81","16","03","50","16","81","cd","3b","84","e1","00","10","03","72","5c","d1",
"4b","01","36","34","31","c6","77","3d","70","42","dd","56","4a","34","c0","c3","28","21","a5","61","56","0f","06","11","33","15",
"32","ca","68","b1","07","1c","ef","bd","71","93","2c","ac","60","83","96","36","49","68","e6","05","02","f4","45","c0","10","1e",
"7b","34","d1","45","14","a6","05","70","4d","14","bd","78","a7","0e","77","5e","01","78","4a","6f","07","fa","60","df","0d","4d",
"20","10","5b","7f","4a","7c","16","c4","78","cd","48","c1","9e","1d","0f","ac","22","8c","02","06","20","71","96","74","da","70",
"d4","80","31","5f","0c","70","00","9a","3e","0c","91","0c","4f","07","0c","60","4c","02","0b","e8","46","1c","13","24","f4","42",
"80","02","07","20","17","a2","00","09","08","a9","c0","9d","6c","dc","49","a5","35","26","90","15","27","0f","0d","00","81","80",
"02","0b","04","30","26","0f","c2","4c","3a","5d","64","98","1a","52","cf","2c","4c","2a","d6","c9","83","0c","34","17","8a","1b",
"7f","95","6a","ea","a9","a8","a6","aa","aa","2c","0f","00","10","02","00","3b");

if (!-e $file) {

	open(f,"> $file");
	foreach (@array) { $data = pack('C*',hex($_)); print f $data; }
	close(f);
}

print "Content-type: image/gif\n\n";
foreach (@array) { $data = pack('C*',hex($_)); print $data; }

exit;

}